ide: improve editor general options

git-svn-id: trunk@17581 -
This commit is contained in:
paul 2008-11-25 14:30:41 +00:00
parent c734f2f286
commit 43ca4f62a3
4 changed files with 737 additions and 306 deletions

View File

@ -1,19 +1,20 @@
inherited EditorGeneralOptionsFrame: TEditorGeneralOptionsFrame
Height = 504
Height = 516
Width = 454
ClientHeight = 504
ClientHeight = 516
ClientWidth = 454
TabOrder = 0
Visible = False
DesignLeft = 44
DesignTop = 58
DesignLeft = 962
DesignTop = 279
object BlockIndentLabel: TLabel[0]
AnchorSideLeft.Control = BlockIndentComboBox
AnchorSideLeft.Side = asrBottom
AnchorSideBottom.Control = BlockIndentComboBox
AnchorSideBottom.Side = asrCenter
Left = 106
Left = 112
Height = 14
Top = 459
Top = 201
Width = 82
HelpContext = 0
Anchors = [akLeft, akBottom]
@ -32,9 +33,9 @@ inherited EditorGeneralOptionsFrame: TEditorGeneralOptionsFrame
AnchorSideLeft.Side = asrBottom
AnchorSideBottom.Control = TabWidthsComboBox
AnchorSideBottom.Side = asrCenter
Left = 106
Left = 312
Height = 14
Top = 486
Top = 201
Width = 77
HelpContext = 0
Anchors = [akLeft, akBottom]
@ -53,9 +54,9 @@ inherited EditorGeneralOptionsFrame: TEditorGeneralOptionsFrame
AnchorSideLeft.Side = asrBottom
AnchorSideBottom.Control = BracketCombo
AnchorSideBottom.Side = asrCenter
Left = 106
Left = 112
Height = 14
Top = 432
Top = 492
Width = 62
HelpContext = 0
Anchors = [akLeft, akBottom]
@ -69,22 +70,158 @@ inherited EditorGeneralOptionsFrame: TEditorGeneralOptionsFrame
Caption = 'BracketLabel'
ParentColor = False
end
object EditorOptionsGroupBox: TCheckGroup[3]
object Bevel1: TBevel[3]
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
AnchorSideTop.Control = UndoGroupLabel
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = UndoGroupBox
Left = 120
Height = 3
Top = 6
Width = 334
HelpContext = 0
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 120
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
end
object UndoGroupLabel: TLabel[4]
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
Left = 0
Height = 397
Height = 14
Top = 0
Width = 80
HelpContext = 0
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Caption = 'UndoGroupLabel'
ParentColor = False
end
object UndoLimitLabel: TLabel[5]
AnchorSideLeft.Control = UndoLimitComboBox
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = UndoLimitComboBox
AnchorSideTop.Side = asrCenter
Left = 312
Height = 14
Top = 23
Width = 72
HelpContext = 0
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 6
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Caption = 'UndoLimitLabel'
ParentColor = False
end
object ScrollGroupLabel: TLabel[6]
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = GroupUndoCheckBox
AnchorSideTop.Side = asrBottom
Left = 0
Height = 14
Top = 67
Width = 80
HelpContext = 0
BorderSpacing.Left = 0
BorderSpacing.Top = 6
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Caption = 'ScrollGroupLabel'
ParentColor = False
end
object Bevel2: TBevel[7]
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = ScrollGroupLabel
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 120
Height = 3
Top = 73
Width = 334
HelpContext = 0
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 120
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
end
object IndentsTabsGroupLabel: TLabel[8]
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = ScrollPastEndLineCheckBox
AnchorSideTop.Side = asrBottom
Left = 0
Height = 14
Top = 134
Width = 115
HelpContext = 0
BorderSpacing.Left = 0
BorderSpacing.Top = 6
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Caption = 'IndentsTabsGroupLabel'
ParentColor = False
end
object Bevel3: TBevel[9]
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = IndentsTabsGroupLabel
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 120
Height = 3
Top = 140
Width = 334
HelpContext = 0
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 120
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
end
object EditorOptionsGroupBox: TCheckGroup[10]
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = TabWidthsComboBox
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = BracketCombo
Left = 0
Height = 258
Top = 225
Width = 454
HelpContext = 0
Align = alTop
Anchors = [akTop, akLeft, akRight, akBottom]
AutoFill = True
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Top = 6
BorderSpacing.Right = 0
BorderSpacing.Bottom = 6
BorderSpacing.Around = 0
@ -107,20 +244,21 @@ inherited EditorGeneralOptionsFrame: TEditorGeneralOptionsFrame
OnItemClick = EditorOptionsGroupBoxItemClick
TabOrder = 0
end
object BlockIndentComboBox: TComboBox[4]
object BlockIndentComboBox: TComboBox[11]
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = TabIndentBlocksCheckBox
AnchorSideTop.Side = asrBottom
AnchorSideBottom.Control = TabWidthsComboBox
Left = 0
Left = 6
Height = 21
Top = 456
Top = 198
Width = 100
HelpContext = 0
Anchors = [akLeft, akBottom]
AutoComplete = False
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Left = 6
BorderSpacing.Top = 3
BorderSpacing.Right = 0
BorderSpacing.Bottom = 6
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
@ -138,19 +276,19 @@ inherited EditorGeneralOptionsFrame: TEditorGeneralOptionsFrame
OnKeyDown = ComboboxOnKeyDown
TabOrder = 1
end
object TabWidthsComboBox: TComboBox[5]
AnchorSideLeft.Control = Owner
object TabWidthsComboBox: TComboBox[12]
AnchorSideLeft.Control = SmartTabsCheckBox
AnchorSideTop.Control = BlockIndentComboBox
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 0
Left = 206
Height = 21
Top = 483
Top = 198
Width = 100
HelpContext = 0
Anchors = [akLeft, akBottom]
AutoComplete = False
BorderSpacing.Left = 0
BorderSpacing.Top = 6
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
@ -170,17 +308,255 @@ inherited EditorGeneralOptionsFrame: TEditorGeneralOptionsFrame
OnKeyDown = ComboboxOnKeyDown
TabOrder = 2
end
object BracketCombo: TComboBox[6]
object UndoLimitComboBox: TComboBox[13]
AnchorSideLeft.Control = Owner
AnchorSideBottom.Control = BlockIndentComboBox
Left = 0
AnchorSideTop.Control = UndoGroupLabel
AnchorSideTop.Side = asrBottom
Left = 206
Height = 21
Top = 429
Top = 20
Width = 100
HelpContext = 0
AutoComplete = False
BorderSpacing.Left = 200
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 6
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Ctl3D = False
ItemHeight = 13
Items.Strings = (
'32767'
'4096'
'512'
)
ItemWidth = 0
OnChange = ComboboxOnChange
OnExit = ComboBoxOnExit
OnKeyDown = ComboboxOnKeyDown
TabOrder = 3
end
object GroupUndoCheckBox: TCheckBox[14]
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = UndoAfterSaveCheckBox
AnchorSideTop.Side = asrBottom
Left = 6
Height = 19
Top = 42
Width = 127
HelpContext = 0
BorderSpacing.Left = 6
BorderSpacing.Top = 3
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Caption = 'GroupUndoCheckBox'
OnChange = GroupUndoCheckBoxChange
TabOrder = 4
UseOnChange = False
end
object UndoAfterSaveCheckBox: TCheckBox[15]
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = UndoGroupLabel
AnchorSideTop.Side = asrBottom
Left = 6
Height = 19
Top = 20
Width = 147
HelpContext = 0
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Caption = 'UndoAfterSaveCheckBox'
TabOrder = 5
UseOnChange = False
end
object ScrollPastEndFileCheckBox: TCheckBox[16]
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = ScrollGroupLabel
AnchorSideTop.Side = asrBottom
Left = 6
Height = 19
Top = 87
Width = 153
HelpContext = 0
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Caption = 'ScrollPastEndFileCheckBox'
OnChange = ScrollPastEndFileCheckBoxChange
TabOrder = 6
UseOnChange = False
end
object ScrollPastEndLineCheckBox: TCheckBox[17]
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = ScrollPastEndFileCheckBox
AnchorSideTop.Side = asrBottom
Left = 6
Height = 19
Top = 109
Width = 156
HelpContext = 0
BorderSpacing.Left = 6
BorderSpacing.Top = 3
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Caption = 'ScrollPastEndLineCheckBox'
OnChange = ScrollPastEndLineCheckBoxChange
TabOrder = 7
UseOnChange = False
end
object ScrollByOneLessCheckBox: TCheckBox[18]
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = ScrollGroupLabel
AnchorSideTop.Side = asrBottom
Left = 206
Height = 19
Top = 87
Width = 151
HelpContext = 0
BorderSpacing.Left = 200
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 6
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Caption = 'ScrollByOneLessCheckBox'
OnChange = ScrollByOneLessCheckBoxChange
TabOrder = 8
UseOnChange = False
end
object HalfPageScrollCheckBox: TCheckBox[19]
AnchorSideLeft.Control = ScrollByOneLessCheckBox
AnchorSideTop.Control = ScrollPastEndLineCheckBox
Left = 206
Height = 19
Top = 109
Width = 141
HelpContext = 0
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Caption = 'HalfPageScrollCheckBox'
OnChange = HalfPageScrollCheckBoxChange
TabOrder = 9
UseOnChange = False
end
object AutoIndentCheckBox: TCheckBox[20]
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = IndentsTabsGroupLabel
AnchorSideTop.Side = asrBottom
Left = 6
Height = 19
Top = 154
Width = 128
HelpContext = 0
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Caption = 'AutoIndentCheckBox'
OnChange = AutoIndentCheckBoxChange
TabOrder = 10
UseOnChange = False
end
object TabIndentBlocksCheckBox: TCheckBox[21]
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = AutoIndentCheckBox
AnchorSideTop.Side = asrBottom
Left = 6
Height = 19
Top = 176
Width = 152
HelpContext = 0
BorderSpacing.Left = 6
BorderSpacing.Top = 3
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Caption = 'TabIndentBlocksCheckBox'
OnChange = TabIndentBlocksCheckBoxChange
TabOrder = 11
UseOnChange = False
end
object SmartTabsCheckBox: TCheckBox[22]
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = IndentsTabsGroupLabel
AnchorSideTop.Side = asrBottom
Left = 206
Height = 19
Top = 154
Width = 124
HelpContext = 0
BorderSpacing.Left = 200
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 6
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Caption = 'SmartTabsCheckBox'
OnChange = SmartTabsCheckBoxChange
TabOrder = 12
UseOnChange = False
end
object TabsToSpacesCheckBox: TCheckBox[23]
AnchorSideLeft.Control = SmartTabsCheckBox
AnchorSideTop.Control = TabIndentBlocksCheckBox
Left = 206
Height = 19
Top = 176
Width = 142
HelpContext = 0
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Caption = 'TabsToSpacesCheckBox'
OnChange = TabsToSpacesCheckBoxChange
TabOrder = 13
UseOnChange = False
end
object BracketCombo: TComboBox[24]
AnchorSideLeft.Control = Owner
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 21
Top = 489
Width = 100
HelpContext = 0
Anchors = [akLeft, akBottom]
AutoComplete = False
BorderSpacing.Left = 0
BorderSpacing.Left = 6
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 6
@ -194,126 +570,6 @@ inherited EditorGeneralOptionsFrame: TEditorGeneralOptionsFrame
OnExit = ComboBoxOnExit
OnKeyDown = ComboboxOnKeyDown
Style = csDropDownList
TabOrder = 3
end
object UndoGroupBox: TGroupBox[7]
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 260
Height = 101
Top = 403
Width = 194
HelpContext = 0
Anchors = [akRight, akBottom]
AutoSize = True
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Caption = 'UndoGroupBox'
ChildSizing.LeftRightSpacing = 0
ChildSizing.TopBottomSpacing = 0
ChildSizing.HorizontalSpacing = 0
ChildSizing.VerticalSpacing = 0
ChildSizing.ControlsPerLine = 0
ClientHeight = 83
ClientWidth = 190
Ctl3D = False
TabOrder = 4
object UndoLimitLabel: TLabel
AnchorSideLeft.Control = UndoLimitComboBox
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = UndoLimitComboBox
AnchorSideTop.Side = asrCenter
Left = 112
Height = 14
Top = 59
Width = 72
HelpContext = 0
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 6
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Caption = 'UndoLimitLabel'
ParentColor = False
end
object UndoAfterSaveCheckBox: TCheckBox
AnchorSideLeft.Control = UndoGroupBox
AnchorSideTop.Control = UndoGroupBox
Left = 6
Height = 19
Top = 6
Width = 147
HelpContext = 0
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Caption = 'UndoAfterSaveCheckBox'
TabOrder = 0
UseOnChange = False
end
object GroupUndoCheckBox: TCheckBox
AnchorSideLeft.Control = UndoGroupBox
AnchorSideTop.Control = UndoAfterSaveCheckBox
AnchorSideTop.Side = asrBottom
Left = 6
Height = 19
Top = 31
Width = 127
HelpContext = 0
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Caption = 'GroupUndoCheckBox'
OnChange = GroupUndoCheckBoxChange
TabOrder = 1
UseOnChange = False
end
object UndoLimitComboBox: TComboBox
AnchorSideLeft.Control = UndoGroupBox
AnchorSideTop.Control = GroupUndoCheckBox
AnchorSideTop.Side = asrBottom
Left = 6
Height = 21
Top = 56
Width = 100
HelpContext = 0
AutoComplete = False
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 6
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Ctl3D = False
ItemHeight = 13
Items.Strings = (
'32767'
'4096'
'512'
)
ItemWidth = 0
OnChange = ComboboxOnChange
OnExit = ComboBoxOnExit
OnKeyDown = ComboboxOnKeyDown
TabOrder = 2
end
TabOrder = 14
end
end

