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

ide: change look and feel of form editor option page

Browse Source 
git-svn-id: trunk@23090 -
This commit is contained in:
paul 2009-12-12 08:26:39 +00:00
parent 45f97fdb97
commit d744f29b60
4 changed files with 395 additions and 550 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

440
ide/frames/formed_options.lfm
View File

@ -1,44 +1,37 @@
inherited FormEditorOptionsFrame: TFormEditorOptionsFrame
Height = 444
Width = 537
ClientHeight = 444
ClientWidth = 537
Height = 600
Width = 769
ClientHeight = 600
ClientWidth = 769
OnResize = FrameResize
TabOrder = 0
Visible = False
DesignLeft = 309
DesignTop = 195
object GridGroupBox: TGroupBox[0]
AnchorSideLeft.Control = Owner
AnchorSideLeft.Control = DesignerColorsGroupBox
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Owner
Left = 0
Height = 212
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 232
Height = 141
Top = 0
Width = 337
Width = 537
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Left = 6
Caption = 'GridGroupBox'
ClientHeight = 194
ClientWidth = 333
ClientHeight = 123
ClientWidth = 533
TabOrder = 0
object GridColorLabel: TLabel
AnchorSideLeft.Control = GridGroupBox
AnchorSideTop.Control = GridSizeYLabel
AnchorSideTop.Side = asrBottom
Left = 6
Height = 14
Top = 113
Width = 70
BorderSpacing.Top = 4
BorderSpacing.Around = 6
Caption = 'GridColorLabel'
ParentColor = False
end
object GridSizeXLabel: TLabel
AnchorSideLeft.Control = GridGroupBox
AnchorSideTop.Control = SnapToGridCheckBox
AnchorSideTop.Side = asrBottom
AnchorSideTop.Control = GridSizeXSpinEdit
AnchorSideTop.Side = asrCenter
Left = 6
Height = 14
Top = 65
Top = 72
Width = 70
BorderSpacing.Around = 6
Caption = 'GridSizeXLabel'
@ -46,31 +39,16 @@ inherited FormEditorOptionsFrame: TFormEditorOptionsFrame
end
object GridSizeYLabel: TLabel
AnchorSideLeft.Control = GridGroupBox
AnchorSideTop.Control = GridSizeXLabel
AnchorSideTop.Side = asrBottom
AnchorSideTop.Control = GridSizeYSpinEdit
AnchorSideTop.Side = asrCenter
Left = 6
Height = 14
Top = 89
Top = 99
Width = 70
BorderSpacing.Top = 4
BorderSpacing.Around = 6
Caption = 'GridSizeYLabel'
ParentColor = False
end
object GridColorButton: TColorButton
AnchorSideLeft.Control = GridColorLabel
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = GridColorLabel
AnchorSideTop.Side = asrCenter
Left = 82
Height = 23
Top = 109
Width = 50
BorderWidth = 2
ButtonColorSize = 16
ButtonColor = clBlack
Color = clBtnFace
end
object SnapToGridCheckBox: TCheckBox
AnchorSideLeft.Control = GridGroupBox
AnchorSideTop.Control = ShowBorderSpaceCheckBox
@ -79,21 +57,23 @@ inherited FormEditorOptionsFrame: TFormEditorOptionsFrame
AnchorSideRight.Side = asrBottom
Left = 6
Height = 17
Top = 42
Top = 46
Width = 120
BorderSpacing.Left = 6
BorderSpacing.Top = 4
BorderSpacing.Top = 3
BorderSpacing.Right = 6
Caption = 'SnapToGridCheckBox'
TabOrder = 1
end
object ShowGridCheckBox: TCheckBox
AnchorSideLeft.Control = GridGroupBox
AnchorSideTop.Control = GridGroupBox
Left = 6
Height = 17
Top = 0
Top = 6
Width = 110
BorderSpacing.Left = 6
BorderSpacing.Top = 6
Caption = 'ShowGridCheckBox'
TabOrder = 0
end
@ -103,22 +83,23 @@ inherited FormEditorOptionsFrame: TFormEditorOptionsFrame
AnchorSideTop.Side = asrBottom
Left = 6
Height = 17
Top = 21
Top = 26
Width = 152
BorderSpacing.Left = 6
BorderSpacing.Top = 4
BorderSpacing.Top = 3
Caption = 'ShowBorderSpaceCheckBox'
TabOrder = 2
end
object GridSizeXSpinEdit: TSpinEdit
AnchorSideLeft.Control = GridSizeXLabel
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = GridSizeXLabel
AnchorSideTop.Side = asrCenter
AnchorSideTop.Control = SnapToGridCheckBox
AnchorSideTop.Side = asrBottom
Left = 82
Height = 21
Top = 62
Top = 69
Width = 64
BorderSpacing.Around = 6
MaxValue = 128
MinValue = 2
ParentShowHint = False
@ -129,12 +110,13 @@ inherited FormEditorOptionsFrame: TFormEditorOptionsFrame
object GridSizeYSpinEdit: TSpinEdit
AnchorSideLeft.Control = GridSizeYLabel
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = GridSizeYLabel
AnchorSideTop.Side = asrCenter
AnchorSideTop.Control = GridSizeXSpinEdit
AnchorSideTop.Side = asrBottom
Left = 82
Height = 21
Top = 86
Top = 96
Width = 64
BorderSpacing.Around = 6
MaxValue = 128
MinValue = 2
ParentShowHint = False
@ -143,175 +125,37 @@ inherited FormEditorOptionsFrame: TFormEditorOptionsFrame
Value = 2
end
end
object RubberbandGroupBox: TGroupBox[1]
AnchorSideLeft.Control = GridGroupBox
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 343
Height = 212
Top = 0
Width = 194
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
Caption = 'RubberbandGroupBox'
ClientHeight = 194
ClientWidth = 190
Color = clBtnFace
ParentColor = False
TabOrder = 1
object RubberbandSelectColorButton: TColorButton
AnchorSideLeft.Control = RubberbandSelectColorLabel
AnchorSideTop.Control = RubberbandSelectColorLabel
AnchorSideTop.Side = asrBottom
Left = 6
Height = 23
Top = 26
Width = 50
BorderWidth = 2
ButtonColorSize = 16
ButtonColor = clBlack
Color = clBtnFace
end
object RubberbandCreateColorButton: TColorButton
AnchorSideLeft.Control = RubberbandCreateColorLabel
AnchorSideTop.Control = RubberbandCreateColorLabel
AnchorSideTop.Side = asrBottom
Left = 6
Height = 23
Top = 75
Width = 50
BorderWidth = 2
ButtonColorSize = 16
ButtonColor = clBlack
Color = clBtnFace
end
object RubberbandSelectColorLabel: TLabel
AnchorSideLeft.Control = RubberbandGroupBox
AnchorSideTop.Control = RubberbandGroupBox
AnchorSideRight.Control = RubberbandGroupBox
AnchorSideRight.Side = asrBottom
Left = 6
Height = 14
Top = 6
Width = 178
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
Caption = 'RubberbandSelectColorLabel'
ParentColor = False
end
object RubberbandCreateColorLabel: TLabel
AnchorSideLeft.Control = RubberbandGroupBox
AnchorSideTop.Control = RubberbandSelectColorButton
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = RubberbandGroupBox
AnchorSideRight.Side = asrBottom
Left = 6
Height = 14
Top = 55
Width = 178
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
Caption = 'RubberbandCreateColorLabel'
ParentColor = False
end
object RubberbandSelectsGrandChildsCheckBox: TCheckBox
AnchorSideLeft.Control = RubberbandGroupBox
AnchorSideTop.Control = RubberbandCreateColorButton
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = RubberbandGroupBox
AnchorSideRight.Side = asrBottom
Left = 6
Height = 17
Top = 104
Width = 178
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
Caption = 'RubberbandSelectsGrandChildsCheckBox'
TabOrder = 0
end
end
object FormEditMiscGroupBox: TGroupBox[2]
object FormEditMiscGroupBox: TGroupBox[1]
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = GridGroupBox
AnchorSideTop.Control = DesignerColorsGroupBox
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 0
Height = 226
Top = 218
Width = 337
Anchors = [akTop, akLeft, akBottom]
Height = 167
Top = 234
Width = 769
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Top = 6
Caption = 'FormEditMiscGroupBox'
ClientHeight = 208
ClientWidth = 333
TabOrder = 2
object GrabberColorButton: TColorButton
AnchorSideLeft.Control = GrabberColorLabel
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = GrabberColorLabel
AnchorSideTop.Side = asrCenter
Left = 102
Height = 23
Top = 86
Width = 50
BorderWidth = 2
ButtonColorSize = 16
ButtonColor = clBlack
Color = clBtnFace
end
object MarkerColorButton: TColorButton
AnchorSideLeft.Control = MarkerColorLabel
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = MarkerColorLabel
AnchorSideTop.Side = asrCenter
Left = 96
Height = 23
Top = 110
Width = 50
BorderWidth = 2
ButtonColorSize = 16
ButtonColor = clBlack
Color = clBtnFace
end
object GrabberColorLabel: TLabel
AnchorSideLeft.Control = FormEditMiscGroupBox
AnchorSideTop.Control = RightClickSelectsCheckBox
AnchorSideTop.Side = asrBottom
Left = 6
Height = 14
Top = 90
Width = 90
BorderSpacing.Top = 4
BorderSpacing.Around = 6
Caption = 'GrabberColorLabel'
ParentColor = False
end
object MarkerColorLabel: TLabel
AnchorSideLeft.Control = FormEditMiscGroupBox
AnchorSideTop.Control = GrabberColorLabel
AnchorSideTop.Side = asrBottom
Left = 6
Height = 14
Top = 114
Width = 84
BorderSpacing.Top = 4
BorderSpacing.Around = 6
Caption = 'MarkerColorLabel'
ParentColor = False
end
ClientHeight = 149
ClientWidth = 765
TabOrder = 1
object ShowComponentCaptionsCheckBox: TCheckBox
AnchorSideLeft.Control = FormEditMiscGroupBox
AnchorSideTop.Control = RubberbandSelectsGrandChildsCheckBox
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = FormEditMiscGroupBox
AnchorSideRight.Side = asrBottom
Left = 6
Height = 17
Top = 0
Top = 26
Width = 188
BorderSpacing.Left = 6
BorderSpacing.Top = 3
BorderSpacing.Right = 6
Caption = 'ShowComponentCaptionsCheckBox'
TabOrder = 0
@ -324,10 +168,10 @@ inherited FormEditorOptionsFrame: TFormEditorOptionsFrame
AnchorSideRight.Side = asrBottom
Left = 6
Height = 17
Top = 21
Top = 46
Width = 143
BorderSpacing.Left = 6
BorderSpacing.Top = 4
BorderSpacing.Top = 3
BorderSpacing.Right = 6
Caption = 'ShowEditorHintsCheckBox'
TabOrder = 1
@ -340,10 +184,10 @@ inherited FormEditorOptionsFrame: TFormEditorOptionsFrame
AnchorSideRight.Side = asrBottom
Left = 6
Height = 17
Top = 42
Top = 66
Width = 190
BorderSpacing.Left = 6
BorderSpacing.Top = 4
BorderSpacing.Top = 3
BorderSpacing.Right = 6
Caption = 'AutoCreateFormsOnOpenCheckBox'
TabOrder = 2
@ -356,117 +200,82 @@ inherited FormEditorOptionsFrame: TFormEditorOptionsFrame
AnchorSideRight.Side = asrBottom
Left = 6
Height = 17
Top = 63
Top = 86
Width = 145
BorderSpacing.Left = 6
BorderSpacing.Top = 4
BorderSpacing.Top = 3
Caption = 'RightClickSelectsCheckBox'
TabOrder = 3
end
object DesignerPaintLazyCheckBox: TCheckBox
AnchorSideLeft.Control = FormEditMiscGroupBox
AnchorSideTop.Control = MarkerColorLabel
AnchorSideTop.Control = RightClickSelectsCheckBox
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = FormEditMiscGroupBox
AnchorSideRight.Side = asrBottom
Left = 6
Height = 17
Top = 138
Top = 106
Width = 153
BorderSpacing.Top = 4
BorderSpacing.Around = 6
BorderSpacing.Left = 6
BorderSpacing.Top = 3
Caption = 'DesignerPaintLazyCheckBox'
ParentShowHint = False
ShowHint = True
TabOrder = 4
end
object CreateCompFocusNameCheckBox: TCheckBox
AnchorSideLeft.Control = DesignerPaintLazyCheckBox
AnchorSideLeft.Control = FormEditMiscGroupBox
AnchorSideTop.Control = DesignerPaintLazyCheckBox
AnchorSideTop.Side = asrBottom
Left = 6
Height = 17
Top = 161
Top = 126
Width = 180
BorderSpacing.Top = 6
BorderSpacing.Left = 6
BorderSpacing.Top = 3
BorderSpacing.Bottom = 6
Caption = 'CreateCompFocusNameCheckBox'
ParentShowHint = False
ShowHint = True
TabOrder = 5
end
object RubberbandSelectsGrandChildsCheckBox: TCheckBox
AnchorSideLeft.Control = FormEditMiscGroupBox
AnchorSideTop.Control = FormEditMiscGroupBox
AnchorSideRight.Control = FormEditMiscGroupBox
AnchorSideRight.Side = asrBottom
Left = 6
Height = 17
Top = 6
Width = 759
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
BorderSpacing.Top = 6
Caption = 'RubberbandSelectsGrandChildsCheckBox'
TabOrder = 6
end
end
object GuideLinesGroupBox: TGroupBox[3]
AnchorSideLeft.Control = FormEditMiscGroupBox
object GuideLinesGroupBox: TGroupBox[2]
AnchorSideLeft.Control = DesignerColorsGroupBox
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = RubberbandGroupBox
AnchorSideTop.Control = GridGroupBox
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Owner
AnchorSideBottom.Control = DesignerColorsGroupBox
AnchorSideBottom.Side = asrBottom
Left = 343
Height = 226
Top = 218
Width = 194
Left = 232
Height = 81
Top = 147
Width = 537
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 6
BorderSpacing.Top = 6
Caption = 'GuideLinesGroupBox'
ClientHeight = 208
ClientWidth = 190
TabOrder = 3
object GuideLineColorLeftTopButton: TColorButton
AnchorSideTop.Control = GuideLineColorLeftTopLabel
AnchorSideTop.Side = asrBottom
Left = 6
Height = 23
Top = 94
Width = 50
BorderWidth = 2
ButtonColorSize = 16
ButtonColor = clBlack
Color = clBtnFace
end
object GuideLineColorRightBottomButton: TColorButton
AnchorSideTop.Control = GuideLineColorRightBottomLabel
AnchorSideTop.Side = asrBottom
Left = 6
Height = 23
Top = 143
Width = 50
BorderWidth = 2
ButtonColorSize = 16
ButtonColor = clBlack
Color = clBtnFace
end
object GuideLineColorLeftTopLabel: TLabel
AnchorSideLeft.Control = GuideLinesGroupBox
AnchorSideRight.Control = GuideLinesGroupBox
AnchorSideRight.Side = asrBottom
Left = 6
Height = 14
Top = 74
Width = 178
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
Caption = 'GuideLineColorLeftTopLabel'
ParentColor = False
end
object GuideLineColorRightBottomLabel: TLabel
AnchorSideLeft.Control = GuideLinesGroupBox
AnchorSideTop.Control = GuideLineColorLeftTopButton
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = GuideLinesGroupBox
AnchorSideRight.Side = asrBottom
Left = 6
Height = 14
Top = 123
Width = 178
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
Caption = 'GuideLineColorRightBottomLabel'
ParentColor = False
end
ClientHeight = 63
ClientWidth = 533
TabOrder = 2
object ShowGuideLinesCheckBox: TCheckBox
AnchorSideLeft.Control = GuideLinesGroupBox
AnchorSideRight.Control = GuideLinesGroupBox
@ -474,9 +283,11 @@ inherited FormEditorOptionsFrame: TFormEditorOptionsFrame
Left = 6
Height = 17
Top = 0
Width = 178
Width = 521
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Right = 6
Caption = 'ShowGuideLinesCheckBox'
TabOrder = 0
end
@ -488,12 +299,63 @@ inherited FormEditorOptionsFrame: TFormEditorOptionsFrame
AnchorSideRight.Side = asrBottom
Left = 6
Height = 17
Top = 23
Width = 178
Top = 20
Width = 521
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
BorderSpacing.Left = 6
BorderSpacing.Top = 3
BorderSpacing.Right = 6
Caption = 'SnapToGuideLinesCheckBox'
TabOrder = 1
end
end
object DesignerColorsGroupBox: TGroupBox[3]
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 0
Height = 228
Top = 0
Width = 226
AutoSize = True
Caption = 'DesignerColorsGroupBox'
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ChildSizing.HorizontalSpacing = 2
ChildSizing.VerticalSpacing = 2
ClientHeight = 210
ClientWidth = 222
TabOrder = 3
object ColorsListBox: TColorListBox
AnchorSideLeft.Control = DesignerColorsGroupBox
AnchorSideTop.Control = DesignerColorsGroupBox
Left = 6
Height = 170
Top = 6
Width = 210
Style = [cbCustomColors]
OnGetColors = ColorsListBoxGetColors
BorderSpacing.Around = 6
ItemHeight = 0
OnSelectionChange = ColorsListBoxSelectionChange
TabOrder = 0
end
object ColorBox: TColorBox
AnchorSideLeft.Control = DesignerColorsGroupBox
AnchorSideTop.Control = ColorsListBox
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = ColorsListBox
AnchorSideRight.Side = asrBottom
Left = 6
Height = 22
Top = 182
Width = 210
Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbCustomColor, cbPrettyNames]
BorderSpacing.Around = 6
ItemHeight = 16
OnChange = ColorBoxChange
TabOrder = 1
end
end
end

