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

ide:

Browse Source 
- extract options_window as frame from environment options dialog
  - extract options_formed as frame from environment options dialog

git-svn-id: trunk@17051 -
This commit is contained in:
paul 2008-10-19 06:17:42 +00:00
parent 0c5d26efb7
commit 5b417433d5
11 changed files with 1366 additions and 1152 deletions

6
.gitattributes vendored
View File

@ -2394,9 +2394,15 @@ ide/frames/options_desktop.pas svneol=native#text/pascal
ide/frames/options_files.lfm svneol=native#text/plain
ide/frames/options_files.lrs svneol=native#text/pascal
ide/frames/options_files.pas svneol=native#text/pascal
ide/frames/options_formed.lfm svneol=native#text/plain
ide/frames/options_formed.lrs svneol=native#text/pascal
ide/frames/options_formed.pas svneol=native#text/pascal
ide/frames/options_oi.lfm svneol=native#text/plain
ide/frames/options_oi.lrs svneol=native#text/pascal
ide/frames/options_oi.pas svneol=native#text/pascal
ide/frames/options_window.lfm svneol=native#text/plain
ide/frames/options_window.lrs svneol=native#text/pascal
ide/frames/options_window.pas svneol=native#text/pascal
ide/frmcustomapplicationoptions.lfm svneol=native#text/plain
ide/frmcustomapplicationoptions.lrs svneol=native#text/plain
ide/frmcustomapplicationoptions.pas svneol=native#text/plain

552
ide/environmentopts_dlg.lfm
View File

@ -22,7 +22,7 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Bottom = 6
OnChangeBounds = NotebookChangeBounds
PageIndex = 1
PageIndex = 0
TabOrder = 0
object FilesPage: TPage
Caption = 'FilesPage'
@ -32,551 +32,9 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
end
object WindowsPage: TPage
Caption = 'WindowsPage'
ClientWidth = 534
ClientHeight = 478
object MinimizeAllOnMinimizeMainCheckBox: TCheckBox
AnchorSideRight.Control = WindowsPage
AnchorSideRight.Side = asrBottom
Left = 6
Height = 19
Top = 10
Width = 522
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 6
Caption = 'MinimizeAllOnMinimizeMainCheckBox'
Enabled = False
TabOrder = 0
end
object HideIDEOnRunCheckBox: TCheckBox
AnchorSideRight.Control = WindowsPage
AnchorSideRight.Side = asrBottom
Left = 6
Height = 19
Top = 34
Width = 522
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 6
Caption = 'HideIDEOnRunCheckBox'
TabOrder = 1
end
object WindowPositionsGroupBox: TGroupBox
AnchorSideRight.Control = WindowsPage
AnchorSideRight.Side = asrBottom
Left = 6
Height = 348
Top = 68
Width = 522
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Right = 6
Caption = 'WindowPositionsGroupBox'
ClientHeight = 348
ClientWidth = 522
TabOrder = 2
object WindowPositionsListBox: TListBox
AnchorSideLeft.Control = WindowPositionsGroupBox
AnchorSideRight.Control = WindowPositionsGroupBox
AnchorSideRight.Side = asrBottom
Left = 6
Height = 100
Top = 6
Width = 506
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
OnSelectionChange = WindowPositionsListBoxSelectionChange
TabOrder = 0
end
end
end
object FormEditorPage: TPage
Caption = 'FormEditorPage'
ClientWidth = 534
ClientHeight = 478
OnResize = FormEditorPageResize
object GridGroupBox: TGroupBox
Left = 6
Height = 212
Top = 6
Width = 337
BorderSpacing.Around = 6
Caption = 'GridGroupBox'
ClientHeight = 212
ClientWidth = 337
TabOrder = 0
object GridColorLabel: TLabel
AnchorSideLeft.Control = GridGroupBox
AnchorSideTop.Control = GridSizeYLabel
AnchorSideTop.Side = asrBottom
Left = 6
Height = 14
Top = 119
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
Left = 6
Height = 14
Top = 71
Width = 70
BorderSpacing.Around = 6
Caption = 'GridSizeXLabel'
ParentColor = False
end
object GridSizeYLabel: TLabel
AnchorSideLeft.Control = GridGroupBox
AnchorSideTop.Control = GridSizeXLabel
AnchorSideTop.Side = asrBottom
Left = 6
Height = 14
Top = 95
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 = 115
Width = 50
BorderWidth = 2
ButtonColorSize = 16
Color = clBtnFace
end
object SnapToGridCheckBox: TCheckBox
AnchorSideLeft.Control = GridGroupBox
AnchorSideTop.Control = ShowBorderSpaceCheckBox
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = GridGroupBox
AnchorSideRight.Side = asrBottom
Left = 6
Height = 19
Top = 46
Width = 321
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
BorderSpacing.Top = 4
BorderSpacing.Right = 6
Caption = 'SnapToGridCheckBox'
TabOrder = 1
end
object ShowGridCheckBox: TCheckBox
AnchorSideLeft.Control = GridGroupBox
Left = 6
Height = 19
Width = 118
BorderSpacing.Left = 6
Caption = 'ShowGridCheckBox'
TabOrder = 0
end
object GridSizeXComboBox: TComboBox
AnchorSideLeft.Control = GridSizeXLabel
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = GridSizeXLabel
AnchorSideTop.Side = asrCenter
Left = 82
Height = 21
Top = 68
Width = 100
ItemHeight = 13
Items.Strings = (
'2'
'5'
'8'
'10'
'12'
'15'
'20'
'25'
'30'
)
ParentShowHint = False
ShowHint = True
TabOrder = 2
end
object GridSizeYComboBox: TComboBox
AnchorSideLeft.Control = GridSizeYLabel
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = GridSizeYLabel
AnchorSideTop.Side = asrCenter
Left = 82
Height = 21
Top = 92
Width = 100
ItemHeight = 13
Items.Strings = (
'2'
'5'
'8'
'10'
'12'
'15'
'20'
'25'
'30'
)
ParentShowHint = False
ShowHint = True
TabOrder = 3
end
object ShowBorderSpaceCheckBox: TCheckBox
AnchorSideLeft.Control = GridGroupBox
AnchorSideTop.Control = ShowGridCheckBox
AnchorSideTop.Side = asrBottom
Left = 6
Height = 19
Top = 23
Width = 160
BorderSpacing.Left = 6
BorderSpacing.Top = 4
Caption = 'ShowBorderSpaceCheckBox'
TabOrder = 4
end
end
object GuideLinesGroupBox: TGroupBox
AnchorSideLeft.Control = FormEditMiscGroupBox
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = RubberbandGroupBox
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = FormEditorPage
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = FormEditorPage
AnchorSideBottom.Side = asrBottom
Left = 349
Height = 248
Top = 224
Width = 179
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6
Caption = 'GuideLinesGroupBox'
ClientHeight = 248
ClientWidth = 179
TabOrder = 1
object GuideLineColorLeftTopButton: TColorButton
AnchorSideTop.Control = GuideLineColorLeftTopLabel
AnchorSideTop.Side = asrBottom
Left = 6
Height = 23
Top = 94
Width = 50
BorderWidth = 2
ButtonColorSize = 16
Color = clBtnFace
end
object GuideLineColorRightBottomButton: TColorButton
AnchorSideTop.Control = GuideLineColorRightBottomLabel
AnchorSideTop.Side = asrBottom
Left = 6
Height = 23
Top = 143
Width = 50
BorderWidth = 2
ButtonColorSize = 16
Color = clBtnFace
end
object GuideLineColorLeftTopLabel: TLabel
AnchorSideLeft.Control = GuideLinesGroupBox
AnchorSideRight.Control = GuideLinesGroupBox
AnchorSideRight.Side = asrBottom
Left = 6
Height = 14
Top = 74
Width = 163
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 = 163
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
Caption = 'GuideLineColorRightBottomLabel'
ParentColor = False
end
object ShowGuideLinesCheckBox: TCheckBox
AnchorSideLeft.Control = GuideLinesGroupBox
AnchorSideRight.Control = GuideLinesGroupBox
AnchorSideRight.Side = asrBottom
Left = 6
Height = 19
Width = 163
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
Caption = 'ShowGuideLinesCheckBox'
TabOrder = 0
end
object SnapToGuideLinesCheckBox: TCheckBox
AnchorSideLeft.Control = GuideLinesGroupBox
AnchorSideTop.Control = ShowGuideLinesCheckBox
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = GuideLinesGroupBox
AnchorSideRight.Side = asrBottom
Left = 6
Height = 19
Top = 25
Width = 163
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
Caption = 'SnapToGuideLinesCheckBox'
TabOrder = 1
end
end
object FormEditMiscGroupBox: TGroupBox
AnchorSideTop.Control = GridGroupBox
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = FormEditorPage
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = FormEditorPage
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 248
Top = 224
Width = 337
Anchors = [akTop, akLeft, akBottom]
BorderSpacing.Around = 6
Caption = 'FormEditMiscGroupBox'
ClientHeight = 248
ClientWidth = 337
TabOrder = 2
object GrabberColorButton: TColorButton
AnchorSideLeft.Control = GrabberColorLabel
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = GrabberColorLabel
AnchorSideTop.Side = asrCenter
Left = 102
Height = 23
Top = 94
Width = 50
BorderWidth = 2
ButtonColorSize = 16
Color = clBtnFace
end
object MarkerColorButton: TColorButton
AnchorSideLeft.Control = MarkerColorLabel
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = MarkerColorLabel
AnchorSideTop.Side = asrCenter
Left = 96
Height = 23
Top = 118
Width = 50
BorderWidth = 2
ButtonColorSize = 16
Color = clBtnFace
end
object GrabberColorLabel: TLabel
AnchorSideLeft.Control = FormEditMiscGroupBox
AnchorSideTop.Control = RightClickSelectsCheckBox
AnchorSideTop.Side = asrBottom
Left = 6
Height = 14
Top = 98
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 = 122
Width = 84
BorderSpacing.Top = 4
BorderSpacing.Around = 6
Caption = 'MarkerColorLabel'
ParentColor = False
end
object ShowComponentCaptionsCheckBox: TCheckBox
AnchorSideLeft.Control = FormEditMiscGroupBox
AnchorSideRight.Control = FormEditMiscGroupBox
AnchorSideRight.Side = asrBottom
Left = 6
Height = 19
Width = 321
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
BorderSpacing.Right = 6
Caption = 'ShowComponentCaptionsCheckBox'
TabOrder = 0
end
object ShowEditorHintsCheckBox: TCheckBox
AnchorSideLeft.Control = FormEditMiscGroupBox
AnchorSideTop.Control = ShowComponentCaptionsCheckBox
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = FormEditMiscGroupBox
AnchorSideRight.Side = asrBottom
Left = 6
Height = 19
Top = 23
Width = 321
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
BorderSpacing.Top = 4
BorderSpacing.Right = 6
Caption = 'ShowEditorHintsCheckBox'
TabOrder = 1
end
object AutoCreateFormsOnOpenCheckBox: TCheckBox
AnchorSideLeft.Control = FormEditMiscGroupBox
AnchorSideTop.Control = ShowEditorHintsCheckBox
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = FormEditMiscGroupBox
AnchorSideRight.Side = asrBottom
Left = 6
Height = 19
Top = 46
Width = 321
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
BorderSpacing.Top = 4
BorderSpacing.Right = 6
Caption = 'AutoCreateFormsOnOpenCheckBox'
TabOrder = 2
end
object RightClickSelectsCheckBox: TCheckBox
AnchorSideLeft.Control = FormEditMiscGroupBox
AnchorSideTop.Control = AutoCreateFormsOnOpenCheckBox
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = FormEditMiscGroupBox
AnchorSideRight.Side = asrBottom
Left = 6
Height = 19
Top = 69
Width = 327
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
BorderSpacing.Top = 4
Caption = 'RightClickSelectsCheckBox'
TabOrder = 3
end
object DesignerPaintLazyCheckBox: TCheckBox
AnchorSideLeft.Control = FormEditMiscGroupBox
AnchorSideTop.Control = MarkerColorLabel
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = FormEditMiscGroupBox
AnchorSideRight.Side = asrBottom
Left = 6
Height = 19
Top = 146
Width = 321
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 4
BorderSpacing.Around = 6
Caption = 'DesignerPaintLazyCheckBox'
ParentShowHint = False
ShowHint = True
TabOrder = 4
end
end
object RubberbandGroupBox: TGroupBox
AnchorSideLeft.Control = GridGroupBox
AnchorSideLeft.Side = asrBottom
AnchorSideRight.Control = FormEditorPage
AnchorSideRight.Side = asrBottom
Left = 349
Height = 212
Top = 6
Width = 179
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
Caption = 'RubberbandGroupBox'
ClientHeight = 212
ClientWidth = 179
Color = clBtnFace
ParentColor = False
TabOrder = 3
object RubberbandSelectColorButton: TColorButton
AnchorSideLeft.Control = RubberbandSelectColorLabel
AnchorSideTop.Control = RubberbandSelectColorLabel
AnchorSideTop.Side = asrBottom
Left = 6
Height = 23
Top = 26
Width = 50
BorderWidth = 2
ButtonColorSize = 16
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
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 = 163
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 = 163
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 = 19
Top = 104
Width = 163
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
Caption = 'RubberbandSelectsGrandChildsCheckBox'
TabOrder = 0
end
end
end
object ObjectInspectorPage: TPage
Caption = 'ObjectInspectorPage'
@ -584,7 +42,7 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
object BackupPage: TPage
Caption = 'BackupPage'
ClientWidth = 534
ClientHeight = 478
ClientHeight = 463
object BackupHelpLabel: TLabel
AnchorSideRight.Control = BackupPage
AnchorSideRight.Side = asrBottom
@ -694,6 +152,7 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
AutoSelect = True
BorderSpacing.Around = 6
ItemHeight = 13
MaxLength = -1
TabOrder = 1
Text = 'BakProjAddExtComboBox'
end
@ -707,6 +166,7 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
AutoSelect = True
BorderSpacing.Around = 6
ItemHeight = 13
MaxLength = -1
TabOrder = 2
Text = 'BakProjMaxCounterComboBox'
end
@ -720,6 +180,7 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
AutoSelect = True
BorderSpacing.Around = 6
ItemHeight = 13
MaxLength = -1
TabOrder = 3
Text = 'BakProjSubDirComboBox'
end
@ -822,6 +283,7 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
Width = 100
BorderSpacing.Around = 6
ItemHeight = 13
MaxLength = -1
TabOrder = 1
Text = 'BakOtherAddExtComboBox'
end
@ -834,6 +296,7 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
Width = 100
BorderSpacing.Around = 6
ItemHeight = 13
MaxLength = -1
TabOrder = 2
Text = 'BakOtherMaxCounterComboBox'
end
@ -846,6 +309,7 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
Width = 100
BorderSpacing.Around = 6
ItemHeight = 13
MaxLength = -1
TabOrder = 3
Text = 'BakOtherSubDirComboBox'
end

544
ide/environmentopts_dlg.lrs
View File