View File

@ -2,121 +2,222 @@
LazarusResources.Add('TEditorGeneralOptionsFrame','FORMDATA',[
'TPF0'#241#26'TEditorGeneralOptionsFrame'#25'EditorGeneralOptionsFrame'#6'Hei'
+'ght'#3#248#1#5'Width'#3#198#1#12'ClientHeight'#3#248#1#11'ClientWidth'#3#198
+#1#7'Visible'#8#10'DesignLeft'#2','#9'DesignTop'#2':'#0#242#2#0#6'TLabel'#16
+'BlockIndentLabel'#22'AnchorSideLeft.Control'#7#19'BlockIndentComboBox'#19'A'
+'nchorSideLeft.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7#19'BlockI'
+'ndentComboBox'#21'AnchorSideBottom.Side'#7#9'asrCenter'#4'Left'#2'j'#6'Heig'
+'ht'#2#14#3'Top'#3#203#1#5'Width'#2'R'#11'HelpContext'#2#0#7'Anchors'#11#6'a'
+'kLeft'#8'akBottom'#0#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19
+'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Arou'
+'nd'#2#6'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.C'
+'ellAlignVertical'#7#7'ccaFill'#7'Caption'#6#16'BlockIndentLabel'#11'ParentC'
+'olor'#8#0#0#242#2#1#6'TLabel'#14'TabWidthsLabel'#22'AnchorSideLeft.Control'
+#7#17'TabWidthsComboBox'#19'AnchorSideLeft.Side'#7#9'asrBottom'#24'AnchorSid'
+'eBottom.Control'#7#17'TabWidthsComboBox'#21'AnchorSideBottom.Side'#7#9'asrC'
+'enter'#4'Left'#2'j'#6'Height'#2#14#3'Top'#3#230#1#5'Width'#2'M'#11'HelpCont'
+'ext'#2#0#7'Anchors'#11#6'akLeft'#8'akBottom'#0#18'BorderSpacing.Left'#2#0#17
+'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'
+#2#0#20'BorderSpacing.Around'#2#6'!BorderSpacing.CellAlignHorizontal'#7#7'cc'
+'aFill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#7'Caption'#6#14'Tab'
+'WidthsLabel'#11'ParentColor'#8#0#0#242#2#2#6'TLabel'#12'BracketLabel'#22'An'
+'chorSideLeft.Control'#7#12'BracketCombo'#19'AnchorSideLeft.Side'#7#9'asrBot'
+'tom'#24'AnchorSideBottom.Control'#7#12'BracketCombo'#21'AnchorSideBottom.Si'
+'de'#7#9'asrCenter'#4'Left'#2'j'#6'Height'#2#14#3'Top'#3#176#1#5'Width'#2'>'
+#11'HelpContext'#2#0#7'Anchors'#11#6'akLeft'#8'akBottom'#0#18'BorderSpacing.'
+'Left'#2#0#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#0#20'BorderSp'
+'acing.Bottom'#2#0#20'BorderSpacing.Around'#2#6'!BorderSpacing.CellAlignHori'
+'ght'#3#4#2#5'Width'#3#198#1#12'ClientHeight'#3#4#2#11'ClientWidth'#3#198#1#8
+'TabOrder'#2#0#7'Visible'#8#10'DesignLeft'#3#194#3#9'DesignTop'#3#23#1#0#242
+#2#0#6'TLabel'#16'BlockIndentLabel'#22'AnchorSideLeft.Control'#7#19'BlockInd'
+'entComboBox'#19'AnchorSideLeft.Side'#7#9'asrBottom'#24'AnchorSideBottom.Con'
+'trol'#7#19'BlockIndentComboBox'#21'AnchorSideBottom.Side'#7#9'asrCenter'#4
+'Left'#2'p'#6'Height'#2#14#3'Top'#3#201#0#5'Width'#2'R'#11'HelpContext'#2#0#7
+'Anchors'#11#6'akLeft'#8'akBottom'#0#18'BorderSpacing.Left'#2#0#17'BorderSpa'
+'cing.Top'#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'B'
+'orderSpacing.Around'#2#6'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31
+'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#7'Caption'#6#16'BlockIndentLa'
+'bel'#11'ParentColor'#8#0#0#242#2#1#6'TLabel'#14'TabWidthsLabel'#22'AnchorSi'
+'deLeft.Control'#7#17'TabWidthsComboBox'#19'AnchorSideLeft.Side'#7#9'asrBott'
+'om'#24'AnchorSideBottom.Control'#7#17'TabWidthsComboBox'#21'AnchorSideBotto'
+'m.Side'#7#9'asrCenter'#4'Left'#3'8'#1#6'Height'#2#14#3'Top'#3#201#0#5'Width'
+#2'M'#11'HelpContext'#2#0#7'Anchors'#11#6'akLeft'#8'akBottom'#0#18'BorderSpa'
+'cing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#0#20'Bor'
+'derSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#6'!BorderSpacing.CellAlig'
+'nHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#7
+'Caption'#6#14'TabWidthsLabel'#11'ParentColor'#8#0#0#242#2#2#6'TLabel'#12'Br'
+'acketLabel'#22'AnchorSideLeft.Control'#7#12'BracketCombo'#19'AnchorSideLeft'
+'.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7#12'BracketCombo'#21'An'
+'chorSideBottom.Side'#7#9'asrCenter'#4'Left'#2'p'#6'Height'#2#14#3'Top'#3#236
+#1#5'Width'#2'>'#11'HelpContext'#2#0#7'Anchors'#11#6'akLeft'#8'akBottom'#0#18
+'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'#2
+#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#6'!BorderSpacing.'
+'CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7'c'
+'caFill'#7'Caption'#6#12'BracketLabel'#11'ParentColor'#8#0#0#242#2#3#6'TBeve'
+'l'#6'Bevel1'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'
+#7#14'UndoGroupLabel'#18'AnchorSideTop.Side'#7#9'asrCenter'#23'AnchorSideRig'
+'ht.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2'x'
+#6'Height'#2#3#3'Top'#2#6#5'Width'#3'N'#1#11'HelpContext'#2#0#7'Anchors'#11#5
+'akTop'#6'akLeft'#7'akRight'#0#18'BorderSpacing.Left'#2'x'#17'BorderSpacing.'
+'Top'#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'Border'
+'Spacing.Around'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'Bor'
+'derSpacing.CellAlignVertical'#7#7'ccaFill'#0#0#242#2#4#6'TLabel'#14'UndoGro'
+'upLabel'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#5
+'Owner'#4'Left'#2#0#6'Height'#2#14#3'Top'#2#0#5'Width'#2'P'#11'HelpContext'#2
+#0#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Rig'
+'ht'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#0'!BorderSp'
+'acing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'
+#7#7'ccaFill'#7'Caption'#6#14'UndoGroupLabel'#11'ParentColor'#8#0#0#242#2#5#6
+'TLabel'#14'UndoLimitLabel'#22'AnchorSideLeft.Control'#7#17'UndoLimitComboBo'
+'x'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#17'Un'
+'doLimitComboBox'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#3'8'#1#6'Hei'
+'ght'#2#14#3'Top'#2#23#5'Width'#2'H'#11'HelpContext'#2#0#18'BorderSpacing.Le'
+'ft'#2#0#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpac'
+'ing.Bottom'#2#0#20'BorderSpacing.Around'#2#6'!BorderSpacing.CellAlignHorizo'
+'ntal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#7'Capti'
+'on'#6#14'UndoLimitLabel'#11'ParentColor'#8#0#0#242#2#6#6'TLabel'#16'ScrollG'
+'roupLabel'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7
+#17'GroupUndoCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#0#6'H'
+'eight'#2#14#3'Top'#2'C'#5'Width'#2'P'#11'HelpContext'#2#0#18'BorderSpacing.'
+'Left'#2#0#17'BorderSpacing.Top'#2#6#19'BorderSpacing.Right'#2#0#20'BorderSp'
+'acing.Bottom'#2#0#20'BorderSpacing.Around'#2#0'!BorderSpacing.CellAlignHori'
+'zontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#7'Cap'
+'tion'#6#12'BracketLabel'#11'ParentColor'#8#0#0#242#2#3#11'TCheckGroup'#21'E'
+'ditorOptionsGroupBox'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTo'
+'p.Control'#7#5'Owner'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideR'
+'ight.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7#12'UndoGroupBox'#4
+'Left'#2#0#6'Height'#3#141#1#3'Top'#2#0#5'Width'#3#198#1#11'HelpContext'#2#0
+#5'Align'#7#5'alTop'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'
+#0#8'AutoFill'#9#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'Bor'
+'derSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#6#20'BorderSpacing.Around'
+'tion'#6#16'ScrollGroupLabel'#11'ParentColor'#8#0#0#242#2#7#6'TBevel'#6'Beve'
+'l2'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#16'Sc'
+'rollGroupLabel'#18'AnchorSideTop.Side'#7#9'asrCenter'#23'AnchorSideRight.Co'
+'ntrol'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2'x'#6'He'
+'ight'#2#3#3'Top'#2'I'#5'Width'#3'N'#1#11'HelpContext'#2#0#7'Anchors'#11#5'a'
+'kTop'#6'akLeft'#7'akRight'#0#18'BorderSpacing.Left'#2'x'#17'BorderSpacing.T'
+'op'#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderS'
+'pacing.Around'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'Bord'
,'erSpacing.CellAlignVertical'#7#7'ccaFill'#0#0#242#2#8#6'TLabel'#21'IndentsT'
+'absGroupLabel'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Contr'
+'ol'#7#25'ScrollPastEndLineCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4
+'Left'#2#0#6'Height'#2#14#3'Top'#3#134#0#5'Width'#2's'#11'HelpContext'#2#0#18
+'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#6#19'BorderSpacing.Right'#2
+#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#0'!BorderSpacing.'
+'CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7'c'
+'caFill'#7'Caption'#6#21'IndentsTabsGroupLabel'#11'ParentColor'#8#0#0#242#2#9
+#6'TBevel'#6'Bevel3'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.'
+'Control'#7#21'IndentsTabsGroupLabel'#18'AnchorSideTop.Side'#7#9'asrCenter'
+#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBott'
+'om'#4'Left'#2'x'#6'Height'#2#3#3'Top'#3#140#0#5'Width'#3'N'#1#11'HelpContex'
+'t'#2#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#18'BorderSpacing.Left'
+#2'x'#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpacing'
+'.Bottom'#2#0#20'BorderSpacing.Around'#2#0'!BorderSpacing.CellAlignHorizonta'
+'l'#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#0#0#242#2
+#10#11'TCheckGroup'#21'EditorOptionsGroupBox'#22'AnchorSideLeft.Control'#7#5
+'Owner'#21'AnchorSideTop.Control'#7#17'TabWidthsComboBox'#18'AnchorSideTop.S'
+'ide'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRig'
+'ht.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7#12'BracketCombo'#4'L'
+'eft'#2#0#6'Height'#3#2#1#3'Top'#3#225#0#5'Width'#3#198#1#11'HelpContext'#2#0
+#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#8'AutoFill'#9#18
+'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#6#19'BorderSpacing.Right'#2
+#0#20'BorderSpacing.Bottom'#2#6#20'BorderSpacing.Around'#2#0'!BorderSpacing.'
+'CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7'c'
+'caFill'#7'Caption'#6#21'EditorOptionsGroupBox'#28'ChildSizing.LeftRightSpac'
+'ing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'ChildSizing.HorizontalSpac'
+'ing'#2#0#27'ChildSizing.VerticalSpacing'#2#0#29'ChildSizing.EnlargeHorizont'
+'al'#7#24'crsHomogenousChildResize'#27'ChildSizing.EnlargeVertical'#7#24'crs'
+'HomogenousChildResize'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'
+#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7
+#29'cclTopToBottomThenLeftToRight'#27'ChildSizing.ControlsPerLine'#2#1#12'Co'
+'lumnLayout'#7#24'clVerticalThenHorizontal'#7'Columns'#2#2#5'Ctl3D'#8#11'OnI'
+'temClick'#7#30'EditorOptionsGroupBoxItemClick'#8'TabOrder'#2#0#0#0#242#2#11
+#9'TComboBox'#19'BlockIndentComboBox'#22'AnchorSideLeft.Control'#7#5'Owner'
+#21'AnchorSideTop.Control'#7#23'TabIndentBlocksCheckBox'#18'AnchorSideTop.Si'
+'de'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7#17'TabWidthsComboBox'#4'L'
+'eft'#2#6#6'Height'#2#21#3'Top'#3#198#0#5'Width'#2'd'#11'HelpContext'#2#0#12
+'AutoComplete'#8#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#3#19'Bor'
+'derSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'
+#2#0'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellA'
+'lignVertical'#7#7'ccaFill'#7'Caption'#6#21'EditorOptionsGroupBox'#28'ChildS'
+'izing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'ChildSi'
+'zing.HorizontalSpacing'#2#0#27'ChildSizing.VerticalSpacing'#2#0#29'ChildSiz'
+'ing.EnlargeHorizontal'#7#24'crsHomogenousChildResize'#27'ChildSizing.Enlarg'
+'eVertical'#7#24'crsHomogenousChildResize'#28'ChildSizing.ShrinkHorizontal'#7
+#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChilds'#18'C'
+'hildSizing.Layout'#7#29'cclTopToBottomThenLeftToRight'#27'ChildSizing.Contr'
+'olsPerLine'#2#1#12'ColumnLayout'#7#24'clVerticalThenHorizontal'#7'Columns'#2
+#2#5'Ctl3D'#8#11'OnItemClick'#7#30'EditorOptionsGroupBoxItemClick'#8'TabOrde'
+'r'#2#0#0#0#242#2#4#9'TComboBox'#19'BlockIndentComboBox'#22'AnchorSideLeft.C'
+'ontrol'#7#5'Owner'#24'AnchorSideBottom.Control'#7#17'TabWidthsComboBox'#4'L'
+'eft'#2#0#6'Height'#2#21#3'Top'#3#200#1#5'Width'#2'd'#11'HelpContext'#2#0#7
+'Anchors'#11#6'akLeft'#8'akBottom'#0#12'AutoComplete'#8#18'BorderSpacing.Lef'
+'t'#2#0#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpaci'
+'ng.Bottom'#2#6#20'BorderSpacing.Around'#2#0'!BorderSpacing.CellAlignHorizon'
+'tal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#5'Ctl3D'
+#8#10'ItemHeight'#2#13#13'Items.Strings'#1#6#1'1'#6#1'2'#6#1'4'#6#1'8'#0#9'I'
+'temWidth'#2#0#8'OnChange'#7#16'ComboboxOnChange'#6'OnExit'#7#14'ComboBoxOnE'
+'xit'#9'OnKeyDown'#7#17'ComboboxOnKeyDown'#8'TabOrder'#2#1#0#0#242#2#5#9'TCo'
+'mboBox'#17'TabWidthsComboBox'#22'AnchorSideLeft.Control'#7#5'Owner'#24'Anch'
+'orSideBottom.Control'#7#5'Owner'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4
+'Left'#2#0#6'Height'#2#21#3'Top'#3#227#1#5'Width'#2'd'#11'HelpContext'#2#0#7
+'Anchors'#11#6'akLeft'#8'akBottom'#0#12'AutoComplete'#8#18'BorderSpacing.Lef'
+'t'#2#0#17'BorderSpacing.Top'#2#6#19'BorderSpacing.Right'#2#0#20'BorderSpaci'
+'ng.Bottom'#2#0#20'BorderSpacing.Around'#2#0'!BorderSpacing.CellAlignHorizon'
+'tal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#5'Ctl3D'
+#8#10'ItemHeight'#2#13#13'Items.Strings'#1#6#1'1'#6#1'2'#6#1'4'#6#1'8'#0#9'I'
+'temWidth'#2#0#8'OnChange'#7#16'ComboboxOnChange'#6'OnExit'#7#14'ComboBoxOnE'
,'xit'#9'OnKeyDown'#7#17'ComboboxOnKeyDown'#8'TabOrder'#2#2#0#0#242#2#6#9'TCo'
+'mboBox'#12'BracketCombo'#22'AnchorSideLeft.Control'#7#5'Owner'#24'AnchorSid'
+'eBottom.Control'#7#19'BlockIndentComboBox'#4'Left'#2#0#6'Height'#2#21#3'Top'
+#3#173#1#5'Width'#2'd'#11'HelpContext'#2#0#7'Anchors'#11#6'akLeft'#8'akBotto'
+'m'#0#12'AutoComplete'#8#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0
+#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#6#20'BorderSpacing.A'
+'round'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacin'
+'g.CellAlignVertical'#7#7'ccaFill'#5'Ctl3D'#8#10'ItemHeight'#2#13#9'ItemWidt'
+'h'#2#0#8'OnChange'#7#16'ComboboxOnChange'#6'OnExit'#7#14'ComboBoxOnExit'#9
+'OnKeyDown'#7#17'ComboboxOnKeyDown'#5'Style'#7#14'csDropDownList'#8'TabOrder'
+#2#3#0#0#242#2#7#9'TGroupBox'#12'UndoGroupBox'#23'AnchorSideRight.Control'#7
+#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSideBottom.Contro'
+'l'#7#5'Owner'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#3#4#1#6'Heig'
+'ht'#2'e'#3'Top'#3#147#1#5'Width'#3#194#0#11'HelpContext'#2#0#7'Anchors'#11#7
+'akRight'#8'akBottom'#0#8'AutoSize'#9#18'BorderSpacing.Left'#2#0#17'BorderSp'
+'acing.Top'#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20
+'BorderSpacing.Around'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'
+#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#7'Caption'#6#12'UndoGroupB'
+'ox'#28'ChildSizing.LeftRightSpacing'#2#0#28'ChildSizing.TopBottomSpacing'#2
+#0#29'ChildSizing.HorizontalSpacing'#2#0#27'ChildSizing.VerticalSpacing'#2#0
+#27'ChildSizing.ControlsPerLine'#2#0#12'ClientHeight'#2'S'#11'ClientWidth'#3
+#190#0#5'Ctl3D'#8#8'TabOrder'#2#4#0#6'TLabel'#14'UndoLimitLabel'#22'AnchorSi'
+'deLeft.Control'#7#17'UndoLimitComboBox'#19'AnchorSideLeft.Side'#7#9'asrBott'
+'om'#21'AnchorSideTop.Control'#7#17'UndoLimitComboBox'#18'AnchorSideTop.Side'
+#7#9'asrCenter'#4'Left'#2'p'#6'Height'#2#14#3'Top'#2';'#5'Width'#2'H'#11'Hel'
+'pContext'#2#0#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'Borde'
+'rSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2
+'lignVertical'#7#7'ccaFill'#5'Ctl3D'#8#10'ItemHeight'#2#13#13'Items.Strings'
+#1#6#1'1'#6#1'2'#6#1'4'#6#1'8'#0#9'ItemWidth'#2#0#8'OnChange'#7#16'ComboboxO'
+'nChange'#6'OnExit'#7#14'ComboBoxOnExit'#9'OnKeyDown'#7#17'ComboboxOnKeyDown'
+#8'TabOrder'#2#1#0#0#242#2#12#9'TComboBox'#17'TabWidthsComboBox'#22'AnchorSi'
+'deLeft.Control'#7#17'SmartTabsCheckBox'#21'AnchorSideTop.Control'#7#19'Bloc'
+'kIndentComboBox'#24'AnchorSideBottom.Control'#7#5'Owner'#21'AnchorSideBotto'
+'m.Side'#7#9'asrBottom'#4'Left'#3#206#0#6'Height'#2#21#3'Top'#3#198#0#5'Widt'
+'h'#2'd'#11'HelpContext'#2#0#12'AutoComplete'#8#18'BorderSpacing.Left'#2#0#17
+'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'
+#2#0#20'BorderSpacing.Around'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7'cc'
+'aFill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#5'Ctl3D'#8#10'ItemH'
+'eight'#2#13#13'Items.Strings'#1#6#1'1'#6#1'2'#6#1'4'#6#1'8'#0#9'ItemWidth'#2
+#0#8'OnChange'#7#16'ComboboxOnChange'#6'OnExit'#7#14'ComboBoxOnExit'#9'OnKey'
+'Down'#7#17'ComboboxOnKeyDown'#8'TabOrder'#2#2#0#0#242#2#13#9'TComboBox'#17
+'UndoLimitComboBox'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.C'
+'ontrol'#7#14'UndoGroupLabel'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#3
+#206#0#6'Height'#2#21#3'Top'#2#20#5'Width'#2'd'#11'HelpContext'#2#0#12'AutoC'
+'omplete'#8#18'BorderSpacing.Left'#3#200#0#17'BorderSpacing.Top'#2#0#19'Bord'
+'erSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2
+#6'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAli'
+'gnVertical'#7#7'ccaFill'#7'Caption'#6#14'UndoLimitLabel'#11'ParentColor'#8#0
+#0#9'TCheckBox'#21'UndoAfterSaveCheckBox'#22'AnchorSideLeft.Control'#7#12'Un'
+'doGroupBox'#21'AnchorSideTop.Control'#7#12'UndoGroupBox'#4'Left'#2#6#6'Heig'
+'ht'#2#19#3'Top'#2#6#5'Width'#3#147#0#11'HelpContext'#2#0#18'BorderSpacing.L'
+'eft'#2#6#17'BorderSpacing.Top'#2#6#19'BorderSpacing.Right'#2#0#20'BorderSpa'
+'cing.Bottom'#2#0#20'BorderSpacing.Around'#2#0'!BorderSpacing.CellAlignHoriz'
+'ontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#7'Capt'
+'ion'#6#21'UndoAfterSaveCheckBox'#8'TabOrder'#2#0#11'UseOnChange'#8#0#0#9'TC'
+'heckBox'#17'GroupUndoCheckBox'#22'AnchorSideLeft.Control'#7#12'UndoGroupBox'
+#21'AnchorSideTop.Control'#7#21'UndoAfterSaveCheckBox'#18'AnchorSideTop.Side'
+#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#19#3'Top'#2#31#5'Width'#2''#11'Help'
+'Context'#2#0#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#6#19'Border'
+'Spacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#0
+'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlign'
+'Vertical'#7#7'ccaFill'#7'Caption'#6#17'GroupUndoCheckBox'#8'OnChange'#7#23
+'GroupUndoCheckBoxChange'#8'TabOrder'#2#1#11'UseOnChange'#8#0#0#9'TComboBox'
+#17'UndoLimitComboBox'#22'AnchorSideLeft.Control'#7#12'UndoGroupBox'#21'Anch'
+'orSideTop.Control'#7#17'GroupUndoCheckBox'#18'AnchorSideTop.Side'#7#9'asrBo'
+'ttom'#4'Left'#2#6#6'Height'#2#21#3'Top'#2'8'#5'Width'#2'd'#11'HelpContext'#2
+#0#12'AutoComplete'#8#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19
+'gnVertical'#7#7'ccaFill'#5'Ctl3D'#8#10'ItemHeight'#2#13#13'Items.Strings'#1
+#6#5'32767'#6#4'4096'#6#3'512'#0#9'ItemWidth'#2#0#8'OnChange'#7#16'ComboboxO'
+'nChange'#6'OnExit'#7#14'ComboBoxOnExit'#9'OnKeyDown'#7#17'ComboboxOnKeyDown'
,#8'TabOrder'#2#3#0#0#242#2#14#9'TCheckBox'#17'GroupUndoCheckBox'#22'AnchorSi'
+'deLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#21'UndoAfterSaveChec'
+'kBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#19#3'To'
+'p'#2'*'#5'Width'#2''#11'HelpContext'#2#0#18'BorderSpacing.Left'#2#6#17'Bor'
+'derSpacing.Top'#2#3#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0
+#20'BorderSpacing.Around'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFil'
+'l'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#7'Caption'#6#17'GroupUn'
+'doCheckBox'#8'OnChange'#7#23'GroupUndoCheckBoxChange'#8'TabOrder'#2#4#11'Us'
+'eOnChange'#8#0#0#242#2#15#9'TCheckBox'#21'UndoAfterSaveCheckBox'#22'AnchorS'
+'ideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#14'UndoGroupLabel'
+#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#19#3'Top'#2#20
+#5'Width'#3#147#0#11'HelpContext'#2#0#18'BorderSpacing.Left'#2#6#17'BorderSp'
+'acing.Top'#2#6#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20
+'BorderSpacing.Around'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'
+#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#7'Caption'#6#21'UndoAfterS'
+'aveCheckBox'#8'TabOrder'#2#5#11'UseOnChange'#8#0#0#242#2#16#9'TCheckBox'#25
+'ScrollPastEndFileCheckBox'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorS'
+'ideTop.Control'#7#16'ScrollGroupLabel'#18'AnchorSideTop.Side'#7#9'asrBottom'
+#4'Left'#2#6#6'Height'#2#19#3'Top'#2'W'#5'Width'#3#153#0#11'HelpContext'#2#0
+#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#6#19'BorderSpacing.Right'
+#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#0'!BorderSpacin'
+'g.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7
+'ccaFill'#7'Caption'#6#25'ScrollPastEndFileCheckBox'#8'OnChange'#7#31'Scroll'
+'PastEndFileCheckBoxChange'#8'TabOrder'#2#6#11'UseOnChange'#8#0#0#242#2#17#9
+'TCheckBox'#25'ScrollPastEndLineCheckBox'#22'AnchorSideLeft.Control'#7#5'Own'
+'er'#21'AnchorSideTop.Control'#7#25'ScrollPastEndFileCheckBox'#18'AnchorSide'
+'Top.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#19#3'Top'#2'm'#5'Width'#3
+#156#0#11'HelpContext'#2#0#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2
+#3#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing'
+'.Around'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpac'
+'ing.CellAlignVertical'#7#7'ccaFill'#7'Caption'#6#25'ScrollPastEndLineCheckB'
+'ox'#8'OnChange'#7#31'ScrollPastEndLineCheckBoxChange'#8'TabOrder'#2#7#11'Us'
+'eOnChange'#8#0#0#242#2#18#9'TCheckBox'#23'ScrollByOneLessCheckBox'#22'Ancho'
+'rSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#16'ScrollGroupLab'
+'el'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#3#206#0#6'Height'#2#19#3
+'Top'#2'W'#5'Width'#3#151#0#11'HelpContext'#2#0#18'BorderSpacing.Left'#3#200
+#0#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bo'
+'ttom'#2#0#20'BorderSpacing.Around'#2#6'!BorderSpacing.CellAlignHorizontal'#7
+#7'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#7'Caption'#6#23
+'ScrollByOneLessCheckBox'#8'OnChange'#7#29'ScrollByOneLessCheckBoxChange'#8
+'TabOrder'#2#8#11'UseOnChange'#8#0#0#242#2#19#9'TCheckBox'#22'HalfPageScroll'
+'CheckBox'#22'AnchorSideLeft.Control'#7#23'ScrollByOneLessCheckBox'#21'Ancho'
+'rSideTop.Control'#7#25'ScrollPastEndLineCheckBox'#4'Left'#3#206#0#6'Height'
+#2#19#3'Top'#2'm'#5'Width'#3#141#0#11'HelpContext'#2#0#18'BorderSpacing.Left'
+#2#0#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpacing.'
+'Bottom'#2#0#20'BorderSpacing.Around'#2#0'!BorderSpacing.CellAlignHorizontal'
+#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#7'Caption'#6
+#22'HalfPageScrollCheckBox'#8'OnChange'#7#28'HalfPageScrollCheckBoxChange'#8
+'TabOrder'#2#9#11'UseOnChange'#8#0#0#242#2#20#9'TCheckBox'#18'AutoIndentChec'
+'kBox'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#21
+'IndentsTabsGroupLabel'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6
+'Height'#2#19#3'Top'#3#154#0#5'Width'#3#128#0#11'HelpContext'#2#0#18'BorderS'
+'pacing.Left'#2#6#17'BorderSpacing.Top'#2#6#19'BorderSpacing.Right'#2#0#20'B'
+'orderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#0'!BorderSpacing.CellAl'
+'ignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'
+#7'Caption'#6#18'AutoIndentCheckBox'#8'OnChange'#7#24'AutoIndentCheckBoxChan'
+'ge'#8'TabOrder'#2#10#11'UseOnChange'#8#0#0#242#2#21#9'TCheckBox'#23'TabInde'
+'ntBlocksCheckBox'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Co'
+'ntrol'#7#18'AutoIndentCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Lef'
+'t'#2#6#6'Height'#2#19#3'Top'#3#176#0#5'Width'#3#152#0#11'HelpContext'#2#0#18
+'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#3#19'BorderSpacing.Right'#2
+#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#0'!BorderSpacing.'
+'CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7'c'
+'caFill'#7'Caption'#6#23'TabIndentBlocksCheckBox'#8'OnChange'#7#29'TabIndent'
,'BlocksCheckBoxChange'#8'TabOrder'#2#11#11'UseOnChange'#8#0#0#242#2#22#9'TCh'
+'eckBox'#17'SmartTabsCheckBox'#22'AnchorSideLeft.Control'#7#5'Owner'#21'Anch'
+'orSideTop.Control'#7#21'IndentsTabsGroupLabel'#18'AnchorSideTop.Side'#7#9'a'
+'srBottom'#4'Left'#3#206#0#6'Height'#2#19#3'Top'#3#154#0#5'Width'#2'|'#11'He'
+'lpContext'#2#0#18'BorderSpacing.Left'#3#200#0#17'BorderSpacing.Top'#2#0#19
+'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Arou'
+'nd'#2#6'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.C'
+'ellAlignVertical'#7#7'ccaFill'#5'Ctl3D'#8#10'ItemHeight'#2#13#13'Items.Stri'
+'ngs'#1#6#5'32767'#6#4'4096'#6#3'512'#0#9'ItemWidth'#2#0#8'OnChange'#7#16'Co'
+'mboboxOnChange'#6'OnExit'#7#14'ComboBoxOnExit'#9'OnKeyDown'#7#17'ComboboxOn'
+'KeyDown'#8'TabOrder'#2#2#0#0#0#0
+'ellAlignVertical'#7#7'ccaFill'#7'Caption'#6#17'SmartTabsCheckBox'#8'OnChang'
+'e'#7#23'SmartTabsCheckBoxChange'#8'TabOrder'#2#12#11'UseOnChange'#8#0#0#242
+#2#23#9'TCheckBox'#20'TabsToSpacesCheckBox'#22'AnchorSideLeft.Control'#7#17
+'SmartTabsCheckBox'#21'AnchorSideTop.Control'#7#23'TabIndentBlocksCheckBox'#4
+'Left'#3#206#0#6'Height'#2#19#3'Top'#3#176#0#5'Width'#3#142#0#11'HelpContext'
+#2#0#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'BorderSpacing.R'
+'ight'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#0'!Border'
+'Spacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVertica'
+'l'#7#7'ccaFill'#7'Caption'#6#20'TabsToSpacesCheckBox'#8'OnChange'#7#26'Tabs'
+'ToSpacesCheckBoxChange'#8'TabOrder'#2#13#11'UseOnChange'#8#0#0#242#2#24#9'T'
+'ComboBox'#12'BracketCombo'#22'AnchorSideLeft.Control'#7#5'Owner'#24'AnchorS'
+'ideBottom.Control'#7#5'Owner'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Le'
+'ft'#2#6#6'Height'#2#21#3'Top'#3#233#1#5'Width'#2'd'#11'HelpContext'#2#0#7'A'
+'nchors'#11#6'akLeft'#8'akBottom'#0#12'AutoComplete'#8#18'BorderSpacing.Left'
+#2#6#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpacing.'
+'Bottom'#2#6#20'BorderSpacing.Around'#2#0'!BorderSpacing.CellAlignHorizontal'
+#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#5'Ctl3D'#8#10
+'ItemHeight'#2#13#9'ItemWidth'#2#0#8'OnChange'#7#16'ComboboxOnChange'#6'OnEx'
+'it'#7#14'ComboBoxOnExit'#9'OnKeyDown'#7#17'ComboboxOnKeyDown'#5'Style'#7#14
+'csDropDownList'#8'TabOrder'#2#14#0#0#0
]);