316
ide/frames/formed_options.lrs
View File

@ -2,187 +2,139 @@
LazarusResources.Add('TFormEditorOptionsFrame','FORMDATA',[
'TPF0'#241#23'TFormEditorOptionsFrame'#22'FormEditorOptionsFrame'#6'Height'#3
+#188#1#5'Width'#3#25#2#12'ClientHeight'#3#188#1#11'ClientWidth'#3#25#2#8'OnR'
+'esize'#7#11'FrameResize'#8'TabOrder'#2#0#7'Visible'#8#10'DesignLeft'#3'5'#1
+#9'DesignTop'#3#195#0#0#242#2#0#9'TGroupBox'#12'GridGroupBox'#22'AnchorSideL'
+'eft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#4'Left'#2#0#6
+'Height'#3#212#0#3'Top'#2#0#5'Width'#3'Q'#1#7'Caption'#6#12'GridGroupBox'#12
+'ClientHeight'#3#194#0#11'ClientWidth'#3'M'#1#8'TabOrder'#2#0#0#6'TLabel'#14
+'GridColorLabel'#22'AnchorSideLeft.Control'#7#12'GridGroupBox'#21'AnchorSide'
+'Top.Control'#7#14'GridSizeYLabel'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'L'
+'eft'#2#6#6'Height'#2#14#3'Top'#2'q'#5'Width'#2'F'#17'BorderSpacing.Top'#2#4
+#20'BorderSpacing.Around'#2#6#7'Caption'#6#14'GridColorLabel'#11'ParentColor'
+#8#0#0#6'TLabel'#14'GridSizeXLabel'#22'AnchorSideLeft.Control'#7#12'GridGrou'
+'pBox'#21'AnchorSideTop.Control'#7#18'SnapToGridCheckBox'#18'AnchorSideTop.S'
+'ide'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#14#3'Top'#2'A'#5'Width'#2'F'#20
+'BorderSpacing.Around'#2#6#7'Caption'#6#14'GridSizeXLabel'#11'ParentColor'#8
+#0#0#6'TLabel'#14'GridSizeYLabel'#22'AnchorSideLeft.Control'#7#12'GridGroupB'
+'ox'#21'AnchorSideTop.Control'#7#14'GridSizeXLabel'#18'AnchorSideTop.Side'#7
+#9'asrBottom'#4'Left'#2#6#6'Height'#2#14#3'Top'#2'Y'#5'Width'#2'F'#17'Border'
+'Spacing.Top'#2#4#20'BorderSpacing.Around'#2#6#7'Caption'#6#14'GridSizeYLabe'
+'l'#11'ParentColor'#8#0#0#12'TColorButton'#15'GridColorButton'#22'AnchorSide'
+'Left.Control'#7#14'GridColorLabel'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21
+'AnchorSideTop.Control'#7#14'GridColorLabel'#18'AnchorSideTop.Side'#7#9'asrC'
+'enter'#4'Left'#2'R'#6'Height'#2#23#3'Top'#2'm'#5'Width'#2'2'#11'BorderWidth'
+#2#2#15'ButtonColorSize'#2#16#11'ButtonColor'#7#7'clBlack'#5'Color'#7#9'clBt'
+'nFace'#0#0#9'TCheckBox'#18'SnapToGridCheckBox'#22'AnchorSideLeft.Control'#7
+#12'GridGroupBox'#21'AnchorSideTop.Control'#7#23'ShowBorderSpaceCheckBox'#18
+'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#12'GridGro'
+'upBox'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#17#3
+'Top'#2'*'#5'Width'#2'x'#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#4
+#19'BorderSpacing.Right'#2#6#7'Caption'#6#18'SnapToGridCheckBox'#8'TabOrder'
+#2#1#0#0#9'TCheckBox'#16'ShowGridCheckBox'#22'AnchorSideLeft.Control'#7#12'G'
+'ridGroupBox'#4'Left'#2#6#6'Height'#2#17#3'Top'#2#0#5'Width'#2'n'#18'BorderS'
+'pacing.Left'#2#6#7'Caption'#6#16'ShowGridCheckBox'#8'TabOrder'#2#0#0#0#9'TC'
+'heckBox'#23'ShowBorderSpaceCheckBox'#22'AnchorSideLeft.Control'#7#12'GridGr'
+'oupBox'#21'AnchorSideTop.Control'#7#16'ShowGridCheckBox'#18'AnchorSideTop.S'
+'ide'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#17#3'Top'#2#21#5'Width'#3#152#0
+#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#4#7'Caption'#6#23'ShowBo'
+'rderSpaceCheckBox'#8'TabOrder'#2#2#0#0#9'TSpinEdit'#17'GridSizeXSpinEdit'#22
+'AnchorSideLeft.Control'#7#14'GridSizeXLabel'#19'AnchorSideLeft.Side'#7#9'as'
+'rBottom'#21'AnchorSideTop.Control'#7#14'GridSizeXLabel'#18'AnchorSideTop.Si'
+'de'#7#9'asrCenter'#4'Left'#2'R'#6'Height'#2#21#3'Top'#2'>'#5'Width'#2'@'#8
+'MaxValue'#3#128#0#8'MinValue'#2#2#14'ParentShowHint'#8#8'ShowHint'#9#8'TabO'
+'rder'#2#3#5'Value'#2#2#0#0#9'TSpinEdit'#17'GridSizeYSpinEdit'#22'AnchorSide'
+'Left.Control'#7#14'GridSizeYLabel'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21
+'AnchorSideTop.Control'#7#14'GridSizeYLabel'#18'AnchorSideTop.Side'#7#9'asrC'
+'enter'#4'Left'#2'R'#6'Height'#2#21#3'Top'#2'V'#5'Width'#2'@'#8'MaxValue'#3
+#128#0#8'MinValue'#2#2#14'ParentShowHint'#8#8'ShowHint'#9#8'TabOrder'#2#4#5
+'Value'#2#2#0#0#0#242#2#1#9'TGroupBox'#18'RubberbandGroupBox'#22'AnchorSideL'
+'eft.Control'#7#12'GridGroupBox'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'A'
+'nchorSideTop.Control'#7#5'Owner'#23'AnchorSideRight.Control'#7#5'Owner'#20
+'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3'W'#1#6'Height'#3#212#0#3'Top'
+#2#0#5'Width'#3#194#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#18'Borde'
+'rSpacing.Left'#2#6#7'Caption'#6#18'RubberbandGroupBox'#12'ClientHeight'#3
+#194#0#11'ClientWidth'#3#190#0#5'Color'#7#9'clBtnFace'#11'ParentColor'#8#8'T'
+'abOrder'#2#1#0#12'TColorButton'#27'RubberbandSelectColorButton'#22'AnchorSi'
+'deLeft.Control'#7#26'RubberbandSelectColorLabel'#21'AnchorSideTop.Control'#7
+#26'RubberbandSelectColorLabel'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'
+#2#6#6'Height'#2#23#3'Top'#2#26#5'Width'#2'2'#11'BorderWidth'#2#2#15'ButtonC'
+'olorSize'#2#16#11'ButtonColor'#7#7'clBlack'#5'Color'#7#9'clBtnFace'#0#0#12
+'TColorButton'#27'RubberbandCreateColorButton'#22'AnchorSideLeft.Control'#7
+#26'RubberbandCreateColorLabel'#21'AnchorSideTop.Control'#7#26'RubberbandCre'
+'ateColorLabel'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2
+#23#3'Top'#2'K'#5'Width'#2'2'#11'BorderWidth'#2#2#15'ButtonColorSize'#2#16#11
+'ButtonColor'#7#7'clBlack'#5'Color'#7#9'clBtnFace'#0#0#6'TLabel'#26'Rubberba'
,'ndSelectColorLabel'#22'AnchorSideLeft.Control'#7#18'RubberbandGroupBox'#21
+'AnchorSideTop.Control'#7#18'RubberbandGroupBox'#23'AnchorSideRight.Control'
+#7#18'RubberbandGroupBox'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#6
+#6'Height'#2#14#3'Top'#2#6#5'Width'#3#178#0#7'Anchors'#11#5'akTop'#6'akLeft'
+#7'akRight'#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#26'RubberbandSelectC'
+'olorLabel'#11'ParentColor'#8#0#0#6'TLabel'#26'RubberbandCreateColorLabel'#22
+'AnchorSideLeft.Control'#7#18'RubberbandGroupBox'#21'AnchorSideTop.Control'#7
+#27'RubberbandSelectColorButton'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'An'
+'chorSideRight.Control'#7#18'RubberbandGroupBox'#20'AnchorSideRight.Side'#7#9
+'asrBottom'#4'Left'#2#6#6'Height'#2#14#3'Top'#2'7'#5'Width'#3#178#0#7'Anchor'
+'s'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Around'#2#6#7'Captio'
+'n'#6#26'RubberbandCreateColorLabel'#11'ParentColor'#8#0#0#9'TCheckBox$Rubbe'
+'rbandSelectsGrandChildsCheckBox'#22'AnchorSideLeft.Control'#7#18'Rubberband'
+'GroupBox'#21'AnchorSideTop.Control'#7#27'RubberbandCreateColorButton'#18'An'
+'chorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#18'Rubberban'
+'dGroupBox'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2
+#17#3'Top'#2'h'#5'Width'#3#178#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'
+#0#20'BorderSpacing.Around'#2#6#7'Caption'#6'$RubberbandSelectsGrandChildsCh'
+'eckBox'#8'TabOrder'#2#0#0#0#0#242#2#2#9'TGroupBox'#20'FormEditMiscGroupBox'
+#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#12'GridGr'
+'oupBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#20'AnchorSideRight.Side'#7#9
+'asrBottom'#24'AnchorSideBottom.Control'#7#5'Owner'#21'AnchorSideBottom.Side'
+#7#9'asrBottom'#4'Left'#2#0#6'Height'#3#226#0#3'Top'#3#218#0#5'Width'#3'Q'#1
+#7'Anchors'#11#5'akTop'#6'akLeft'#8'akBottom'#0#17'BorderSpacing.Top'#2#6#7
+'Caption'#6#20'FormEditMiscGroupBox'#12'ClientHeight'#3#208#0#11'ClientWidth'
+#3'M'#1#8'TabOrder'#2#2#0#12'TColorButton'#18'GrabberColorButton'#22'AnchorS'
+'ideLeft.Control'#7#17'GrabberColorLabel'#19'AnchorSideLeft.Side'#7#9'asrBot'
+'tom'#21'AnchorSideTop.Control'#7#17'GrabberColorLabel'#18'AnchorSideTop.Sid'
+'e'#7#9'asrCenter'#4'Left'#2'f'#6'Height'#2#23#3'Top'#2'V'#5'Width'#2'2'#11
+'BorderWidth'#2#2#15'ButtonColorSize'#2#16#11'ButtonColor'#7#7'clBlack'#5'Co'
+'lor'#7#9'clBtnFace'#0#0#12'TColorButton'#17'MarkerColorButton'#22'AnchorSid'
+'eLeft.Control'#7#16'MarkerColorLabel'#19'AnchorSideLeft.Side'#7#9'asrBottom'
+#21'AnchorSideTop.Control'#7#16'MarkerColorLabel'#18'AnchorSideTop.Side'#7#9
+'asrCenter'#4'Left'#2'`'#6'Height'#2#23#3'Top'#2'n'#5'Width'#2'2'#11'BorderW'
+'idth'#2#2#15'ButtonColorSize'#2#16#11'ButtonColor'#7#7'clBlack'#5'Color'#7#9
+'clBtnFace'#0#0#6'TLabel'#17'GrabberColorLabel'#22'AnchorSideLeft.Control'#7
+#20'FormEditMiscGroupBox'#21'AnchorSideTop.Control'#7#25'RightClickSelectsCh'
+'eckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#14#3
+'Top'#2'Z'#5'Width'#2'Z'#17'BorderSpacing.Top'#2#4#20'BorderSpacing.Around'#2
+#6#7'Caption'#6#17'GrabberColorLabel'#11'ParentColor'#8#0#0#6'TLabel'#16'Mar'
+'kerColorLabel'#22'AnchorSideLeft.Control'#7#20'FormEditMiscGroupBox'#21'Anc'
+'horSideTop.Control'#7#17'GrabberColorLabel'#18'AnchorSideTop.Side'#7#9'asrB'
+'ottom'#4'Left'#2#6#6'Height'#2#14#3'Top'#2'r'#5'Width'#2'T'#17'BorderSpacin'
+'g.Top'#2#4#20'BorderSpacing.Around'#2#6#7'Caption'#6#16'MarkerColorLabel'#11
+'ParentColor'#8#0#0#9'TCheckBox'#29'ShowComponentCaptionsCheckBox'#22'Anchor'
+'SideLeft.Control'#7#20'FormEditMiscGroupBox'#23'AnchorSideRight.Control'#7
+'X'#2#5'Width'#3#1#3#12'ClientHeight'#3'X'#2#11'ClientWidth'#3#1#3#8'OnResiz'
+'e'#7#11'FrameResize'#8'TabOrder'#2#0#7'Visible'#8#10'DesignLeft'#3'5'#1#9'D'
+'esignTop'#3#195#0#0#242#2#0#9'TGroupBox'#12'GridGroupBox'#22'AnchorSideLeft'
+'.Control'#7#22'DesignerColorsGroupBox'#19'AnchorSideLeft.Side'#7#9'asrBotto'
+'m'#21'AnchorSideTop.Control'#7#5'Owner'#23'AnchorSideRight.Control'#7#5'Own'
+'er'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#232#0#6'Height'#3#141
+#0#3'Top'#2#0#5'Width'#3#25#2#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8
+'AutoSize'#9#18'BorderSpacing.Left'#2#6#7'Caption'#6#12'GridGroupBox'#12'Cli'
+'entHeight'#2'{'#11'ClientWidth'#3#21#2#8'TabOrder'#2#0#0#6'TLabel'#14'GridS'
+'izeXLabel'#22'AnchorSideLeft.Control'#7#12'GridGroupBox'#21'AnchorSideTop.C'
+'ontrol'#7#17'GridSizeXSpinEdit'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Lef'
+'t'#2#6#6'Height'#2#14#3'Top'#2'H'#5'Width'#2'F'#20'BorderSpacing.Around'#2#6
+#7'Caption'#6#14'GridSizeXLabel'#11'ParentColor'#8#0#0#6'TLabel'#14'GridSize'
+'YLabel'#22'AnchorSideLeft.Control'#7#12'GridGroupBox'#21'AnchorSideTop.Cont'
+'rol'#7#17'GridSizeYSpinEdit'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2
+#6#6'Height'#2#14#3'Top'#2'c'#5'Width'#2'F'#20'BorderSpacing.Around'#2#6#7'C'
+'aption'#6#14'GridSizeYLabel'#11'ParentColor'#8#0#0#9'TCheckBox'#18'SnapToGr'
+'idCheckBox'#22'AnchorSideLeft.Control'#7#12'GridGroupBox'#21'AnchorSideTop.'
+'Control'#7#23'ShowBorderSpaceCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'
+#23'AnchorSideRight.Control'#7#12'GridGroupBox'#20'AnchorSideRight.Side'#7#9
+'asrBottom'#4'Left'#2#6#6'Height'#2#17#3'Top'#2'.'#5'Width'#2'x'#18'BorderSp'
+'acing.Left'#2#6#17'BorderSpacing.Top'#2#3#19'BorderSpacing.Right'#2#6#7'Cap'
+'tion'#6#18'SnapToGridCheckBox'#8'TabOrder'#2#1#0#0#9'TCheckBox'#16'ShowGrid'
+'CheckBox'#22'AnchorSideLeft.Control'#7#12'GridGroupBox'#21'AnchorSideTop.Co'
+'ntrol'#7#12'GridGroupBox'#4'Left'#2#6#6'Height'#2#17#3'Top'#2#6#5'Width'#2
+'n'#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#6#7'Caption'#6#16'Sho'
+'wGridCheckBox'#8'TabOrder'#2#0#0#0#9'TCheckBox'#23'ShowBorderSpaceCheckBox'
+#22'AnchorSideLeft.Control'#7#12'GridGroupBox'#21'AnchorSideTop.Control'#7#16
+'ShowGridCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Heigh'
+'t'#2#17#3'Top'#2#26#5'Width'#3#152#0#18'BorderSpacing.Left'#2#6#17'BorderSp'
+'acing.Top'#2#3#7'Caption'#6#23'ShowBorderSpaceCheckBox'#8'TabOrder'#2#2#0#0
+#9'TSpinEdit'#17'GridSizeXSpinEdit'#22'AnchorSideLeft.Control'#7#14'GridSize'
+'XLabel'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7
+#18'SnapToGridCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2'R'#6
+'Height'#2#21#3'Top'#2'E'#5'Width'#2'@'#20'BorderSpacing.Around'#2#6#8'MaxVa'
+'lue'#3#128#0#8'MinValue'#2#2#14'ParentShowHint'#8#8'ShowHint'#9#8'TabOrder'
+#2#3#5'Value'#2#2#0#0#9'TSpinEdit'#17'GridSizeYSpinEdit'#22'AnchorSideLeft.C'
+'ontrol'#7#14'GridSizeYLabel'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'Anch'
+'orSideTop.Control'#7#17'GridSizeXSpinEdit'#18'AnchorSideTop.Side'#7#9'asrBo'
+'ttom'#4'Left'#2'R'#6'Height'#2#21#3'Top'#2'`'#5'Width'#2'@'#20'BorderSpacin'
+'g.Around'#2#6#8'MaxValue'#3#128#0#8'MinValue'#2#2#14'ParentShowHint'#8#8'Sh'
+'owHint'#9#8'TabOrder'#2#4#5'Value'#2#2#0#0#0#242#2#1#9'TGroupBox'#20'FormEd'
+'itMiscGroupBox'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Cont'
+'rol'#7#22'DesignerColorsGroupBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#23
+'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'
+#24'AnchorSideBottom.Control'#7#5'Owner'#21'AnchorSideBottom.Side'#7#9'asrBo'
+'ttom'#4'Left'#2#0#6'Height'#3#167#0#3'Top'#3#234#0#5'Width'#3#1#3#7'Anchors'
+#11#5'akTop'#6'akLeft'#7'akRight'#0#8'AutoSize'#9#17'BorderSpacing.Top'#2#6#7
+'Caption'#6#20'FormEditMiscGroupBox'#12'ClientHeight'#3#149#0#11'ClientWidth'
+#3#253#2#8'TabOrder'#2#1#0#9'TCheckBox'#29'ShowComponentCaptionsCheckBox'#22
+'AnchorSideLeft.Control'#7#20'FormEditMiscGroupBox'#21'AnchorSideTop.Control'
+#7'$RubberbandSelectsGrandChildsCheckBox'#18'AnchorSideTop.Side'#7#9'asrBott'
+'om'#23'AnchorSideRight.Control'#7#20'FormEditMiscGroupBox'#20'AnchorSideRig'
+'ht.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#17#3'Top'#2#26#5'Width'#3
+#188#0#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#3#19'BorderSpacing'
+'.Right'#2#6#7'Caption'#6#29'ShowComponentCaptionsCheckBox'#8'TabOrder'#2#0#0
+#0#9'TCheckBox'#23'ShowEditorHintsCheckBox'#22'AnchorSideLeft.Control'#7#20
+'FormEditMiscGroupBox'#21'AnchorSideTop.Control'#7#29'ShowComponentCaptionsC'
+'heckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7
+#20'FormEditMiscGroupBox'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#6
+#6'Height'#2#17#3'Top'#2#0#5'Width'#3#188#0#18'BorderSpacing.Left'#2#6#19'Bo'
+'rderSpacing.Right'#2#6#7'Caption'#6#29'ShowComponentCaptionsCheckBox'#8'Tab'
+'Order'#2#0#0#0#9'TCheckBox'#23'ShowEditorHintsCheckBox'#22'AnchorSideLeft.C'
+'ontrol'#7#20'FormEditMiscGroupBox'#21'AnchorSideTop.Control'#7#29'ShowCompo'
+'nentCaptionsCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRi'
+'ght.Control'#7#20'FormEditMiscGroupBox'#20'AnchorSideRight.Side'#7#9'asrBot'
+'tom'#4'Left'#2#6#6'Height'#2#17#3'Top'#2#21#5'Width'#3#143#0#18'BorderSpaci'
+'ng.Left'#2#6#17'BorderSpacing.Top'#2#4#19'BorderSpacing.Right'#2#6#7'Captio'
+'n'#6#23'ShowEditorHintsCheckBox'#8'TabOrder'#2#1#0#0#9'TCheckBox'#29'AutoCr'
+'eateFormsOnOpenCheckBox'#22'AnchorSideLeft.Control'#7#20'FormEditMiscGroupB'
+'ox'#21'AnchorSideTop.Control'#7#23'ShowEditorHintsCheckBox'#18'AnchorSideTo'
+'p.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#20'FormEditMiscGroupBo'
+'x'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#17#3'Top'
+#2'*'#5'Width'#3#190#0#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#4
+#19'BorderSpacing.Right'#2#6#7'Caption'#6#29'AutoCreateFormsOnOpenCheckBox'#8
+'TabOrder'#2#2#0#0#9'TCheckBox'#25'RightClickSelectsCheckBox'#22'AnchorSideL'
+'eft.Control'#7#20'FormEditMiscGroupBox'#21'AnchorSideTop.Control'#7#29'Auto'
,'CreateFormsOnOpenCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorS'
+'ideRight.Control'#7#20'FormEditMiscGroupBox'#20'AnchorSideRight.Side'#7#9'a'
+'srBottom'#4'Left'#2#6#6'Height'#2#17#3'Top'#2'?'#5'Width'#3#145#0#18'Border'
+'Spacing.Left'#2#6#17'BorderSpacing.Top'#2#4#7'Caption'#6#25'RightClickSelec'
+'tsCheckBox'#8'TabOrder'#2#3#0#0#9'TCheckBox'#25'DesignerPaintLazyCheckBox'
+#22'AnchorSideLeft.Control'#7#20'FormEditMiscGroupBox'#21'AnchorSideTop.Cont'
+'rol'#7#16'MarkerColorLabel'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'Anchor'
+'SideRight.Control'#7#20'FormEditMiscGroupBox'#20'AnchorSideRight.Side'#7#9
+'asrBottom'#4'Left'#2#6#6'Height'#2#17#3'Top'#3#138#0#5'Width'#3#153#0#17'Bo'
+'rderSpacing.Top'#2#4#20'BorderSpacing.Around'#2#6#7'Caption'#6#25'DesignerP'
+'aintLazyCheckBox'#14'ParentShowHint'#8#8'ShowHint'#9#8'TabOrder'#2#4#0#0#9
+'TCheckBox'#27'CreateCompFocusNameCheckBox'#22'AnchorSideLeft.Control'#7#25
+'DesignerPaintLazyCheckBox'#21'AnchorSideTop.Control'#7#25'DesignerPaintLazy'
+'CheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#17#3
+'Top'#3#161#0#5'Width'#3#180#0#17'BorderSpacing.Top'#2#6#7'Caption'#6#27'Cre'
+'ateCompFocusNameCheckBox'#14'ParentShowHint'#8#8'ShowHint'#9#8'TabOrder'#2#5
+#0#0#0#242#2#3#9'TGroupBox'#18'GuideLinesGroupBox'#22'AnchorSideLeft.Control'
+#7#20'FormEditMiscGroupBox'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'Anchor'
+'SideTop.Control'#7#18'RubberbandGroupBox'#18'AnchorSideTop.Side'#7#9'asrBot'
+'tom'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'as'
+'rBottom'#24'AnchorSideBottom.Control'#7#5'Owner'#21'AnchorSideBottom.Side'#7
+#9'asrBottom'#4'Left'#3'W'#1#6'Height'#3#226#0#3'Top'#3#218#0#5'Width'#3#194
+#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#18'BorderSpacin'
+'g.Left'#2#6#17'BorderSpacing.Top'#2#6#7'Caption'#6#18'GuideLinesGroupBox'#12
+'ClientHeight'#3#208#0#11'ClientWidth'#3#190#0#8'TabOrder'#2#3#0#12'TColorBu'
+'tton'#27'GuideLineColorLeftTopButton'#21'AnchorSideTop.Control'#7#26'GuideL'
+'ineColorLeftTopLabel'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'H'
+'eight'#2#23#3'Top'#2'^'#5'Width'#2'2'#11'BorderWidth'#2#2#15'ButtonColorSiz'
+'e'#2#16#11'ButtonColor'#7#7'clBlack'#5'Color'#7#9'clBtnFace'#0#0#12'TColorB'
+'utton'#31'GuideLineColorRightBottomButton'#21'AnchorSideTop.Control'#7#30'G'
+'uideLineColorRightBottomLabel'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'
+#2#6#6'Height'#2#23#3'Top'#3#143#0#5'Width'#2'2'#11'BorderWidth'#2#2#15'Butt'
+'onColorSize'#2#16#11'ButtonColor'#7#7'clBlack'#5'Color'#7#9'clBtnFace'#0#0#6
+'TLabel'#26'GuideLineColorLeftTopLabel'#22'AnchorSideLeft.Control'#7#18'Guid'
+'eLinesGroupBox'#23'AnchorSideRight.Control'#7#18'GuideLinesGroupBox'#20'Anc'
+'horSideRight.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#14#3'Top'#2'J'#5
+'Width'#3#178#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpaci'
+'ng.Around'#2#6#7'Caption'#6#26'GuideLineColorLeftTopLabel'#11'ParentColor'#8
+#0#0#6'TLabel'#30'GuideLineColorRightBottomLabel'#22'AnchorSideLeft.Control'
+#7#18'GuideLinesGroupBox'#21'AnchorSideTop.Control'#7#27'GuideLineColorLeftT'
+'opButton'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'
+#7#18'GuideLinesGroupBox'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#6
+#6'Height'#2#14#3'Top'#2'{'#5'Width'#3#178#0#7'Anchors'#11#5'akTop'#6'akLeft'
+#7'akRight'#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#30'GuideLineColorRig'
+'htBottomLabel'#11'ParentColor'#8#0#0#9'TCheckBox'#22'ShowGuideLinesCheckBox'
+#22'AnchorSideLeft.Control'#7#18'GuideLinesGroupBox'#23'AnchorSideRight.Cont'
+'rol'#7#18'GuideLinesGroupBox'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Lef'
+'t'#2#6#6'Height'#2#17#3'Top'#2#0#5'Width'#3#178#0#7'Anchors'#11#5'akTop'#6
+'akLeft'#7'akRight'#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#22'ShowGuide'
+'LinesCheckBox'#8'TabOrder'#2#0#0#0#9'TCheckBox'#24'SnapToGuideLinesCheckBox'
+#22'AnchorSideLeft.Control'#7#18'GuideLinesGroupBox'#21'AnchorSideTop.Contro'
+'l'#7#22'ShowGuideLinesCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'An'
+'chorSideRight.Control'#7#18'GuideLinesGroupBox'#20'AnchorSideRight.Side'#7#9
+'asrBottom'#4'Left'#2#6#6'Height'#2#17#3'Top'#2#23#5'Width'#3#178#0#7'Anchor'
+'s'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Around'#2#6#7'Captio'
+'n'#6#24'SnapToGuideLinesCheckBox'#8'TabOrder'#2#1#0#0#0#0
+#6'Height'#2#17#3'Top'#2'.'#5'Width'#3#143#0#18'BorderSpacing.Left'#2#6#17'B'
+'orderSpacing.Top'#2#3#19'BorderSpacing.Right'#2#6#7'Caption'#6#23'ShowEdito'
+'rHintsCheckBox'#8'TabOrder'#2#1#0#0#9'TCheckBox'#29'AutoCreateFormsOnOpenCh'
,'eckBox'#22'AnchorSideLeft.Control'#7#20'FormEditMiscGroupBox'#21'AnchorSide'
+'Top.Control'#7#23'ShowEditorHintsCheckBox'#18'AnchorSideTop.Side'#7#9'asrBo'
+'ttom'#23'AnchorSideRight.Control'#7#20'FormEditMiscGroupBox'#20'AnchorSideR'
+'ight.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#17#3'Top'#2'B'#5'Width'#3
+#190#0#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#3#19'BorderSpacing'
+'.Right'#2#6#7'Caption'#6#29'AutoCreateFormsOnOpenCheckBox'#8'TabOrder'#2#2#0
+#0#9'TCheckBox'#25'RightClickSelectsCheckBox'#22'AnchorSideLeft.Control'#7#20
+'FormEditMiscGroupBox'#21'AnchorSideTop.Control'#7#29'AutoCreateFormsOnOpenC'
+'heckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7
+#20'FormEditMiscGroupBox'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#6
+#6'Height'#2#17#3'Top'#2'V'#5'Width'#3#145#0#18'BorderSpacing.Left'#2#6#17'B'
+'orderSpacing.Top'#2#3#7'Caption'#6#25'RightClickSelectsCheckBox'#8'TabOrder'
+#2#3#0#0#9'TCheckBox'#25'DesignerPaintLazyCheckBox'#22'AnchorSideLeft.Contro'
+'l'#7#20'FormEditMiscGroupBox'#21'AnchorSideTop.Control'#7#25'RightClickSele'
+'ctsCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Contr'
+'ol'#7#20'FormEditMiscGroupBox'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Le'
+'ft'#2#6#6'Height'#2#17#3'Top'#2'j'#5'Width'#3#153#0#18'BorderSpacing.Left'#2
+#6#17'BorderSpacing.Top'#2#3#7'Caption'#6#25'DesignerPaintLazyCheckBox'#14'P'
+'arentShowHint'#8#8'ShowHint'#9#8'TabOrder'#2#4#0#0#9'TCheckBox'#27'CreateCo'
+'mpFocusNameCheckBox'#22'AnchorSideLeft.Control'#7#20'FormEditMiscGroupBox'
+#21'AnchorSideTop.Control'#7#25'DesignerPaintLazyCheckBox'#18'AnchorSideTop.'
+'Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#17#3'Top'#2'~'#5'Width'#3#180#0
+#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#3#20'BorderSpacing.Botto'
+'m'#2#6#7'Caption'#6#27'CreateCompFocusNameCheckBox'#14'ParentShowHint'#8#8
+'ShowHint'#9#8'TabOrder'#2#5#0#0#9'TCheckBox$RubberbandSelectsGrandChildsChe'
+'ckBox'#22'AnchorSideLeft.Control'#7#20'FormEditMiscGroupBox'#21'AnchorSideT'
+'op.Control'#7#20'FormEditMiscGroupBox'#23'AnchorSideRight.Control'#7#20'For'
+'mEditMiscGroupBox'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#6#6'He'
+'ight'#2#17#3'Top'#2#6#5'Width'#3#247#2#7'Anchors'#11#5'akTop'#6'akLeft'#7'a'
+'kRight'#0#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#6#7'Caption'#6
+'$RubberbandSelectsGrandChildsCheckBox'#8'TabOrder'#2#6#0#0#0#242#2#2#9'TGro'
+'upBox'#18'GuideLinesGroupBox'#22'AnchorSideLeft.Control'#7#22'DesignerColor'
+'sGroupBox'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'
+#7#12'GridGroupBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight'
+'.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSideB'
+'ottom.Control'#7#22'DesignerColorsGroupBox'#21'AnchorSideBottom.Side'#7#9'a'
+'srBottom'#4'Left'#3#232#0#6'Height'#2'Q'#3'Top'#3#147#0#5'Width'#3#25#2#7'A'
+'nchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#18'BorderSpacing.Lef'
+'t'#2#6#17'BorderSpacing.Top'#2#6#7'Caption'#6#18'GuideLinesGroupBox'#12'Cli'
+'entHeight'#2'?'#11'ClientWidth'#3#21#2#8'TabOrder'#2#2#0#9'TCheckBox'#22'Sh'
+'owGuideLinesCheckBox'#22'AnchorSideLeft.Control'#7#18'GuideLinesGroupBox'#23
+'AnchorSideRight.Control'#7#18'GuideLinesGroupBox'#20'AnchorSideRight.Side'#7
+#9'asrBottom'#4'Left'#2#6#6'Height'#2#17#3'Top'#2#0#5'Width'#3#9#2#7'Anchors'
+#11#5'akTop'#6'akLeft'#7'akRight'#0#18'BorderSpacing.Left'#2#6#17'BorderSpac'
+'ing.Top'#2#6#19'BorderSpacing.Right'#2#6#7'Caption'#6#22'ShowGuideLinesChec'
+'kBox'#8'TabOrder'#2#0#0#0#9'TCheckBox'#24'SnapToGuideLinesCheckBox'#22'Anch'
+'orSideLeft.Control'#7#18'GuideLinesGroupBox'#21'AnchorSideTop.Control'#7#22
+'ShowGuideLinesCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSide'
+'Right.Control'#7#18'GuideLinesGroupBox'#20'AnchorSideRight.Side'#7#9'asrBot'
+'tom'#4'Left'#2#6#6'Height'#2#17#3'Top'#2#20#5'Width'#3#9#2#7'Anchors'#11#5
+'akTop'#6'akLeft'#7'akRight'#0#18'BorderSpacing.Left'#2#6#17'BorderSpacing.T'
+'op'#2#3#19'BorderSpacing.Right'#2#6#7'Caption'#6#24'SnapToGuideLinesCheckBo'
+'x'#8'TabOrder'#2#1#0#0#0#242#2#3#9'TGroupBox'#22'DesignerColorsGroupBox'#22
+'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#23
+'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'
+#4'Left'#2#0#6'Height'#3#228#0#3'Top'#2#0#5'Width'#3#226#0#8'AutoSize'#9#7'C'
+'aption'#6#22'DesignerColorsGroupBox'#28'ChildSizing.LeftRightSpacing'#2#6#28
+'ChildSizing.TopBottomSpacing'#2#6#29'ChildSizing.HorizontalSpacing'#2#2#27
+'ChildSizing.VerticalSpacing'#2#2#12'ClientHeight'#3#210#0#11'ClientWidth'#3
+#222#0#8'TabOrder'#2#3#0#13'TColorListBox'#13'ColorsListBox'#22'AnchorSideLe'
+'ft.Control'#7#22'DesignerColorsGroupBox'#21'AnchorSideTop.Control'#7#22'Des'
+'ignerColorsGroupBox'#4'Left'#2#6#6'Height'#3#170#0#3'Top'#2#6#5'Width'#3#210
+#0#5'Style'#11#14'cbCustomColors'#0#11'OnGetColors'#7#22'ColorsListBoxGetCol'
+'ors'#20'BorderSpacing.Around'#2#6#10'ItemHeight'#2#0#17'OnSelectionChange'#7
,#28'ColorsListBoxSelectionChange'#8'TabOrder'#2#0#0#0#9'TColorBox'#8'ColorBo'
+'x'#22'AnchorSideLeft.Control'#7#22'DesignerColorsGroupBox'#21'AnchorSideTop'
+'.Control'#7#13'ColorsListBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'Anch'
+'orSideRight.Control'#7#13'ColorsListBox'#20'AnchorSideRight.Side'#7#9'asrBo'
+'ttom'#4'Left'#2#6#6'Height'#2#22#3'Top'#3#182#0#5'Width'#3#210#0#5'Style'#11
+#16'cbStandardColors'#16'cbExtendedColors'#14'cbSystemColors'#13'cbCustomCol'
+'or'#13'cbPrettyNames'#0#20'BorderSpacing.Around'#2#6#10'ItemHeight'#2#16#8
+'OnChange'#7#14'ColorBoxChange'#8'TabOrder'#2#1#0#0#0#0
]);