@ -11,376 +11,180 @@ LazarusResources.Add('TEnvironmentOptionsDialog','FORMDATA',[
+'Control'#7#11'ButtonPanel'#6'Height'#3#233#1#5'Width'#3#30#2#5'Align'#7#5'a'
+'lTop'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#20'BorderSp'
+'acing.Bottom'#2#6#14'OnChangeBounds'#7#20'NotebookChangeBounds'#9'PageIndex'
+#2#1#8'TabOrder'#2#0#0#5'TPage'#9'FilesPage'#7'Caption'#6#9'FilesPage'#0#0#5
+#2#0#8'TabOrder'#2#0#0#5'TPage'#9'FilesPage'#7'Caption'#6#9'FilesPage'#0#0#5
+'TPage'#11'DesktopPage'#7'Caption'#6#11'DesktopPage'#0#0#5'TPage'#11'Windows'
+'Page'#7'Caption'#6#11'WindowsPage'#11'ClientWidth'#3#22#2#12'ClientHeight'#3
+#222#1#0#9'TCheckBox!MinimizeAllOnMinimizeMainCheckBox'#23'AnchorSideRight.C'
+'ontrol'#7#11'WindowsPage'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2
+#6#6'Height'#2#19#3'Top'#2#10#5'Width'#3#10#2#7'Anchors'#11#5'akTop'#6'akLef'
+'t'#7'akRight'#0#19'BorderSpacing.Right'#2#6#7'Caption'#6'!MinimizeAllOnMini'
+'mizeMainCheckBox'#7'Enabled'#8#8'TabOrder'#2#0#0#0#9'TCheckBox'#20'HideIDEO'
+'nRunCheckBox'#23'AnchorSideRight.Control'#7#11'WindowsPage'#20'AnchorSideRi'
+'ght.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#19#3'Top'#2'"'#5'Width'#3
+#10#2#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#19'BorderSpacing.Right'#2
+#6#7'Caption'#6#20'HideIDEOnRunCheckBox'#8'TabOrder'#2#1#0#0#9'TGroupBox'#23
+'WindowPositionsGroupBox'#23'AnchorSideRight.Control'#7#11'WindowsPage'#20'A'
+'nchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#3'\'#1#3'Top'#2'D'
+#5'Width'#3#10#2#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#19
+'BorderSpacing.Right'#2#6#7'Caption'#6#23'WindowPositionsGroupBox'#12'Client'
+'Height'#3'\'#1#11'ClientWidth'#3#10#2#8'TabOrder'#2#2#0#8'TListBox'#22'Wind'
+'owPositionsListBox'#22'AnchorSideLeft.Control'#7#23'WindowPositionsGroupBox'
+#23'AnchorSideRight.Control'#7#23'WindowPositionsGroupBox'#20'AnchorSideRigh'
+'t.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2'd'#3'Top'#2#6#5'Width'#3#250
+'Page'#7'Caption'#6#11'WindowsPage'#0#0#5'TPage'#14'FormEditorPage'#7'Captio'
+'n'#6#14'FormEditorPage'#0#0#5'TPage'#19'ObjectInspectorPage'#7'Caption'#6#19
+'ObjectInspectorPage'#0#0#5'TPage'#10'BackupPage'#7'Caption'#6#10'BackupPage'
+#11'ClientWidth'#3#22#2#12'ClientHeight'#3#207#1#0#6'TLabel'#15'BackupHelpLa'
+'bel'#23'AnchorSideRight.Control'#7#10'BackupPage'#20'AnchorSideRight.Side'#7
+#9'asrBottom'#4'Left'#2#6#6'Height'#2#14#3'Top'#2#7#5'Width'#3#10#2#7'Anchor'
+'s'#11#5'akTop'#6'akLeft'#7'akRight'#0#19'BorderSpacing.Right'#2#6#7'Caption'
+#6#15'BackupHelpLabel'#11'ParentColor'#8#0#0#9'TGroupBox'#21'BackupProjectGr'
+'oupBox'#23'AnchorSideRight.Control'#7#10'BackupPage'#20'AnchorSideRight.Sid'
+'e'#7#9'asrBottom'#4'Left'#2#6#6'Height'#3#141#0#3'Top'#2'"'#5'Width'#3#10#2
+#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'AutoSize'#9#19'BorderSpacin'
+'g.Right'#2#6#7'Caption'#6#21'BackupProjectGroupBox'#12'ClientHeight'#3#141#0
+#11'ClientWidth'#3#10#2#8'TabOrder'#2#0#0#6'TLabel'#18'BakProjAddExtLabel'#22
+'AnchorSideLeft.Control'#7#21'BakProjAddExtComboBox'#19'AnchorSideLeft.Side'
+#7#9'asrBottom'#21'AnchorSideTop.Control'#7#21'BakProjAddExtComboBox'#18'Anc'
+'horSideTop.Side'#7#9'asrCenter'#23'AnchorSideRight.Control'#7#21'BackupProj'
+'ectGroupBox'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2'p'#6'Height'
+#2#14#3'Top'#2'-'#5'Width'#3#144#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRigh'
+'t'#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#18'BakProjAddExtLabel'#11'Pa'
+'rentColor'#8#0#0#6'TLabel'#22'BakProjMaxCounterLabel'#22'AnchorSideLeft.Con'
+'trol'#7#25'BakProjMaxCounterComboBox'#19'AnchorSideLeft.Side'#7#9'asrBottom'
+#21'AnchorSideTop.Control'#7#25'BakProjMaxCounterComboBox'#18'AnchorSideTop.'
+'Side'#7#9'asrCenter'#23'AnchorSideRight.Control'#7#21'BackupProjectGroupBox'
+#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2'p'#6'Height'#2#14#3'Top'#2
+'H'#5'Width'#3#144#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'Border'
+'Spacing.Around'#2#6#7'Caption'#6#22'BakProjMaxCounterLabel'#11'ParentColor'
+#8#0#0#6'TLabel'#18'BakProjSubDirLabel'#22'AnchorSideLeft.Control'#7#21'BakP'
+'rojSubDirComboBox'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.'
+'Control'#7#21'BakProjSubDirComboBox'#18'AnchorSideTop.Side'#7#9'asrCenter'
+#23'AnchorSideRight.Control'#7#21'BackupProjectGroupBox'#20'AnchorSideRight.'
+'Side'#7#9'asrBottom'#4'Left'#2'p'#6'Height'#2#14#3'Top'#2'c'#5'Width'#3#144
+#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Around'#2#6
+#17'OnSelectionChange'#7'%WindowPositionsListBoxSelectionChange'#8'TabOrder'
+#2#0#0#0#0#0#5'TPage'#14'FormEditorPage'#7'Caption'#6#14'FormEditorPage'#11
+'ClientWidth'#3#22#2#12'ClientHeight'#3#222#1#8'OnResize'#7#20'FormEditorPag'
+'eResize'#0#9'TGroupBox'#12'GridGroupBox'#4'Left'#2#6#6'Height'#3#212#0#3'To'
+'p'#2#6#5'Width'#3'Q'#1#20'BorderSpacing.Around'#2#6#7'Caption'#6#12'GridGro'
+'upBox'#12'ClientHeight'#3#212#0#11'ClientWidth'#3'Q'#1#8'TabOrder'#2#0#0#6
+'TLabel'#14'GridColorLabel'#22'AnchorSideLeft.Control'#7#12'GridGroupBox'#21
+'AnchorSideTop.Control'#7#14'GridSizeYLabel'#18'AnchorSideTop.Side'#7#9'asrB'
+'ottom'#4'Left'#2#6#6'Height'#2#14#3'Top'#2'w'#5'Width'#2'F'#17'BorderSpacin'
+'g.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'GridGroupBox'#21'AnchorSideTop.Control'#7#18'SnapToGridCheckBox'#18'Anch'
+'orSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#14#3'Top'#2'G'#5'Wid'
+'th'#2'F'#20'BorderSpacing.Around'#2#6#7'Caption'#6#14'GridSizeXLabel'#11'Pa'
+'rentColor'#8#0#0#6'TLabel'#14'GridSizeYLabel'#22'AnchorSideLeft.Control'#7
+#12'GridGroupBox'#21'AnchorSideTop.Control'#7#14'GridSizeXLabel'#18'AnchorSi'
+'deTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#14#3'Top'#2'_'#5'Width'#2
+'F'#17'BorderSpacing.Top'#2#4#20'BorderSpacing.Around'#2#6#7'Caption'#6#14'G'
+'ridSizeYLabel'#11'ParentColor'#8#0#0#12'TColorButton'#15'GridColorButton'#22
+'AnchorSideLeft.Control'#7#14'GridColorLabel'#19'AnchorSideLeft.Side'#7#9'as'
+'rBottom'#21'AnchorSideTop.Control'#7#14'GridColorLabel'#18'AnchorSideTop.Si'
+'de'#7#9'asrCenter'#4'Left'#2'R'#6'Height'#2#23#3'Top'#2's'#5'Width'#2'2'#11
+'BorderWidth'#2#2#15'ButtonColorSize'#2#16#5'Color'#7#9'clBtnFace'#0#0#9'TCh'
+'eckBox'#18'SnapToGridCheckBox'#22'AnchorSideLeft.Control'#7#12'GridGroupBox'
+#21'AnchorSideTop.Control'#7#23'ShowBorderSpaceCheckBox'#18'AnchorSideTop.Si'
+'de'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#12'GridGroupBox'#20'Anchor'
+'SideRight.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#19#3'Top'#2'.'#5'Wid'
+'th'#3'A'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#18'BorderSpacing.L'
+'eft'#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'GridGroupBox'#4'Left'#2#6#6'Height'#2#19#5
+'Width'#2'v'#18'BorderSpacing.Left'#2#6#7'Caption'#6#16'ShowGridCheckBox'#8
+'TabOrder'#2#0#0#0#9'TComboBox'#17'GridSizeXComboBox'#22'AnchorSideLeft.Cont'
,'rol'#7#14'GridSizeXLabel'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorS'
+'ideTop.Control'#7#14'GridSizeXLabel'#18'AnchorSideTop.Side'#7#9'asrCenter'#4
+'Left'#2'R'#6'Height'#2#21#3'Top'#2'D'#5'Width'#2'd'#10'ItemHeight'#2#13#13
+'Items.Strings'#1#6#1'2'#6#1'5'#6#1'8'#6#2'10'#6#2'12'#6#2'15'#6#2'20'#6#2'2'
+'5'#6#2'30'#0#14'ParentShowHint'#8#8'ShowHint'#9#8'TabOrder'#2#2#0#0#9'TComb'
+'oBox'#17'GridSizeYComboBox'#22'AnchorSideLeft.Control'#7#14'GridSizeYLabel'
+#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#14'GridS'
+'izeYLabel'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2'R'#6'Height'#2#21
+#3'Top'#2'\'#5'Width'#2'd'#10'ItemHeight'#2#13#13'Items.Strings'#1#6#1'2'#6#1
+'5'#6#1'8'#6#2'10'#6#2'12'#6#2'15'#6#2'20'#6#2'25'#6#2'30'#0#14'ParentShowHi'
+'nt'#8#8'ShowHint'#9#8'TabOrder'#2#3#0#0#9'TCheckBox'#23'ShowBorderSpaceChec'
+'kBox'#22'AnchorSideLeft.Control'#7#12'GridGroupBox'#21'AnchorSideTop.Contro'
+'l'#7#16'ShowGridCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6
+#6'Height'#2#19#3'Top'#2#23#5'Width'#3#160#0#18'BorderSpacing.Left'#2#6#17'B'
+'orderSpacing.Top'#2#4#7'Caption'#6#23'ShowBorderSpaceCheckBox'#8'TabOrder'#2
+#4#0#0#0#9'TGroupBox'#18'GuideLinesGroupBox'#22'AnchorSideLeft.Control'#7#20
+'FormEditMiscGroupBox'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideT'
+'op.Control'#7#18'RubberbandGroupBox'#18'AnchorSideTop.Side'#7#9'asrBottom'
+#23'AnchorSideRight.Control'#7#14'FormEditorPage'#20'AnchorSideRight.Side'#7
+#9'asrBottom'#24'AnchorSideBottom.Control'#7#14'FormEditorPage'#21'AnchorSid'
+'eBottom.Side'#7#9'asrBottom'#4'Left'#3']'#1#6'Height'#3#248#0#3'Top'#3#224#0
+#5'Width'#3#179#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0
+#20'BorderSpacing.Around'#2#6#7'Caption'#6#18'GuideLinesGroupBox'#12'ClientH'
+'eight'#3#248#0#11'ClientWidth'#3#179#0#8'TabOrder'#2#1#0#12'TColorButton'#27
+'GuideLineColorLeftTopButton'#21'AnchorSideTop.Control'#7#26'GuideLineColorL'
+'eftTopLabel'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2
+#23#3'Top'#2'^'#5'Width'#2'2'#11'BorderWidth'#2#2#15'ButtonColorSize'#2#16#5
+'Color'#7#9'clBtnFace'#0#0#12'TColorButton'#31'GuideLineColorRightBottomButt'
+'on'#21'AnchorSideTop.Control'#7#30'GuideLineColorRightBottomLabel'#18'Ancho'
+'rSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#23#3'Top'#3#143#0#5'W'
+'idth'#2'2'#11'BorderWidth'#2#2#15'ButtonColorSize'#2#16#5'Color'#7#9'clBtnF'
+'ace'#0#0#6'TLabel'#26'GuideLineColorLeftTopLabel'#22'AnchorSideLeft.Control'
+#7#18'GuideLinesGroupBox'#23'AnchorSideRight.Control'#7#18'GuideLinesGroupBo'
+'x'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#14#3'Top'
+#2'J'#5'Width'#3#163#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'Bord'
+'erSpacing.Around'#2#6#7'Caption'#6#26'GuideLineColorLeftTopLabel'#11'Parent'
+'Color'#8#0#0#6'TLabel'#30'GuideLineColorRightBottomLabel'#22'AnchorSideLeft'
+'.Control'#7#18'GuideLinesGroupBox'#21'AnchorSideTop.Control'#7#27'GuideLine'
+'ColorLeftTopButton'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRigh'
+'t.Control'#7#18'GuideLinesGroupBox'#20'AnchorSideRight.Side'#7#9'asrBottom'
+#4'Left'#2#6#6'Height'#2#14#3'Top'#2'{'#5'Width'#3#163#0#7'Anchors'#11#5'akT'
+'op'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#30'Gui'
+'deLineColorRightBottomLabel'#11'ParentColor'#8#0#0#9'TCheckBox'#22'ShowGuid'
+'eLinesCheckBox'#22'AnchorSideLeft.Control'#7#18'GuideLinesGroupBox'#23'Anch'
+'orSideRight.Control'#7#18'GuideLinesGroupBox'#20'AnchorSideRight.Side'#7#9
+'asrBottom'#4'Left'#2#6#6'Height'#2#19#5'Width'#3#163#0#7'Anchors'#11#5'akTo'
+'p'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#22'Show'
+'GuideLinesCheckBox'#8'TabOrder'#2#0#0#0#9'TCheckBox'#24'SnapToGuideLinesChe'
+'ckBox'#22'AnchorSideLeft.Control'#7#18'GuideLinesGroupBox'#21'AnchorSideTop'
+'.Control'#7#22'ShowGuideLinesCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'
+#23'AnchorSideRight.Control'#7#18'GuideLinesGroupBox'#20'AnchorSideRight.Sid'
+'e'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#19#3'Top'#2#25#5'Width'#3#163#0#7
+'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Around'#2#6#7
+'Caption'#6#24'SnapToGuideLinesCheckBox'#8'TabOrder'#2#1#0#0#0#9'TGroupBox'
+#20'FormEditMiscGroupBox'#21'AnchorSideTop.Control'#7#12'GridGroupBox'#18'An'
+'chorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#14'FormEdito'
+'rPage'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'
+#7#14'FormEditorPage'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#2#6#6
+'Height'#3#248#0#3'Top'#3#224#0#5'Width'#3'Q'#1#7'Anchors'#11#5'akTop'#6'akL'
+'eft'#8'akBottom'#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#20'FormEditMis'
+'cGroupBox'#12'ClientHeight'#3#248#0#11'ClientWidth'#3'Q'#1#8'TabOrder'#2#2#0
+#12'TColorButton'#18'GrabberColorButton'#22'AnchorSideLeft.Control'#7#17'Gra'
+'bberColorLabel'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Con'
+'trol'#7#17'GrabberColorLabel'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'
,#2'f'#6'Height'#2#23#3'Top'#2'^'#5'Width'#2'2'#11'BorderWidth'#2#2#15'Button'
+'ColorSize'#2#16#5'Color'#7#9'clBtnFace'#0#0#12'TColorButton'#17'MarkerColor'
+'Button'#22'AnchorSideLeft.Control'#7#16'MarkerColorLabel'#19'AnchorSideLeft'
+'.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#16'MarkerColorLabel'#18'A'
+'nchorSideTop.Side'#7#9'asrCenter'#4'Left'#2'`'#6'Height'#2#23#3'Top'#2'v'#5
+'Width'#2'2'#11'BorderWidth'#2#2#15'ButtonColorSize'#2#16#5'Color'#7#9'clBtn'
+'Face'#0#0#6'TLabel'#17'GrabberColorLabel'#22'AnchorSideLeft.Control'#7#20'F'
+'ormEditMiscGroupBox'#21'AnchorSideTop.Control'#7#25'RightClickSelectsCheckB'
+'ox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#14#3'Top'
+#2'b'#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'MarkerC'
+'olorLabel'#22'AnchorSideLeft.Control'#7#20'FormEditMiscGroupBox'#21'AnchorS'
+'ideTop.Control'#7#17'GrabberColorLabel'#18'AnchorSideTop.Side'#7#9'asrBotto'
+'m'#4'Left'#2#6#6'Height'#2#14#3'Top'#2'z'#5'Width'#2'T'#17'BorderSpacing.To'
+'p'#2#4#20'BorderSpacing.Around'#2#6#7'Caption'#6#16'MarkerColorLabel'#11'Pa'
+'rentColor'#8#0#0#9'TCheckBox'#29'ShowComponentCaptionsCheckBox'#22'AnchorSi'
+'deLeft.Control'#7#20'FormEditMiscGroupBox'#23'AnchorSideRight.Control'#7#20
+'FormEditMiscGroupBox'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#6#6
+'Height'#2#19#5'Width'#3'A'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0
+#18'BorderSpacing.Left'#2#6#19'BorderSpacing.Right'#2#6#7'Caption'#6#29'Show'
+'ComponentCaptionsCheckBox'#8'TabOrder'#2#0#0#0#9'TCheckBox'#23'ShowEditorHi'
+'ntsCheckBox'#22'AnchorSideLeft.Control'#7#20'FormEditMiscGroupBox'#21'Ancho'
+'rSideTop.Control'#7#29'ShowComponentCaptionsCheckBox'#18'AnchorSideTop.Side'
+#7#9'asrBottom'#23'AnchorSideRight.Control'#7#20'FormEditMiscGroupBox'#20'An'
+'chorSideRight.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#19#3'Top'#2#23#5
+'Width'#3'A'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#18'BorderSpacin'
+'g.Left'#2#6#17'BorderSpacing.Top'#2#4#19'BorderSpacing.Right'#2#6#7'Caption'
+#6#23'ShowEditorHintsCheckBox'#8'TabOrder'#2#1#0#0#9'TCheckBox'#29'AutoCreat'
+'eFormsOnOpenCheckBox'#22'AnchorSideLeft.Control'#7#20'FormEditMiscGroupBox'
+#21'AnchorSideTop.Control'#7#23'ShowEditorHintsCheckBox'#18'AnchorSideTop.Si'
+'de'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#20'FormEditMiscGroupBox'#20
+'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#19#3'Top'#2'.'
+#5'Width'#3'A'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#18'BorderSpac'
+'ing.Left'#2#6#17'BorderSpacing.Top'#2#4#19'BorderSpacing.Right'#2#6#7'Capti'
+'on'#6#29'AutoCreateFormsOnOpenCheckBox'#8'TabOrder'#2#2#0#0#9'TCheckBox'#25
+'RightClickSelectsCheckBox'#22'AnchorSideLeft.Control'#7#20'FormEditMiscGrou'
+'pBox'#21'AnchorSideTop.Control'#7#29'AutoCreateFormsOnOpenCheckBox'#18'Anch'
+'orSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#20'FormEditMis'
+'cGroupBox'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2
+#19#3'Top'#2'E'#5'Width'#3'G'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0
+#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#4#7'Caption'#6#25'RightC'
+'lickSelectsCheckBox'#8'TabOrder'#2#3#0#0#9'TCheckBox'#25'DesignerPaintLazyC'
+'heckBox'#22'AnchorSideLeft.Control'#7#20'FormEditMiscGroupBox'#21'AnchorSid'
+'eTop.Control'#7#16'MarkerColorLabel'#18'AnchorSideTop.Side'#7#9'asrBottom'
+#23'AnchorSideRight.Control'#7#20'FormEditMiscGroupBox'#20'AnchorSideRight.S'
+'ide'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#19#3'Top'#3#146#0#5'Width'#3'A'
+#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#17'BorderSpacing.Top'#2#4#20
+'BorderSpacing.Around'#2#6#7'Caption'#6#25'DesignerPaintLazyCheckBox'#14'Par'
+'entShowHint'#8#8'ShowHint'#9#8'TabOrder'#2#4#0#0#0#9'TGroupBox'#18'Rubberba'
+'ndGroupBox'#22'AnchorSideLeft.Control'#7#12'GridGroupBox'#19'AnchorSideLeft'
+'.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#14'FormEditorPage'#20'A'
+'nchorSideRight.Side'#7#9'asrBottom'#4'Left'#3']'#1#6'Height'#3#212#0#3'Top'
+#2#6#5'Width'#3#179#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'Borde'
+'rSpacing.Around'#2#6#7'Caption'#6#18'RubberbandGroupBox'#12'ClientHeight'#3
+#212#0#11'ClientWidth'#3#179#0#5'Color'#7#9'clBtnFace'#11'ParentColor'#8#8'T'
+'abOrder'#2#3#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#5'Color'#7#9'clBtnFace'#0#0#12'TColorButton'#27'RubberbandCr'
+'eateColorButton'#22'AnchorSideLeft.Control'#7#26'RubberbandCreateColorLabel'
+#21'AnchorSideTop.Control'#7#26'RubberbandCreateColorLabel'#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#5'Color'#7#9'clBtnFace'#0#0#6
,'TLabel'#26'RubberbandSelectColorLabel'#22'AnchorSideLeft.Control'#7#18'Rubb'
+'erbandGroupBox'#21'AnchorSideTop.Control'#7#18'RubberbandGroupBox'#23'Ancho'
+'rSideRight.Control'#7#18'RubberbandGroupBox'#20'AnchorSideRight.Side'#7#9'a'
+'srBottom'#4'Left'#2#6#6'Height'#2#14#3'Top'#2#6#5'Width'#3#163#0#7'Anchors'
+#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Around'#2#6#7'Caption'#6
+#26'RubberbandSelectColorLabel'#11'ParentColor'#8#0#0#6'TLabel'#26'Rubberban'
+'dCreateColorLabel'#22'AnchorSideLeft.Control'#7#18'RubberbandGroupBox'#21'A'
+'nchorSideTop.Control'#7#27'RubberbandSelectColorButton'#18'AnchorSideTop.Si'
+'de'#7#9'asrBottom'#23'AnchorSideRight.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#163#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpa'
+'cing.Around'#2#6#7'Caption'#6#26'RubberbandCreateColorLabel'#11'ParentColor'
+#8#0#0#9'TCheckBox$RubberbandSelectsGrandChildsCheckBox'#22'AnchorSideLeft.C'
+'ontrol'#7#18'RubberbandGroupBox'#21'AnchorSideTop.Control'#7#27'RubberbandC'
+'reateColorButton'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.'
+'Control'#7#18'RubberbandGroupBox'#20'AnchorSideRight.Side'#7#9'asrBottom'#4
+'Left'#2#6#6'Height'#2#19#3'Top'#2'h'#5'Width'#3#163#0#7'Anchors'#11#5'akTop'
+#6'akLeft'#7'akRight'#0#20'BorderSpacing.Around'#2#6#7'Caption'#6'$Rubberban'
+'dSelectsGrandChildsCheckBox'#8'TabOrder'#2#0#0#0#0#0#5'TPage'#19'ObjectInsp'
+'ectorPage'#7'Caption'#6#19'ObjectInspectorPage'#0#0#5'TPage'#10'BackupPage'
+#7'Caption'#6#10'BackupPage'#11'ClientWidth'#3#22#2#12'ClientHeight'#3#222#1
+#0#6'TLabel'#15'BackupHelpLabel'#23'AnchorSideRight.Control'#7#10'BackupPage'
+#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#14#3'Top'#2
+#7#5'Width'#3#10#2#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#19'BorderSp'
+'acing.Right'#2#6#7'Caption'#6#15'BackupHelpLabel'#11'ParentColor'#8#0#0#9'T'
+'GroupBox'#21'BackupProjectGroupBox'#23'AnchorSideRight.Control'#7#10'Backup'
+'Page'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#3#141#0
+#3'Top'#2'"'#5'Width'#3#10#2#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8
+'AutoSize'#9#19'BorderSpacing.Right'#2#6#7'Caption'#6#21'BackupProjectGroupB'
+'ox'#12'ClientHeight'#3#141#0#11'ClientWidth'#3#10#2#8'TabOrder'#2#0#0#6'TLa'
+'bel'#18'BakProjAddExtLabel'#22'AnchorSideLeft.Control'#7#21'BakProjAddExtCo'
+'mboBox'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7
+#21'BakProjAddExtComboBox'#18'AnchorSideTop.Side'#7#9'asrCenter'#23'AnchorSi'
+'deRight.Control'#7#21'BackupProjectGroupBox'#20'AnchorSideRight.Side'#7#9'a'
+'srBottom'#4'Left'#2'p'#6'Height'#2#14#3'Top'#2'-'#5'Width'#3#144#1#7'Anchor'
+'s'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Around'#2#6#7'Captio'
+'n'#6#18'BakProjAddExtLabel'#11'ParentColor'#8#0#0#6'TLabel'#22'BakProjMaxCo'
+'unterLabel'#22'AnchorSideLeft.Control'#7#25'BakProjMaxCounterComboBox'#19'A'
+'nchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#25'BakProjMa'
+'xCounterComboBox'#18'AnchorSideTop.Side'#7#9'asrCenter'#23'AnchorSideRight.'
+'Control'#7#21'BackupProjectGroupBox'#20'AnchorSideRight.Side'#7#9'asrBottom'
+#4'Left'#2'p'#6'Height'#2#14#3'Top'#2'H'#5'Width'#3#144#1#7'Anchors'#11#5'ak'
+'Top'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#22'Ba'
+'kProjMaxCounterLabel'#11'ParentColor'#8#0#0#6'TLabel'#18'BakProjSubDirLabel'
+#22'AnchorSideLeft.Control'#7#21'BakProjSubDirComboBox'#19'AnchorSideLeft.Si'
+'de'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#21'BakProjSubDirComboBox'#18
+'AnchorSideTop.Side'#7#9'asrCenter'#23'AnchorSideRight.Control'#7#21'BackupP'
+'rojectGroupBox'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2'p'#6'Heig'
+'ht'#2#14#3'Top'#2'c'#5'Width'#3#144#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'ak'
+'Right'#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#18'BakProjSubDirLabel'#11
+'ParentColor'#8#0#0#11'TRadioGroup'#21'BakProjTypeRadioGroup'#23'AnchorSideR'
+'ight.Control'#7#21'BackupProjectGroupBox'#20'AnchorSideRight.Side'#7#9'asrB'
+'ottom'#4'Left'#2#6#6'Height'#2#30#3'Top'#2#6#5'Width'#3#250#1#7'Anchors'#11
+#5'akTop'#6'akLeft'#7'akRight'#0#8'AutoFill'#9#8'AutoSize'#9#20'BorderSpacin'
+'g.Around'#2#6#7'Caption'#6#21'BakProjTypeRadioGroup'#28'ChildSizing.LeftRig'
+'htSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeH'
+'orizontal'#7#24'crsHomogenousChildResize'#27'ChildSizing.EnlargeVertical'#7
+#24'crsHomogenousChildResize'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScale'
+'Childs'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChilds'#18'ChildSizing.'
+'Layout'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSizing.ControlsPerLine'
+#2#2#7'Columns'#2#2#21'Constraints.MinHeight'#2#30#7'OnClick'#7#22'BakTypeRa'
+'dioGroupClick'#8'TabOrder'#2#0#0#0#9'TComboBox'#21'BakProjAddExtComboBox'#21
+'AnchorSideTop.Control'#7#21'BakProjTypeRadioGroup'#18'AnchorSideTop.Side'#7
+#9'asrBottom'#4'Left'#2#6#6'Height'#2#21#3'Top'#2'*'#5'Width'#2'd'#10'AutoSe'
,'lect'#9#20'BorderSpacing.Around'#2#6#10'ItemHeight'#2#13#8'TabOrder'#2#1#4
+'Text'#6#21'BakProjAddExtComboBox'#0#0#9'TComboBox'#25'BakProjMaxCounterComb'
+'oBox'#21'AnchorSideTop.Control'#7#21'BakProjAddExtComboBox'#18'AnchorSideTo'
+'p.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#21#3'Top'#2'E'#5'Width'#2'd'
+#10'AutoSelect'#9#20'BorderSpacing.Around'#2#6#10'ItemHeight'#2#13#8'TabOrde'
+'r'#2#2#4'Text'#6#25'BakProjMaxCounterComboBox'#0#0#9'TComboBox'#21'BakProjS'
+'ubDirComboBox'#21'AnchorSideTop.Control'#7#25'BakProjMaxCounterComboBox'#18
+'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#21#3'Top'#2'`'#5
+'Width'#2'd'#10'AutoSelect'#9#20'BorderSpacing.Around'#2#6#10'ItemHeight'#2
+#13#8'TabOrder'#2#3#4'Text'#6#21'BakProjSubDirComboBox'#0#0#0#9'TGroupBox'#19
+'BackupOtherGroupBox'#21'AnchorSideTop.Control'#7#21'BackupProjectGroupBox'
+#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#10'Back'
+'upPage'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#3#141
+#0#3'Top'#3#181#0#5'Width'#3#10#2#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'
+#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#19'BackupOtherGro'
+'upBox'#12'ClientHeight'#3#141#0#11'ClientWidth'#3#10#2#8'TabOrder'#2#1#0#6
+'TLabel'#19'BakOtherAddExtLabel'#22'AnchorSideLeft.Control'#7#22'BakOtherAdd'
+'ExtComboBox'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Contro'
+'l'#7#22'BakOtherAddExtComboBox'#18'AnchorSideTop.Side'#7#9'asrCenter'#23'An'
+'chorSideRight.Control'#7#19'BackupOtherGroupBox'#20'AnchorSideRight.Side'#7
+#9'asrBottom'#4'Left'#2'p'#6'Height'#2#14#3'Top'#2'-'#5'Width'#3#144#1#7'Anc'
+'hors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Around'#2#6#7'Cap'
+'tion'#6#19'BakOtherAddExtLabel'#11'ParentColor'#8#0#0#6'TLabel'#23'BakOther'
+'MaxCounterLabel'#22'AnchorSideLeft.Control'#7#26'BakOtherMaxCounterComboBox'
+#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#26'BakOt'
+'herMaxCounterComboBox'#18'AnchorSideTop.Side'#7#9'asrCenter'#23'AnchorSideR'
+'ight.Control'#7#19'BackupOtherGroupBox'#20'AnchorSideRight.Side'#7#9'asrBot'
+'tom'#4'Left'#2'p'#6'Height'#2#14#3'Top'#2'H'#5'Width'#3#144#1#7'Anchors'#11
+#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#23
+'BakOtherMaxCounterLabel'#11'ParentColor'#8#0#0#6'TLabel'#19'BakOtherSubDirL'
+'abel'#22'AnchorSideLeft.Control'#7#22'BakOtherSubDirComboBox'#19'AnchorSide'
+'Left.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#22'BakOtherSubDirComb'
+'oBox'#18'AnchorSideTop.Side'#7#9'asrCenter'#23'AnchorSideRight.Control'#7#19
+'BackupOtherGroupBox'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2'p'#6
+'Height'#2#14#3'Top'#2'c'#5'Width'#3#144#1#7'Anchors'#11#5'akTop'#6'akLeft'#7
+'akRight'#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#19'BakOtherSubDirLabel'
+#11'ParentColor'#8#0#0#11'TRadioGroup'#22'BakOtherTypeRadioGroup'#23'AnchorS'
+'ideRight.Control'#7#19'BackupOtherGroupBox'#20'AnchorSideRight.Side'#7#9'as'
+'rBottom'#4'Left'#2#6#6'Height'#2#30#3'Top'#2#6#5'Width'#3#250#1#7'Anchors'
+#11#5'akTop'#6'akLeft'#7'akRight'#0#8'AutoFill'#9#8'AutoSize'#9#20'BorderSpa'
+'cing.Around'#2#6#7'Caption'#6#22'BakOtherTypeRadioGroup'#28'ChildSizing.Lef'
+'tRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'ChildSizing.Enla'
+'rgeHorizontal'#7#24'crsHomogenousChildResize'#27'ChildSizing.EnlargeVertica'
+'l'#7#24'crsHomogenousChildResize'#28'ChildSizing.ShrinkHorizontal'#7#14'crs'
+'ScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChilds'#18'ChildSi'
+'zing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSizing.ControlsPer'
+'Line'#2#2#7'Columns'#2#2#21'Constraints.MinHeight'#2#30#7'OnClick'#7#22'Bak'
+'TypeRadioGroupClick'#8'TabOrder'#2#0#0#0#9'TComboBox'#22'BakOtherAddExtComb'
+'oBox'#21'AnchorSideTop.Control'#7#22'BakOtherTypeRadioGroup'#18'AnchorSideT'
+'op.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#21#3'Top'#2'*'#5'Width'#2'd'
+#20'BorderSpacing.Around'#2#6#10'ItemHeight'#2#13#8'TabOrder'#2#1#4'Text'#6
+#22'BakOtherAddExtComboBox'#0#0#9'TComboBox'#26'BakOtherMaxCounterComboBox'
+#21'AnchorSideTop.Control'#7#22'BakOtherAddExtComboBox'#18'AnchorSideTop.Sid'
+'e'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#21#3'Top'#2'E'#5'Width'#2'd'#20'B'
+'orderSpacing.Around'#2#6#10'ItemHeight'#2#13#8'TabOrder'#2#2#4'Text'#6#26'B'
+'akOtherMaxCounterComboBox'#0#0#9'TComboBox'#22'BakOtherSubDirComboBox'#21'A'
+'nchorSideTop.Control'#7#26'BakOtherMaxCounterComboBox'#18'AnchorSideTop.Sid'
+'e'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#21#3'Top'#2'`'#5'Width'#2'd'#20'B'
+'orderSpacing.Around'#2#6#10'ItemHeight'#2#13#8'TabOrder'#2#3#4'Text'#6#22'B'
+'akOtherSubDirComboBox'#0#0#0#0#5'TPage'#10'NamingPage'#7'Caption'#6#10'Nami'
+'ngPage'#11'ClientWidth'#3#26#2#12'ClientHeight'#3#194#1#0#11'TRadioGroup'#23
+'PascalFileExtRadiogroup'#23'AnchorSideRight.Control'#7#10'NamingPage'#20'An'
+'chorSideRight.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2'/'#3'Top'#2#6#5
+'Width'#3#14#2#5'Align'#7#5'alTop'#8'AutoFill'#9#20'BorderSpacing.Around'#2#6
,#7'Caption'#6#23'PascalFileExtRadiogroup'#28'ChildSizing.LeftRightSpacing'#2
+#6#28'ChildSizing.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7
+#24'crsHomogenousChildResize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomoge'
+'nousChildResize'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'C'
+'hildSizing.ShrinkVertical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29
+'cclLeftToRightThenTopToBottom'#27'ChildSizing.ControlsPerLine'#2#2#7'Column'
+'s'#2#2#8'TabOrder'#2#0#0#0#11'TRadioGroup'#28'CharcaseFileActionRadioGroup'
+#23'AnchorSideRight.Control'#7#10'NamingPage'#20'AnchorSideRight.Side'#7#9'a'
+'srBottom'#4'Left'#2#6#6'Height'#2'U'#3'Top'#3#165#0#5'Width'#3#14#2#5'Align'
+#7#5'alTop'#8'AutoFill'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#28'Charc'
+'aseFileActionRadioGroup'#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizin'
+'g.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsHomogenou'
+'sChildResize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenousChildResize'
+#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSizing.Shrink'
+'Vertical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclLeftToRightTh'
+'enTopToBottom'#27'ChildSizing.ControlsPerLine'#2#2#7'Columns'#2#2#8'TabOrde'
+'r'#2#1#0#0#11'TRadioGroup'#29'AmbiguousFileActionRadioGroup'#23'AnchorSideR'
+'ight.Control'#7#10'NamingPage'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Le'
+'ft'#2#6#6'Height'#2'd'#3'Top'#2';'#5'Width'#3#14#2#5'Align'#7#5'alTop'#8'Au'
+'toFill'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#29'AmbiguousFileActionR'
+'adioGroup'#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpa'
+'cing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsHomogenousChildResize'
+#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenousChildResize'#28'ChildSizi'
+'ng.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7
+#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBotto'
+'m'#27'ChildSizing.ControlsPerLine'#2#2#7'Columns'#2#2#8'TabOrder'#2#2#0#0#0
+#5'TPage'#10'LazDocPage'#7'Caption'#6#10'LazDocPage'#11'ClientWidth'#3#26#2
+#12'ClientHeight'#3#194#1#0#9'TGroupBox'#19'LazDocPathsGroupBox'#23'AnchorSi'
+'deRight.Control'#7#10'LazDocPage'#20'AnchorSideRight.Side'#7#9'asrBottom'#4
+'Left'#2#6#6'Height'#3#205#0#3'Top'#2#6#5'Width'#3#14#2#5'Align'#7#5'alTop'#8
+'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#19'LazDocPathsGroupBo'
+'x'#12'ClientHeight'#3#205#0#11'ClientWidth'#3#14#2#8'TabOrder'#2#0#0#8'TLis'
+'tBox'#13'LazDocListBox'#4'Left'#2#6#6'Height'#2'l'#3'Top'#2#6#5'Width'#3#254
+#1#5'Align'#7#5'alTop'#20'BorderSpacing.Around'#2#6#8'TabOrder'#2#0#8'TopInd'
+'ex'#2#255#0#0#7'TButton'#19'LazDocAddPathButton'#22'AnchorSideLeft.Control'
+#7#19'LazDocPathsGroupBox'#21'AnchorSideTop.Control'#7#13'LazDocListBox'#18
+'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#31#3'Top'#2'x'#5
+'Width'#3#163#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#19'L'
+'azDocAddPathButton'#7'OnClick'#7#24'LazDocAddPathButtonClick'#8'TabOrder'#2
+#1#0#0#7'TButton'#22'LazDocDeletePathButton'#22'AnchorSideLeft.Control'#7#19
+'LazDocAddPathButton'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTo'
+'p.Control'#7#19'LazDocAddPathButton'#4'Left'#3#179#0#6'Height'#2#31#3'Top'#2
+'x'#5'Width'#3#180#0#8'AutoSize'#9#18'BorderSpacing.Left'#2#10#7'Caption'#6
+#22'LazDocDeletePathButton'#7'OnClick'#7#27'LazDocDeletePathButtonClick'#8'T'
+'abOrder'#2#2#0#0#7'TButton'#18'LazDocBrowseButton'#19'AnchorSideLeft.Side'#7
+#9'asrBottom'#21'AnchorSideTop.Control'#7#14'LazDocPathEdit'#23'AnchorSideRi'
+'ght.Control'#7#19'LazDocPathsGroupBox'#20'AnchorSideRight.Side'#7#9'asrBott'
+'om'#24'AnchorSideBottom.Control'#7#14'LazDocPathEdit'#21'AnchorSideBottom.S'
+'ide'#7#9'asrBottom'#4'Left'#3#236#1#6'Height'#2#23#3'Top'#3#157#0#5'Width'#2
+#24#7'Anchors'#11#5'akTop'#7'akRight'#8'akBottom'#0#19'BorderSpacing.Right'#2
+#6#7'Caption'#6#3'...'#7'OnClick'#7#23'LazDocBrowseButtonClick'#8'TabOrder'#2
+#3#0#0#5'TEdit'#14'LazDocPathEdit'#22'AnchorSideLeft.Control'#7#19'LazDocPat'
+'hsGroupBox'#21'AnchorSideTop.Control'#7#19'LazDocAddPathButton'#18'AnchorSi'
+'deTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#18'LazDocBrowseBut'
+'ton'#4'Left'#2#6#6'Height'#2#23#3'Top'#3#157#0#5'Width'#3#230#1#7'Anchors'
+#11#5'akTop'#6'akLeft'#7'akRight'#0#18'BorderSpacing.Left'#2#6#17'BorderSpac'
+'ing.Top'#2#6#20'BorderSpacing.Bottom'#2#6#8'TabOrder'#2#4#4'Text'#6#14'LazD'
+'ocPathEdit'#0#0#0#0#0#12'TButtonPanel'#11'ButtonPanel'#4'Left'#2#6#6'Height'
+#2'('#3'Top'#3#239#1#5'Width'#3#18#2#5'Align'#7#8'alBottom'#8'AutoSize'#9#8
+'TabOrder'#2#1#11'ShowButtons'#11#4'pbOK'#8'pbCancel'#6'pbHelp'#0#0#0#22'TSe'
+'lectDirectoryDialog'#21'SelectDirectoryDialog'#11'FilterIndex'#2#0#4'left'#3
+#232#1#3'top'#2#8#0#0#0
+#7'Caption'#6#18'BakProjSubDirLabel'#11'ParentColor'#8#0#0#11'TRadioGroup'#21
+'BakProjTypeRadioGroup'#23'AnchorSideRight.Control'#7#21'BackupProjectGroupB'
+'ox'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#30#3'To'
+'p'#2#6#5'Width'#3#250#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'Aut'
+'oFill'#9#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#21'BakProj'
+'TypeRadioGroup'#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing.TopBott'
+'omSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsHomogenousChildRes'
+'ize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenousChildResize'#28'Chil'
+'dSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertica'
+'l'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTopTo'
+'Bottom'#27'ChildSizing.ControlsPerLine'#2#2#7'Columns'#2#2#21'Constraints.M'
+'inHeight'#2#30#7'OnClick'#7#22'BakTypeRadioGroupClick'#8'TabOrder'#2#0#0#0#9
+'TComboBox'#21'BakProjAddExtComboBox'#21'AnchorSideTop.Control'#7#21'BakProj'
+'TypeRadioGroup'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'
+#2#21#3'Top'#2'*'#5'Width'#2'd'#10'AutoSelect'#9#20'BorderSpacing.Around'#2#6
+#10'ItemHeight'#2#13#9'MaxLength'#2#255#8'TabOrder'#2#1#4'Text'#6#21'BakProj'
+'AddExtComboBox'#0#0#9'TComboBox'#25'BakProjMaxCounterComboBox'#21'AnchorSid'
+'eTop.Control'#7#21'BakProjAddExtComboBox'#18'AnchorSideTop.Side'#7#9'asrBot'
+'tom'#4'Left'#2#6#6'Height'#2#21#3'Top'#2'E'#5'Width'#2'd'#10'AutoSelect'#9
+#20'BorderSpacing.Around'#2#6#10'ItemHeight'#2#13#9'MaxLength'#2#255#8'TabOr'
,'der'#2#2#4'Text'#6#25'BakProjMaxCounterComboBox'#0#0#9'TComboBox'#21'BakPro'
+'jSubDirComboBox'#21'AnchorSideTop.Control'#7#25'BakProjMaxCounterComboBox'
+#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#21#3'Top'#2'`'
+#5'Width'#2'd'#10'AutoSelect'#9#20'BorderSpacing.Around'#2#6#10'ItemHeight'#2
+#13#9'MaxLength'#2#255#8'TabOrder'#2#3#4'Text'#6#21'BakProjSubDirComboBox'#0
+#0#0#9'TGroupBox'#19'BackupOtherGroupBox'#21'AnchorSideTop.Control'#7#21'Bac'
+'kupProjectGroupBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRigh'
+'t.Control'#7#10'BackupPage'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'
+#2#6#6'Height'#3#141#0#3'Top'#3#181#0#5'Width'#3#10#2#7'Anchors'#11#5'akTop'
+#6'akLeft'#7'akRight'#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'
+#6#19'BackupOtherGroupBox'#12'ClientHeight'#3#141#0#11'ClientWidth'#3#10#2#8
+'TabOrder'#2#1#0#6'TLabel'#19'BakOtherAddExtLabel'#22'AnchorSideLeft.Control'
+#7#22'BakOtherAddExtComboBox'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'Anch'
+'orSideTop.Control'#7#22'BakOtherAddExtComboBox'#18'AnchorSideTop.Side'#7#9
+'asrCenter'#23'AnchorSideRight.Control'#7#19'BackupOtherGroupBox'#20'AnchorS'
+'ideRight.Side'#7#9'asrBottom'#4'Left'#2'p'#6'Height'#2#14#3'Top'#2'-'#5'Wid'
+'th'#3#144#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.'
+'Around'#2#6#7'Caption'#6#19'BakOtherAddExtLabel'#11'ParentColor'#8#0#0#6'TL'
+'abel'#23'BakOtherMaxCounterLabel'#22'AnchorSideLeft.Control'#7#26'BakOtherM'
+'axCounterComboBox'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.'
+'Control'#7#26'BakOtherMaxCounterComboBox'#18'AnchorSideTop.Side'#7#9'asrCen'
+'ter'#23'AnchorSideRight.Control'#7#19'BackupOtherGroupBox'#20'AnchorSideRig'
+'ht.Side'#7#9'asrBottom'#4'Left'#2'p'#6'Height'#2#14#3'Top'#2'H'#5'Width'#3
+#144#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Around'
+#2#6#7'Caption'#6#23'BakOtherMaxCounterLabel'#11'ParentColor'#8#0#0#6'TLabel'
+#19'BakOtherSubDirLabel'#22'AnchorSideLeft.Control'#7#22'BakOtherSubDirCombo'
+'Box'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#22
+'BakOtherSubDirComboBox'#18'AnchorSideTop.Side'#7#9'asrCenter'#23'AnchorSide'
+'Right.Control'#7#19'BackupOtherGroupBox'#20'AnchorSideRight.Side'#7#9'asrBo'
+'ttom'#4'Left'#2'p'#6'Height'#2#14#3'Top'#2'c'#5'Width'#3#144#1#7'Anchors'#11
+#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#19
+'BakOtherSubDirLabel'#11'ParentColor'#8#0#0#11'TRadioGroup'#22'BakOtherTypeR'
+'adioGroup'#23'AnchorSideRight.Control'#7#19'BackupOtherGroupBox'#20'AnchorS'
+'ideRight.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#30#3'Top'#2#6#5'Width'
+#3#250#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'AutoFill'#9#8'AutoS'
+'ize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#22'BakOtherTypeRadioGroup'
+#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29
+'ChildSizing.EnlargeHorizontal'#7#24'crsHomogenousChildResize'#27'ChildSizin'
+'g.EnlargeVertical'#7#24'crsHomogenousChildResize'#28'ChildSizing.ShrinkHori'
+'zontal'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleCh'
+'ilds'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSi'
+'zing.ControlsPerLine'#2#2#7'Columns'#2#2#21'Constraints.MinHeight'#2#30#7'O'
+'nClick'#7#22'BakTypeRadioGroupClick'#8'TabOrder'#2#0#0#0#9'TComboBox'#22'Ba'
+'kOtherAddExtComboBox'#21'AnchorSideTop.Control'#7#22'BakOtherTypeRadioGroup'
+#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#21#3'Top'#2'*'
+#5'Width'#2'd'#20'BorderSpacing.Around'#2#6#10'ItemHeight'#2#13#9'MaxLength'
+#2#255#8'TabOrder'#2#1#4'Text'#6#22'BakOtherAddExtComboBox'#0#0#9'TComboBox'
+#26'BakOtherMaxCounterComboBox'#21'AnchorSideTop.Control'#7#22'BakOtherAddEx'
+'tComboBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#21
+#3'Top'#2'E'#5'Width'#2'd'#20'BorderSpacing.Around'#2#6#10'ItemHeight'#2#13#9
+'MaxLength'#2#255#8'TabOrder'#2#2#4'Text'#6#26'BakOtherMaxCounterComboBox'#0
+#0#9'TComboBox'#22'BakOtherSubDirComboBox'#21'AnchorSideTop.Control'#7#26'Ba'
+'kOtherMaxCounterComboBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6
+#6'Height'#2#21#3'Top'#2'`'#5'Width'#2'd'#20'BorderSpacing.Around'#2#6#10'It'
+'emHeight'#2#13#9'MaxLength'#2#255#8'TabOrder'#2#3#4'Text'#6#22'BakOtherSubD'
+'irComboBox'#0#0#0#0#5'TPage'#10'NamingPage'#7'Caption'#6#10'NamingPage'#11
+'ClientWidth'#3#26#2#12'ClientHeight'#3#194#1#0#11'TRadioGroup'#23'PascalFil'
+'eExtRadiogroup'#23'AnchorSideRight.Control'#7#10'NamingPage'#20'AnchorSideR'
+'ight.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2'/'#3'Top'#2#6#5'Width'#3
+#14#2#5'Align'#7#5'alTop'#8'AutoFill'#9#20'BorderSpacing.Around'#2#6#7'Capti'
+'on'#6#23'PascalFileExtRadiogroup'#28'ChildSizing.LeftRightSpacing'#2#6#28'C'
+'hildSizing.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crs'
+'HomogenousChildResize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenousCh'
+'ildResize'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSi'
,'zing.ShrinkVertical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclLe'
+'ftToRightThenTopToBottom'#27'ChildSizing.ControlsPerLine'#2#2#7'Columns'#2#2
+#8'TabOrder'#2#0#0#0#11'TRadioGroup'#28'CharcaseFileActionRadioGroup'#23'Anc'
+'horSideRight.Control'#7#10'NamingPage'#20'AnchorSideRight.Side'#7#9'asrBott'
+'om'#4'Left'#2#6#6'Height'#2'U'#3'Top'#3#165#0#5'Width'#3#14#2#5'Align'#7#5
+'alTop'#8'AutoFill'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#28'CharcaseF'
+'ileActionRadioGroup'#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing.To'
+'pBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsHomogenousChi'
+'ldResize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenousChildResize'#28
+'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVer'
+'tical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenT'
+'opToBottom'#27'ChildSizing.ControlsPerLine'#2#2#7'Columns'#2#2#8'TabOrder'#2
+#1#0#0#11'TRadioGroup'#29'AmbiguousFileActionRadioGroup'#23'AnchorSideRight.'
+'Control'#7#10'NamingPage'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2
+#6#6'Height'#2'd'#3'Top'#2';'#5'Width'#3#14#2#5'Align'#7#5'alTop'#8'AutoFill'
+#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#29'AmbiguousFileActionRadioGrou'
+'p'#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6
+#29'ChildSizing.EnlargeHorizontal'#7#24'crsHomogenousChildResize'#27'ChildSi'
+'zing.EnlargeVertical'#7#24'crsHomogenousChildResize'#28'ChildSizing.ShrinkH'
+'orizontal'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14'crsScal'
+'eChilds'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'Chil'
+'dSizing.ControlsPerLine'#2#2#7'Columns'#2#2#8'TabOrder'#2#2#0#0#0#5'TPage'
+#10'LazDocPage'#7'Caption'#6#10'LazDocPage'#11'ClientWidth'#3#26#2#12'Client'
+'Height'#3#194#1#0#9'TGroupBox'#19'LazDocPathsGroupBox'#23'AnchorSideRight.C'
+'ontrol'#7#10'LazDocPage'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#6
+#6'Height'#3#205#0#3'Top'#2#6#5'Width'#3#14#2#5'Align'#7#5'alTop'#8'AutoSize'
+#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#19'LazDocPathsGroupBox'#12'Clie'
+'ntHeight'#3#205#0#11'ClientWidth'#3#14#2#8'TabOrder'#2#0#0#8'TListBox'#13'L'
+'azDocListBox'#4'Left'#2#6#6'Height'#2'l'#3'Top'#2#6#5'Width'#3#254#1#5'Alig'
+'n'#7#5'alTop'#20'BorderSpacing.Around'#2#6#8'TabOrder'#2#0#8'TopIndex'#2#255
+#0#0#7'TButton'#19'LazDocAddPathButton'#22'AnchorSideLeft.Control'#7#19'LazD'
+'ocPathsGroupBox'#21'AnchorSideTop.Control'#7#13'LazDocListBox'#18'AnchorSid'
+'eTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#31#3'Top'#2'x'#5'Width'#3
+#163#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#19'LazDocAddP'
+'athButton'#7'OnClick'#7#24'LazDocAddPathButtonClick'#8'TabOrder'#2#1#0#0#7
+'TButton'#22'LazDocDeletePathButton'#22'AnchorSideLeft.Control'#7#19'LazDocA'
+'ddPathButton'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Contr'
+'ol'#7#19'LazDocAddPathButton'#4'Left'#3#179#0#6'Height'#2#31#3'Top'#2'x'#5
+'Width'#3#180#0#8'AutoSize'#9#18'BorderSpacing.Left'#2#10#7'Caption'#6#22'La'
+'zDocDeletePathButton'#7'OnClick'#7#27'LazDocDeletePathButtonClick'#8'TabOrd'
+'er'#2#2#0#0#7'TButton'#18'LazDocBrowseButton'#19'AnchorSideLeft.Side'#7#9'a'
+'srBottom'#21'AnchorSideTop.Control'#7#14'LazDocPathEdit'#23'AnchorSideRight'
+'.Control'#7#19'LazDocPathsGroupBox'#20'AnchorSideRight.Side'#7#9'asrBottom'
+#24'AnchorSideBottom.Control'#7#14'LazDocPathEdit'#21'AnchorSideBottom.Side'
+#7#9'asrBottom'#4'Left'#3#236#1#6'Height'#2#23#3'Top'#3#157#0#5'Width'#2#24#7
+'Anchors'#11#5'akTop'#7'akRight'#8'akBottom'#0#19'BorderSpacing.Right'#2#6#7
+'Caption'#6#3'...'#7'OnClick'#7#23'LazDocBrowseButtonClick'#8'TabOrder'#2#3#0
+#0#5'TEdit'#14'LazDocPathEdit'#22'AnchorSideLeft.Control'#7#19'LazDocPathsGr'
+'oupBox'#21'AnchorSideTop.Control'#7#19'LazDocAddPathButton'#18'AnchorSideTo'
+'p.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#18'LazDocBrowseButton'
+#4'Left'#2#6#6'Height'#2#23#3'Top'#3#157#0#5'Width'#3#230#1#7'Anchors'#11#5
+'akTop'#6'akLeft'#7'akRight'#0#18'BorderSpacing.Left'#2#6#17'BorderSpacing.T'
+'op'#2#6#20'BorderSpacing.Bottom'#2#6#8'TabOrder'#2#4#4'Text'#6#14'LazDocPat'
+'hEdit'#0#0#0#0#0#12'TButtonPanel'#11'ButtonPanel'#4'Left'#2#6#6'Height'#2'('
+#3'Top'#3#239#1#5'Width'#3#18#2#5'Align'#7#8'alBottom'#8'AutoSize'#9#8'TabOr'
+'der'#2#1#11'ShowButtons'#11#4'pbOK'#8'pbCancel'#6'pbHelp'#0#0#0#22'TSelectD'
+'irectoryDialog'#21'SelectDirectoryDialog'#11'FilterIndex'#2#0#4'left'#3#232
+#1#3'top'#2#8#0#0#0
]);