View File

@ -34,24 +34,45 @@ type
{ TEditorGeneralOptionsFrame }
TEditorGeneralOptionsFrame = class(TAbstractIDEOptionsEditor)
Bevel1: TBevel;
Bevel2: TBevel;
Bevel3: TBevel;
BlockIndentComboBox: TComboBox;
BlockIndentLabel: TLabel;
BracketLabel: TLabel;
BracketCombo: TComboBox;
AutoIndentCheckBox: TCheckBox;
TabIndentBlocksCheckBox: TCheckBox;
SmartTabsCheckBox: TCheckBox;
TabsToSpacesCheckBox: TCheckBox;
HalfPageScrollCheckBox: TCheckBox;
ScrollPastEndFileCheckBox: TCheckBox;
ScrollPastEndLineCheckBox: TCheckBox;
ScrollByOneLessCheckBox: TCheckBox;
UndoGroupLabel: TLabel;
UndoAfterSaveCheckBox: TCheckBox;
GroupUndoCheckBox: TCheckBox;
EditorOptionsGroupBox: TCheckGroup;
UndoGroupBox: TGroupBox;
TabWidthsComboBox: TComboBox;
TabWidthsLabel: TLabel;
ScrollGroupLabel: TLabel;
IndentsTabsGroupLabel: TLabel;
UndoLimitComboBox: TComboBox;
UndoLimitLabel: TLabel;
procedure AutoIndentCheckBoxChange(Sender: TObject);
procedure ComboboxOnChange(Sender: TObject);
procedure ComboboxOnKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure EditorOptionsGroupBoxItemClick(Sender: TObject; Index: integer);
procedure ComboBoxOnExit(Sender: TObject);
procedure GroupUndoCheckBoxChange(Sender: TObject);
procedure HalfPageScrollCheckBoxChange(Sender: TObject);
procedure ScrollByOneLessCheckBoxChange(Sender: TObject);
procedure ScrollPastEndFileCheckBoxChange(Sender: TObject);
procedure ScrollPastEndLineCheckBoxChange(Sender: TObject);
procedure SmartTabsCheckBoxChange(Sender: TObject);
procedure TabIndentBlocksCheckBoxChange(Sender: TObject);
procedure TabsToSpacesCheckBoxChange(Sender: TObject);
public
PreviewEdits: array of TPreviewEditor;
procedure SetPreviewOption(AValue: Boolean; AnOption: TSynEditorOption);
@ -81,7 +102,6 @@ begin
begin
// selections
Items.Add(dlgAltSetClMode);
Items.Add(dlgAutoIdent);
// visual effects
Items.Add(dlgShowGutterHints);
//Items.Add(dlgShowScrollHint);
@ -91,20 +111,12 @@ begin
Items.Add(dlgDragDropEd);
Items.Add(dlgDropFiles);
// caret + scrolling + key navigation
Items.Add(dlgHalfPageScroll);
Items.Add(dlgKeepCursorX);
Items.Add(dlgPersistentCursor);
Items.Add(dlgCursorSkipsSelection);
Items.Add(dlgRightMouseMovesCursor);
Items.Add(dlgScrollByOneLess);
Items.Add(dlgScrollPastEndFile);
Items.Add(dlgScrollPastEndLine);
Items.Add(dlgHomeKeyJumpsToNearestStart);
Items.Add(dlgAlwaysVisibleCursor);
// tabs
Items.Add(dlgSmartTabs);
Items.Add(dlgTabsToSpaces);
Items.Add(dlgTabIndent);
// spaces
Items.Add(dlgTrimTrailingSpaces);
// mouse
@ -126,10 +138,24 @@ begin
TabWidthsLabel.Caption := dlgTabWidths;
// undo
UndoGroupBox.Caption := dlgUndoGroupOptions;
UndoGroupLabel.Caption := dlgUndoGroupOptions;
UndoAfterSaveCheckBox.Caption := dlgUndoAfterSave;
GroupUndoCheckBox.Caption := dlgGroupUndo;
UndoLimitLabel.Caption := dlgUndoLimit;
// scroll
ScrollGroupLabel.Caption := dlgScrollGroupOptions;
HalfPageScrollCheckBox.Caption := dlgHalfPageScroll;
ScrollByOneLessCheckBox.Caption := dlgScrollByOneLess;
ScrollPastEndFileCheckBox.Caption := dlgScrollPastEndFile;
ScrollPastEndLineCheckBox.Caption := dlgScrollPastEndLine;
// indents, tabs
IndentsTabsGroupLabel.Caption := dlgIndentsTabsGroupOptions;
AutoIndentCheckBox.Caption := dlgAutoIndent;
TabIndentBlocksCheckBox.Caption := dlgTabIndent;
SmartTabsCheckBox.Caption := dlgSmartTabs;
TabsToSpacesCheckBox.Caption := dlgTabsToSpaces;
end;
procedure TEditorGeneralOptionsFrame.ReadSettings(AOptions: TAbstractIDEOptions);
@ -141,20 +167,12 @@ begin
with EditorOptionsGroupBox do
begin
Checked[Items.IndexOf(dlgAltSetClMode)] := eoAltSetsColumnMode in SynEditOptions;
Checked[Items.IndexOf(dlgAutoIdent)] := eoAutoIndent in SynEditOptions;
Checked[Items.IndexOf(dlgDragDropEd)] := eoDragDropEditing in SynEditOptions;
Checked[Items.IndexOf(dlgDropFiles)] := eoDropFiles in SynEditOptions;
Checked[Items.IndexOf(dlgHalfPageScroll)] := eoHalfPageScroll in SynEditOptions;
Checked[Items.IndexOf(dlgKeepCursorX)] := eoKeepCaretX in SynEditOptions;
Checked[Items.IndexOf(dlgPersistentCursor)] := eoPersistentCaret in SynEditOptions;
Checked[Items.IndexOf(dlgRightMouseMovesCursor)] := eoRightMouseMovesCursor in SynEditOptions;
Checked[Items.IndexOf(dlgScrollByOneLess)] := eoScrollByOneLess in SynEditOptions;
Checked[Items.IndexOf(dlgScrollPastEndFile)] := eoScrollPastEoF in SynEditOptions;
Checked[Items.IndexOf(dlgScrollPastEndLine)] := eoScrollPastEoL in SynEditOptions;
Checked[Items.IndexOf(lisShowSpecialCharacters)] := eoShowSpecialChars in SynEditOptions;
Checked[Items.IndexOf(dlgSmartTabs)] := eoSmartTabs in SynEditOptions;
Checked[Items.IndexOf(dlgTabsToSpaces)] := eoTabsToSpaces in SynEditOptions;
Checked[Items.IndexOf(dlgTabIndent)] := eoTabIndent in SynEditOptions;
Checked[Items.IndexOf(dlgTrimTrailingSpaces)] := eoTrimTrailingSpaces in SynEditOptions;
Checked[Items.IndexOf(dlgDoubleClickLine)] := eoDoubleClickSelectsLine in SynEditOptions;
Checked[Items.IndexOf(dlgHomeKeyJumpsToNearestStart)] := eoEnhanceHomeKey in SynEditOptions;
@ -182,6 +200,18 @@ begin
GroupUndoCheckBox.Checked := eoGroupUndo in SynEditOptions;
SetComboBoxText(UndoLimitComboBox, IntToStr(UndoLimit));
// scroll
HalfPageScrollCheckBox.Checked := eoHalfPageScroll in SynEditOptions;
ScrollByOneLessCheckBox.Checked := eoScrollByOneLess in SynEditOptions;
ScrollPastEndFileCheckBox.Checked := eoScrollPastEoF in SynEditOptions;
ScrollPastEndLineCheckBox.Checked := eoScrollPastEoL in SynEditOptions;
// tabs, indents
AutoIndentCheckBox.Checked := eoAutoIndent in SynEditOptions;
TabIndentBlocksCheckBox.Checked := eoTabIndent in SynEditOptions;
SmartTabsCheckBox.Checked := eoSmartTabs in SynEditOptions;
TabsToSpacesCheckBox.Checked := eoTabsToSpaces in SynEditOptions;
for i := Low(PreviewEdits) to High(PreviewEdits) do
if PreviewEdits[i] <> nil then
GetSynEditPreviewSettings(PreviewEdits[i]);
@ -223,22 +253,14 @@ begin
with AOptions as TEditorOptions do
begin
UpdateOption(dlgAltSetClMode, eoAltSetsColumnMode);
UpdateOption(dlgAutoIdent, eoAutoIndent);
UpdateOption(dlgDoubleClickLine, eoDoubleClickSelectsLine);
UpdateOption(dlgDragDropEd, eoDragDropEditing);
UpdateOption(dlgDropFiles, eoDropFiles);
UpdateOption(dlgHomeKeyJumpsToNearestStart, eoEnhanceHomeKey);
UpdateOption(dlgHalfPageScroll, eoHalfPageScroll);
UpdateOption(dlgKeepCursorX, eoKeepCaretX);
UpdateOption(dlgPersistentCursor, eoPersistentCaret);
UpdateOption(dlgRightMouseMovesCursor, eoRightMouseMovesCursor);
UpdateOption(dlgScrollByOneLess, eoScrollByOneLess);
UpdateOption(dlgScrollPastEndFile, eoScrollPastEoF);
UpdateOption(dlgScrollPastEndLine, eoScrollPastEoL);
UpdateOption(lisShowSpecialCharacters, eoShowSpecialChars);
UpdateOption(dlgSmartTabs, eoSmartTabs);
UpdateOption(dlgTabsToSpaces, eoTabsToSpaces);
UpdateOption(dlgTabIndent, eoTabIndent);
UpdateOption(dlgTrimTrailingSpaces, eoTrimTrailingSpaces);
UpdateOption(dlgDoubleClickLine, eoDoubleClickSelectsLine);
UpdateOption(dlgHomeKeyJumpsToNearestStart, eoEnhanceHomeKey);
@ -265,10 +287,9 @@ begin
else
BracketCombo.ItemIndex := 0;
// undo
UndoAfterSave := UndoAfterSaveCheckBox.Checked;
UpdateOptionFromBool(GroupUndoCheckBox.Checked, eoGroupUndo);
i := StrToIntDef(UndoLimitComboBox.Text, 32767);
if i < 1 then
i := 1;
@ -276,6 +297,18 @@ begin
i := 32767;
UndoLimit := i;
// scroll
UpdateOptionFromBool(HalfPageScrollCheckBox.Checked, eoHalfPageScroll);
UpdateOptionFromBool(ScrollByOneLessCheckBox.Checked, eoScrollByOneLess);
UpdateOptionFromBool(ScrollPastEndFileCheckBox.Checked, eoScrollPastEoF);
UpdateOptionFromBool(ScrollPastEndLineCheckBox.Checked, eoScrollPastEoL);
// tabs, indents
UpdateOptionFromBool(AutoIndentCheckBox.Checked, eoAutoIndent);
UpdateOptionFromBool(TabIndentBlocksCheckBox.Checked, eoTabIndent);
UpdateOptionFromBool(SmartTabsCheckBox.Checked, eoSmartTabs);
UpdateOptionFromBool(TabsToSpacesCheckBox.Checked, eoTabsToSpaces);
i := StrToIntDef(TabWidthsComboBox.Text, 2);
if i < 1 then
i := 1;
@ -351,24 +384,16 @@ procedure TEditorGeneralOptionsFrame.EditorOptionsGroupBoxItemClick(
begin
SetOption(dlgAltSetClMode, eoAltSetsColumnMode);
SetOption(dlgAutoIdent, eoAutoIndent);
SetOption(dlgDoubleClickLine, eoDoubleClickSelectsLine);
SetOption(dlgDragDropEd, eoDragDropEditing);
SetOption(dlgDropFiles, eoDropFiles);
SetOption(dlgHomeKeyJumpsToNearestStart, eoEnhanceHomeKey);
SetOption(dlgHalfPageScroll, eoHalfPageScroll);
SetOption(dlgKeepCursorX, eoKeepCaretX);
SetOption(dlgPersistentCursor, eoPersistentCaret);
SetOption(dlgRightMouseMovesCursor, eoRightMouseMovesCursor);
// not for Preview: SetOption('NoSelectionCheckBox',eoNoSelection);
SetOption(dlgScrollByOneLess, eoScrollByOneLess);
SetOption(dlgScrollPastEndFile, eoScrollPastEoF);
SetOption(dlgScrollPastEndLine, eoScrollPastEoL);
SetOption(lisShowSpecialCharacters, eoShowSpecialChars);
//SetOption(dlgShowScrollHint, eoShowScrollHint);
SetOption(dlgSmartTabs, eoSmartTabs);
SetOption(dlgTabsToSpaces, eoTabsToSpaces);
SetOption(dlgTabIndent, eoTabIndent);
SetOption(dlgTrimTrailingSpaces, eoTrimTrailingSpaces);
SetOption2(dlgCursorSkipsSelection, eoCaretSkipsSelection);
@ -383,6 +408,11 @@ begin
ComboBoxOnExit(Sender);
end;
procedure TEditorGeneralOptionsFrame.AutoIndentCheckBoxChange(Sender: TObject);
begin
SetPreviewOption(AutoIndentCheckBox.Checked, eoAutoIndent);
end;
procedure TEditorGeneralOptionsFrame.ComboboxOnKeyDown(
Sender: TObject; var Key: Word; Shift: TShiftState);
begin
@ -433,6 +463,47 @@ begin
SetPreviewOption(GroupUndoCheckBox.Checked, eoGroupUndo);
end;
procedure TEditorGeneralOptionsFrame.HalfPageScrollCheckBoxChange(
Sender: TObject);
begin
SetPreviewOption(HalfPageScrollCheckBox.Checked, eoHalfPageScroll);
end;
procedure TEditorGeneralOptionsFrame.ScrollByOneLessCheckBoxChange(
Sender: TObject);
begin
SetPreviewOption(ScrollByOneLessCheckBox.Checked, eoScrollByOneLess);
end;
procedure TEditorGeneralOptionsFrame.ScrollPastEndFileCheckBoxChange(
Sender: TObject);
begin
SetPreviewOption(ScrollPastEndFileCheckBox.Checked, eoScrollPastEoF);
end;
procedure TEditorGeneralOptionsFrame.ScrollPastEndLineCheckBoxChange(
Sender: TObject);
begin
SetPreviewOption(ScrollPastEndLineCheckBox.Checked, eoScrollPastEoL);
end;
procedure TEditorGeneralOptionsFrame.SmartTabsCheckBoxChange(Sender: TObject);
begin
SetPreviewOption(SmartTabsCheckBox.Checked, eoSmartTabs);
end;
procedure TEditorGeneralOptionsFrame.TabIndentBlocksCheckBoxChange(
Sender: TObject);
begin
SetPreviewOption(TabIndentBlocksCheckBox.Checked, eoTabIndent);
end;
procedure TEditorGeneralOptionsFrame.TabsToSpacesCheckBoxChange(Sender: TObject
);
begin
SetPreviewOption(TabsToSpacesCheckBox.Checked, eoTabsToSpaces);
end;
constructor TEditorGeneralOptionsFrame.Create(AOwner: TComponent);
begin
inherited Create(AOwner);

View File

@ -1099,8 +1099,12 @@ resourcestring
lisLazarusPackage = 'Lazarus package';
lisLazarusProjectSource = 'Lazarus project source';
dlgAltSetClMode = 'Alt-Key sets column mode';
dlgUndoGroupOptions = 'Undo options:';
dlgScrollGroupOptions = 'Scroll options:';
dlgIndentsTabsGroupOptions = 'Indents/Tabs options:';
dlgAlwaysVisibleCursor = 'Always visible cursor';
dlgAutoIdent = 'Auto indent';
dlgAutoIndent = 'Auto indent';
dlgDragDropEd = 'Drag Drop editing';
dlgDropFiles = 'Drop files';
dlgGroupUndo = 'Group Undo';
@ -1121,7 +1125,6 @@ resourcestring
dlgTabsToSpaces = 'Tabs to spaces';
dlgTabIndent = 'Tab indents blocks';
dlgTrimTrailingSpaces = 'Trim trailing spaces';
dlgUndoGroupOptions = 'Undo options';
dlgUndoAfterSave = 'Undo after save';
dlgDoubleClickLine = 'Double click line';
dlgFindTextatCursor = 'Find text at cursor';