paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-10 02:16:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

customdrawn tests: Improves the layout (before the pagecontrols had left=-1)

Browse Source 
git-svn-id: trunk@33330 -
This commit is contained in:
sekelsenmat 2011-11-05 10:07:44 +00:00
parent 328db6815a
commit 19a88c4667
2 changed files with 43 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

75
test/customdrawn/mainform.lfm
View File

@ -35,11 +35,12 @@ object Form1: TForm1
TabOrder = 1 TabOrder = 1
end end
object notebookControls: TNotebook object notebookControls: TNotebook
Left = 9 AnchorSideLeft.Control = Owner
Left = 0
Height = 240 Height = 240
Top = 40 Top = 40
Width = 439 Width = 439
PageIndex = 1 PageIndex = 5
TabOrder = 2 TabOrder = 2
TabStop = True TabStop = True
object pageButtons: TPage object pageButtons: TPage
@ -100,8 +101,8 @@ object Form1: TForm1
end end
end end
object pageEdits: TPage object pageEdits: TPage
ClientWidth = 439 ClientWidth = 878
ClientHeight = 240 ClientHeight = 480
object CDEdit1: TCDEdit object CDEdit1: TCDEdit
Left = 119 Left = 119
Height = 24 Height = 24
@ -136,8 +137,8 @@ object Form1: TForm1
end end
end end
object pageCheckboxes: TPage object pageCheckboxes: TPage
ClientWidth = 439 ClientWidth = 878
ClientHeight = 240 ClientHeight = 480
object CheckBox1: TCheckBox object CheckBox1: TCheckBox
Left = 20 Left = 20
Height = 17 Height = 17
@ -164,15 +165,15 @@ object Form1: TForm1
end end
end end
object pageGroupBoxes: TPage object pageGroupBoxes: TPage
ClientWidth = 224 ClientWidth = 439
ClientHeight = 122 ClientHeight = 240
object GroupBox1: TGroupBox object GroupBox1: TGroupBox
Left = -1 Left = 7
Height = 105 Height = 100
Top = 8 Top = 13
Width = 129 Width = 129
Caption = 'GroupBox1' Caption = 'GroupBox1'
ClientHeight = 87 ClientHeight = 82
ClientWidth = 125 ClientWidth = 125
TabOrder = 0 TabOrder = 0
object Label1: TLabel object Label1: TLabel
@ -226,8 +227,8 @@ object Form1: TForm1
end end
end end
object pageTrackBars: TPage object pageTrackBars: TPage
ClientWidth = 1756 ClientWidth = 3512
ClientHeight = 960 ClientHeight = 1920
object TrackBar1: TTrackBar object TrackBar1: TTrackBar
Left = 7 Left = 7
Height = 25 Height = 25
@ -251,7 +252,7 @@ object Form1: TForm1
ClientWidth = 439 ClientWidth = 439
ClientHeight = 240 ClientHeight = 240
object CDPageControl1: TCDPageControl object CDPageControl1: TCDPageControl
Left = 199 Left = 207
Height = 104 Height = 104
Top = 32 Top = 32
Width = 200 Width = 200
@ -263,24 +264,24 @@ object Form1: TForm1
TabIndex = 1 TabIndex = 1
object CDTabSheet2: TCDTabSheet object CDTabSheet2: TCDTabSheet
Left = 2 Left = 2
Height = 69 Height = 77
Top = 32 Top = 25
Width = 195 Width = 196
Caption = 'CDTabSheet2' Caption = 'CDTabSheet2'
TabVisible = False TabVisible = False
end end
object CDTabSheet1: TCDTabSheet object CDTabSheet1: TCDTabSheet
Left = 2 Left = 2
Height = 69 Height = 77
Top = 32 Top = 25
Width = 195 Width = 196
Caption = 'CDTabSheet1' Caption = 'CDTabSheet1'
TabVisible = False TabVisible = False
end end
end end
object PageControl1: TPageControl object PageControl1: TPageControl
Left = -1 Left = 6
Height = 104 Height = 88
Top = 32 Top = 32
Width = 192 Width = 192
ActivePage = TabSheet1 ActivePage = TabSheet1
@ -313,7 +314,7 @@ object Form1: TForm1
TabOrder = 3 TabOrder = 3
end end
object CDPageControl2: TCDPageControl object CDPageControl2: TCDPageControl
Left = -1 Left = 6
Height = 96 Height = 96
Top = 144 Top = 144
Width = 192 Width = 192
@ -325,29 +326,37 @@ object Form1: TForm1
TabIndex = 2 TabIndex = 2
object CDTabSheet3: TCDTabSheet object CDTabSheet3: TCDTabSheet
Left = 2 Left = 2
Height = 61 Height = 69
Top = 32 Top = 25
Width = 187 Width = 188
Caption = 'CDTabSheet3' Caption = 'CDTabSheet3'
TabVisible = False TabVisible = False
end end
object CDTabSheet4: TCDTabSheet object CDTabSheet4: TCDTabSheet
Left = 2 Left = 2
Height = 61 Height = 69
Top = 32 Top = 25
Width = 187 Width = 188
Caption = 'CDTabSheet4' Caption = 'CDTabSheet4'
TabVisible = False TabVisible = False
end end
object CDTabSheet5: TCDTabSheet object CDTabSheet5: TCDTabSheet
Left = 2 Left = 2
Height = 61 Height = 69
Top = 32 Top = 25
Width = 187 Width = 188
Caption = 'CDTabSheet5' Caption = 'CDTabSheet5'
TabVisible = False TabVisible = False
end end
end end
object StaticText5: TStaticText
Left = 7
Height = 17
Top = 127
Width = 65
Caption = 'dsCommon:'
TabOrder = 5
end
end end
object pageTabControls: TPage object pageTabControls: TPage
end end

1
test/customdrawn/mainform.pas
View File

@ -54,6 +54,7 @@ type
StaticText2: TStaticText; StaticText2: TStaticText;
StaticText3: TStaticText; StaticText3: TStaticText;
StaticText4: TStaticText; StaticText4: TStaticText;
StaticText5: TStaticText;
TabSheet1: TTabSheet; TabSheet1: TTabSheet;
TabSheet2: TTabSheet; TabSheet2: TTabSheet;
TabSheet3: TTabSheet; TabSheet3: TTabSheet;