diff --git a/ide/frames/options_editor_general.lfm b/ide/frames/options_editor_general.lfm index bc1157a240..816b27bf10 100644 --- a/ide/frames/options_editor_general.lfm +++ b/ide/frames/options_editor_general.lfm @@ -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 diff --git a/ide/frames/options_editor_general.lrs b/ide/frames/options_editor_general.lrs index c4de40a13a..315424ebb9 100644 --- a/ide/frames/options_editor_general.lrs +++ b/ide/frames/options_editor_general.lrs @@ -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 ]); diff --git a/ide/frames/options_editor_general.pas b/ide/frames/options_editor_general.pas index 16df88fd28..6368227ed9 100644 --- a/ide/frames/options_editor_general.pas +++ b/ide/frames/options_editor_general.pas @@ -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); diff --git a/ide/lazarusidestrconsts.pas b/ide/lazarusidestrconsts.pas index 0e87be41f5..b54c9a776f 100644 --- a/ide/lazarusidestrconsts.pas +++ b/ide/lazarusidestrconsts.pas @@ -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';