paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-03 16:07:19 +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
Left = 292
Height = 300
Height = 331
Top = 209
Width = 400
HorzScrollBar.Page = 399
VertScrollBar.Page = 299
VertScrollBar.Page = 330
ActiveControl = CreateNewFormButton
Caption = 'MainForm'
ClientHeight = 300
ClientHeight = 331
ClientWidth = 400
OnCreate = FormCreate
OnDestroy = FormDestroy
@ -91,7 +91,6 @@ object MainForm: TMainForm
Top = 146
Width = 99
Caption = 'Spiral'
Enabled = False
OnClick = SpiralButtonClick
TabOrder = 3
end

14
examples/anchordocking/dockform1unit.lrs
View File

@ -1,8 +1,10 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TMainForm','FORMDATA',[
'TPF0'#9'TMainForm'#8'MainForm'#4'Left'#3'$'#1#6'Height'#3','#1#3'Top'#3#209#0
+#5'Width'#3#144#1#18'HorzScrollBar.Page'#3#143#1#18'VertScrollBar.Page'#3'+'
'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'J'
+#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'
+'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'
@ -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
+'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
+#29#3'Top'#3#146#0#5'Width'#2'c'#7'Caption'#6#6'Spiral'#7'Enabled'#8#7'OnCli'
+'ck'#7#17'SpiralButtonClick'#8'TabOrder'#2#3#0#0#0#10'TPopupMenu'#13'MainPop'
+'upMenu'#4'left'#3#192#0#3'top'#2#24#0#0#0
+#29#3'Top'#3#146#0#5'Width'#2'c'#7'Caption'#6#6'Spiral'#7'OnClick'#7#17'Spir'
+'alButtonClick'#8'TabOrder'#2#3#0#0#0#10'TPopupMenu'#13'MainPopupMenu'#4'lef'
+'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
Form1: TCustomForm;
Form2: TCustomForm;
//Form3: TCustomForm;
//Form4: TCustomForm;
//Form5: TCustomForm;
Form3: TCustomForm;
Form4: TCustomForm;
Form5: TCustomForm;
begin
debugln;
ClearLayout;
Form1:=CreateNewForm;
with Form1 do SetBounds(Left,Top,600,450);
Form2:=CreateNewForm;
with Form2 do SetBounds(Left,Top,150,150);
DockingManager.Manager.InsertControl(Form2,alRight,Form1);
//Form3:=CreateNewForm;
//DockingManager.Manager.InsertControl(Form3,alLeft,Form1);
//Form4:=CreateNewForm;
//DockingManager.Manager.InsertControl(Form4,alTop,Form1);
//Form5:=CreateNewForm;
//DockingManager.Manager.InsertControl(Form5,alBottom,Form1);
Form3:=CreateNewForm;
with Form3 do SetBounds(Left,Top,150,150);
DockingManager.Manager.InsertControl(Form3,alLeft,Form1);
Form4:=CreateNewForm;
with Form4 do SetBounds(Left,Top,150,150);
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;
procedure TMainForm.ThreePagesButtonClick(Sender: TObject);