pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

NiceGrid: Position controls in Lazarus version of basic_demo by means of anchoring.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8864 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-06-28 14:45:37 +00:00
parent af0c9d21e7
commit 8e2c01fd88
1 changed files with 36 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

46
components/nicegrid/demos/Basic Demo/common/main.lfm
View File

@ -102,11 +102,14 @@ object MainForm: TMainForm
TabOrder = 1 TabOrder = 1
end end
object CheckBox2: TCheckBox object CheckBox2: TCheckBox
Left = 88 AnchorSideLeft.Control = CheckBox1
AnchorSideLeft.Side = asrBottom
Left = 69
Height = 19 Height = 19
Top = 464 Top = 464
Width = 93 Width = 93
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
BorderSpacing.Left = 16
Caption = 'System Colors' Caption = 'System Colors'
Checked = True Checked = True
OnClick = CheckBox2Click OnClick = CheckBox2Click
@ -114,31 +117,40 @@ object MainForm: TMainForm
TabOrder = 2 TabOrder = 2
end end
object CheckBox3: TCheckBox object CheckBox3: TCheckBox
Left = 192 AnchorSideLeft.Control = CheckBox2
AnchorSideLeft.Side = asrBottom
Left = 178
Height = 19 Height = 19
Top = 464 Top = 464
Width = 80 Width = 80
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
BorderSpacing.Left = 16
Caption = 'Fit to Width' Caption = 'Fit to Width'
OnClick = CheckBox3Click OnClick = CheckBox3Click
TabOrder = 3 TabOrder = 3
end end
object CheckBox4: TCheckBox object CheckBox4: TCheckBox
Left = 288 AnchorSideLeft.Control = CheckBox3
AnchorSideLeft.Side = asrBottom
Left = 274
Height = 19 Height = 19
Top = 464 Top = 464
Width = 125 Width = 125
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
BorderSpacing.Left = 16
Caption = 'Auto Column Width' Caption = 'Auto Column Width'
OnClick = CheckBox4Click OnClick = CheckBox4Click
TabOrder = 4 TabOrder = 4
end end
object CheckBox5: TCheckBox object CheckBox5: TCheckBox
Left = 424 AnchorSideLeft.Control = CheckBox4
AnchorSideLeft.Side = asrBottom
Left = 415
Height = 19 Height = 19
Top = 464 Top = 464
Width = 77 Width = 77
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
BorderSpacing.Left = 16
Caption = 'Show Grids' Caption = 'Show Grids'
Checked = True Checked = True
OnClick = CheckBox5Click OnClick = CheckBox5Click
@ -146,11 +158,14 @@ object MainForm: TMainForm
TabOrder = 5 TabOrder = 5
end end
object Button1: TButton object Button1: TButton
Left = 272 AnchorSideLeft.Control = Button3
AnchorSideLeft.Side = asrBottom
Left = 284
Height = 25 Height = 25
Top = 501 Top = 501
Width = 129 Width = 129
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
BorderSpacing.Left = 16
Caption = '&Hide 3rd Column' Caption = '&Hide 3rd Column'
OnClick = Button1Click OnClick = Button1Click
TabOrder = 8 TabOrder = 8
@ -159,39 +174,50 @@ object MainForm: TMainForm
Left = 16 Left = 16
Height = 25 Height = 25
Top = 501 Top = 501
Width = 121 Width = 108
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
AutoSize = True
Caption = '&Insert New Row' Caption = '&Insert New Row'
OnClick = Button2Click OnClick = Button2Click
TabOrder = 6 TabOrder = 6
end end
object Button3: TButton object Button3: TButton
Left = 144 AnchorSideLeft.Control = Button2
AnchorSideLeft.Side = asrBottom
Left = 140
Height = 25 Height = 25
Top = 501 Top = 501
Width = 121 Width = 128
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
AutoSize = True
BorderSpacing.Left = 16
Caption = '&Delete Current Row' Caption = '&Delete Current Row'
OnClick = Button3Click OnClick = Button3Click
TabOrder = 7 TabOrder = 7
end end
object Button4: TButton object Button4: TButton
Left = 416 AnchorSideLeft.Control = Button1
AnchorSideLeft.Side = asrBottom
Left = 429
Height = 25 Height = 25
Top = 501 Top = 501
Width = 182 Width = 182
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
AutoSize = True AutoSize = True
BorderSpacing.Left = 16
Caption = 'Toggle ReadOnly 3rd Column' Caption = 'Toggle ReadOnly 3rd Column'
OnClick = Button4Click OnClick = Button4Click
TabOrder = 9 TabOrder = 9
end end
object CheckBox6: TCheckBox object CheckBox6: TCheckBox
Left = 528 AnchorSideLeft.Control = CheckBox5
AnchorSideLeft.Side = asrBottom
Left = 508
Height = 19 Height = 19
Top = 464 Top = 464
Width = 84 Width = 84
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
BorderSpacing.Left = 16
Caption = 'Show Footer' Caption = 'Show Footer'
OnClick = CheckBox6Click OnClick = CheckBox6Click
TabOrder = 10 TabOrder = 10