paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-03 20:07:25 +01:00
Code Issues Packages Projects Releases Wiki Activity

anchordocking: added spiral example

Browse Source 
git-svn-id: trunk@14002 -
This commit is contained in:
mattias 2008-02-06 14:37:47 +00:00
parent 3c0c8da15c
commit 32a23b4bf2
3 changed files with 27 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
examples/anchordocking/dockform1unit.lfm
View File

@ -1,13 +1,13 @@
object MainForm: TMainForm object MainForm: TMainForm
Left = 292 Left = 292
Height = 300 Height = 331
Top = 209 Top = 209
Width = 400 Width = 400
HorzScrollBar.Page = 399 HorzScrollBar.Page = 399
VertScrollBar.Page = 299 VertScrollBar.Page = 330
ActiveControl = CreateNewFormButton ActiveControl = CreateNewFormButton
Caption = 'MainForm' Caption = 'MainForm'
ClientHeight = 300 ClientHeight = 331
ClientWidth = 400 ClientWidth = 400
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy OnDestroy = FormDestroy
@ -91,7 +91,6 @@ object MainForm: TMainForm
Top = 146 Top = 146
Width = 99 Width = 99
Caption = 'Spiral' Caption = 'Spiral'
Enabled = False
OnClick = SpiralButtonClick OnClick = SpiralButtonClick
TabOrder = 3 TabOrder = 3
end end

14
examples/anchordocking/dockform1unit.lrs
View File

@ -1,8 +1,10 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TMainForm','FORMDATA',[ LazarusResources.Add('TMainForm','FORMDATA',[
'TPF0'#9'TMainForm'#8'MainForm'#4'Left'#3'$'#1#6'Height'#3','#1#3'Top'#3#209#0 'TPF0'#9'TMainForm'#8'MainForm'#4'Left'#3'$'#1#6'Height'#3'K'#1#3'Top'#3#209#0
+#5'Width'#3#144#1#18'HorzScrollBar.Page'#3#143#1#18'VertScrollBar.Page'#3'+' +#5'Width'#3#144#1#18'HorzScrollBar.Page'#3#143#1#18'VertScrollBar.Page'#3'J'
+#1#13'ActiveControl'#7#19'CreateNewFormButton'#7'Caption'#6#8'MainForm'#12'C' +#1#13'ActiveControl'#7#19'CreateNewFormButton'#7'Caption'#6#8'MainForm'#12'C'
+'lientHeight'#3','#1#11'ClientWidth'#3#144#1#8'OnCreate'#7#10'FormCreate'#9 +'lientHeight'#3'K'#1#11'ClientWidth'#3#144#1#8'OnCreate'#7#10'FormCreate'#9
+'OnDestroy'#7#11'FormDestroy'#7'OnPaint'#7#9'FormPaint'#9'PopupMenu'#7#13'Ma' +'OnDestroy'#7#11'FormDestroy'#7'OnPaint'#7#9'FormPaint'#9'PopupMenu'#7#13'Ma'
+'inPopupMenu'#0#7'TButton'#19'CreateNewFormButton'#4'Left'#2#8#6'Height'#2#29 +'inPopupMenu'#0#7'TButton'#19'CreateNewFormButton'#4'Left'#2#8#6'Height'#2#29
+#3'Top'#2' '#5'Width'#3#130#0#8'AutoSize'#9#7'Caption'#6#17'Create a new for' +#3'Top'#2' '#5'Width'#3#130#0#8'AutoSize'#9#7'Caption'#6#17'Create a new for'
@ -25,7 +27,7 @@ LazarusResources.Add('TMainForm','FORMDATA',[
+#0#0#7'TButton'#16'ThreePagesButton'#4'Left'#2#6#6'Height'#2#29#3'Top'#2'o'#5 +#0#0#7'TButton'#16'ThreePagesButton'#4'Left'#2#6#6'Height'#2#29#3'Top'#2'o'#5
+'Width'#2'c'#7'Caption'#6#11'Three Pages'#7'OnClick'#7#21'ThreePagesButtonCl' +'Width'#2'c'#7'Caption'#6#11'Three Pages'#7'OnClick'#7#21'ThreePagesButtonCl'
+'ick'#8'TabOrder'#2#2#0#0#7'TButton'#12'SpiralButton'#4'Left'#2#6#6'Height'#2 +'ick'#8'TabOrder'#2#2#0#0#7'TButton'#12'SpiralButton'#4'Left'#2#6#6'Height'#2
+#29#3'Top'#3#146#0#5'Width'#2'c'#7'Caption'#6#6'Spiral'#7'Enabled'#8#7'OnCli' +#29#3'Top'#3#146#0#5'Width'#2'c'#7'Caption'#6#6'Spiral'#7'OnClick'#7#17'Spir'
+'ck'#7#17'SpiralButtonClick'#8'TabOrder'#2#3#0#0#0#10'TPopupMenu'#13'MainPop' +'alButtonClick'#8'TabOrder'#2#3#0#0#0#10'TPopupMenu'#13'MainPopupMenu'#4'lef'
+'upMenu'#4'left'#3#192#0#3'top'#2#24#0#0#0 +'t'#3#192#0#3'top'#2#24#0#0#0
]); ]);

25
examples/anchordocking/dockform1unit.pas
View File

@ -67,22 +67,29 @@ procedure TMainForm.SpiralButtonClick(Sender: TObject);
var var
Form1: TCustomForm; Form1: TCustomForm;
Form2: TCustomForm; Form2: TCustomForm;
//Form3: TCustomForm; Form3: TCustomForm;
//Form4: TCustomForm; Form4: TCustomForm;
//Form5: TCustomForm; Form5: TCustomForm;
begin begin
debugln; debugln;
ClearLayout; ClearLayout;
Form1:=CreateNewForm; Form1:=CreateNewForm;
with Form1 do SetBounds(Left,Top,600,450);
Form2:=CreateNewForm; Form2:=CreateNewForm;
with Form2 do SetBounds(Left,Top,150,150);
DockingManager.Manager.InsertControl(Form2,alRight,Form1); DockingManager.Manager.InsertControl(Form2,alRight,Form1);
//Form3:=CreateNewForm; Form3:=CreateNewForm;
//DockingManager.Manager.InsertControl(Form3,alLeft,Form1); with Form3 do SetBounds(Left,Top,150,150);
//Form4:=CreateNewForm; DockingManager.Manager.InsertControl(Form3,alLeft,Form1);
//DockingManager.Manager.InsertControl(Form4,alTop,Form1); Form4:=CreateNewForm;
//Form5:=CreateNewForm; with Form4 do SetBounds(Left,Top,150,150);
//DockingManager.Manager.InsertControl(Form5,alBottom,Form1); DockingManager.Manager.InsertControl(Form4,alTop,Form1);
DockingManager.Manager.EnlargeControl(Form4,akLeft);
Form5:=CreateNewForm;
with Form5 do SetBounds(Left,Top,150,150);
DockingManager.Manager.InsertControl(Form5,alBottom,Form1);
DockingManager.Manager.EnlargeControl(Form5,akRight);
end; end;
procedure TMainForm.ThreePagesButtonClick(Sender: TObject); procedure TMainForm.ThreePagesButtonClick(Sender: TObject);