paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-30 18:41:43 +01:00
Code Issues Packages Projects Releases Wiki Activity

anchordocking: options: indent header options if show header option present

Browse Source 
git-svn-id: trunk@46624 -
This commit is contained in:
mattias 2014-10-20 15:29:02 +00:00
parent 7633a0c2ba
commit d65e2f3461
2 changed files with 47 additions and 43 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

86
components/anchordocking/anchordockoptionsdlg.lfm
View File

@ -14,9 +14,9 @@ object AnchorDockOptionsFrame: TAnchorDockOptionsFrame
AnchorSideTop.Control = HeaderStyleComboBox AnchorSideTop.Control = HeaderStyleComboBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 10 Left = 10
Height = 15 Height = 16
Top = 41 Top = 32
Width = 111 Width = 127
BorderSpacing.Left = 10 BorderSpacing.Left = 10
Caption = 'DragThresholdLabel' Caption = 'DragThresholdLabel'
ParentColor = False ParentColor = False
@ -26,9 +26,9 @@ object AnchorDockOptionsFrame: TAnchorDockOptionsFrame
AnchorSideTop.Control = FilledHeaders AnchorSideTop.Control = FilledHeaders
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 10 Left = 10
Height = 15 Height = 16
Top = 357 Top = 308
Width = 117 Width = 135
BorderSpacing.Top = 10 BorderSpacing.Top = 10
Caption = 'HeaderAlignTopLabel' Caption = 'HeaderAlignTopLabel'
ParentColor = False ParentColor = False
@ -38,9 +38,9 @@ object AnchorDockOptionsFrame: TAnchorDockOptionsFrame
AnchorSideTop.Control = HeaderAlignTopTrackBar AnchorSideTop.Control = HeaderAlignTopTrackBar
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 10 Left = 10
Height = 15 Height = 16
Top = 428 Top = 380
Width = 120 Width = 134
BorderSpacing.Top = 10 BorderSpacing.Top = 10
Caption = 'HeaderAlignLeftLabel' Caption = 'HeaderAlignLeftLabel'
ParentColor = False ParentColor = False
@ -50,9 +50,9 @@ object AnchorDockOptionsFrame: TAnchorDockOptionsFrame
AnchorSideTop.Control = DragThresholdTrackBar AnchorSideTop.Control = DragThresholdTrackBar
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 10 Left = 10
Height = 15 Height = 16
Top = 112 Top = 104
Width = 103 Width = 114
BorderSpacing.Top = 10 BorderSpacing.Top = 10
Caption = 'SplitterWidthLabel' Caption = 'SplitterWidthLabel'
ParentColor = False ParentColor = False
@ -62,9 +62,9 @@ object AnchorDockOptionsFrame: TAnchorDockOptionsFrame
AnchorSideTop.Control = SaveLayoutOnCloseCheckBox AnchorSideTop.Control = SaveLayoutOnCloseCheckBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 10 Left = 10
Height = 24 Height = 18
Top = 203 Top = 190
Width = 160 Width = 172
Caption = 'ScaleOnResizeCheckBox' Caption = 'ScaleOnResizeCheckBox'
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
@ -78,7 +78,7 @@ object AnchorDockOptionsFrame: TAnchorDockOptionsFrame
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 10 Left = 10
Height = 46 Height = 46
Top = 56 Top = 48
Width = 396 Width = 396
Max = 20 Max = 20
OnChange = DragThresholdTrackBarChange OnChange = DragThresholdTrackBarChange
@ -97,7 +97,7 @@ object AnchorDockOptionsFrame: TAnchorDockOptionsFrame
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 10 Left = 10
Height = 46 Height = 46
Top = 372 Top = 324
Width = 396 Width = 396
Frequency = 10 Frequency = 10
Max = 150 Max = 150
@ -117,7 +117,7 @@ object AnchorDockOptionsFrame: TAnchorDockOptionsFrame
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 10 Left = 10
Height = 46 Height = 46
Top = 443 Top = 396
Width = 396 Width = 396
Frequency = 10 Frequency = 10
Max = 200 Max = 200
@ -137,7 +137,7 @@ object AnchorDockOptionsFrame: TAnchorDockOptionsFrame
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 10 Left = 10
Height = 46 Height = 46
Top = 127 Top = 120
Width = 396 Width = 396
Min = 1 Min = 1
OnChange = SplitterWidthTrackBarChange OnChange = SplitterWidthTrackBarChange
@ -152,9 +152,9 @@ object AnchorDockOptionsFrame: TAnchorDockOptionsFrame
AnchorSideTop.Control = ShowHeaderCheckBox AnchorSideTop.Control = ShowHeaderCheckBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 25 Left = 25
Height = 24 Height = 18
Top = 251 Top = 226
Width = 191 Width = 209
BorderSpacing.Left = 15 BorderSpacing.Left = 15
Caption = 'ShowHeaderCaptionCheckBox' Caption = 'ShowHeaderCaptionCheckBox'
ParentShowHint = False ParentShowHint = False
@ -166,9 +166,9 @@ object AnchorDockOptionsFrame: TAnchorDockOptionsFrame
AnchorSideTop.Control = ShowHeaderCaptionCheckBox AnchorSideTop.Control = ShowHeaderCaptionCheckBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 25 Left = 25
Height = 24 Height = 18
Top = 275 Top = 244
Width = 249 Width = 275
Caption = 'HideHeaderCaptionForFloatingCheckBox' Caption = 'HideHeaderCaptionForFloatingCheckBox'
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
@ -179,9 +179,9 @@ object AnchorDockOptionsFrame: TAnchorDockOptionsFrame
AnchorSideTop.Control = ScaleOnResizeCheckBox AnchorSideTop.Control = ScaleOnResizeCheckBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 10 Left = 10
Height = 24 Height = 18
Top = 227 Top = 208
Width = 149 Width = 160
Caption = 'ShowHeaderCheckBox' Caption = 'ShowHeaderCheckBox'
OnChange = ShowHeaderCheckBoxChange OnChange = ShowHeaderCheckBoxChange
ParentShowHint = False ParentShowHint = False
@ -194,10 +194,10 @@ object AnchorDockOptionsFrame: TAnchorDockOptionsFrame
AnchorSideTop.Control = Owner AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 112 Left = 124
Height = 29 Height = 20
Top = 6 Top = 6
Width = 294 Width = 282
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 4 BorderSpacing.Right = 4
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -211,9 +211,9 @@ object AnchorDockOptionsFrame: TAnchorDockOptionsFrame
AnchorSideTop.Control = HeaderStyleComboBox AnchorSideTop.Control = HeaderStyleComboBox
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 10 Left = 10
Height = 15 Height = 16
Top = 13 Top = 8
Width = 96 Width = 108
BorderSpacing.Left = 10 BorderSpacing.Left = 10
Caption = 'HeaderStyleLabel' Caption = 'HeaderStyleLabel'
ParentColor = False ParentColor = False
@ -223,9 +223,9 @@ object AnchorDockOptionsFrame: TAnchorDockOptionsFrame
AnchorSideTop.Control = HideHeaderCaptionForFloatingCheckBox AnchorSideTop.Control = HideHeaderCaptionForFloatingCheckBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 25 Left = 25
Height = 24 Height = 18
Top = 299 Top = 262
Width = 110 Width = 114
Caption = 'FlattenHeaders' Caption = 'FlattenHeaders'
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
@ -236,9 +236,9 @@ object AnchorDockOptionsFrame: TAnchorDockOptionsFrame
AnchorSideTop.Control = FlattenHeaders AnchorSideTop.Control = FlattenHeaders
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 25 Left = 25
Height = 24 Height = 18
Top = 323 Top = 280
Width = 100 Width = 105
Caption = 'FilledHeaders' Caption = 'FilledHeaders'
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
@ -249,9 +249,9 @@ object AnchorDockOptionsFrame: TAnchorDockOptionsFrame
AnchorSideTop.Control = SplitterWidthTrackBar AnchorSideTop.Control = SplitterWidthTrackBar
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 10 Left = 10
Height = 24 Height = 18
Top = 179 Top = 172
Width = 187 Width = 204
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'SaveLayoutOnCloseCheckBox' Caption = 'SaveLayoutOnCloseCheckBox'
TabOrder = 11 TabOrder = 11

4
components/anchordocking/anchordockoptionsdlg.pas
View File

@ -228,6 +228,10 @@ var
HasHeaders: Boolean; HasHeaders: Boolean;
begin begin
ShowHeaderCheckBox.Visible:=adofShow_ShowHeader in Flags; ShowHeaderCheckBox.Visible:=adofShow_ShowHeader in Flags;
if ShowHeaderCheckBox.Visible then
ShowHeaderCaptionCheckBox.BorderSpacing.Left:=15
else
ShowHeaderCaptionCheckBox.BorderSpacing.Left:=0;
SaveLayoutOnCloseCheckBox.Visible:=adofShow_ShowSaveOnClose in Flags; SaveLayoutOnCloseCheckBox.Visible:=adofShow_ShowSaveOnClose in Flags;
HasHeaders:=ShowHeaderCheckBox.Checked; HasHeaders:=ShowHeaderCheckBox.Checked;