old version of pascal:About create a new window

[7vinbaby]

I am trying to create a new window at the bottom of my screen but not the normal size .
So i am confused how can i create a window with the size and position what i want?

Just use the silly method to try one by one or some better method?

[7vinbaby]

Also , if i want to create a set of coloured circle ,how should i get the coordinate?

[howardpc]

You could adapt the following to your needs (drop a button on the main form of a new Lazarus project, rename it, and complete as follows):

Code: Pascal  [Select][+][-]

1. unit main2ndWindow;
2.  
3. {$mode objfpc}{$H+}
4.  
5. interface
6.  
7. uses
8.   Forms, StdCtrls;
9.  
10. type
11.  
12.   { TForm1 }
13.  
14.   TForm1 = class(TForm)
15.     ShowFormButton: TButton;
16.     procedure ShowFormButtonClick(Sender: TObject);
17.   end;
18.  
19. function NewScreenBottomWindow(aWidth, aHeight: integer): TForm;
20.  
21. var
22.   Form1: TForm1;
23.  
24. implementation
25.  
26. function NewScreenBottomWindow(aWidth, aHeight: integer): TForm;
27. var
28.   sh: integer;
29. begin
30.   Result:=TForm.CreateNew(Application);
31.   sh:=Screen.Height;
32.   if (aHeight > sh) then
33.     aHeight:=sh;
34.   with Result do begin
35.     SetInitialBounds(0, sh - aHeight, aWidth, aHeight);
36.     Caption:='Secondary';
37.     Show;
38.   end;
39. end;
40.  
41. {$R *.lfm}
42.  
43. { TForm1 }
44.  
45. procedure TForm1.ShowFormButtonClick(Sender: TObject);
46. begin
47.   NewScreenBottomWindow(200, 150);
48. end;
49.  
50. end.

[lainz]

This is related to other post, sorry 

AFAIK you can't.

But you can define

var
arr: array of integer;

and then

SetLength(arr, n);

[molly]

@lainz:
one recent post up   

[lainz]

@lainz:
one recent post up   

Haha, It happens to me when I'm logged out of the forum and then log in, it doesn't keep the window I'm reading, and maybe I open some more windows, maybe I must keep logged in always 

[molly]

Haha, It happens to me when I'm logged out of the forum and then log in, it doesn't keep the window I'm reading, and maybe I open some more windows, maybe I must keep logged in always 

Well it would be kinda cozy to have you logged in 24/7  ... and. it is good for your "Most Time Online" stats as well