180
ide/frames/formed_options.pas
View File

@ -25,40 +25,37 @@ unit formed_options;
interface
uses
Classes, SysUtils, FileUtil, LResources, Forms, StdCtrls, Dialogs, Spin,
EnvironmentOpts, LazarusIDEStrConsts, IDEProcs, IDEOptionsIntf;
Classes, SysUtils, FileUtil, Graphics, LResources, Forms, StdCtrls, Dialogs, Spin,
ColorBox, EnvironmentOpts, LazarusIDEStrConsts, IDEProcs, IDEOptionsIntf;
type
TDesignerColor = (
dcGrid,
dcGridLinesLeftTop,
dcGridLinesRightBottom,
dcGrabber,
dcMarker,
dcRuberbandSelection,
dcRuberbandCreation
);
{ TFormEditorOptionsFrame }
TFormEditorOptionsFrame = class(TAbstractIDEOptionsEditor)
AutoCreateFormsOnOpenCheckBox: TCheckBox;
ColorBox: TColorBox;
ColorsListBox: TColorListBox;
CreateCompFocusNameCheckBox: TCheckBox;
DesignerPaintLazyCheckBox: TCheckBox;
FormEditMiscGroupBox: TGroupBox;
GrabberColorButton: TColorButton;
GrabberColorLabel: TLabel;
GridColorButton: TColorButton;
GridColorLabel: TLabel;
GridGroupBox: TGroupBox;
GridSizeXSpinEdit: TSpinEdit;
GridSizeXLabel: TLabel;
GridSizeYSpinEdit: TSpinEdit;
GridSizeYLabel: TLabel;
GuideLineColorLeftTopButton: TColorButton;
GuideLineColorLeftTopLabel: TLabel;
GuideLineColorRightBottomButton: TColorButton;
GuideLineColorRightBottomLabel: TLabel;
GuideLinesGroupBox: TGroupBox;
MarkerColorButton: TColorButton;
MarkerColorLabel: TLabel;
DesignerColorsGroupBox: TGroupBox;
RightClickSelectsCheckBox: TCheckBox;
RubberbandCreateColorButton: TColorButton;
RubberbandCreateColorLabel: TLabel;
RubberbandGroupBox: TGroupBox;
RubberbandSelectColorButton: TColorButton;
RubberbandSelectColorLabel: TLabel;
RubberbandSelectsGrandChildsCheckBox: TCheckBox;
ShowBorderSpaceCheckBox: TCheckBox;
ShowComponentCaptionsCheckBox: TCheckBox;
@ -67,8 +64,14 @@ type
ShowGuideLinesCheckBox: TCheckBox;
SnapToGridCheckBox: TCheckBox;
SnapToGuideLinesCheckBox: TCheckBox;
procedure ColorBoxChange(Sender: TObject);
procedure ColorsListBoxGetColors(Sender: TCustomColorListBox;
Items: TStrings);
procedure ColorsListBoxSelectionChange(Sender: TObject; User: boolean);
procedure FrameResize(Sender: TObject);
private
FLoaded: Boolean;
procedure ChangeColor(AIndex: Integer; NewColor: TColor);
public
function GetTitle: String; override;
procedure Setup(ADialog: TAbstractOptionsEditorDialog); override;
@ -91,7 +94,6 @@ procedure TFormEditorOptionsFrame.Setup(ADialog: TAbstractOptionsEditorDialog);
begin
ShowBorderSpaceCheckBox.Caption:=dlgQShowBorderSpacing;
ShowGridCheckBox.Caption:=dlgQShowGrid;
GridColorLabel.Caption:=dlgGridColor;
SnapToGridCheckBox.Caption:=dlgQSnapToGrid;
GridSizeXSpinEdit.Hint:=dlgGridXHint;
GridSizeXLabel.Caption:=dlgGridX;
@ -103,8 +105,6 @@ procedure TFormEditorOptionsFrame.Setup(ADialog: TAbstractOptionsEditorDialog);
begin
ShowGuideLinesCheckBox.Caption:=dlgGuideLines;
SnapToGuideLinesCheckBox.Caption:=dlgSnapGuideLines;
GuideLineColorLeftTopLabel.Caption:=dlgLeftTopClr;
GuideLineColorRightBottomLabel.Caption:=dlgRightBottomClr;
end;
procedure SetupMiscGroupBox;
@ -113,89 +113,88 @@ procedure TFormEditorOptionsFrame.Setup(ADialog: TAbstractOptionsEditorDialog);
ShowEditorHintsCheckBox.Caption:=dlgShowEdrHints;
AutoCreateFormsOnOpenCheckBox.Caption:=dlgAutoForm;
RightClickSelectsCheckBox.Caption:=dlgRightClickSelects;
GrabberColorLabel.Caption:=dlgGrabberColor;
MarkerColorLabel.Caption:=dlgMarkerColor;
with DesignerPaintLazyCheckBox do begin
with DesignerPaintLazyCheckBox do
begin
Caption:=lisFEPaintDesignerItemsOnIdle;
Hint:=lisFEPaintDesignerItemsOnIdleReduceOverheadForSlowCompu;
end;
with CreateCompFocusNameCheckBox do begin
with CreateCompFocusNameCheckBox do
begin
Caption:=lisAskNameOnCreate;
Hint:=lisAskForComponentNameAfterPuttingItOnForm;
end;
end;
procedure SetupRubberbandBox;
begin
RubberbandSelectColorLabel.Caption:=dlgRuberbandSelectionColor;
RubberbandCreateColorLabel.Caption:=dlgRuberbandCreationColor;
RubberbandSelectsGrandChildsCheckBox.Caption:=dlgRubberbandSelectsGrandChildren;
end;
begin
GridGroupBox.Caption := dlgEnvGrid;
SetupGridGroupBox;
GuideLinesGroupBox.Caption := dlgEnvLGuideLines;
SetupGuideLinesGroupBox;
RubberbandGroupBox.Caption := dlgRubberBandGroup;
SetupRubberbandBox;
FormEditMiscGroupBox.Caption := dlgEnvMisc;
DesignerColorsGroupBox.Caption := dlgEnvColors;
SetupGridGroupBox;
SetupGuideLinesGroupBox;
SetupMiscGroupBox;
FLoaded := False;
end;
procedure TFormEditorOptionsFrame.ReadSettings(AOptions: TAbstractIDEOptions);
begin
with AOptions as TEnvironmentOptions do
begin
ShowBorderSpaceCheckBox.Checked:=ShowBorderSpacing;
ShowGridCheckBox.Checked:=ShowGrid;
GridColorButton.ButtonColor:=GridColor;
SnapToGridCheckBox.Checked:=SnapToGrid;
// read colors
ColorsListBox.Items.Objects[Ord(dcGrid)] := TObject(PtrInt(GridColor));
ColorsListBox.Items.Objects[Ord(dcGridLinesLeftTop)] := TObject(PtrInt(GuideLineColorLeftTop));
ColorsListBox.Items.Objects[Ord(dcGridLinesRightBottom)] := TObject(PtrInt(GuideLineColorRightBottom));
ColorsListBox.Items.Objects[Ord(dcGrabber)] := TObject(PtrInt(GrabberColor));
ColorsListBox.Items.Objects[Ord(dcMarker)] := TObject(PtrInt(MarkerColor));
ColorsListBox.Items.Objects[Ord(dcRuberbandSelection)] := TObject(PtrInt(RubberbandSelectionColor));
ColorsListBox.Items.Objects[Ord(dcRuberbandCreation)] := TObject(PtrInt(RubberbandCreationColor));
ShowBorderSpaceCheckBox.Checked := ShowBorderSpacing;
ShowGridCheckBox.Checked := ShowGrid;
SnapToGridCheckBox.Checked := SnapToGrid;
GridSizeXSpinEdit.Value := GridSizeX;
GridSizeYSpinEdit.Value := GridSizeY;
ShowGuideLinesCheckBox.Checked:=ShowGuideLines;
SnapToGuideLinesCheckBox.Checked:=SnapToGuideLines;
GuideLineColorLeftTopButton.ButtonColor:=GuideLineColorLeftTop;
GuideLineColorRightBottomButton.ButtonColor:=GuideLineColorRightBottom;
ShowComponentCaptionsCheckBox.Checked:=ShowComponentCaptions;
ShowEditorHintsCheckBox.Checked:=ShowEditorHints;
AutoCreateFormsOnOpenCheckBox.Checked:=AutoCreateFormsOnOpen;
RightClickSelectsCheckBox.Checked:=RightClickSelects;
GrabberColorButton.ButtonColor:=GrabberColor;
MarkerColorButton.ButtonColor:=MarkerColor;
RubberbandSelectColorButton.ButtonColor:=RubberbandSelectionColor;
RubberbandCreateColorButton.ButtonColor:=RubberbandCreationColor;
RubberbandSelectsGrandChildsCheckBox.Checked:=RubberbandSelectsGrandChilds;
DesignerPaintLazyCheckBox.Checked:=DesignerPaintLazy;
CreateCompFocusNameCheckBox.Checked:=CreateComponentFocusNameProperty;
ShowGuideLinesCheckBox.Checked := ShowGuideLines;
SnapToGuideLinesCheckBox.Checked := SnapToGuideLines;
ShowComponentCaptionsCheckBox.Checked := ShowComponentCaptions;
ShowEditorHintsCheckBox.Checked := ShowEditorHints;
AutoCreateFormsOnOpenCheckBox.Checked := AutoCreateFormsOnOpen;
RightClickSelectsCheckBox.Checked := RightClickSelects;
RubberbandSelectsGrandChildsCheckBox.Checked := RubberbandSelectsGrandChilds;
DesignerPaintLazyCheckBox.Checked := DesignerPaintLazy;
CreateCompFocusNameCheckBox.Checked := CreateComponentFocusNameProperty;
end;
FLoaded := True;
end;
procedure TFormEditorOptionsFrame.WriteSettings(AOptions: TAbstractIDEOptions);
begin
with AOptions as TEnvironmentOptions do
begin
ShowBorderSpacing:=ShowBorderSpaceCheckBox.Checked;
ShowGrid:=ShowGridCheckBox.Checked;
GridColor:=GridColorButton.ButtonColor;
SnapToGrid:=SnapToGridCheckBox.Checked;
GridSizeX:=GridSizeXSpinEdit.Value;
GridSizeY:=GridSizeYSpinEdit.Value;
ShowGuideLines:=ShowGuideLinesCheckBox.Checked;
SnapToGuideLines:=SnapToGuideLinesCheckBox.Checked;
GuideLineColorLeftTop:=GuideLineColorLeftTopButton.ButtonColor;
GuideLineColorRightBottom:=GuideLineColorRightBottomButton.ButtonColor;
ShowComponentCaptions:=ShowComponentCaptionsCheckBox.Checked;
ShowEditorHints:=ShowEditorHintsCheckBox.Checked;
AutoCreateFormsOnOpen:=AutoCreateFormsOnOpenCheckBox.Checked;
RightClickSelects:=RightClickSelectsCheckBox.Checked;
GrabberColor:=GrabberColorButton.ButtonColor;
MarkerColor:=MarkerColorButton.ButtonColor;
RubberbandSelectionColor:=RubberbandSelectColorButton.ButtonColor;
RubberbandCreationColor:=RubberbandCreateColorButton.ButtonColor;
RubberbandSelectsGrandChilds:=RubberbandSelectsGrandChildsCheckBox.Checked;
DesignerPaintLazy:=DesignerPaintLazyCheckBox.Checked;
CreateComponentFocusNameProperty:=CreateCompFocusNameCheckBox.Checked;
// write colors
GridColor := ColorsListBox.Colors[Ord(dcGrid)];
GuideLineColorLeftTop := ColorsListBox.Colors[Ord(dcGridLinesLeftTop)];
GuideLineColorRightBottom := ColorsListBox.Colors[Ord(dcGridLinesRightBottom)];
GrabberColor := ColorsListBox.Colors[Ord(dcGrabber)];
MarkerColor := ColorsListBox.Colors[Ord(dcMarker)];
RubberbandSelectionColor := ColorsListBox.Colors[Ord(dcRuberbandSelection)];
RubberbandCreationColor := ColorsListBox.Colors[Ord(dcRuberbandCreation)];
ShowBorderSpacing := ShowBorderSpaceCheckBox.Checked;
ShowGrid := ShowGridCheckBox.Checked;
SnapToGrid := SnapToGridCheckBox.Checked;
GridSizeX := GridSizeXSpinEdit.Value;
GridSizeY := GridSizeYSpinEdit.Value;
ShowGuideLines := ShowGuideLinesCheckBox.Checked;
SnapToGuideLines := SnapToGuideLinesCheckBox.Checked;
ShowComponentCaptions := ShowComponentCaptionsCheckBox.Checked;
ShowEditorHints := ShowEditorHintsCheckBox.Checked;
AutoCreateFormsOnOpen := AutoCreateFormsOnOpenCheckBox.Checked;
RightClickSelects := RightClickSelectsCheckBox.Checked;
RubberbandSelectsGrandChilds := RubberbandSelectsGrandChildsCheckBox.Checked;
DesignerPaintLazy := DesignerPaintLazyCheckBox.Checked;
CreateComponentFocusNameProperty := CreateCompFocusNameCheckBox.Checked;
end;
end;
@ -208,6 +207,39 @@ begin
FormEditMiscGroupBox.Width := GridGroupBox.Width;
end;
procedure TFormEditorOptionsFrame.ChangeColor(AIndex: Integer; NewColor: TColor);
begin
ColorsListBox.Items.Objects[AIndex] := TObject(PtrInt(NewColor));
end;
procedure TFormEditorOptionsFrame.ColorsListBoxGetColors(
Sender: TCustomColorListBox; Items: TStrings);
begin
Items.Add(dlgGridColor);
Items.Add(dlgLeftTopClr);
Items.Add(dlgRightBottomClr);
Items.Add(dlgGrabberColor);
Items.Add(dlgMarkerColor);
Items.Add(dlgRuberbandSelectionColor);
Items.Add(dlgRuberbandCreationColor);
end;
procedure TFormEditorOptionsFrame.ColorBoxChange(Sender: TObject);
begin
if not FLoaded or (ColorsListBox.ItemIndex < 0) then
Exit;
ChangeColor(ColorsListBox.ItemIndex, ColorBox.Selected);
ColorsListBox.Invalidate;
end;
procedure TFormEditorOptionsFrame.ColorsListBoxSelectionChange(Sender: TObject;
User: boolean);
begin
if not (FLoaded and User) then
Exit;
ColorBox.Selected := ColorsListBox.Selected;
end;
class function TFormEditorOptionsFrame.SupportedOptionsClass: TAbstractIDEOptionsClass;
begin
Result := TEnvironmentOptions;