263
ide/environmentopts_dlg.pas
View File

@ -41,7 +41,7 @@ uses
LazarusIDEStrConsts, TransferMacros, LazConf, ExtToolDialog, IDEProcs,
IDEOptionDefs, InputHistory, EditorOptions, IDETranslations, ButtonPanel,
EnvironmentOpts,
options_files, options_desktop, options_oi;
options_files, options_desktop, options_window, options_formed, options_oi;
type
{ TEnvironmentOptionsDialog: EnvironmentOptionsDialog for environment options }
@ -82,47 +82,6 @@ type
LazDocPathsGroupBox: TGroupBox;
LazDocListBox: TListBox;
// window layout
WindowPositionsGroupBox: TGroupBox;
WindowPositionsListBox: TListBox;
WindowPositionsBox: TIDEWindowSetupLayoutComponent;
MinimizeAllOnMinimizeMainCheckBox: TCheckBox;
HideIDEOnRunCheckBox: TCheckBox;
// designer
GridGroupBox: TGroupBox;
ShowGridCheckBox: TCheckBox;
ShowBorderSpaceCheckBox: TCheckBox;
GridColorLabel: TLabel;
GridColorButton: TColorButton;
SnapToGridCheckBox: TCheckBox;
GridSizeXLabel: TLabel;
GridSizeXComboBox: TComboBox;
GridSizeYLabel: TLabel;
GridSizeYComboBox: TComboBox;
GuideLinesGroupBox: TGroupBox;
ShowGuideLinesCheckBox: TCheckBox;
SnapToGuideLinesCheckBox: TCheckBox;
GuideLineColorLeftTopLabel: TLabel;
GuideLineColorLeftTopButton: TColorButton;
GuideLineColorRightBottomLabel: TLabel;
GuideLineColorRightBottomButton: TColorButton;
FormEditMiscGroupBox: TGroupBox;
ShowComponentCaptionsCheckBox: TCheckBox;
ShowEditorHintsCheckBox: TCheckBox;
AutoCreateFormsOnOpenCheckBox: TCheckBox;
RightClickSelectsCheckBox: TCheckBox;
GrabberColorLabel: TLabel;
GrabberColorButton: TColorButton;
MarkerColorLabel: TLabel;
MarkerColorButton: TColorButton;
RubberbandGroupBox: TGroupBox;
RubberbandSelectColorLabel: TLabel;
RubberbandSelectColorButton: TColorButton;
RubberbandCreateColorLabel: TLabel;
RubberbandCreateColorButton: TColorButton;
RubberbandSelectsGrandChildsCheckBox: TCheckBox;
DesignerPaintLazyCheckBox: TCheckBox;
// backup
@ -151,7 +110,6 @@ type
procedure BakTypeRadioGroupClick(Sender: TObject);
procedure FormEditorPageResize(Sender: TObject);
procedure HelpButtonClick(Sender: TObject);
procedure LazDocAddPathButtonClick(Sender: TObject);
procedure LazDocBrowseButtonClick(Sender: TObject);
@ -159,15 +117,14 @@ type
procedure NotebookChangeBounds(Sender: TObject);
procedure OkButtonClick(Sender: TObject);
procedure CancelButtonClick(Sender: TObject);
procedure WindowPositionsListBoxSelectionChange(Sender: TObject;
User: boolean);
private
FOnLoadEnvironmentSettings: TOnLoadEnvironmentSettings;
FOnSaveEnvironmentSettings: TOnSaveEnvironmentSettings;
FLayouts: TIDEWindowLayoutList;
OIOptionsFrame: TOIOptionsFrame;
FilesOptionsFrame: TFilesOptionsFrame;
DesktopOptionsFrame: TDesktopOptionsFrame;
WindowOptionsFrame: TWindowOptionsFrame;
FormEditorOptionsFrame: TFormEditorOptionsFrame;
OIOptionsFrame: TOIOptionsFrame;
procedure SetupFrame(AFrame: TAbstractOptionsFrame; APage: TPage);
@ -180,7 +137,6 @@ type
procedure SetupBackupPage(Page: integer);
procedure SetupNamingPage(Page: integer);
procedure SetupLazDocPage(Page: integer);
procedure SetWindowPositionsItem(Index: integer);
function CheckValues: boolean;
procedure LoadEnvironmentSettings(Sender: TObject; AOptions: TEnvironmentOptions);
@ -237,40 +193,13 @@ end;
procedure TEnvironmentOptionsDialog.SetupDesktopPage(Page: integer);
begin
DesktopOptionsFrame := TDesktopOptionsFrame.Create(Self);
SetupFrame(DesktopOptionsFrame, DesktopPage);
SetupFrame(DesktopOptionsFrame, NoteBook.Page[Page]);
end;
procedure TEnvironmentOptionsDialog.SetupWindowsPage(Page: integer);
begin
NoteBook.Page[Page].Caption := dlgWindow;
// windows
MinimizeAllOnMinimizeMainCheckBox.Caption:=dlgMinimizeAllOnMinimizeMain;
HideIDEOnRunCheckBox.Caption:=dlgHideIDEOnRun;
// Window Positions
WindowPositionsGroupBox.Caption:=dlgWinPos;
with WindowPositionsListBox.Items do begin
BeginUpdate;
Add(dlgMainMenu);
Add(dlgSrcEdit);
Add(dlgMsgs);
Add(dlgObjInsp);
Add(lisMenuProjectInspector);
Add(lisCodeExplorer);
Add(lisMenuPackageGraph);
Add(dlgUnitDepCaption);
Add(lisMenuFPDocEditor);
EndUpdate;
end;
WindowPositionsBox:=TIDEWindowSetupLayoutComponent.Create(Self);
with WindowPositionsBox do begin
Name:='WindowPositionsBox';
Parent:=WindowPositionsGroupBox;
BorderSpacing.Around:=6;
Align:=alBottom;
AnchorToNeighbour(akTop,6,WindowPositionsListBox);
end;
WindowOptionsFrame := TWindowOptionsFrame.Create(Self);
SetupFrame(WindowOptionsFrame, NoteBook.Page[Page]);
end;
procedure TEnvironmentOptionsDialog.SetupBackupPage(Page: integer);
@ -384,11 +313,13 @@ procedure TEnvironmentOptionsDialog.SetupFrame(AFrame: TAbstractOptionsFrame; AP
begin
AFrame.Parent := APage;
AFrame.Anchors := [akLeft, akTop, akRight];
AFrame.Anchors := [akLeft, akTop, akRight, akBottom];
AFrame.AnchorSideLeft.Control := APage;
AFrame.AnchorSideTop.Control := APage;
AFrame.AnchorSideRight.Side := asrBottom;
AFrame.AnchorSideRight.Control := APage;
AFrame.AnchorSideBottom.Side := asrBottom;
AFrame.AnchorSideBottom.Control := APage;
AFrame.BorderSpacing.Around := 6;
AFrame.OnLoadEnvironmentSettings := @LoadEnvironmentSettings;
@ -403,7 +334,7 @@ end;
procedure TEnvironmentOptionsDialog.SetupFilesPage(Page: integer);
begin
FilesOptionsFrame := TFilesOptionsFrame.Create(Self);
SetupFrame(FilesOptionsFrame, FilesPage);
SetupFrame(FilesOptionsFrame, NoteBook.Page[Page]);
end;
procedure TEnvironmentOptionsDialog.SetCategoryPage(const AValue: TEnvOptsDialogPage);
@ -423,68 +354,9 @@ begin
end;
procedure TEnvironmentOptionsDialog.SetupFormEditorPage(Page: integer);
procedure SetupGridGroupBox;
begin
ShowBorderSpaceCheckBox.Caption:=dlgQShowBorderSpacing;
ShowGridCheckBox.Caption:=dlgQShowGrid;
GridColorLabel.Caption:=dlgGridColor;
SnapToGridCheckBox.Caption:=dlgQSnapToGrid;
GridSizeXComboBox.Hint:=dlgGridXHint;
GridSizeXLabel.Caption:=dlgGridX;
GridSizeYComboBox.Hint:=dlgGridYHint;
GridSizeYLabel.Caption:=dlgGridY;
end;
procedure SetupGuideLinesGroupBox;
begin
ShowGuideLinesCheckBox.Caption:=dlgGuideLines;
SnapToGuideLinesCheckBox.Caption:=dlgSnapGuideLines;
GuideLineColorLeftTopLabel.Caption:=dlgLeftTopClr;
GuideLineColorRightBottomLabel.Caption:=dlgRightBottomClr;
end;
procedure SetupMiscGroupBox;
begin
ShowComponentCaptionsCheckBox.Caption:=dlgShowCaps;
ShowEditorHintsCheckBox.Caption:=dlgShowEdrHints;
AutoCreateFormsOnOpenCheckBox.Caption:=dlgAutoForm;
RightClickSelectsCheckBox.Caption:=dlgRightClickSelects;
GrabberColorLabel.Caption:=dlgGrabberColor;
MarkerColorLabel.Caption:=dlgMarkerColor;
with DesignerPaintLazyCheckBox do begin
Caption:=lisFEPaintDesignerItemsOnIdle;
Hint:=lisFEPaintDesignerItemsOnIdleReduceOverheadForSlowCompu;
end;
end;
procedure SetupRubberbandBox;
begin
RubberbandSelectColorLabel.Caption:=dlgRuberbandSelectionColor;
RubberbandCreateColorLabel.Caption:=dlgRuberbandCreationColor;
RubberbandSelectsGrandChildsCheckBox.Caption:=dlgRubberbandSelectsGrandChilds;
end;
begin
// EnvironmentOptionsDialog editor page
NoteBook.Page[Page].Caption := dlgFrmEditor;
GridGroupBox.Caption:=dlgEnvGrid;
SetupGridGroupBox;
GuideLinesGroupBox.Caption:=dlgEnvLGuideLines;
SetupGuideLinesGroupBox;
RubberbandGroupBox.Caption:=dlgRubberBandGroup;
SetupRubberbandBox;
FormEditMiscGroupBox.Caption:=dlgEnvMisc;
SetupMiscGroupBox;
FormEditorOptionsFrame := TFormEditorOptionsFrame.Create(Self);
SetupFrame(FormEditorOptionsFrame, NoteBook.Page[Page]);
end;
procedure TEnvironmentOptionsDialog.SetupNamingPage(Page: integer);
@ -558,15 +430,6 @@ begin
end;
end;
procedure TEnvironmentOptionsDialog.FormEditorPageResize(Sender: TObject);
var
w: Integer;
begin
w:=((FormEditorPage.ClientWidth-3*5)*5) div 10;
GridGroupBox.Width:=w;
FormEditMiscGroupBox.Width:=GridGroupBox.Width;
end;
procedure TEnvironmentOptionsDialog.HelpButtonClick(Sender: TObject);
begin
ShowContextHelpForIDE(Self);
@ -614,44 +477,20 @@ var
begin
with AnEnvironmentOptions do
begin
// Files
FilesOptionsFrame.ReadSettings(AnEnvironmentOptions);
// Desktop
DesktopOptionsFrame.ReadSettings(AnEnvironmentOptions);
// Window
FLayouts:=IDEWindowLayoutList;
SetWindowPositionsItem(0);
WindowOptionsFrame.ReadSettings(AnEnvironmentOptions);
// Object inspector
OIOptionsFrame.ReadSettings(AnEnvironmentOptions);
// window minimizing and hiding
MinimizeAllOnMinimizeMainCheckBox.Checked:=MinimizeAllOnMinimizeMain;
HideIDEOnRunCheckBox.Checked:=HideIDEOnRun;
// EnvironmentOptionsDialog editor
ShowBorderSpaceCheckBox.Checked:=ShowBorderSpacing;
ShowGridCheckBox.Checked:=ShowGrid;
GridColorButton.ButtonColor:=GridColor;
SnapToGridCheckBox.Checked:=SnapToGrid;
SetComboBoxText(GridSizeXComboBox,IntToStr(GridSizeX));
SetComboBoxText(GridSizeYComboBox,IntToStr(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;
// files
FilesOptionsFrame.ReadSettings(AnEnvironmentOptions);
// Form editor
FormEditorOptionsFrame.ReadSettings(AnEnvironmentOptions);
// backup
with BackupInfoProjectFiles do begin
@ -712,43 +551,20 @@ procedure TEnvironmentOptionsDialog.WriteSettings(AnEnvironmentOptions: TEnviron
begin
with AnEnvironmentOptions do
begin
// Files
FilesOptionsFrame.WriteSettings(AnEnvironmentOptions);
// Desktop
DesktopOptionsFrame.WriteSettings(AnEnvironmentOptions);
// Window
WindowPositionsBox.Save;
WindowOptionsFrame.WriteSettings(AnEnvironmentOptions);
// Object inspector
OIOptionsFrame.WriteSettings(AnEnvironmentOptions);
// window minimizing
MinimizeAllOnMinimizeMain:=MinimizeAllOnMinimizeMainCheckBox.Checked;
HideIDEOnRun:=HideIDEOnRunCheckBox.Checked;
// EnvironmentOptionsDialog editor
ShowBorderSpacing:=ShowBorderSpaceCheckBox.Checked;
ShowGrid:=ShowGridCheckBox.Checked;
GridColor:=GridColorButton.ButtonColor;
SnapToGrid:=SnapToGridCheckBox.Checked;
GridSizeX:=StrToIntDef(GridSizeXComboBox.Text,GridSizeX);
GridSizeY:=StrToIntDef(GridSizeYComboBox.Text,GridSizeY);
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;
// files
FilesOptionsFrame.WriteSettings(AnEnvironmentOptions);
// Form editor
FormEditorOptionsFrame.WriteSettings(AnEnvironmentOptions);
// backup
with BackupInfoProjectFiles do begin
@ -807,34 +623,7 @@ end;
procedure TEnvironmentOptionsDialog.SetupObjectInspectorPage(Page: integer);
begin
OIOptionsFrame := TOIOptionsFrame.Create(Self);
SetupFrame(OIOptionsFrame, ObjectInspectorPage);
end;
procedure TEnvironmentOptionsDialog.WindowPositionsListBoxSelectionChange(
Sender: TObject; User: boolean);
begin
if User then
SetWindowPositionsItem(WindowPositionsListBox.ItemIndex);
end;
procedure TEnvironmentOptionsDialog.SetWindowPositionsItem(Index: integer);
begin
if WindowPositionsBox.Layout<>nil then
WindowPositionsBox.Save;
WindowPositionsListBox.ItemIndex:=Index;
case Index of
0: WindowPositionsBox.Layout:=FLayouts.ItemByEnum(nmiwMainIDEName);
1: WindowPositionsBox.Layout:=FLayouts.ItemByEnum(nmiwSourceNoteBookName);
2: WindowPositionsBox.Layout:=FLayouts.ItemByEnum(nmiwMessagesViewName);
3: WindowPositionsBox.Layout:=FLayouts.ItemByFormID(DefaultObjectInspectorName);
4: WindowPositionsBox.Layout:=FLayouts.ItemByEnum(nmiwProjectInspector);
5: WindowPositionsBox.Layout:=FLayouts.ItemByEnum(nmiwCodeExplorerName);
6: WindowPositionsBox.Layout:=FLayouts.ItemByEnum(nmiwPkgGraphExplorer);
7: WindowPositionsBox.Layout:=FLayouts.ItemByEnum(nmiwUnitDependenciesName);
8: WindowPositionsBox.Layout:=FLayouts.ItemByEnum(nmiwFPDocEditorName);
end;
if Index>=0 then
WindowPositionsBox.Caption:=WindowPositionsListBox.Items[Index];
SetupFrame(OIOptionsFrame, NoteBook.Page[Page]);
end;
function TEnvironmentOptionsDialog.CheckValues: boolean;

491
ide/frames/options_formed.lfm Normal file
View File

@ -0,0 +1,491 @@
inherited FormEditorOptionsFrame: TFormEditorOptionsFrame
Height = 444
Width = 537
ClientHeight = 444
ClientWidth = 537
OnResize = FrameResize
TabOrder = 0
Visible = False
DesignLeft = 132
DesignTop = 174
object GridGroupBox: TGroupBox[0]
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
Height = 212
Width = 337
Caption = 'GridGroupBox'
ClientHeight = 194
ClientWidth = 333
TabOrder = 0
object GridColorLabel: TLabel
AnchorSideLeft.Control = GridGroupBox
AnchorSideTop.Control = GridSizeYLabel
AnchorSideTop.Side = asrBottom
Left = 6
Height = 14
Top = 119
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
Left = 6
Height = 14
Top = 71
Width = 70
BorderSpacing.Around = 6
Caption = 'GridSizeXLabel'
ParentColor = False
end
object GridSizeYLabel: TLabel
AnchorSideLeft.Control = GridGroupBox
AnchorSideTop.Control = GridSizeXLabel
AnchorSideTop.Side = asrBottom
Left = 6
Height = 14
Top = 95
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 = 115
Width = 50
BorderWidth = 2
ButtonColorSize = 16
Color = clBtnFace
end
object SnapToGridCheckBox: TCheckBox
AnchorSideLeft.Control = GridGroupBox
AnchorSideTop.Control = ShowBorderSpaceCheckBox
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = GridGroupBox
AnchorSideRight.Side = asrBottom
Left = 6
Height = 19
Top = 46
Width = 128
BorderSpacing.Left = 6
BorderSpacing.Top = 4
BorderSpacing.Right = 6
Caption = 'SnapToGridCheckBox'
TabOrder = 1
end
object ShowGridCheckBox: TCheckBox
AnchorSideLeft.Control = GridGroupBox
Left = 6
Height = 19
Width = 118
BorderSpacing.Left = 6
Caption = 'ShowGridCheckBox'
TabOrder = 0
end
object GridSizeXComboBox: TComboBox
AnchorSideLeft.Control = GridSizeXLabel
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = GridSizeXLabel
AnchorSideTop.Side = asrCenter
Left = 82
Height = 21
Top = 68
Width = 100
ItemHeight = 13
Items.Strings = (
'2'
'5'
'8'
'10'
'12'
'15'
'20'
'25'
'30'
)
MaxLength = -1
ParentShowHint = False
ShowHint = True
TabOrder = 2
end
object GridSizeYComboBox: TComboBox
AnchorSideLeft.Control = GridSizeYLabel
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = GridSizeYLabel
AnchorSideTop.Side = asrCenter
Left = 82
Height = 21
Top = 92
Width = 100
ItemHeight = 13
Items.Strings = (
'2'
'5'
'8'
'10'
'12'
'15'
'20'
'25'
'30'
)
MaxLength = -1
ParentShowHint = False
ShowHint = True
TabOrder = 3
end
object ShowBorderSpaceCheckBox: TCheckBox
AnchorSideLeft.Control = GridGroupBox
AnchorSideTop.Control = ShowGridCheckBox
AnchorSideTop.Side = asrBottom
Left = 6
Height = 19
Top = 23
Width = 160
BorderSpacing.Left = 6
BorderSpacing.Top = 4
Caption = 'ShowBorderSpaceCheckBox'
TabOrder = 4
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
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
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
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 = 19
Top = 104
Width = 178
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
Caption = 'RubberbandSelectsGrandChildsCheckBox'
TabOrder = 0
end
end
object FormEditMiscGroupBox: TGroupBox[2]
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = GridGroupBox
AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Height = 226
Top = 218
Width = 337
Anchors = [akTop, akLeft, akBottom]
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 = 94
Width = 50
BorderWidth = 2
ButtonColorSize = 16
Color = clBtnFace
end
object MarkerColorButton: TColorButton
AnchorSideLeft.Control = MarkerColorLabel
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = MarkerColorLabel
AnchorSideTop.Side = asrCenter
Left = 96
Height = 23
Top = 118
Width = 50
BorderWidth = 2
ButtonColorSize = 16
Color = clBtnFace
end
object GrabberColorLabel: TLabel
AnchorSideLeft.Control = FormEditMiscGroupBox
AnchorSideTop.Control = RightClickSelectsCheckBox
AnchorSideTop.Side = asrBottom
Left = 6
Height = 14
Top = 98
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 = 122
Width = 84
BorderSpacing.Top = 4
BorderSpacing.Around = 6
Caption = 'MarkerColorLabel'
ParentColor = False
end
object ShowComponentCaptionsCheckBox: TCheckBox
AnchorSideLeft.Control = FormEditMiscGroupBox
AnchorSideRight.Control = FormEditMiscGroupBox
AnchorSideRight.Side = asrBottom
Left = 6
Height = 19
Width = 196
BorderSpacing.Left = 6
BorderSpacing.Right = 6
Caption = 'ShowComponentCaptionsCheckBox'
TabOrder = 0
end
object ShowEditorHintsCheckBox: TCheckBox
AnchorSideLeft.Control = FormEditMiscGroupBox
AnchorSideTop.Control = ShowComponentCaptionsCheckBox
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = FormEditMiscGroupBox
AnchorSideRight.Side = asrBottom
Left = 6
Height = 19
Top = 23
Width = 151
BorderSpacing.Left = 6
BorderSpacing.Top = 4
BorderSpacing.Right = 6
Caption = 'ShowEditorHintsCheckBox'
TabOrder = 1
end
object AutoCreateFormsOnOpenCheckBox: TCheckBox
AnchorSideLeft.Control = FormEditMiscGroupBox
AnchorSideTop.Control = ShowEditorHintsCheckBox
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = FormEditMiscGroupBox
AnchorSideRight.Side = asrBottom
Left = 6
Height = 19
Top = 46
Width = 198
BorderSpacing.Left = 6
BorderSpacing.Top = 4
BorderSpacing.Right = 6
Caption = 'AutoCreateFormsOnOpenCheckBox'
TabOrder = 2
end
object RightClickSelectsCheckBox: TCheckBox
AnchorSideLeft.Control = FormEditMiscGroupBox
AnchorSideTop.Control = AutoCreateFormsOnOpenCheckBox
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = FormEditMiscGroupBox
AnchorSideRight.Side = asrBottom
Left = 6
Height = 19
Top = 69
Width = 153
BorderSpacing.Left = 6
BorderSpacing.Top = 4
Caption = 'RightClickSelectsCheckBox'
TabOrder = 3
end
object DesignerPaintLazyCheckBox: TCheckBox
AnchorSideLeft.Control = FormEditMiscGroupBox
AnchorSideTop.Control = MarkerColorLabel
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = FormEditMiscGroupBox
AnchorSideRight.Side = asrBottom
Left = 6
Height = 19
Top = 146
Width = 161
BorderSpacing.Top = 4
BorderSpacing.Around = 6
Caption = 'DesignerPaintLazyCheckBox'
ParentShowHint = False
ShowHint = True
TabOrder = 4
end
end
object GuideLinesGroupBox: TGroupBox[3]
AnchorSideLeft.Control = FormEditMiscGroupBox
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = RubberbandGroupBox
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 343
Height = 226
Top = 218
Width = 194
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
Color = clBtnFace
end
object GuideLineColorRightBottomButton: TColorButton
AnchorSideTop.Control = GuideLineColorRightBottomLabel
AnchorSideTop.Side = asrBottom
Left = 6
Height = 23
Top = 143
Width = 50
BorderWidth = 2
ButtonColorSize = 16
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
object ShowGuideLinesCheckBox: TCheckBox
AnchorSideLeft.Control = GuideLinesGroupBox
AnchorSideRight.Control = GuideLinesGroupBox
AnchorSideRight.Side = asrBottom
Left = 6
Height = 19
Width = 178
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
Caption = 'ShowGuideLinesCheckBox'
TabOrder = 0
end
object SnapToGuideLinesCheckBox: TCheckBox
AnchorSideLeft.Control = GuideLinesGroupBox
AnchorSideTop.Control = ShowGuideLinesCheckBox
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = GuideLinesGroupBox
AnchorSideRight.Side = asrBottom
Left = 6
Height = 19
Top = 25
Width = 178
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
Caption = 'SnapToGuideLinesCheckBox'
TabOrder = 1
end
end
end

182
ide/frames/options_formed.lrs Normal file
View File

@ -0,0 +1,182 @@
{ This is an automatically generated lazarus resource file }
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#132#0
+#9'DesignTop'#3#174#0#0#242#2#0#9'TGroupBox'#12'GridGroupBox'#22'AnchorSideL'
+'eft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#6'Height'#3#212
+#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'Ancho'
+'rSideLeft.Control'#7#12'GridGroupBox'#21'AnchorSideTop.Control'#7#14'GridSi'
+'zeYLabel'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#14#3
+'Top'#2'w'#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'GridSi'
+'zeXLabel'#22'AnchorSideLeft.Control'#7#12'GridGroupBox'#21'AnchorSideTop.Co'
+'ntrol'#7#18'SnapToGridCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Lef'
+'t'#2#6#6'Height'#2#14#3'Top'#2'G'#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#14'GridSizeXLabel'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6
+#6'Height'#2#14#3'Top'#2'_'#5'Width'#2'F'#17'BorderSpacing.Top'#2#4#20'Borde'
+'rSpacing.Around'#2#6#7'Caption'#6#14'GridSizeYLabel'#11'ParentColor'#8#0#0
+#12'TColorButton'#15'GridColorButton'#22'AnchorSideLeft.Control'#7#14'GridCo'
+'lorLabel'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7
+#14'GridColorLabel'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2'R'#6'Hei'
+'ght'#2#23#3'Top'#2's'#5'Width'#2'2'#11'BorderWidth'#2#2#15'ButtonColorSize'
+#2#16#5'Color'#7#9'clBtnFace'#0#0#9'TCheckBox'#18'SnapToGridCheckBox'#22'Anc'
+'horSideLeft.Control'#7#12'GridGroupBox'#21'AnchorSideTop.Control'#7#23'Show'
+'BorderSpaceCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRig'
+'ht.Control'#7#12'GridGroupBox'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Le'
+'ft'#2#6#6'Height'#2#19#3'Top'#2'.'#5'Width'#3#128#0#18'BorderSpacing.Left'#2
+#6#17'BorderSpacing.Top'#2#4#19'BorderSpacing.Right'#2#6#7'Caption'#6#18'Sna'
+'pToGridCheckBox'#8'TabOrder'#2#1#0#0#9'TCheckBox'#16'ShowGridCheckBox'#22'A'
+'nchorSideLeft.Control'#7#12'GridGroupBox'#4'Left'#2#6#6'Height'#2#19#5'Widt'
+'h'#2'v'#18'BorderSpacing.Left'#2#6#7'Caption'#6#16'ShowGridCheckBox'#8'TabO'
+'rder'#2#0#0#0#9'TComboBox'#17'GridSizeXComboBox'#22'AnchorSideLeft.Control'
+#7#14'GridSizeXLabel'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTo'
+'p.Control'#7#14'GridSizeXLabel'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Lef'
+'t'#2'R'#6'Height'#2#21#3'Top'#2'D'#5'Width'#2'd'#10'ItemHeight'#2#13#13'Ite'
+'ms.Strings'#1#6#1'2'#6#1'5'#6#1'8'#6#2'10'#6#2'12'#6#2'15'#6#2'20'#6#2'25'#6
+#2'30'#0#9'MaxLength'#2#255#14'ParentShowHint'#8#8'ShowHint'#9#8'TabOrder'#2
+#2#0#0#9'TComboBox'#17'GridSizeYComboBox'#22'AnchorSideLeft.Control'#7#14'Gr'
+'idSizeYLabel'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Contr'
+'ol'#7#14'GridSizeYLabel'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2'R'
+#6'Height'#2#21#3'Top'#2'\'#5'Width'#2'd'#10'ItemHeight'#2#13#13'Items.Strin'
+'gs'#1#6#1'2'#6#1'5'#6#1'8'#6#2'10'#6#2'12'#6#2'15'#6#2'20'#6#2'25'#6#2'30'#0
+#9'MaxLength'#2#255#14'ParentShowHint'#8#8'ShowHint'#9#8'TabOrder'#2#3#0#0#9
+'TCheckBox'#23'ShowBorderSpaceCheckBox'#22'AnchorSideLeft.Control'#7#12'Grid'
+'GroupBox'#21'AnchorSideTop.Control'#7#16'ShowGridCheckBox'#18'AnchorSideTop'
+'.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#19#3'Top'#2#23#5'Width'#3#160
+#0#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#4#7'Caption'#6#23'Show'
+'BorderSpaceCheckBox'#8'TabOrder'#2#4#0#0#0#242#2#1#9'TGroupBox'#18'Rubberba'
+'ndGroupBox'#22'AnchorSideLeft.Control'#7#12'GridGroupBox'#19'AnchorSideLeft'
+'.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#5'Owner'#23'AnchorSideRig'
+'ht.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3'W'
+#1#6'Height'#3#212#0#5'Width'#3#194#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akR'
+'ight'#0#18'BorderSpacing.Left'#2#6#7'Caption'#6#18'RubberbandGroupBox'#12'C'
+'lientHeight'#3#194#0#11'ClientWidth'#3#190#0#5'Color'#7#9'clBtnFace'#11'Par'
+'entColor'#8#8'TabOrder'#2#1#0#12'TColorButton'#27'RubberbandSelectColorButt'
+'on'#22'AnchorSideLeft.Control'#7#26'RubberbandSelectColorLabel'#21'AnchorSi'
+'deTop.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'BorderWi'
+'dth'#2#2#15'ButtonColorSize'#2#16#5'Color'#7#9'clBtnFace'#0#0#12'TColorButt'
+'on'#27'RubberbandCreateColorButton'#22'AnchorSideLeft.Control'#7#26'Rubberb'
+'andCreateColorLabel'#21'AnchorSideTop.Control'#7#26'RubberbandCreateColorLa'
+'bel'#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#5'Color'#7#9
,'clBtnFace'#0#0#6'TLabel'#26'RubberbandSelectColorLabel'#22'AnchorSideLeft.C'
+'ontrol'#7#18'RubberbandGroupBox'#21'AnchorSideTop.Control'#7#18'RubberbandG'
+'roupBox'#23'AnchorSideRight.Control'#7#18'RubberbandGroupBox'#20'AnchorSide'
+'Right.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'RubberbandSelectColorLabel'#11'ParentColor'#8#0#0#6'TLa'
+'bel'#26'RubberbandCreateColorLabel'#22'AnchorSideLeft.Control'#7#18'Rubberb'
+'andGroupBox'#21'AnchorSideTop.Control'#7#27'RubberbandSelectColorButton'#18
+'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#18'Rubberb'
+'andGroupBox'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2
+#14#3'Top'#2'7'#5'Width'#3#178#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'
+#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#26'RubberbandCreateColorLabel'
+#11'ParentColor'#8#0#0#9'TCheckBox$RubberbandSelectsGrandChildsCheckBox'#22
+'AnchorSideLeft.Control'#7#18'RubberbandGroupBox'#21'AnchorSideTop.Control'#7
+#27'RubberbandCreateColorButton'#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#19#3'Top'#2'h'#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'$RubberbandSelectsGrandChildsCheckBox'#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'GridGroupBox'#18'AnchorSideTop.Side'#7#9'asrBot'
+'tom'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7
+#5'Owner'#21'AnchorSideBottom.Side'#7#9'asrBottom'#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'Bor'
+'derSpacing.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'GrabberC'
+'olorButton'#22'AnchorSideLeft.Control'#7#17'GrabberColorLabel'#19'AnchorSid'
+'eLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#17'GrabberColorLabel'
+#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2'f'#6'Height'#2#23#3'Top'#2
+'^'#5'Width'#2'2'#11'BorderWidth'#2#2#15'ButtonColorSize'#2#16#5'Color'#7#9
+'clBtnFace'#0#0#12'TColorButton'#17'MarkerColorButton'#22'AnchorSideLeft.Con'
+'trol'#7#16'MarkerColorLabel'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'Anch'
+'orSideTop.Control'#7#16'MarkerColorLabel'#18'AnchorSideTop.Side'#7#9'asrCen'
+'ter'#4'Left'#2'`'#6'Height'#2#23#3'Top'#2'v'#5'Width'#2'2'#11'BorderWidth'#2
+#2#15'ButtonColorSize'#2#16#5'Color'#7#9'clBtnFace'#0#0#6'TLabel'#17'Grabber'
+'ColorLabel'#22'AnchorSideLeft.Control'#7#20'FormEditMiscGroupBox'#21'Anchor'
+'SideTop.Control'#7#25'RightClickSelectsCheckBox'#18'AnchorSideTop.Side'#7#9
+'asrBottom'#4'Left'#2#6#6'Height'#2#14#3'Top'#2'b'#5'Width'#2'Z'#17'BorderSp'
+'acing.Top'#2#4#20'BorderSpacing.Around'#2#6#7'Caption'#6#17'GrabberColorLab'
+'el'#11'ParentColor'#8#0#0#6'TLabel'#16'MarkerColorLabel'#22'AnchorSideLeft.'
+'Control'#7#20'FormEditMiscGroupBox'#21'AnchorSideTop.Control'#7#17'GrabberC'
+'olorLabel'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#14
+#3'Top'#2'z'#5'Width'#2'T'#17'BorderSpacing.Top'#2#4#20'BorderSpacing.Around'
+#2#6#7'Caption'#6#16'MarkerColorLabel'#11'ParentColor'#8#0#0#9'TCheckBox'#29
+'ShowComponentCaptionsCheckBox'#22'AnchorSideLeft.Control'#7#20'FormEditMisc'
+'GroupBox'#23'AnchorSideRight.Control'#7#20'FormEditMiscGroupBox'#20'AnchorS'
+'ideRight.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#19#5'Width'#3#196#0#18
+'BorderSpacing.Left'#2#6#19'BorderSpacing.Right'#2#6#7'Caption'#6#29'ShowCom'
+'ponentCaptionsCheckBox'#8'TabOrder'#2#0#0#0#9'TCheckBox'#23'ShowEditorHints'
+'CheckBox'#22'AnchorSideLeft.Control'#7#20'FormEditMiscGroupBox'#21'AnchorSi'
+'deTop.Control'#7#29'ShowComponentCaptionsCheckBox'#18'AnchorSideTop.Side'#7
+#9'asrBottom'#23'AnchorSideRight.Control'#7#20'FormEditMiscGroupBox'#20'Anch'
+'orSideRight.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#19#3'Top'#2#23#5'W'
+'idth'#3#151#0#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#4#19'Borde'
+'rSpacing.Right'#2#6#7'Caption'#6#23'ShowEditorHintsCheckBox'#8'TabOrder'#2#1
+#0#0#9'TCheckBox'#29'AutoCreateFormsOnOpenCheckBox'#22'AnchorSideLeft.Contro'
+'l'#7#20'FormEditMiscGroupBox'#21'AnchorSideTop.Control'#7#23'ShowEditorHint'
+'sCheckBox'#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#19#3'Top'#2'.'#5'Width'#3#198#0#18'BorderSpacing.Left'#2#6#17
+'BorderSpacing.Top'#2#4#19'BorderSpacing.Right'#2#6#7'Caption'#6#29'AutoCrea'
+'teFormsOnOpenCheckBox'#8'TabOrder'#2#2#0#0#9'TCheckBox'#25'RightClickSelect'
+'sCheckBox'#22'AnchorSideLeft.Control'#7#20'FormEditMiscGroupBox'#21'AnchorS'
+'ideTop.Control'#7#29'AutoCreateFormsOnOpenCheckBox'#18'AnchorSideTop.Side'#7
,#9'asrBottom'#23'AnchorSideRight.Control'#7#20'FormEditMiscGroupBox'#20'Anch'
+'orSideRight.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#19#3'Top'#2'E'#5'W'
+'idth'#3#153#0#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#4#7'Captio'
+'n'#6#25'RightClickSelectsCheckBox'#8'TabOrder'#2#3#0#0#9'TCheckBox'#25'Desi'
+'gnerPaintLazyCheckBox'#22'AnchorSideLeft.Control'#7#20'FormEditMiscGroupBox'
+#21'AnchorSideTop.Control'#7#16'MarkerColorLabel'#18'AnchorSideTop.Side'#7#9
+'asrBottom'#23'AnchorSideRight.Control'#7#20'FormEditMiscGroupBox'#20'Anchor'
+'SideRight.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#19#3'Top'#3#146#0#5
+'Width'#3#161#0#17'BorderSpacing.Top'#2#4#20'BorderSpacing.Around'#2#6#7'Cap'
+'tion'#6#25'DesignerPaintLazyCheckBox'#14'ParentShowHint'#8#8'ShowHint'#9#8
+'TabOrder'#2#4#0#0#0#242#2#3#9'TGroupBox'#18'GuideLinesGroupBox'#22'AnchorSi'
+'deLeft.Control'#7#20'FormEditMiscGroupBox'#19'AnchorSideLeft.Side'#7#9'asrB'
+'ottom'#21'AnchorSideTop.Control'#7#18'RubberbandGroupBox'#18'AnchorSideTop.'
+'Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRi'
+'ght.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7#5'Owner'#21'AnchorS'
+'ideBottom.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'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#6#7'Caption'#6#18'GuideL'
+'inesGroupBox'#12'ClientHeight'#3#208#0#11'ClientWidth'#3#190#0#8'TabOrder'#2
+#3#0#12'TColorButton'#27'GuideLineColorLeftTopButton'#21'AnchorSideTop.Contr'
+'ol'#7#26'GuideLineColorLeftTopLabel'#18'AnchorSideTop.Side'#7#9'asrBottom'#4
+'Left'#2#6#6'Height'#2#23#3'Top'#2'^'#5'Width'#2'2'#11'BorderWidth'#2#2#15'B'
+'uttonColorSize'#2#16#5'Color'#7#9'clBtnFace'#0#0#12'TColorButton'#31'GuideL'
+'ineColorRightBottomButton'#21'AnchorSideTop.Control'#7#30'GuideLineColorRig'
+'htBottomLabel'#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'ButtonColorSize'#2#16
+#5'Color'#7#9'clBtnFace'#0#0#6'TLabel'#26'GuideLineColorLeftTopLabel'#22'Anc'
+'horSideLeft.Control'#7#18'GuideLinesGroupBox'#23'AnchorSideRight.Control'#7
+#18'GuideLinesGroupBox'#20'AnchorSideRight.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'BorderSpacing.Around'#2#6#7'Caption'#6#26'GuideLineColorLeftT'
+'opLabel'#11'ParentColor'#8#0#0#6'TLabel'#30'GuideLineColorRightBottomLabel'
+#22'AnchorSideLeft.Control'#7#18'GuideLinesGroupBox'#21'AnchorSideTop.Contro'
+'l'#7#27'GuideLineColorLeftTopButton'#18'AnchorSideTop.Side'#7#9'asrBottom'
+#23'AnchorSideRight.Control'#7#18'GuideLinesGroupBox'#20'AnchorSideRight.Sid'
+'e'#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'GuideLineColorRightBottomLabel'#11'ParentColor'#8#0#0#9'TChec'
+'kBox'#22'ShowGuideLinesCheckBox'#22'AnchorSideLeft.Control'#7#18'GuideLines'
+'GroupBox'#23'AnchorSideRight.Control'#7#18'GuideLinesGroupBox'#20'AnchorSid'
+'eRight.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#19#5'Width'#3#178#0#7'A'
+'nchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Around'#2#6#7'C'
+'aption'#6#22'ShowGuideLinesCheckBox'#8'TabOrder'#2#0#0#0#9'TCheckBox'#24'Sn'
+'apToGuideLinesCheckBox'#22'AnchorSideLeft.Control'#7#18'GuideLinesGroupBox'
+#21'AnchorSideTop.Control'#7#22'ShowGuideLinesCheckBox'#18'AnchorSideTop.Sid'
+'e'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#18'GuideLinesGroupBox'#20'A'
+'nchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#19#3'Top'#2#25#5
+'Width'#3#178#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpaci'
+'ng.Around'#2#6#7'Caption'#6#24'SnapToGuideLinesCheckBox'#8'TabOrder'#2#1#0#0
+#0#0
]);

216
ide/frames/options_formed.pas Normal file
View File

@ -0,0 +1,216 @@
{
***************************************************************************
* *
* This source is free software; you can redistribute it and/or modify *
* it under the terms of the GNU General Public License as published by *
* the Free Software Foundation; either version 2 of the License, or *
* (at your option) any later version. *
* *
* This code is distributed in the hope that it will be useful, but *
* WITHOUT ANY WARRANTY; without even the implied warranty of *
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *
* General Public License for more details. *
* *
* A copy of the GNU General Public License is available on the World *
* Wide Web at <http://www.gnu.org/copyleft/gpl.html>. You can also *
* obtain it by writing to the Free Software Foundation, *
* Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *
* *
***************************************************************************
}
unit options_formed;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, LResources, Forms, StdCtrls, Dialogs,
EnvironmentOpts, LazarusIDEStrConsts;
type
{ TFormEditorOptionsFrame }
TFormEditorOptionsFrame = class(TAbstractOptionsFrame)
AutoCreateFormsOnOpenCheckBox: TCheckBox;
DesignerPaintLazyCheckBox: TCheckBox;
FormEditMiscGroupBox: TGroupBox;
GrabberColorButton: TColorButton;
GrabberColorLabel: TLabel;
GridColorButton: TColorButton;
GridColorLabel: TLabel;
GridGroupBox: TGroupBox;
GridSizeXComboBox: TComboBox;
GridSizeXLabel: TLabel;
GridSizeYComboBox: TComboBox;
GridSizeYLabel: TLabel;
GuideLineColorLeftTopButton: TColorButton;
GuideLineColorLeftTopLabel: TLabel;
GuideLineColorRightBottomButton: TColorButton;
GuideLineColorRightBottomLabel: TLabel;
GuideLinesGroupBox: TGroupBox;
MarkerColorButton: TColorButton;
MarkerColorLabel: TLabel;
RightClickSelectsCheckBox: TCheckBox;
RubberbandCreateColorButton: TColorButton;
RubberbandCreateColorLabel: TLabel;
RubberbandGroupBox: TGroupBox;
RubberbandSelectColorButton: TColorButton;
RubberbandSelectColorLabel: TLabel;
RubberbandSelectsGrandChildsCheckBox: TCheckBox;
ShowBorderSpaceCheckBox: TCheckBox;
ShowComponentCaptionsCheckBox: TCheckBox;
ShowEditorHintsCheckBox: TCheckBox;
ShowGridCheckBox: TCheckBox;
ShowGuideLinesCheckBox: TCheckBox;
SnapToGridCheckBox: TCheckBox;
SnapToGuideLinesCheckBox: TCheckBox;
procedure FrameResize(Sender: TObject);
private
public
function Check: Boolean; override;
function GetTitle: String; override;
procedure Setup; override;
procedure ReadSettings(AOptions: TEnvironmentOptions); override;
procedure WriteSettings(AOptions: TEnvironmentOptions); override;
end;
var
FormEditorOptionsFrame: TFormEditorOptionsFrame;
implementation
{ TFormEditorOptionsFrame }
function TFormEditorOptionsFrame.Check: Boolean;
begin
Result := True;
end;
function TFormEditorOptionsFrame.GetTitle: String;
begin
Result := dlgFrmEditor;
end;
procedure TFormEditorOptionsFrame.Setup;
procedure SetupGridGroupBox;
begin
ShowBorderSpaceCheckBox.Caption:=dlgQShowBorderSpacing;
ShowGridCheckBox.Caption:=dlgQShowGrid;
GridColorLabel.Caption:=dlgGridColor;
SnapToGridCheckBox.Caption:=dlgQSnapToGrid;
GridSizeXComboBox.Hint:=dlgGridXHint;
GridSizeXLabel.Caption:=dlgGridX;
GridSizeYComboBox.Hint:=dlgGridYHint;
GridSizeYLabel.Caption:=dlgGridY;
end;
procedure SetupGuideLinesGroupBox;
begin
ShowGuideLinesCheckBox.Caption:=dlgGuideLines;
SnapToGuideLinesCheckBox.Caption:=dlgSnapGuideLines;
GuideLineColorLeftTopLabel.Caption:=dlgLeftTopClr;
GuideLineColorRightBottomLabel.Caption:=dlgRightBottomClr;
end;
procedure SetupMiscGroupBox;
begin
ShowComponentCaptionsCheckBox.Caption:=dlgShowCaps;
ShowEditorHintsCheckBox.Caption:=dlgShowEdrHints;
AutoCreateFormsOnOpenCheckBox.Caption:=dlgAutoForm;
RightClickSelectsCheckBox.Caption:=dlgRightClickSelects;
GrabberColorLabel.Caption:=dlgGrabberColor;
MarkerColorLabel.Caption:=dlgMarkerColor;
with DesignerPaintLazyCheckBox do begin
Caption:=lisFEPaintDesignerItemsOnIdle;
Hint:=lisFEPaintDesignerItemsOnIdleReduceOverheadForSlowCompu;
end;
end;
procedure SetupRubberbandBox;
begin
RubberbandSelectColorLabel.Caption:=dlgRuberbandSelectionColor;
RubberbandCreateColorLabel.Caption:=dlgRuberbandCreationColor;
RubberbandSelectsGrandChildsCheckBox.Caption:=dlgRubberbandSelectsGrandChilds;
end;
begin
GridGroupBox.Caption := dlgEnvGrid;
SetupGridGroupBox;
GuideLinesGroupBox.Caption := dlgEnvLGuideLines;
SetupGuideLinesGroupBox;
RubberbandGroupBox.Caption := dlgRubberBandGroup;
SetupRubberbandBox;
FormEditMiscGroupBox.Caption := dlgEnvMisc;
SetupMiscGroupBox;
end;
procedure TFormEditorOptionsFrame.ReadSettings(AOptions: TEnvironmentOptions);
begin
with AOptions do
begin
ShowBorderSpaceCheckBox.Checked:=ShowBorderSpacing;
ShowGridCheckBox.Checked:=ShowGrid;
GridColorButton.ButtonColor:=GridColor;
SnapToGridCheckBox.Checked:=SnapToGrid;
SetComboBoxText(GridSizeXComboBox,IntToStr(GridSizeX));
SetComboBoxText(GridSizeYComboBox,IntToStr(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;
end;
end;
procedure TFormEditorOptionsFrame.WriteSettings(AOptions: TEnvironmentOptions);
begin
with AOptions do
begin
ShowBorderSpacing:=ShowBorderSpaceCheckBox.Checked;
ShowGrid:=ShowGridCheckBox.Checked;
GridColor:=GridColorButton.ButtonColor;
SnapToGrid:=SnapToGridCheckBox.Checked;
GridSizeX:=StrToIntDef(GridSizeXComboBox.Text,GridSizeX);
GridSizeY:=StrToIntDef(GridSizeYComboBox.Text,GridSizeY);
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;
end;
end;
procedure TFormEditorOptionsFrame.FrameResize(Sender: TObject);
var
w: Integer;
begin
w := ((ClientWidth - 3 * 5) * 5) div 10;
GridGroupBox.Width := w;
FormEditMiscGroupBox.Width := GridGroupBox.Width;
end;
initialization
{$I options_formed.lrs}
end.

62
ide/frames/options_window.lfm Normal file
View File

@ -0,0 +1,62 @@
inherited WindowOptionsFrame: TWindowOptionsFrame
Height = 396
Width = 463
ClientHeight = 396
ClientWidth = 463
TabOrder = 0
Visible = False
DesignLeft = 341
DesignTop = 201
object MinimizeAllOnMinimizeMainCheckBox: TCheckBox[0]
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
AnchorSideRight.Side = asrBottom
Height = 19
Width = 198
Caption = 'MinimizeAllOnMinimizeMainCheckBox'
Enabled = False
TabOrder = 0
end
object HideIDEOnRunCheckBox: TCheckBox[1]
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = MinimizeAllOnMinimizeMainCheckBox
AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom
Height = 19
Top = 19
Width = 144
Caption = 'HideIDEOnRunCheckBox'
TabOrder = 1
end
object WindowPositionsGroupBox: TGroupBox[2]
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = HideIDEOnRunCheckBox
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Height = 358
Top = 38
Width = 463
Anchors = [akTop, akLeft, akRight, akBottom]
Caption = 'WindowPositionsGroupBox'
ClientHeight = 340
ClientWidth = 459
TabOrder = 2
object WindowPositionsListBox: TListBox
AnchorSideLeft.Control = WindowPositionsGroupBox
AnchorSideTop.Control = WindowPositionsGroupBox
AnchorSideRight.Control = WindowPositionsGroupBox
AnchorSideRight.Side = asrBottom
Left = 6
Height = 100
Top = 6
Width = 447
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
OnSelectionChange = WindowPositionsListBoxSelectionChange
TabOrder = 0
end
end
end

29
ide/frames/options_window.lrs Normal file
View File

@ -0,0 +1,29 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TWindowOptionsFrame','FORMDATA',[
'TPF0'#241#19'TWindowOptionsFrame'#18'WindowOptionsFrame'#6'Height'#3#140#1#5
+'Width'#3#207#1#12'ClientHeight'#3#140#1#11'ClientWidth'#3#207#1#8'TabOrder'
+#2#0#7'Visible'#8#10'DesignLeft'#3'U'#1#9'DesignTop'#3#201#0#0#242#2#0#9'TCh'
+'eckBox!MinimizeAllOnMinimizeMainCheckBox'#22'AnchorSideLeft.Control'#7#5'Ow'
+'ner'#21'AnchorSideTop.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrB'
+'ottom'#6'Height'#2#19#5'Width'#3#198#0#7'Caption'#6'!MinimizeAllOnMinimizeM'
+'ainCheckBox'#7'Enabled'#8#8'TabOrder'#2#0#0#0#242#2#1#9'TCheckBox'#20'HideI'
+'DEOnRunCheckBox'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Con'
+'trol'#7'!MinimizeAllOnMinimizeMainCheckBox'#18'AnchorSideTop.Side'#7#9'asrB'
+'ottom'#20'AnchorSideRight.Side'#7#9'asrBottom'#6'Height'#2#19#3'Top'#2#19#5
+'Width'#3#144#0#7'Caption'#6#20'HideIDEOnRunCheckBox'#8'TabOrder'#2#1#0#0#242
+#2#2#9'TGroupBox'#23'WindowPositionsGroupBox'#22'AnchorSideLeft.Control'#7#5
+'Owner'#21'AnchorSideTop.Control'#7#20'HideIDEOnRunCheckBox'#18'AnchorSideTo'
+'p.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSide'
+'Right.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7#5'Owner'#21'Ancho'
+'rSideBottom.Side'#7#9'asrBottom'#6'Height'#3'f'#1#3'Top'#2'&'#5'Width'#3#207
+#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#7'Caption'#6#23
+'WindowPositionsGroupBox'#12'ClientHeight'#3'T'#1#11'ClientWidth'#3#203#1#8
+'TabOrder'#2#2#0#8'TListBox'#22'WindowPositionsListBox'#22'AnchorSideLeft.Co'
+'ntrol'#7#23'WindowPositionsGroupBox'#21'AnchorSideTop.Control'#7#23'WindowP'
+'ositionsGroupBox'#23'AnchorSideRight.Control'#7#23'WindowPositionsGroupBox'
+#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2'd'#3'Top'#2
+#6#5'Width'#3#191#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderS'
+'pacing.Around'#2#6#17'OnSelectionChange'#7'%WindowPositionsListBoxSelection'
+'Change'#8'TabOrder'#2#0#0#0#0#0
]);

155
ide/frames/options_window.pas Normal file
View File

@ -0,0 +1,155 @@
{
***************************************************************************
* *
* This source is free software; you can redistribute it and/or modify *
* it under the terms of the GNU General Public License as published by *
* the Free Software Foundation; either version 2 of the License, or *
* (at your option) any later version. *
* *
* This code is distributed in the hope that it will be useful, but *
* WITHOUT ANY WARRANTY; without even the implied warranty of *
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *
* General Public License for more details. *
* *
* A copy of the GNU General Public License is available on the World *
* Wide Web at <http://www.gnu.org/copyleft/gpl.html>. You can also *
* obtain it by writing to the Free Software Foundation, *
* Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *
* *
***************************************************************************
}
unit options_window;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, StdCtrls,
EnvironmentOpts, LazarusIDEStrConsts, IDEOptionDefs, ObjectInspector;
type
{ TWindowOptionsFrame }
TWindowOptionsFrame = class(TAbstractOptionsFrame)
HideIDEOnRunCheckBox: TCheckBox;
MinimizeAllOnMinimizeMainCheckBox: TCheckBox;
WindowPositionsGroupBox: TGroupBox;
WindowPositionsListBox: TListBox;
procedure WindowPositionsListBoxSelectionChange(Sender: TObject; User: boolean);
private
FLayouts: TIDEWindowLayoutList;
WindowPositionsBox: TIDEWindowSetupLayoutComponent;
procedure SetWindowPositionsItem(Index: integer);
public
function Check: Boolean; override;
function GetTitle: String; override;
procedure Setup; override;
procedure ReadSettings(AOptions: TEnvironmentOptions); override;
procedure WriteSettings(AOptions: TEnvironmentOptions); override;
end;
implementation
{ TWindowOptionsFrame }
function TWindowOptionsFrame.Check: Boolean;
begin
Result := True;
end;
function TWindowOptionsFrame.GetTitle: String;
begin
Result := dlgWindow;
end;
procedure TWindowOptionsFrame.Setup;
begin
// windows
MinimizeAllOnMinimizeMainCheckBox.Caption := dlgMinimizeAllOnMinimizeMain;
HideIDEOnRunCheckBox.Caption := dlgHideIDEOnRun;
// Window Positions
WindowPositionsGroupBox.Caption := dlgWinPos;
with WindowPositionsListBox.Items do
begin
BeginUpdate;
Add(dlgMainMenu);
Add(dlgSrcEdit);
Add(dlgMsgs);
Add(dlgObjInsp);
Add(lisMenuProjectInspector);
Add(lisCodeExplorer);
Add(lisMenuPackageGraph);
Add(dlgUnitDepCaption);
Add(lisMenuFPDocEditor);
EndUpdate;
end;
WindowPositionsBox := TIDEWindowSetupLayoutComponent.Create(Self);
with WindowPositionsBox do
begin
Name:='WindowPositionsBox';
Parent:=WindowPositionsGroupBox;
BorderSpacing.Around:=6;
Align:=alBottom;
AnchorToNeighbour(akTop,6,WindowPositionsListBox);
end;
end;
procedure TWindowOptionsFrame.ReadSettings(AOptions: TEnvironmentOptions);
begin
with AOptions do
begin
FLayouts := IDEWindowLayoutList;
SetWindowPositionsItem(0);
// window minimizing and hiding
MinimizeAllOnMinimizeMainCheckBox.Checked := MinimizeAllOnMinimizeMain;
HideIDEOnRunCheckBox.Checked := HideIDEOnRun;
end;
end;
procedure TWindowOptionsFrame.WriteSettings(AOptions: TEnvironmentOptions);
begin
with AOptions do
begin
WindowPositionsBox.Save;
// window minimizing
MinimizeAllOnMinimizeMain:=MinimizeAllOnMinimizeMainCheckBox.Checked;
HideIDEOnRun:=HideIDEOnRunCheckBox.Checked;
end;
end;
procedure TWindowOptionsFrame.WindowPositionsListBoxSelectionChange(
Sender: TObject; User: boolean);
begin
if User then
SetWindowPositionsItem(WindowPositionsListBox.ItemIndex);
end;
procedure TWindowOptionsFrame.SetWindowPositionsItem(Index: integer);
begin
if WindowPositionsBox.Layout <> nil then
WindowPositionsBox.Save;
WindowPositionsListBox.ItemIndex := Index;
case Index of
0: WindowPositionsBox.Layout := FLayouts.ItemByEnum(nmiwMainIDEName);
1: WindowPositionsBox.Layout := FLayouts.ItemByEnum(nmiwSourceNoteBookName);
2: WindowPositionsBox.Layout := FLayouts.ItemByEnum(nmiwMessagesViewName);
3: WindowPositionsBox.Layout := FLayouts.ItemByFormID(DefaultObjectInspectorName);
4: WindowPositionsBox.Layout := FLayouts.ItemByEnum(nmiwProjectInspector);
5: WindowPositionsBox.Layout := FLayouts.ItemByEnum(nmiwCodeExplorerName);
6: WindowPositionsBox.Layout := FLayouts.ItemByEnum(nmiwPkgGraphExplorer);
7: WindowPositionsBox.Layout := FLayouts.ItemByEnum(nmiwUnitDependenciesName);
8: WindowPositionsBox.Layout := FLayouts.ItemByEnum(nmiwFPDocEditorName);
end;
if Index >= 0 then
WindowPositionsBox.Caption:=WindowPositionsListBox.Items[Index];
end;
initialization
{$I options_window.lrs}
end.

18
ide/lazarus.lpi
View File

@ -41,7 +41,7 @@
<PackageName Value="SynEdit"/>
</Item4>
</RequiredPackages>
<Units Count="5">
<Units Count="7">
<Unit0>
<Filename Value="lazarus.pp"/>
<IsPartOfProject Value="True"/>
@ -77,6 +77,22 @@
<ResourceFilename Value="frames\options_desktop.lrs"/>
<UnitName Value="options_desktop"/>
</Unit4>
<Unit5>
<Filename Value="frames\options_window.pas"/>
<ComponentName Value="WindowOptionsFrame"/>
<IsPartOfProject Value="True"/>
<ResourceBaseClass Value="Frame"/>
<ResourceFilename Value="frames\options_window.lrs"/>
<UnitName Value="options_window"/>
</Unit5>
<Unit6>
<Filename Value="frames\options_formed.pas"/>
<ComponentName Value="FormEditorOptionsFrame"/>
<IsPartOfProject Value="True"/>
<ResourceBaseClass Value="Frame"/>
<ResourceFilename Value="frames\options_formed.lrs"/>
<UnitName Value="options_formed"/>
</Unit6>
</Units>
</ProjectOptions>
<CompilerOptions>