9
ide/lazarusidestrconsts.pas
View File

@ -1032,8 +1032,8 @@ resourcestring
dlgGridYHint = 'Vertical grid step size';
dlgGuideLines = 'Show Guide Lines';
dlgSnapGuideLines = 'Snap to Guide Lines';
dlgLeftTopClr = 'color for left, top';
dlgRightBottomClr = 'color for right, bottom';
dlgLeftTopClr = 'Guid lines Left,Top';
dlgRightBottomClr = 'Guide lines Right,Bottom';
dlgShowCaps = 'Show component captions';
dlgShowEdrHints = 'Show editor hints';
dlgAutoForm = 'Auto create form when opening unit';
@ -1046,10 +1046,9 @@ resourcestring
dlgEnvGrid = 'Grid';
dlgEnvLGuideLines = 'Guide lines';
dlgEnvMisc = 'Miscellaneous';
dlgRuberbandSelectionColor = 'Selection';
dlgRuberbandCreationColor = 'Creation';
dlgRuberbandSelectionColor = 'Rubberband Selection';
dlgRuberbandCreationColor = 'Rubberband Creation';
dlgRubberbandSelectsGrandChildren = 'Select grandchildren';
dlgRubberBandGroup='Rubber band';
dlgPasExt = 'Default pascal extension';
dlgCharCaseFileAct = 'Save As - auto rename pascal files lower case';