diff --git a/.gitattributes b/.gitattributes index 76f5b7d7c5..a6dec372e3 100644 --- a/.gitattributes +++ b/.gitattributes @@ -2386,9 +2386,6 @@ ide/editmsgscannersdlg.lfm svneol=native#text/plain ide/editmsgscannersdlg.lrs svneol=native#text/plain ide/editmsgscannersdlg.pas svneol=native#text/plain ide/editoroptions.pp svneol=native#text/pascal -ide/editoroptionsdlg.lfm svneol=native#text/plain -ide/editoroptionsdlg.lrs svneol=native#text/pascal -ide/editoroptionsdlg.pas svneol=native#text/pascal ide/emptymethodsdlg.lfm svneol=native#text/plain ide/emptymethodsdlg.lrs svneol=native#text/plain ide/emptymethodsdlg.pas svneol=native#text/plain diff --git a/ide/editoroptionsdlg.lfm b/ide/editoroptionsdlg.lfm deleted file mode 100644 index f8f2206bde..0000000000 --- a/ide/editoroptionsdlg.lfm +++ /dev/null @@ -1,1790 +0,0 @@ -object EditorOptionsForm: TEditorOptionsForm - Left = 322 - Height = 577 - Top = 149 - Width = 554 - ActiveControl = MainNotebook - Caption = 'EditorOptionsForm' - ClientHeight = 577 - ClientWidth = 554 - Constraints.MinHeight = 500 - Constraints.MinWidth = 420 - ParentFont = False - Position = poScreenCenter - LCLVersion = '0.9.27' - object MainNotebook: TNotebook - Height = 531 - Width = 554 - Align = alClient - BorderSpacing.Bottom = 6 - PageIndex = 3 - TabOrder = 0 - object GeneralPage: TPage - Caption = 'GeneralPage' - ClientWidth = 546 - ClientHeight = 505 - object BlockIndentLabel: TLabel - AnchorSideLeft.Control = BlockIndentComboBox - AnchorSideLeft.Side = asrBottom - AnchorSideBottom.Control = BlockIndentComboBox - AnchorSideBottom.Side = asrCenter - Left = 112 - Height = 14 - Top = 427 - Width = 82 - Anchors = [akLeft, akBottom] - BorderSpacing.Around = 6 - Caption = 'BlockIndentLabel' - ParentColor = False - end - object UndoLimitLabel: TLabel - AnchorSideLeft.Control = UndoLimitComboBox - AnchorSideLeft.Side = asrBottom - AnchorSideBottom.Control = UndoLimitComboBox - AnchorSideBottom.Side = asrCenter - Left = 112 - Height = 14 - Top = 454 - Width = 72 - Anchors = [akLeft, akBottom] - BorderSpacing.Around = 6 - Caption = 'UndoLimitLabel' - ParentColor = False - end - object TabWidthsLabel: TLabel - AnchorSideLeft.Control = TabWidthsComboBox - AnchorSideLeft.Side = asrBottom - AnchorSideBottom.Control = TabWidthsComboBox - AnchorSideBottom.Side = asrCenter - Left = 112 - Height = 14 - Top = 481 - Width = 77 - Anchors = [akLeft, akBottom] - BorderSpacing.Around = 6 - Caption = 'TabWidthsLabel' - ParentColor = False - end - object EditorOptionsGroupBox: TCheckGroup - AnchorSideRight.Side = asrBottom - AnchorSideBottom.Control = BlockIndentLabel - Left = 6 - Height = 409 - Top = 6 - Width = 534 - Align = alTop - Anchors = [akTop, akLeft, akRight, akBottom] - AutoFill = True - BorderSpacing.Bottom = 6 - BorderSpacing.Around = 6 - Caption = 'EditorOptionsGroupBox' - ChildSizing.LeftRightSpacing = 6 - ChildSizing.TopBottomSpacing = 6 - ChildSizing.EnlargeHorizontal = crsHomogenousChildResize - ChildSizing.EnlargeVertical = crsHomogenousChildResize - ChildSizing.ShrinkHorizontal = crsScaleChilds - ChildSizing.ShrinkVertical = crsScaleChilds - ChildSizing.Layout = cclTopToBottomThenLeftToRight - ChildSizing.ControlsPerLine = 1 - ColumnLayout = clVerticalThenHorizontal - Columns = 2 - OnItemClick = GeneralCheckBoxOnChange - TabOrder = 3 - end - object BlockIndentComboBox: TComboBox - AnchorSideBottom.Control = UndoLimitComboBox - Left = 6 - Height = 21 - Top = 424 - Width = 100 - Anchors = [akLeft, akBottom] - BorderSpacing.Around = 6 - ItemHeight = 13 - Items.Strings = ( - '1' - '2' - '4' - '8' - ) - MaxLength = -1 - OnChange = ComboBoxOnChange - OnExit = ComboBoxOnExit - OnKeyDown = ComboBoxOnKeyDown - TabOrder = 0 - end - object UndoLimitComboBox: TComboBox - AnchorSideBottom.Control = TabWidthsComboBox - Left = 6 - Height = 21 - Top = 451 - Width = 100 - Anchors = [akLeft, akBottom] - BorderSpacing.Around = 6 - ItemHeight = 13 - Items.Strings = ( - '32767' - '4096' - '512' - ) - MaxLength = -1 - OnChange = ComboBoxOnChange - OnExit = ComboBoxOnExit - OnKeyDown = ComboBoxOnKeyDown - TabOrder = 1 - end - object TabWidthsComboBox: TComboBox - AnchorSideBottom.Control = GeneralPage - AnchorSideBottom.Side = asrBottom - Left = 6 - Height = 21 - Top = 478 - Width = 100 - Anchors = [akLeft, akBottom] - BorderSpacing.Around = 6 - ItemHeight = 13 - Items.Strings = ( - '1' - '2' - '4' - '8' - ) - MaxLength = -1 - OnChange = ComboBoxOnChange - OnExit = ComboBoxOnExit - OnKeyDown = ComboBoxOnKeyDown - TabOrder = 2 - end - end - object DisplayPage: TPage - Caption = 'DisplayPage' - ClientWidth = 546 - ClientHeight = 505 - object MarginAndGutterGroupBox: TGroupBox - Left = 6 - Height = 128 - Top = 6 - Width = 534 - Align = alTop - BorderSpacing.Around = 6 - Caption = 'MarginAndGutterGroupBox' - ClientHeight = 128 - ClientWidth = 534 - TabOrder = 1 - object RightMarginLabel: TLabel - Left = 358 - Height = 14 - Top = 8 - Width = 83 - Caption = 'RightMarginLabel' - ParentColor = False - end - object RightMarginColorButton: TColorButton - Left = 246 - Height = 21 - Top = 34 - Width = 100 - BorderWidth = 2 - ButtonColorSize = 16 - Color = clBtnFace - OnColorChanged = RightMarginColorButtonColorChanged - end - object GutterColorButton: TColorButton - Left = 246 - Height = 21 - Top = 60 - Width = 100 - BorderWidth = 2 - ButtonColorSize = 16 - Color = clBtnFace - OnColorChanged = ColorButtonColorChanged - end - object RightMarginColorLabel: TLabel - Left = 358 - Height = 14 - Top = 32 - Width = 108 - Caption = 'RightMarginColorLabel' - ParentColor = False - end - object GutterColorLabel: TLabel - Left = 358 - Height = 14 - Top = 61 - Width = 82 - Caption = 'GutterColorLabel' - ParentColor = False - end - object ShowOnlyLineNumbersMultiplesOfLabel: TLabel - AnchorSideTop.Control = ShowLineNumbersCheckBox - AnchorSideTop.Side = asrBottom - Left = 6 - Height = 14 - Top = 81 - Width = 110 - BorderSpacing.Top = 6 - Caption = 'Every n-th line number' - ParentColor = False - end - object VisibleRightMarginCheckBox: TCheckBox - Left = 6 - Height = 19 - Top = 8 - Width = 159 - Caption = 'VisibleRightMarginCheckBox' - OnChange = GeneralCheckBoxOnChange - TabOrder = 0 - end - object VisibleGutterCheckBox: TCheckBox - Left = 6 - Height = 19 - Top = 32 - Width = 133 - Caption = 'VisibleGutterCheckBox' - OnChange = GeneralCheckBoxOnChange - TabOrder = 1 - end - object ShowLineNumbersCheckBox: TCheckBox - Left = 6 - Height = 19 - Top = 56 - Width = 160 - Caption = 'ShowLineNumbersCheckBox' - OnChange = GeneralCheckBoxOnChange - OnClick = ShowLineNumbersCheckBoxClick - TabOrder = 2 - end - object RightMarginComboBox: TComboBox - Left = 246 - Height = 21 - Top = 4 - Width = 100 - ItemHeight = 13 - Items.Strings = ( - '80' - '78' - '76' - ) - MaxLength = -1 - OnChange = ComboBoxOnChange - OnExit = ComboBoxOnExit - OnKeyDown = ComboBoxOnKeyDown - TabOrder = 3 - end - object ShowOnlyLineNumbersMultiplesOfSpinEdit: TSpinEdit - AnchorSideLeft.Control = ShowOnlyLineNumbersMultiplesOfLabel - AnchorSideLeft.Side = asrBottom - AnchorSideTop.Control = ShowOnlyLineNumbersMultiplesOfLabel - AnchorSideTop.Side = asrCenter - Left = 122 - Height = 23 - Top = 77 - Width = 54 - BorderSpacing.Left = 6 - MinValue = 1 - OnChange = GeneralCheckBoxOnChange - TabOrder = 4 - Value = 1 - end - end - object EditorFontGroupBox: TGroupBox - Left = 6 - Height = 145 - Top = 140 - Width = 534 - Align = alTop - AutoSize = True - BorderSpacing.Around = 6 - Caption = 'EditorFontGroupBox' - ClientHeight = 145 - ClientWidth = 534 - TabOrder = 0 - object EditorFontHeightLabel: TLabel - AnchorSideTop.Control = EditorFontHeightComboBox - AnchorSideTop.Side = asrCenter - Left = 116 - Height = 14 - Top = 36 - Width = 379 - Anchors = [akTop, akLeft, akRight] - BorderSpacing.Around = 6 - Caption = 'EditorFontHeightLabel' - ParentColor = False - end - object ExtraLineSpacingLabel: TLabel - AnchorSideTop.Control = ExtraLineSpacingComboBox - AnchorSideTop.Side = asrCenter - Left = 116 - Height = 14 - Top = 57 - Width = 379 - Anchors = [akTop, akLeft, akRight] - BorderSpacing.Around = 6 - Caption = 'ExtraLineSpacingLabel' - ParentColor = False - end - object ExtraCharSpacingLabel: TLabel - AnchorSideTop.Control = ExtraCharSpacingComboBox - AnchorSideTop.Side = asrCenter - Left = 116 - Height = 14 - Top = 78 - Width = 379 - Anchors = [akTop, akLeft, akRight] - BorderSpacing.Around = 6 - Caption = 'ExtraCharSpacingLabel' - ParentColor = False - end - object EditorFontComboBox: TComboBox - AnchorSideRight.Control = EditorFontButton - Left = 6 - Height = 21 - Top = 6 - Width = 461 - Anchors = [akTop, akLeft, akRight] - BorderSpacing.Around = 6 - ItemHeight = 13 - MaxLength = -1 - OnEditingDone = EditorFontComboBoxEditingDone - TabOrder = 0 - Text = 'EditorFontComboBox' - end - object EditorFontButton: TButton - Left = 473 - Height = 25 - Top = 6 - Width = 25 - Anchors = [akTop, akRight] - Caption = '...' - OnClick = EditorFontButtonClick - TabOrder = 1 - end - object EditorFontHeightComboBox: TComboBox - AnchorSideTop.Control = EditorFontComboBox - AnchorSideTop.Side = asrBottom - Left = 6 - Height = 21 - Top = 33 - Width = 100 - ItemHeight = 13 - Items.Strings = ( - '10' - '11' - '12' - '13' - '14' - '15' - '16' - '17' - '18' - ) - MaxLength = -1 - OnChange = ComboBoxOnChange - OnExit = ComboBoxOnExit - OnKeyDown = ComboBoxOnKeyDown - TabOrder = 2 - end - object ExtraLineSpacingComboBox: TComboBox - AnchorSideTop.Control = EditorFontHeightComboBox - AnchorSideTop.Side = asrBottom - Left = 6 - Height = 21 - Top = 54 - Width = 100 - ItemHeight = 13 - Items.Strings = ( - '0' - '1' - '2' - ) - MaxLength = -1 - OnChange = ComboBoxOnChange - OnExit = ComboBoxOnExit - OnKeyDown = ComboBoxOnKeyDown - TabOrder = 4 - end - object ExtraCharSpacingComboBox: TComboBox - AnchorSideTop.Control = ExtraLineSpacingComboBox - AnchorSideTop.Side = asrBottom - Left = 6 - Height = 21 - Top = 75 - Width = 100 - ItemHeight = 13 - Items.Strings = ( - '0' - '1' - '2' - ) - MaxLength = -1 - OnChange = ComboBoxOnChange - OnExit = ComboBoxOnExit - OnKeyDown = ComboBoxOnKeyDown - TabOrder = 3 - end - object DisableAntialiasingCheckBox: TCheckBox - AnchorSideTop.Control = ExtraCharSpacingComboBox - AnchorSideTop.Side = asrBottom - Left = 6 - Height = 19 - Top = 102 - Width = 518 - Align = alBottom - Anchors = [akTop, akLeft, akRight, akBottom] - BorderSpacing.Around = 6 - Caption = 'DisableAntialiasingCheckBox' - OnChange = GeneralCheckBoxOnChange - TabOrder = 5 - end - end - object DisplayPreview: TSynEdit - Left = 6 - Height = 208 - Top = 291 - Width = 534 - Align = alClient - BorderSpacing.Around = 6 - Font.Height = -16 - Font.Name = 'courier' - Font.Pitch = fpFixed - Font.Quality = fqNonAntialiased - ParentColor = False - ParentFont = False - TabOrder = 2 - Keystrokes = < - item - Command = 3 - ShortCut = 38 - end - item - Command = 103 - ShortCut = 8230 - end - item - Command = 211 - ShortCut = 16422 - end - item - Command = 4 - ShortCut = 40 - end - item - Command = 104 - ShortCut = 8232 - end - item - Command = 212 - ShortCut = 16424 - end - item - Command = 1 - ShortCut = 37 - end - item - Command = 101 - ShortCut = 8229 - end - item - Command = 5 - ShortCut = 16421 - end - item - Command = 105 - ShortCut = 24613 - end - item - Command = 2 - ShortCut = 39 - end - item - Command = 102 - ShortCut = 8231 - end - item - Command = 6 - ShortCut = 16423 - end - item - Command = 106 - ShortCut = 24615 - end - item - Command = 10 - ShortCut = 34 - end - item - Command = 110 - ShortCut = 8226 - end - item - Command = 14 - ShortCut = 16418 - end - item - Command = 114 - ShortCut = 24610 - end - item - Command = 9 - ShortCut = 33 - end - item - Command = 109 - ShortCut = 8225 - end - item - Command = 13 - ShortCut = 16417 - end - item - Command = 113 - ShortCut = 24609 - end - item - Command = 7 - ShortCut = 36 - end - item - Command = 107 - ShortCut = 8228 - end - item - Command = 15 - ShortCut = 16420 - end - item - Command = 115 - ShortCut = 24612 - end - item - Command = 8 - ShortCut = 35 - end - item - Command = 108 - ShortCut = 8227 - end - item - Command = 16 - ShortCut = 16419 - end - item - Command = 116 - ShortCut = 24611 - end - item - Command = 223 - ShortCut = 45 - end - item - Command = 201 - ShortCut = 16429 - end - item - Command = 604 - ShortCut = 8237 - end - item - Command = 502 - ShortCut = 46 - end - item - Command = 603 - ShortCut = 8238 - end - item - Command = 501 - ShortCut = 8 - end - item - Command = 501 - ShortCut = 8200 - end - item - Command = 504 - ShortCut = 16392 - end - item - Command = 601 - ShortCut = 32776 - end - item - Command = 602 - ShortCut = 40968 - end - item - Command = 509 - ShortCut = 13 - end - item - Command = 199 - ShortCut = 16449 - end - item - Command = 201 - ShortCut = 16451 - end - item - Command = 610 - ShortCut = 24649 - end - item - Command = 509 - ShortCut = 16461 - end - item - Command = 510 - ShortCut = 16462 - end - item - Command = 503 - ShortCut = 16468 - end - item - Command = 611 - ShortCut = 24661 - end - item - Command = 604 - ShortCut = 16470 - end - item - Command = 603 - ShortCut = 16472 - end - item - Command = 507 - ShortCut = 16473 - end - item - Command = 506 - ShortCut = 24665 - end - item - Command = 601 - ShortCut = 16474 - end - item - Command = 602 - ShortCut = 24666 - end - item - Command = 301 - ShortCut = 16432 - end - item - Command = 302 - ShortCut = 16433 - end - item - Command = 303 - ShortCut = 16434 - end - item - Command = 304 - ShortCut = 16435 - end - item - Command = 305 - ShortCut = 16436 - end - item - Command = 306 - ShortCut = 16437 - end - item - Command = 307 - ShortCut = 16438 - end - item - Command = 308 - ShortCut = 16439 - end - item - Command = 309 - ShortCut = 16440 - end - item - Command = 310 - ShortCut = 16441 - end - item - Command = 351 - ShortCut = 24624 - end - item - Command = 352 - ShortCut = 24625 - end - item - Command = 353 - ShortCut = 24626 - end - item - Command = 354 - ShortCut = 24627 - end - item - Command = 355 - ShortCut = 24628 - end - item - Command = 356 - ShortCut = 24629 - end - item - Command = 357 - ShortCut = 24630 - end - item - Command = 358 - ShortCut = 24631 - end - item - Command = 359 - ShortCut = 24632 - end - item - Command = 360 - ShortCut = 24633 - end - item - Command = 231 - ShortCut = 24654 - end - item - Command = 232 - ShortCut = 24643 - end - item - Command = 233 - ShortCut = 24652 - end - item - Command = 612 - ShortCut = 9 - end - item - Command = 613 - ShortCut = 8201 - end - item - Command = 250 - ShortCut = 24642 - end> - Lines.Strings = ( - 'DisplayPreview' - ) - ReadOnly = True - SelectedColor.OnChange = nil - OnSpecialLineMarkup = OnSpecialLineColors - OnStatusChange = DisplayPreviewStatusChange - end - end - object KeymappingPage: TPage - Caption = 'KeymappingPage' - ClientWidth = 546 - ClientHeight = 505 - object KeyMappingHelpLabel: TLabel - AnchorSideTop.Control = KeymappingPage - Left = 8 - Height = 14 - Top = 6 - Width = 105 - BorderSpacing.Left = 6 - BorderSpacing.Top = 6 - BorderSpacing.Right = 6 - Caption = 'KeyMappingHelpLabel' - ParentColor = False - end - object KeyMappingChooseSchemeButton: TButton - AnchorSideLeft.Control = KeymappingPage - AnchorSideTop.Control = KeymappingPage - AnchorSideBottom.Control = KeymappingPage - AnchorSideBottom.Side = asrBottom - Left = 6 - Height = 23 - Top = 476 - Width = 189 - Anchors = [akLeft, akBottom] - AutoSize = True - BorderSpacing.Around = 6 - Caption = 'KeyMappingChooseSchemeButton' - OnClick = KeyMappingChooseSchemeButtonClick - TabOrder = 0 - end - object KeyMappingConsistencyCheckButton: TButton - AnchorSideTop.Control = KeymappingPage - AnchorSideRight.Control = KeymappingPage - AnchorSideRight.Side = asrBottom - AnchorSideBottom.Control = KeymappingPage - AnchorSideBottom.Side = asrBottom - Left = 337 - Height = 23 - Top = 476 - Width = 203 - Anchors = [akRight, akBottom] - AutoSize = True - BorderSpacing.Around = 6 - Caption = 'KeyMappingConsistencyCheckButton' - OnClick = KeyMappingConsistencyCheckButtonClick - TabOrder = 1 - end - object KeyMappingTreeView: TTreeView - AnchorSideLeft.Control = KeymappingPage - AnchorSideTop.Control = KeyMappingFilterEdit - AnchorSideTop.Side = asrBottom - AnchorSideRight.Control = KeymappingPage - AnchorSideRight.Side = asrBottom - AnchorSideBottom.Control = KeyMappingFindKeyButton - Left = 6 - Height = 382 - Top = 59 - Width = 534 - Anchors = [akTop, akLeft, akRight, akBottom] - BorderSpacing.Around = 6 - DefaultItemHeight = 15 - ReadOnly = True - RowSelect = True - TabOrder = 2 - OnMouseUp = KeyMappingTreeViewMouseUp - Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoRowSelect, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoShowSeparators, tvoToolTips] - end - object KeyMappingFilterEdit: TEdit - AnchorSideLeft.Control = KeymappingPage - AnchorSideTop.Control = KeyMappingHelpLabel - AnchorSideTop.Side = asrBottom - AnchorSideRight.Control = KeymappingPage - AnchorSideRight.Side = asrBottom - Left = 6 - Height = 27 - Top = 26 - Width = 534 - Anchors = [akTop, akLeft, akRight] - AutoSize = True - BorderSpacing.Around = 6 - OnChange = KeyMappingFilterEditChange - OnEnter = KeyMappingFilterEditEnter - OnExit = KeyMappingFilterEditExit - TabOrder = 3 - Text = 'KeyMappingFilterEdit' - end - object KeyMappingFindKeyButton: TButton - AnchorSideLeft.Control = KeymappingPage - AnchorSideRight.Side = asrBottom - AnchorSideBottom.Control = KeyMappingChooseSchemeButton - Left = 6 - Height = 23 - Top = 447 - Width = 154 - Anchors = [akLeft, akBottom] - AutoSize = True - BorderSpacing.Around = 6 - Caption = 'KeyMappingFindKeyButton' - OnClick = KeyMappingFindKeyButtonClick - TabOrder = 4 - end - end - object ColorPage: TPage - Caption = 'ColorPage' - ClientWidth = 546 - ClientHeight = 505 - object LanguageLabel: TLabel - Left = 214 - Height = 14 - Top = 12 - Width = 73 - Caption = 'LanguageLabel' - ParentColor = False - end - object ColorSchemeLabel: TLabel - Left = 214 - Height = 14 - Top = 36 - Width = 88 - Caption = 'ColorSchemeLabel' - ParentColor = False - end - object FileExtensionsLabel: TLabel - Left = 214 - Height = 14 - Top = 60 - Width = 94 - Caption = 'FileExtensionsLabel' - ParentColor = False - end - object ColorElementLabel: TLabel - Left = 4 - Height = 14 - Top = 90 - Width = 89 - Caption = 'ColorElementLabel' - ParentColor = False - end - object LanguageComboBox: TComboBox - Left = 3 - Height = 21 - Top = 10 - Width = 200 - ItemHeight = 13 - MaxLength = -1 - OnChange = ComboBoxOnChange - OnExit = ComboBoxOnExit - OnKeyDown = ComboBoxOnKeyDown - TabOrder = 0 - Text = 'LanguageComboBox' - end - object ColorSchemeComboBox: TComboBox - Left = 3 - Height = 21 - Top = 34 - Width = 200 - ItemHeight = 13 - MaxLength = -1 - OnChange = ComboBoxOnChange - OnExit = ComboBoxOnExit - OnKeyDown = ComboBoxOnKeyDown - TabOrder = 1 - Text = 'ColorSchemeComboBox' - end - object FileExtensionsComboBox: TComboBox - Left = 3 - Height = 21 - Top = 58 - Width = 200 - ItemHeight = 13 - Items.Strings = ( - 'pp;pas;inc;lpr;lrs;dpr;dpk' - 'pp;pas;inc;lpr;lrs' - 'pp;pas;inc' - ) - MaxLength = -1 - OnChange = ComboBoxOnChange - OnExit = ComboBoxOnExit - OnKeyDown = ComboBoxOnKeyDown - TabOrder = 2 - end - object ColorPreview: TSynEdit - Left = 4 - Height = 123 - Top = 378 - Width = 538 - Align = alBottom - BorderSpacing.Around = 4 - Anchors = [akTop, akLeft, akRight, akBottom] - Font.Height = -16 - Font.Name = 'courier' - Font.Pitch = fpFixed - Font.Quality = fqNonAntialiased - ParentColor = False - ParentFont = False - TabOrder = 3 - OnMouseDown = ColorPreviewMouseUp - Keystrokes = < - item - Command = 3 - ShortCut = 38 - end - item - Command = 103 - ShortCut = 8230 - end - item - Command = 211 - ShortCut = 16422 - end - item - Command = 4 - ShortCut = 40 - end - item - Command = 104 - ShortCut = 8232 - end - item - Command = 212 - ShortCut = 16424 - end - item - Command = 1 - ShortCut = 37 - end - item - Command = 101 - ShortCut = 8229 - end - item - Command = 5 - ShortCut = 16421 - end - item - Command = 105 - ShortCut = 24613 - end - item - Command = 2 - ShortCut = 39 - end - item - Command = 102 - ShortCut = 8231 - end - item - Command = 6 - ShortCut = 16423 - end - item - Command = 106 - ShortCut = 24615 - end - item - Command = 10 - ShortCut = 34 - end - item - Command = 110 - ShortCut = 8226 - end - item - Command = 14 - ShortCut = 16418 - end - item - Command = 114 - ShortCut = 24610 - end - item - Command = 9 - ShortCut = 33 - end - item - Command = 109 - ShortCut = 8225 - end - item - Command = 13 - ShortCut = 16417 - end - item - Command = 113 - ShortCut = 24609 - end - item - Command = 7 - ShortCut = 36 - end - item - Command = 107 - ShortCut = 8228 - end - item - Command = 15 - ShortCut = 16420 - end - item - Command = 115 - ShortCut = 24612 - end - item - Command = 8 - ShortCut = 35 - end - item - Command = 108 - ShortCut = 8227 - end - item - Command = 16 - ShortCut = 16419 - end - item - Command = 116 - ShortCut = 24611 - end - item - Command = 223 - ShortCut = 45 - end - item - Command = 201 - ShortCut = 16429 - end - item - Command = 604 - ShortCut = 8237 - end - item - Command = 502 - ShortCut = 46 - end - item - Command = 603 - ShortCut = 8238 - end - item - Command = 501 - ShortCut = 8 - end - item - Command = 501 - ShortCut = 8200 - end - item - Command = 504 - ShortCut = 16392 - end - item - Command = 601 - ShortCut = 32776 - end - item - Command = 602 - ShortCut = 40968 - end - item - Command = 509 - ShortCut = 13 - end - item - Command = 199 - ShortCut = 16449 - end - item - Command = 201 - ShortCut = 16451 - end - item - Command = 610 - ShortCut = 24649 - end - item - Command = 509 - ShortCut = 16461 - end - item - Command = 510 - ShortCut = 16462 - end - item - Command = 503 - ShortCut = 16468 - end - item - Command = 611 - ShortCut = 24661 - end - item - Command = 604 - ShortCut = 16470 - end - item - Command = 603 - ShortCut = 16472 - end - item - Command = 507 - ShortCut = 16473 - end - item - Command = 506 - ShortCut = 24665 - end - item - Command = 601 - ShortCut = 16474 - end - item - Command = 602 - ShortCut = 24666 - end - item - Command = 301 - ShortCut = 16432 - end - item - Command = 302 - ShortCut = 16433 - end - item - Command = 303 - ShortCut = 16434 - end - item - Command = 304 - ShortCut = 16435 - end - item - Command = 305 - ShortCut = 16436 - end - item - Command = 306 - ShortCut = 16437 - end - item - Command = 307 - ShortCut = 16438 - end - item - Command = 308 - ShortCut = 16439 - end - item - Command = 309 - ShortCut = 16440 - end - item - Command = 310 - ShortCut = 16441 - end - item - Command = 351 - ShortCut = 24624 - end - item - Command = 352 - ShortCut = 24625 - end - item - Command = 353 - ShortCut = 24626 - end - item - Command = 354 - ShortCut = 24627 - end - item - Command = 355 - ShortCut = 24628 - end - item - Command = 356 - ShortCut = 24629 - end - item - Command = 357 - ShortCut = 24630 - end - item - Command = 358 - ShortCut = 24631 - end - item - Command = 359 - ShortCut = 24632 - end - item - Command = 360 - ShortCut = 24633 - end - item - Command = 231 - ShortCut = 24654 - end - item - Command = 232 - ShortCut = 24643 - end - item - Command = 233 - ShortCut = 24652 - end - item - Command = 612 - ShortCut = 9 - end - item - Command = 613 - ShortCut = 8201 - end - item - Command = 250 - ShortCut = 24642 - end> - Lines.Strings = ( - 'ColorPreview' - ) - ReadOnly = True - SelectedColor.OnChange = nil - OnSpecialLineMarkup = OnSpecialLineColors - OnStatusChange = DisplayPreviewStatusChange - end - object ColorElementListBox: TListBox - Left = 3 - Height = 264 - Top = 108 - Width = 200 - ClickOnSelChange = False - OnClick = ColorElementListBoxClick - OnSelectionChange = ColorElementListBoxSelectionChange - TabOrder = 4 - end - object SetAttributeToDefaultButton: TButton - AnchorSideRight.Control = ColorPage - AnchorSideRight.Side = asrBottom - Left = 212 - Height = 25 - Top = 90 - Width = 328 - Anchors = [akTop, akLeft, akRight] - BorderSpacing.Around = 6 - Caption = 'SetAttributeToDefaultButton' - OnClick = SetAttributeToDefaultButtonClick - TabOrder = 5 - end - object SetAllAttributesToDefaultButton: TButton - AnchorSideRight.Control = ColorPage - AnchorSideRight.Side = asrBottom - Left = 212 - Height = 25 - Top = 122 - Width = 328 - Anchors = [akTop, akLeft, akRight] - BorderSpacing.Around = 6 - Caption = 'SetAllAttributesToDefaultButton' - OnClick = SetAllAttributesToDefaultButtonClick - TabOrder = 6 - end - object TextAttributesGroupBox: TGroupBox - AnchorSideRight.Control = ColorPage - AnchorSideRight.Side = asrBottom - AnchorSideBottom.Control = ColorPreview - Left = 212 - Height = 218 - Top = 154 - Width = 328 - Anchors = [akTop, akLeft, akRight, akBottom] - BorderSpacing.Around = 6 - Caption = 'Attributes' - ClientHeight = 200 - ClientWidth = 324 - TabOrder = 7 - object ForeGroundLabel: TLabel - Left = 8 - Height = 14 - Width = 83 - Caption = 'ForeGroundLabel' - ParentColor = False - end - object ForegroundColorButton: TColorButton - AnchorSideTop.Control = ForeGroundLabel - AnchorSideTop.Side = asrBottom - Left = 8 - Height = 21 - Top = 16 - Width = 75 - BorderSpacing.Top = 2 - BorderWidth = 2 - ButtonColorSize = 16 - Color = clBtnFace - OnColorChanged = ColorButtonColorChanged - end - object BackGroundColorButton: TColorButton - AnchorSideTop.Control = BackGroundLabel - AnchorSideTop.Side = asrBottom - Left = 8 - Height = 21 - Top = 58 - Width = 75 - BorderSpacing.Top = 2 - BorderWidth = 2 - ButtonColorSize = 16 - Color = clBtnFace - OnColorChanged = ColorButtonColorChanged - end - object BackGroundLabel: TLabel - AnchorSideTop.Control = ForeGroundLabel - AnchorSideTop.Side = asrBottom - Left = 8 - Height = 14 - Top = 42 - Width = 83 - BorderSpacing.Top = 28 - Caption = 'BackGroundLabel' - ParentColor = False - end - object ForeGroundUseDefaultCheckBox: TCheckBox - AnchorSideTop.Control = ForeGroundLabel - AnchorSideTop.Side = asrBottom - Left = 94 - Height = 19 - Top = 16 - Width = 181 - Anchors = [akTop, akLeft, akRight] - BorderSpacing.Top = 2 - Caption = 'ForeGroundUseDefaultCheckBox' - OnChange = GeneralCheckBoxOnChange - TabOrder = 0 - end - object BackGroundUseDefaultCheckBox: TCheckBox - AnchorSideTop.Control = BackGroundLabel - AnchorSideTop.Side = asrBottom - Left = 94 - Height = 19 - Top = 56 - Width = 181 - Anchors = [akTop, akLeft, akRight] - BorderSpacing.Right = 2 - Caption = 'BackGroundUseDefaultCheckBox' - OnChange = GeneralCheckBoxOnChange - TabOrder = 1 - end - object TextUnderlinePanel: TPanel - Left = 6 - Height = 19 - Top = 125 - Width = 312 - Align = alBottom - AutoSize = True - BorderSpacing.Around = 6 - BevelOuter = bvNone - ClientHeight = 19 - ClientWidth = 312 - TabOrder = 2 - object TextUnderlineCheckBox: TCheckBox - Height = 19 - Width = 168 - Align = alClient - Caption = 'TextUnderlineCheckBox' - OnChange = GeneralCheckBoxOnChange - TabOrder = 0 - end - object TextUnderlineRadioPanel: TPanel - Left = 168 - Height = 19 - Width = 144 - Align = alRight - AutoSize = True - BevelOuter = bvNone - ChildSizing.HorizontalSpacing = 3 - ChildSizing.EnlargeHorizontal = crsScaleChilds - ChildSizing.ShrinkHorizontal = crsScaleChilds - ChildSizing.Layout = cclLeftToRightThenTopToBottom - ChildSizing.ControlsPerLine = 3 - ClientHeight = 19 - ClientWidth = 144 - TabOrder = 1 - Visible = False - object TextUnderlineRadioOn: TRadioButton - Tag = 3 - Height = 19 - Width = 40 - Caption = 'On' - Checked = True - OnChange = TextStyleRadioOnChange - State = cbChecked - TabOrder = 0 - end - object TextUnderlineRadioOff: TRadioButton - Tag = 3 - Left = 43 - Height = 19 - Width = 42 - Caption = 'Off' - OnChange = TextStyleRadioOnChange - TabOrder = 1 - end - object TextUnderlineRadioInvert: TRadioButton - Tag = 3 - Left = 88 - Height = 19 - Width = 56 - Caption = 'Invert' - OnChange = TextStyleRadioOnChange - TabOrder = 2 - end - end - end - object TextBoldPanel: TPanel - Left = 6 - Height = 19 - Top = 150 - Width = 312 - Align = alBottom - AutoSize = True - BorderSpacing.Around = 6 - BevelOuter = bvNone - ClientHeight = 19 - ClientWidth = 312 - TabOrder = 3 - object TextBoldCheckBox: TCheckBox - Height = 19 - Width = 168 - Align = alClient - Caption = 'TextBoldCheckBox' - OnChange = GeneralCheckBoxOnChange - TabOrder = 0 - end - object TextBoldRadioPanel: TPanel - Left = 168 - Height = 19 - Width = 144 - Align = alRight - AutoSize = True - BevelOuter = bvNone - ChildSizing.HorizontalSpacing = 3 - ChildSizing.EnlargeHorizontal = crsScaleChilds - ChildSizing.ShrinkHorizontal = crsScaleChilds - ChildSizing.Layout = cclLeftToRightThenTopToBottom - ChildSizing.ControlsPerLine = 3 - ClientHeight = 19 - ClientWidth = 144 - TabOrder = 1 - Visible = False - object TextBoldRadioOn: TRadioButton - Tag = 1 - Height = 19 - Width = 40 - Caption = 'On' - Checked = True - OnChange = TextStyleRadioOnChange - State = cbChecked - TabOrder = 0 - end - object TextBoldRadioOff: TRadioButton - Tag = 1 - Left = 43 - Height = 19 - Width = 42 - Caption = 'Off' - OnChange = TextStyleRadioOnChange - TabOrder = 1 - end - object TextBoldRadioInvert: TRadioButton - Tag = 1 - Left = 88 - Height = 19 - Width = 56 - Caption = 'Invert' - OnChange = TextStyleRadioOnChange - TabOrder = 2 - end - end - end - object TextItalicPanel: TPanel - Left = 6 - Height = 19 - Top = 175 - Width = 312 - Align = alBottom - AutoSize = True - BorderSpacing.Around = 6 - BevelOuter = bvNone - ClientHeight = 19 - ClientWidth = 312 - TabOrder = 4 - object TextItalicCheckBox: TCheckBox - Height = 19 - Width = 168 - Align = alClient - Caption = 'TextItalicCheckBox' - OnChange = GeneralCheckBoxOnChange - TabOrder = 0 - end - object TextItalicRadioPanel: TPanel - Left = 168 - Height = 19 - Width = 144 - Align = alRight - AutoSize = True - BevelOuter = bvNone - ChildSizing.HorizontalSpacing = 3 - ChildSizing.EnlargeHorizontal = crsScaleChilds - ChildSizing.ShrinkHorizontal = crsScaleChilds - ChildSizing.Layout = cclLeftToRightThenTopToBottom - ChildSizing.ControlsPerLine = 3 - ClientHeight = 19 - ClientWidth = 144 - TabOrder = 1 - Visible = False - object TextItalicRadioOn: TRadioButton - Tag = 2 - Height = 19 - Width = 40 - Caption = 'On' - Checked = True - OnChange = TextStyleRadioOnChange - State = cbChecked - TabOrder = 0 - end - object TextItalicRadioOff: TRadioButton - Tag = 2 - Left = 43 - Height = 19 - Width = 42 - Caption = 'Off' - OnChange = TextStyleRadioOnChange - TabOrder = 1 - end - object TextItalicRadioInvert: TRadioButton - Tag = 2 - Left = 88 - Height = 19 - Width = 56 - Caption = 'Invert' - OnChange = TextStyleRadioOnChange - TabOrder = 2 - end - end - end - end - end - object CodetoolsPage: TPage - Caption = 'CodetoolsPage' - ClientWidth = 550 - ClientHeight = 505 - object AutomaticFeaturesGroupBox: TGroupBox - Left = 6 - Height = 493 - Top = 6 - Width = 538 - Align = alClient - BorderSpacing.Around = 6 - Caption = 'AutomaticFeaturesGroupBox' - ClientHeight = 493 - ClientWidth = 538 - TabOrder = 0 - object AutoDelayLabel: TLabel - Left = 6 - Height = 14 - Top = 176 - Width = 522 - Align = alTop - BorderSpacing.Top = 24 - BorderSpacing.Around = 6 - Caption = 'AutoDelayLabel' - ParentColor = False - end - object AutoDelayMinLabel: TLabel - AnchorSideTop.Control = AutoDelayTrackBar - AnchorSideTop.Side = asrBottom - Left = 6 - Height = 14 - Top = 148 - Width = 92 - BorderSpacing.Top = 2 - Caption = 'AutoDelayMinLabel' - ParentColor = False - end - object AutoDelayMaxLabel: TLabel - AnchorSideTop.Control = AutoDelayTrackBar - AnchorSideTop.Side = asrBottom - Left = 404 - Height = 14 - Top = 148 - Width = 96 - Alignment = taRightJustify - Anchors = [akTop, akRight] - BorderSpacing.Top = 2 - Caption = 'AutoDelayMaxLabel' - ParentColor = False - end - object AutoIdentifierCompletionCheckBox: TCheckBox - Left = 6 - Height = 19 - Top = 6 - Width = 522 - Align = alTop - BorderSpacing.Around = 6 - Caption = 'AutoIdentifierCompletionCheckBox' - TabOrder = 0 - end - object AutoCodeParametersCheckBox: TCheckBox - Left = 6 - Height = 19 - Top = 56 - Width = 522 - Align = alTop - BorderSpacing.Around = 6 - Caption = 'AutoCodeParametersCheckBox' - Enabled = False - TabOrder = 1 - end - object AutoToolTipExprEvalCheckBox: TCheckBox - Left = 6 - Height = 19 - Top = 81 - Width = 522 - Align = alTop - BorderSpacing.Around = 6 - Caption = 'AutoToolTipExprEvalCheckBox' - TabOrder = 2 - end - object AutoToolTipSymbToolsCheckBox: TCheckBox - Left = 6 - Height = 19 - Top = 31 - Width = 522 - Align = alTop - BorderSpacing.Around = 6 - Caption = 'AutoToolTipSymbToolsCheckBox' - TabOrder = 3 - end - object AutoDelayTrackBar: TTrackBar - Left = 6 - Height = 40 - Top = 106 - Width = 522 - Frequency = 250 - Max = 4000 - Min = 500 - Position = 500 - ScalePos = trTop - Align = alTop - BorderSpacing.Left = 6 - BorderSpacing.Top = 6 - BorderSpacing.Right = 6 - TabOrder = 4 - end - end - end - object CodeFolding: TPage - Caption = 'CodeFolding' - ClientWidth = 550 - ClientHeight = 505 - object lblDividerDrawLevel: TLabel - Left = 6 - Height = 14 - Top = 71 - Width = 94 - Caption = 'lblDividerDrawLevel' - ParentColor = False - end - object Bevel1: TBevel - Left = 6 - Height = 2 - Top = 49 - Width = 537 - Anchors = [akTop, akLeft, akRight] - end - object chkCodeFoldingEnabled: TCheckBox - Left = 6 - Height = 19 - Top = 23 - Width = 139 - Caption = 'chkCodeFoldingEnabled' - OnChange = chkCodeFoldingEnabledChange - TabOrder = 0 - end - object edDividerDrawLevel: TSpinEdit - Left = 211 - Height = 23 - Top = 66 - Width = 50 - MaxValue = 10 - MinValue = 1 - TabOrder = 1 - Value = 1 - end - end - end - object ButtonPanel: TButtonPanel - Left = 6 - Height = 40 - Top = 537 - Width = 542 - Align = alBottom - AutoSize = True - TabOrder = 1 - ShowButtons = [pbOK, pbCancel, pbHelp] - end -end diff --git a/ide/editoroptionsdlg.lrs b/ide/editoroptionsdlg.lrs deleted file mode 100644 index 80f30dc953..0000000000 --- a/ide/editoroptionsdlg.lrs +++ /dev/null @@ -1,448 +0,0 @@ -{ This is an automatically generated lazarus resource file } - -LazarusResources.Add('TEditorOptionsForm','FORMDATA',[ - 'TPF0'#18'TEditorOptionsForm'#17'EditorOptionsForm'#4'Left'#3'B'#1#6'Height'#3 - +'A'#2#3'Top'#3#149#0#5'Width'#3'*'#2#13'ActiveControl'#7#12'MainNotebook'#7 - +'Caption'#6#17'EditorOptionsForm'#12'ClientHeight'#3'A'#2#11'ClientWidth'#3 - +'*'#2#21'Constraints.MinHeight'#3#244#1#20'Constraints.MinWidth'#3#164#1#10 - +'ParentFont'#8#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6#6'0.9.27'#0 - +#9'TNotebook'#12'MainNotebook'#6'Height'#3#19#2#5'Width'#3'*'#2#5'Align'#7#8 - +'alClient'#20'BorderSpacing.Bottom'#2#6#9'PageIndex'#2#3#8'TabOrder'#2#0#0#5 - +'TPage'#11'GeneralPage'#7'Caption'#6#11'GeneralPage'#11'ClientWidth'#3'"'#2 - +#12'ClientHeight'#3#249#1#0#6'TLabel'#16'BlockIndentLabel'#22'AnchorSideLeft' - +'.Control'#7#19'BlockIndentComboBox'#19'AnchorSideLeft.Side'#7#9'asrBottom' - +#24'AnchorSideBottom.Control'#7#19'BlockIndentComboBox'#21'AnchorSideBottom.' - +'Side'#7#9'asrCenter'#4'Left'#2'p'#6'Height'#2#14#3'Top'#3#171#1#5'Width'#2 - +'R'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#20'BorderSpacing.Around'#2#6#7'Cap' - +'tion'#6#16'BlockIndentLabel'#11'ParentColor'#8#0#0#6'TLabel'#14'UndoLimitLa' - +'bel'#22'AnchorSideLeft.Control'#7#17'UndoLimitComboBox'#19'AnchorSideLeft.S' - +'ide'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7#17'UndoLimitComboBox'#21 - +'AnchorSideBottom.Side'#7#9'asrCenter'#4'Left'#2'p'#6'Height'#2#14#3'Top'#3 - +#198#1#5'Width'#2'H'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#20'BorderSpacing.' - +'Around'#2#6#7'Caption'#6#14'UndoLimitLabel'#11'ParentColor'#8#0#0#6'TLabel' - +#14'TabWidthsLabel'#22'AnchorSideLeft.Control'#7#17'TabWidthsComboBox'#19'An' - +'chorSideLeft.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7#17'TabWidt' - +'hsComboBox'#21'AnchorSideBottom.Side'#7#9'asrCenter'#4'Left'#2'p'#6'Height' - +#2#14#3'Top'#3#225#1#5'Width'#2'M'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#20 - +'BorderSpacing.Around'#2#6#7'Caption'#6#14'TabWidthsLabel'#11'ParentColor'#8 - +#0#0#11'TCheckGroup'#21'EditorOptionsGroupBox'#20'AnchorSideRight.Side'#7#9 - +'asrBottom'#24'AnchorSideBottom.Control'#7#16'BlockIndentLabel'#4'Left'#2#6#6 - +'Height'#3#153#1#3'Top'#2#6#5'Width'#3#22#2#5'Align'#7#5'alTop'#7'Anchors'#11 - +#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#8'AutoFill'#9#20'BorderSpacing.' - +'Bottom'#2#6#20'BorderSpacing.Around'#2#6#7'Caption'#6#21'EditorOptionsGroup' - +'Box'#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2 - +#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsHomogenousChildResize'#27'Child' - +'Sizing.EnlargeVertical'#7#24'crsHomogenousChildResize'#28'ChildSizing.Shrin' - +'kHorizontal'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14'crsSc' - +'aleChilds'#18'ChildSizing.Layout'#7#29'cclTopToBottomThenLeftToRight'#27'Ch' - +'ildSizing.ControlsPerLine'#2#1#12'ColumnLayout'#7#24'clVerticalThenHorizont' - +'al'#7'Columns'#2#2#11'OnItemClick'#7#23'GeneralCheckBoxOnChange'#8'TabOrder' - +#2#3#0#0#9'TComboBox'#19'BlockIndentComboBox'#24'AnchorSideBottom.Control'#7 - +#17'UndoLimitComboBox'#4'Left'#2#6#6'Height'#2#21#3'Top'#3#168#1#5'Width'#2 - +'d'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#20'BorderSpacing.Around'#2#6#10'It' - +'emHeight'#2#13#13'Items.Strings'#1#6#1'1'#6#1'2'#6#1'4'#6#1'8'#0#9'MaxLengt' - +'h'#2#255#8'OnChange'#7#16'ComboBoxOnChange'#6'OnExit'#7#14'ComboBoxOnExit'#9 - +'OnKeyDown'#7#17'ComboBoxOnKeyDown'#8'TabOrder'#2#0#0#0#9'TComboBox'#17'Undo' - +'LimitComboBox'#24'AnchorSideBottom.Control'#7#17'TabWidthsComboBox'#4'Left' - +#2#6#6'Height'#2#21#3'Top'#3#195#1#5'Width'#2'd'#7'Anchors'#11#6'akLeft'#8'a' - +'kBottom'#0#20'BorderSpacing.Around'#2#6#10'ItemHeight'#2#13#13'Items.String' - +'s'#1#6#5'32767'#6#4'4096'#6#3'512'#0#9'MaxLength'#2#255#8'OnChange'#7#16'Co' - +'mboBoxOnChange'#6'OnExit'#7#14'ComboBoxOnExit'#9'OnKeyDown'#7#17'ComboBoxOn' - +'KeyDown'#8'TabOrder'#2#1#0#0#9'TComboBox'#17'TabWidthsComboBox'#24'AnchorSi' - +'deBottom.Control'#7#11'GeneralPage'#21'AnchorSideBottom.Side'#7#9'asrBottom' - +#4'Left'#2#6#6'Height'#2#21#3'Top'#3#222#1#5'Width'#2'd'#7'Anchors'#11#6'akL' - +'eft'#8'akBottom'#0#20'BorderSpacing.Around'#2#6#10'ItemHeight'#2#13#13'Item' - +'s.Strings'#1#6#1'1'#6#1'2'#6#1'4'#6#1'8'#0#9'MaxLength'#2#255#8'OnChange'#7 - +#16'ComboBoxOnChange'#6'OnExit'#7#14'ComboBoxOnExit'#9'OnKeyDown'#7#17'Combo' - +'BoxOnKeyDown'#8'TabOrder'#2#2#0#0#0#5'TPage'#11'DisplayPage'#7'Caption'#6#11 - +'DisplayPage'#11'ClientWidth'#3'"'#2#12'ClientHeight'#3#249#1#0#9'TGroupBox' - +#23'MarginAndGutterGroupBox'#4'Left'#2#6#6'Height'#3#128#0#3'Top'#2#6#5'Widt' - +'h'#3#22#2#5'Align'#7#5'alTop'#20'BorderSpacing.Around'#2#6#7'Caption'#6#23 - +'MarginAndGutterGroupBox'#12'ClientHeight'#3#128#0#11'ClientWidth'#3#22#2#8 - +'TabOrder'#2#1#0#6'TLabel'#16'RightMarginLabel'#4'Left'#3'f'#1#6'Height'#2#14 - +#3'Top'#2#8#5'Width'#2'S'#7'Caption'#6#16'RightMarginLabel'#11'ParentColor'#8 - +#0#0#12'TColorButton'#22'RightMarginColorButton'#4'Left'#3#246#0#6'Height'#2 - +#21#3'Top'#2'"'#5'Width'#2'd'#11'BorderWidth'#2#2#15'ButtonColorSize'#2#16#5 - +'Color'#7#9'clBtnFace'#14'OnColorChanged'#7'"RightMarginColorButtonColorChan' - +'ged'#0#0#12'TColorButton'#17'GutterColorButton'#4'Left'#3#246#0#6'Height'#2 - ,#21#3'Top'#2'<'#5'Width'#2'd'#11'BorderWidth'#2#2#15'ButtonColorSize'#2#16#5 - +'Color'#7#9'clBtnFace'#14'OnColorChanged'#7#23'ColorButtonColorChanged'#0#0#6 - +'TLabel'#21'RightMarginColorLabel'#4'Left'#3'f'#1#6'Height'#2#14#3'Top'#2' ' - +#5'Width'#2'l'#7'Caption'#6#21'RightMarginColorLabel'#11'ParentColor'#8#0#0#6 - +'TLabel'#16'GutterColorLabel'#4'Left'#3'f'#1#6'Height'#2#14#3'Top'#2'='#5'Wi' - +'dth'#2'R'#7'Caption'#6#16'GutterColorLabel'#11'ParentColor'#8#0#0#6'TLabel#' - +'ShowOnlyLineNumbersMultiplesOfLabel'#21'AnchorSideTop.Control'#7#23'ShowLin' - +'eNumbersCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Heigh' - +'t'#2#14#3'Top'#2'Q'#5'Width'#2'n'#17'BorderSpacing.Top'#2#6#7'Caption'#6#22 - +'Every n-th line number'#11'ParentColor'#8#0#0#9'TCheckBox'#26'VisibleRightM' - +'arginCheckBox'#4'Left'#2#6#6'Height'#2#19#3'Top'#2#8#5'Width'#3#159#0#7'Cap' - +'tion'#6#26'VisibleRightMarginCheckBox'#8'OnChange'#7#23'GeneralCheckBoxOnCh' - +'ange'#8'TabOrder'#2#0#0#0#9'TCheckBox'#21'VisibleGutterCheckBox'#4'Left'#2#6 - +#6'Height'#2#19#3'Top'#2' '#5'Width'#3#133#0#7'Caption'#6#21'VisibleGutterCh' - +'eckBox'#8'OnChange'#7#23'GeneralCheckBoxOnChange'#8'TabOrder'#2#1#0#0#9'TCh' - +'eckBox'#23'ShowLineNumbersCheckBox'#4'Left'#2#6#6'Height'#2#19#3'Top'#2'8'#5 - +'Width'#3#160#0#7'Caption'#6#23'ShowLineNumbersCheckBox'#8'OnChange'#7#23'Ge' - +'neralCheckBoxOnChange'#7'OnClick'#7#28'ShowLineNumbersCheckBoxClick'#8'TabO' - +'rder'#2#2#0#0#9'TComboBox'#19'RightMarginComboBox'#4'Left'#3#246#0#6'Height' - +#2#21#3'Top'#2#4#5'Width'#2'd'#10'ItemHeight'#2#13#13'Items.Strings'#1#6#2'8' - +'0'#6#2'78'#6#2'76'#0#9'MaxLength'#2#255#8'OnChange'#7#16'ComboBoxOnChange'#6 - +'OnExit'#7#14'ComboBoxOnExit'#9'OnKeyDown'#7#17'ComboBoxOnKeyDown'#8'TabOrde' - +'r'#2#3#0#0#9'TSpinEdit&ShowOnlyLineNumbersMultiplesOfSpinEdit'#22'AnchorSid' - +'eLeft.Control'#7'#ShowOnlyLineNumbersMultiplesOfLabel'#19'AnchorSideLeft.Si' - +'de'#7#9'asrBottom'#21'AnchorSideTop.Control'#7'#ShowOnlyLineNumbersMultiple' - +'sOfLabel'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2'z'#6'Height'#2#23 - +#3'Top'#2'M'#5'Width'#2'6'#18'BorderSpacing.Left'#2#6#8'MinValue'#2#1#8'OnCh' - +'ange'#7#23'GeneralCheckBoxOnChange'#8'TabOrder'#2#4#5'Value'#2#1#0#0#0#9'TG' - +'roupBox'#18'EditorFontGroupBox'#4'Left'#2#6#6'Height'#3#145#0#3'Top'#3#140#0 - +#5'Width'#3#22#2#5'Align'#7#5'alTop'#8'AutoSize'#9#20'BorderSpacing.Around'#2 - +#6#7'Caption'#6#18'EditorFontGroupBox'#12'ClientHeight'#3#145#0#11'ClientWid' - +'th'#3#22#2#8'TabOrder'#2#0#0#6'TLabel'#21'EditorFontHeightLabel'#21'AnchorS' - +'ideTop.Control'#7#24'EditorFontHeightComboBox'#18'AnchorSideTop.Side'#7#9'a' - +'srCenter'#4'Left'#2't'#6'Height'#2#14#3'Top'#2'$'#5'Width'#3'{'#1#7'Anchors' - +#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Around'#2#6#7'Caption'#6 - +#21'EditorFontHeightLabel'#11'ParentColor'#8#0#0#6'TLabel'#21'ExtraLineSpaci' - +'ngLabel'#21'AnchorSideTop.Control'#7#24'ExtraLineSpacingComboBox'#18'Anchor' - +'SideTop.Side'#7#9'asrCenter'#4'Left'#2't'#6'Height'#2#14#3'Top'#2'9'#5'Widt' - +'h'#3'{'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Ar' - +'ound'#2#6#7'Caption'#6#21'ExtraLineSpacingLabel'#11'ParentColor'#8#0#0#6'TL' - +'abel'#21'ExtraCharSpacingLabel'#21'AnchorSideTop.Control'#7#24'ExtraCharSpa' - +'cingComboBox'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2't'#6'Height'#2 - +#14#3'Top'#2'N'#5'Width'#3'{'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0 - +#20'BorderSpacing.Around'#2#6#7'Caption'#6#21'ExtraCharSpacingLabel'#11'Pare' - +'ntColor'#8#0#0#9'TComboBox'#18'EditorFontComboBox'#23'AnchorSideRight.Contr' - +'ol'#7#16'EditorFontButton'#4'Left'#2#6#6'Height'#2#21#3'Top'#2#6#5'Width'#3 - +#205#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Around' - +#2#6#10'ItemHeight'#2#13#9'MaxLength'#2#255#13'OnEditingDone'#7#29'EditorFon' - +'tComboBoxEditingDone'#8'TabOrder'#2#0#4'Text'#6#18'EditorFontComboBox'#0#0#7 - +'TButton'#16'EditorFontButton'#4'Left'#3#217#1#6'Height'#2#25#3'Top'#2#6#5'W' - +'idth'#2#25#7'Anchors'#11#5'akTop'#7'akRight'#0#7'Caption'#6#3'...'#7'OnClic' - +'k'#7#21'EditorFontButtonClick'#8'TabOrder'#2#1#0#0#9'TComboBox'#24'EditorFo' - +'ntHeightComboBox'#21'AnchorSideTop.Control'#7#18'EditorFontComboBox'#18'Anc' - +'horSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#21#3'Top'#2'!'#5'Wi' - +'dth'#2'd'#10'ItemHeight'#2#13#13'Items.Strings'#1#6#2'10'#6#2'11'#6#2'12'#6 - +#2'13'#6#2'14'#6#2'15'#6#2'16'#6#2'17'#6#2'18'#0#9'MaxLength'#2#255#8'OnChan' - +'ge'#7#16'ComboBoxOnChange'#6'OnExit'#7#14'ComboBoxOnExit'#9'OnKeyDown'#7#17 - +'ComboBoxOnKeyDown'#8'TabOrder'#2#2#0#0#9'TComboBox'#24'ExtraLineSpacingComb' - +'oBox'#21'AnchorSideTop.Control'#7#24'EditorFontHeightComboBox'#18'AnchorSid' - +'eTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#21#3'Top'#2'6'#5'Width'#2 - +'d'#10'ItemHeight'#2#13#13'Items.Strings'#1#6#1'0'#6#1'1'#6#1'2'#0#9'MaxLeng' - +'th'#2#255#8'OnChange'#7#16'ComboBoxOnChange'#6'OnExit'#7#14'ComboBoxOnExit' - +#9'OnKeyDown'#7#17'ComboBoxOnKeyDown'#8'TabOrder'#2#4#0#0#9'TComboBox'#24'Ex' - +'traCharSpacingComboBox'#21'AnchorSideTop.Control'#7#24'ExtraLineSpacingComb' - ,'oBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#21#3'To' - +'p'#2'K'#5'Width'#2'd'#10'ItemHeight'#2#13#13'Items.Strings'#1#6#1'0'#6#1'1' - +#6#1'2'#0#9'MaxLength'#2#255#8'OnChange'#7#16'ComboBoxOnChange'#6'OnExit'#7 - +#14'ComboBoxOnExit'#9'OnKeyDown'#7#17'ComboBoxOnKeyDown'#8'TabOrder'#2#3#0#0 - +#9'TCheckBox'#27'DisableAntialiasingCheckBox'#21'AnchorSideTop.Control'#7#24 - +'ExtraCharSpacingComboBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6 - +#6'Height'#2#19#3'Top'#2'f'#5'Width'#3#6#2#5'Align'#7#8'alBottom'#7'Anchors' - +#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#20'BorderSpacing.Around'#2#6 - +#7'Caption'#6#27'DisableAntialiasingCheckBox'#8'OnChange'#7#23'GeneralCheckB' - +'oxOnChange'#8'TabOrder'#2#5#0#0#0#8'TSynEdit'#14'DisplayPreview'#4'Left'#2#6 - +#6'Height'#3#208#0#3'Top'#3'#'#1#5'Width'#3#22#2#5'Align'#7#8'alClient'#20'B' - +'orderSpacing.Around'#2#6#11'Font.Height'#2#240#9'Font.Name'#6#7'courier'#10 - +'Font.Pitch'#7#7'fpFixed'#12'Font.Quality'#7#16'fqNonAntialiased'#11'ParentC' - +'olor'#8#10'ParentFont'#8#8'TabOrder'#2#2#10'Keystrokes'#14#1#7'Command'#2#3 - +#8'ShortCut'#2'&'#0#1#7'Command'#2'g'#8'ShortCut'#3'& '#0#1#7'Command'#3#211 - +#0#8'ShortCut'#3'&@'#0#1#7'Command'#2#4#8'ShortCut'#2'('#0#1#7'Command'#2'h' - +#8'ShortCut'#3'( '#0#1#7'Command'#3#212#0#8'ShortCut'#3'(@'#0#1#7'Command'#2 - +#1#8'ShortCut'#2'%'#0#1#7'Command'#2'e'#8'ShortCut'#3'% '#0#1#7'Command'#2#5 - +#8'ShortCut'#3'%@'#0#1#7'Command'#2'i'#8'ShortCut'#3'%`'#0#1#7'Command'#2#2#8 - +'ShortCut'#2''''#0#1#7'Command'#2'f'#8'ShortCut'#3''' '#0#1#7'Command'#2#6#8 - +'ShortCut'#3'''@'#0#1#7'Command'#2'j'#8'ShortCut'#3'''`'#0#1#7'Command'#2#10 - +#8'ShortCut'#2'"'#0#1#7'Command'#2'n'#8'ShortCut'#3'" '#0#1#7'Command'#2#14#8 - +'ShortCut'#3'"@'#0#1#7'Command'#2'r'#8'ShortCut'#3'"`'#0#1#7'Command'#2#9#8 - +'ShortCut'#2'!'#0#1#7'Command'#2'm'#8'ShortCut'#3'! '#0#1#7'Command'#2#13#8 - +'ShortCut'#3'!@'#0#1#7'Command'#2'q'#8'ShortCut'#3'!`'#0#1#7'Command'#2#7#8 - +'ShortCut'#2'$'#0#1#7'Command'#2'k'#8'ShortCut'#3'$ '#0#1#7'Command'#2#15#8 - +'ShortCut'#3'$@'#0#1#7'Command'#2's'#8'ShortCut'#3'$`'#0#1#7'Command'#2#8#8 - +'ShortCut'#2'#'#0#1#7'Command'#2'l'#8'ShortCut'#3'# '#0#1#7'Command'#2#16#8 - +'ShortCut'#3'#@'#0#1#7'Command'#2't'#8'ShortCut'#3'#`'#0#1#7'Command'#3#223#0 - +#8'ShortCut'#2'-'#0#1#7'Command'#3#201#0#8'ShortCut'#3'-@'#0#1#7'Command'#3 - +'\'#2#8'ShortCut'#3'- '#0#1#7'Command'#3#246#1#8'ShortCut'#2'.'#0#1#7'Comman' - +'d'#3'['#2#8'ShortCut'#3'. '#0#1#7'Command'#3#245#1#8'ShortCut'#2#8#0#1#7'Co' - +'mmand'#3#245#1#8'ShortCut'#3#8' '#0#1#7'Command'#3#248#1#8'ShortCut'#3#8'@' - +#0#1#7'Command'#3'Y'#2#8'ShortCut'#4#8#128#0#0#0#1#7'Command'#3'Z'#2#8'Short' - +'Cut'#4#8#160#0#0#0#1#7'Command'#3#253#1#8'ShortCut'#2#13#0#1#7'Command'#3 - +#199#0#8'ShortCut'#3'A@'#0#1#7'Command'#3#201#0#8'ShortCut'#3'C@'#0#1#7'Comm' - +'and'#3'b'#2#8'ShortCut'#3'I`'#0#1#7'Command'#3#253#1#8'ShortCut'#3'M@'#0#1#7 - +'Command'#3#254#1#8'ShortCut'#3'N@'#0#1#7'Command'#3#247#1#8'ShortCut'#3'T@' - +#0#1#7'Command'#3'c'#2#8'ShortCut'#3'U`'#0#1#7'Command'#3'\'#2#8'ShortCut'#3 - +'V@'#0#1#7'Command'#3'['#2#8'ShortCut'#3'X@'#0#1#7'Command'#3#251#1#8'ShortC' - +'ut'#3'Y@'#0#1#7'Command'#3#250#1#8'ShortCut'#3'Y`'#0#1#7'Command'#3'Y'#2#8 - +'ShortCut'#3'Z@'#0#1#7'Command'#3'Z'#2#8'ShortCut'#3'Z`'#0#1#7'Command'#3'-' - +#1#8'ShortCut'#3'0@'#0#1#7'Command'#3'.'#1#8'ShortCut'#3'1@'#0#1#7'Command'#3 - +'/'#1#8'ShortCut'#3'2@'#0#1#7'Command'#3'0'#1#8'ShortCut'#3'3@'#0#1#7'Comman' - +'d'#3'1'#1#8'ShortCut'#3'4@'#0#1#7'Command'#3'2'#1#8'ShortCut'#3'5@'#0#1#7'C' - +'ommand'#3'3'#1#8'ShortCut'#3'6@'#0#1#7'Command'#3'4'#1#8'ShortCut'#3'7@'#0#1 - +#7'Command'#3'5'#1#8'ShortCut'#3'8@'#0#1#7'Command'#3'6'#1#8'ShortCut'#3'9@' - +#0#1#7'Command'#3'_'#1#8'ShortCut'#3'0`'#0#1#7'Command'#3'`'#1#8'ShortCut'#3 - +'1`'#0#1#7'Command'#3'a'#1#8'ShortCut'#3'2`'#0#1#7'Command'#3'b'#1#8'ShortCu' - +'t'#3'3`'#0#1#7'Command'#3'c'#1#8'ShortCut'#3'4`'#0#1#7'Command'#3'd'#1#8'Sh' - +'ortCut'#3'5`'#0#1#7'Command'#3'e'#1#8'ShortCut'#3'6`'#0#1#7'Command'#3'f'#1 - +#8'ShortCut'#3'7`'#0#1#7'Command'#3'g'#1#8'ShortCut'#3'8`'#0#1#7'Command'#3 - +'h'#1#8'ShortCut'#3'9`'#0#1#7'Command'#3#231#0#8'ShortCut'#3'N`'#0#1#7'Comma' - +'nd'#3#232#0#8'ShortCut'#3'C`'#0#1#7'Command'#3#233#0#8'ShortCut'#3'L`'#0#1#7 - +'Command'#3'd'#2#8'ShortCut'#2#9#0#1#7'Command'#3'e'#2#8'ShortCut'#3#9' '#0#1 - +#7'Command'#3#250#0#8'ShortCut'#3'B`'#0#0#13'Lines.Strings'#1#6#14'DisplayPr' - +'eview'#0#8'ReadOnly'#9#22'SelectedColor.OnChange'#13#19'OnSpecialLineMarkup' - +#7#19'OnSpecialLineColors'#14'OnStatusChange'#7#26'DisplayPreviewStatusChang' - +'e'#0#0#0#5'TPage'#14'KeymappingPage'#7'Caption'#6#14'KeymappingPage'#11'Cli' - +'entWidth'#3'"'#2#12'ClientHeight'#3#249#1#0#6'TLabel'#19'KeyMappingHelpLabe' - +'l'#21'AnchorSideTop.Control'#7#14'KeymappingPage'#4'Left'#2#8#6'Height'#2#14 - +#3'Top'#2#6#5'Width'#2'i'#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2 - +#6#19'BorderSpacing.Right'#2#6#7'Caption'#6#19'KeyMappingHelpLabel'#11'Paren' - +'tColor'#8#0#0#7'TButton'#28'KeyMappingChooseSchemeButton'#22'AnchorSideLeft' - ,'.Control'#7#14'KeymappingPage'#21'AnchorSideTop.Control'#7#14'KeymappingPag' - +'e'#24'AnchorSideBottom.Control'#7#14'KeymappingPage'#21'AnchorSideBottom.Si' - +'de'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#23#3'Top'#3#220#1#5'Width'#3#189 - +#0#7'Anchors'#11#6'akLeft'#8'akBottom'#0#8'AutoSize'#9#20'BorderSpacing.Arou' - +'nd'#2#6#7'Caption'#6#28'KeyMappingChooseSchemeButton'#7'OnClick'#7'!KeyMapp' - +'ingChooseSchemeButtonClick'#8'TabOrder'#2#0#0#0#7'TButton KeyMappingConsist' - +'encyCheckButton'#21'AnchorSideTop.Control'#7#14'KeymappingPage'#23'AnchorSi' - +'deRight.Control'#7#14'KeymappingPage'#20'AnchorSideRight.Side'#7#9'asrBotto' - +'m'#24'AnchorSideBottom.Control'#7#14'KeymappingPage'#21'AnchorSideBottom.Si' - +'de'#7#9'asrBottom'#4'Left'#3'Q'#1#6'Height'#2#23#3'Top'#3#220#1#5'Width'#3 - +#203#0#7'Anchors'#11#7'akRight'#8'akBottom'#0#8'AutoSize'#9#20'BorderSpacing' - +'.Around'#2#6#7'Caption'#6' KeyMappingConsistencyCheckButton'#7'OnClick'#7'%' - +'KeyMappingConsistencyCheckButtonClick'#8'TabOrder'#2#1#0#0#9'TTreeView'#18 - +'KeyMappingTreeView'#22'AnchorSideLeft.Control'#7#14'KeymappingPage'#21'Anch' - +'orSideTop.Control'#7#20'KeyMappingFilterEdit'#18'AnchorSideTop.Side'#7#9'as' - +'rBottom'#23'AnchorSideRight.Control'#7#14'KeymappingPage'#20'AnchorSideRigh' - +'t.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7#23'KeyMappingFindKeyB' - +'utton'#4'Left'#2#6#6'Height'#3'~'#1#3'Top'#2';'#5'Width'#3#22#2#7'Anchors' - +#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#20'BorderSpacing.Around'#2#6 - +#17'DefaultItemHeight'#2#15#8'ReadOnly'#9#9'RowSelect'#9#8'TabOrder'#2#2#9'O' - +'nMouseUp'#7#25'KeyMappingTreeViewMouseUp'#7'Options'#11#17'tvoAutoItemHeigh' - +'t'#16'tvoHideSelection'#21'tvoKeepCollapsedNodes'#11'tvoReadOnly'#12'tvoRow' - +'Select'#14'tvoShowButtons'#12'tvoShowLines'#11'tvoShowRoot'#17'tvoShowSepar' - +'ators'#11'tvoToolTips'#0#0#0#5'TEdit'#20'KeyMappingFilterEdit'#22'AnchorSid' - +'eLeft.Control'#7#14'KeymappingPage'#21'AnchorSideTop.Control'#7#19'KeyMappi' - +'ngHelpLabel'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Contr' - +'ol'#7#14'KeymappingPage'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#6 - +#6'Height'#2#27#3'Top'#2#26#5'Width'#3#22#2#7'Anchors'#11#5'akTop'#6'akLeft' - +#7'akRight'#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#8'OnChange'#7#26'Ke' - +'yMappingFilterEditChange'#7'OnEnter'#7#25'KeyMappingFilterEditEnter'#6'OnEx' - +'it'#7#24'KeyMappingFilterEditExit'#8'TabOrder'#2#3#4'Text'#6#20'KeyMappingF' - +'ilterEdit'#0#0#7'TButton'#23'KeyMappingFindKeyButton'#22'AnchorSideLeft.Con' - +'trol'#7#14'KeymappingPage'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'Ancho' - +'rSideBottom.Control'#7#28'KeyMappingChooseSchemeButton'#4'Left'#2#6#6'Heigh' - +'t'#2#23#3'Top'#3#191#1#5'Width'#3#154#0#7'Anchors'#11#6'akLeft'#8'akBottom' - +#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#23'KeyMappingFind' - +'KeyButton'#7'OnClick'#7#28'KeyMappingFindKeyButtonClick'#8'TabOrder'#2#4#0#0 - +#0#5'TPage'#9'ColorPage'#7'Caption'#6#9'ColorPage'#11'ClientWidth'#3'"'#2#12 - +'ClientHeight'#3#249#1#0#6'TLabel'#13'LanguageLabel'#4'Left'#3#214#0#6'Heigh' - +'t'#2#14#3'Top'#2#12#5'Width'#2'I'#7'Caption'#6#13'LanguageLabel'#11'ParentC' - +'olor'#8#0#0#6'TLabel'#16'ColorSchemeLabel'#4'Left'#3#214#0#6'Height'#2#14#3 - +'Top'#2'$'#5'Width'#2'X'#7'Caption'#6#16'ColorSchemeLabel'#11'ParentColor'#8 - +#0#0#6'TLabel'#19'FileExtensionsLabel'#4'Left'#3#214#0#6'Height'#2#14#3'Top' - +#2'<'#5'Width'#2'^'#7'Caption'#6#19'FileExtensionsLabel'#11'ParentColor'#8#0 - +#0#6'TLabel'#17'ColorElementLabel'#4'Left'#2#4#6'Height'#2#14#3'Top'#2'Z'#5 - +'Width'#2'Y'#7'Caption'#6#17'ColorElementLabel'#11'ParentColor'#8#0#0#9'TCom' - +'boBox'#16'LanguageComboBox'#4'Left'#2#3#6'Height'#2#21#3'Top'#2#10#5'Width' - +#3#200#0#10'ItemHeight'#2#13#9'MaxLength'#2#255#8'OnChange'#7#16'ComboBoxOnC' - +'hange'#6'OnExit'#7#14'ComboBoxOnExit'#9'OnKeyDown'#7#17'ComboBoxOnKeyDown'#8 - +'TabOrder'#2#0#4'Text'#6#16'LanguageComboBox'#0#0#9'TComboBox'#19'ColorSchem' - +'eComboBox'#4'Left'#2#3#6'Height'#2#21#3'Top'#2'"'#5'Width'#3#200#0#10'ItemH' - +'eight'#2#13#9'MaxLength'#2#255#8'OnChange'#7#16'ComboBoxOnChange'#6'OnExit' - +#7#14'ComboBoxOnExit'#9'OnKeyDown'#7#17'ComboBoxOnKeyDown'#8'TabOrder'#2#1#4 - +'Text'#6#19'ColorSchemeComboBox'#0#0#9'TComboBox'#22'FileExtensionsComboBox' - +#4'Left'#2#3#6'Height'#2#21#3'Top'#2':'#5'Width'#3#200#0#10'ItemHeight'#2#13 - +#13'Items.Strings'#1#6#26'pp;pas;inc;lpr;lrs;dpr;dpk'#6#18'pp;pas;inc;lpr;lr' - +'s'#6#10'pp;pas;inc'#0#9'MaxLength'#2#255#8'OnChange'#7#16'ComboBoxOnChange' - +#6'OnExit'#7#14'ComboBoxOnExit'#9'OnKeyDown'#7#17'ComboBoxOnKeyDown'#8'TabOr' - +'der'#2#2#0#0#8'TSynEdit'#12'ColorPreview'#4'Left'#2#4#6'Height'#2'{'#3'Top' - +#3'z'#1#5'Width'#3#26#2#5'Align'#7#8'alBottom'#20'BorderSpacing.Around'#2#4#7 - +'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#11'Font.Height'#2 - +#240#9'Font.Name'#6#7'courier'#10'Font.Pitch'#7#7'fpFixed'#12'Font.Quality'#7 - +#16'fqNonAntialiased'#11'ParentColor'#8#10'ParentFont'#8#8'TabOrder'#2#3#11 - +'OnMouseDown'#7#19'ColorPreviewMouseUp'#10'Keystrokes'#14#1#7'Command'#2#3#8 - ,'ShortCut'#2'&'#0#1#7'Command'#2'g'#8'ShortCut'#3'& '#0#1#7'Command'#3#211#0 - +#8'ShortCut'#3'&@'#0#1#7'Command'#2#4#8'ShortCut'#2'('#0#1#7'Command'#2'h'#8 - +'ShortCut'#3'( '#0#1#7'Command'#3#212#0#8'ShortCut'#3'(@'#0#1#7'Command'#2#1 - +#8'ShortCut'#2'%'#0#1#7'Command'#2'e'#8'ShortCut'#3'% '#0#1#7'Command'#2#5#8 - +'ShortCut'#3'%@'#0#1#7'Command'#2'i'#8'ShortCut'#3'%`'#0#1#7'Command'#2#2#8 - +'ShortCut'#2''''#0#1#7'Command'#2'f'#8'ShortCut'#3''' '#0#1#7'Command'#2#6#8 - +'ShortCut'#3'''@'#0#1#7'Command'#2'j'#8'ShortCut'#3'''`'#0#1#7'Command'#2#10 - +#8'ShortCut'#2'"'#0#1#7'Command'#2'n'#8'ShortCut'#3'" '#0#1#7'Command'#2#14#8 - +'ShortCut'#3'"@'#0#1#7'Command'#2'r'#8'ShortCut'#3'"`'#0#1#7'Command'#2#9#8 - +'ShortCut'#2'!'#0#1#7'Command'#2'm'#8'ShortCut'#3'! '#0#1#7'Command'#2#13#8 - +'ShortCut'#3'!@'#0#1#7'Command'#2'q'#8'ShortCut'#3'!`'#0#1#7'Command'#2#7#8 - +'ShortCut'#2'$'#0#1#7'Command'#2'k'#8'ShortCut'#3'$ '#0#1#7'Command'#2#15#8 - +'ShortCut'#3'$@'#0#1#7'Command'#2's'#8'ShortCut'#3'$`'#0#1#7'Command'#2#8#8 - +'ShortCut'#2'#'#0#1#7'Command'#2'l'#8'ShortCut'#3'# '#0#1#7'Command'#2#16#8 - +'ShortCut'#3'#@'#0#1#7'Command'#2't'#8'ShortCut'#3'#`'#0#1#7'Command'#3#223#0 - +#8'ShortCut'#2'-'#0#1#7'Command'#3#201#0#8'ShortCut'#3'-@'#0#1#7'Command'#3 - +'\'#2#8'ShortCut'#3'- '#0#1#7'Command'#3#246#1#8'ShortCut'#2'.'#0#1#7'Comman' - +'d'#3'['#2#8'ShortCut'#3'. '#0#1#7'Command'#3#245#1#8'ShortCut'#2#8#0#1#7'Co' - +'mmand'#3#245#1#8'ShortCut'#3#8' '#0#1#7'Command'#3#248#1#8'ShortCut'#3#8'@' - +#0#1#7'Command'#3'Y'#2#8'ShortCut'#4#8#128#0#0#0#1#7'Command'#3'Z'#2#8'Short' - +'Cut'#4#8#160#0#0#0#1#7'Command'#3#253#1#8'ShortCut'#2#13#0#1#7'Command'#3 - +#199#0#8'ShortCut'#3'A@'#0#1#7'Command'#3#201#0#8'ShortCut'#3'C@'#0#1#7'Comm' - +'and'#3'b'#2#8'ShortCut'#3'I`'#0#1#7'Command'#3#253#1#8'ShortCut'#3'M@'#0#1#7 - +'Command'#3#254#1#8'ShortCut'#3'N@'#0#1#7'Command'#3#247#1#8'ShortCut'#3'T@' - +#0#1#7'Command'#3'c'#2#8'ShortCut'#3'U`'#0#1#7'Command'#3'\'#2#8'ShortCut'#3 - +'V@'#0#1#7'Command'#3'['#2#8'ShortCut'#3'X@'#0#1#7'Command'#3#251#1#8'ShortC' - +'ut'#3'Y@'#0#1#7'Command'#3#250#1#8'ShortCut'#3'Y`'#0#1#7'Command'#3'Y'#2#8 - +'ShortCut'#3'Z@'#0#1#7'Command'#3'Z'#2#8'ShortCut'#3'Z`'#0#1#7'Command'#3'-' - +#1#8'ShortCut'#3'0@'#0#1#7'Command'#3'.'#1#8'ShortCut'#3'1@'#0#1#7'Command'#3 - +'/'#1#8'ShortCut'#3'2@'#0#1#7'Command'#3'0'#1#8'ShortCut'#3'3@'#0#1#7'Comman' - +'d'#3'1'#1#8'ShortCut'#3'4@'#0#1#7'Command'#3'2'#1#8'ShortCut'#3'5@'#0#1#7'C' - +'ommand'#3'3'#1#8'ShortCut'#3'6@'#0#1#7'Command'#3'4'#1#8'ShortCut'#3'7@'#0#1 - +#7'Command'#3'5'#1#8'ShortCut'#3'8@'#0#1#7'Command'#3'6'#1#8'ShortCut'#3'9@' - +#0#1#7'Command'#3'_'#1#8'ShortCut'#3'0`'#0#1#7'Command'#3'`'#1#8'ShortCut'#3 - +'1`'#0#1#7'Command'#3'a'#1#8'ShortCut'#3'2`'#0#1#7'Command'#3'b'#1#8'ShortCu' - +'t'#3'3`'#0#1#7'Command'#3'c'#1#8'ShortCut'#3'4`'#0#1#7'Command'#3'd'#1#8'Sh' - +'ortCut'#3'5`'#0#1#7'Command'#3'e'#1#8'ShortCut'#3'6`'#0#1#7'Command'#3'f'#1 - +#8'ShortCut'#3'7`'#0#1#7'Command'#3'g'#1#8'ShortCut'#3'8`'#0#1#7'Command'#3 - +'h'#1#8'ShortCut'#3'9`'#0#1#7'Command'#3#231#0#8'ShortCut'#3'N`'#0#1#7'Comma' - +'nd'#3#232#0#8'ShortCut'#3'C`'#0#1#7'Command'#3#233#0#8'ShortCut'#3'L`'#0#1#7 - +'Command'#3'd'#2#8'ShortCut'#2#9#0#1#7'Command'#3'e'#2#8'ShortCut'#3#9' '#0#1 - +#7'Command'#3#250#0#8'ShortCut'#3'B`'#0#0#13'Lines.Strings'#1#6#12'ColorPrev' - +'iew'#0#8'ReadOnly'#9#22'SelectedColor.OnChange'#13#19'OnSpecialLineMarkup'#7 - +#19'OnSpecialLineColors'#14'OnStatusChange'#7#26'DisplayPreviewStatusChange' - +#0#0#8'TListBox'#19'ColorElementListBox'#4'Left'#2#3#6'Height'#3#8#1#3'Top'#2 - +'l'#5'Width'#3#200#0#16'ClickOnSelChange'#8#7'OnClick'#7#24'ColorElementList' - +'BoxClick'#17'OnSelectionChange'#7'"ColorElementListBoxSelectionChange'#8'Ta' - +'bOrder'#2#4#0#0#7'TButton'#27'SetAttributeToDefaultButton'#23'AnchorSideRig' - +'ht.Control'#7#9'ColorPage'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3 - +#212#0#6'Height'#2#25#3'Top'#2'Z'#5'Width'#3'H'#1#7'Anchors'#11#5'akTop'#6'a' - +'kLeft'#7'akRight'#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#27'SetAttribu' - +'teToDefaultButton'#7'OnClick'#7' SetAttributeToDefaultButtonClick'#8'TabOrd' - +'er'#2#5#0#0#7'TButton'#31'SetAllAttributesToDefaultButton'#23'AnchorSideRig' - +'ht.Control'#7#9'ColorPage'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3 - +#212#0#6'Height'#2#25#3'Top'#2'z'#5'Width'#3'H'#1#7'Anchors'#11#5'akTop'#6'a' - +'kLeft'#7'akRight'#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#31'SetAllAttr' - +'ibutesToDefaultButton'#7'OnClick'#7'$SetAllAttributesToDefaultButtonClick'#8 - +'TabOrder'#2#6#0#0#9'TGroupBox'#22'TextAttributesGroupBox'#23'AnchorSideRigh' - +'t.Control'#7#9'ColorPage'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'Anchor' - +'SideBottom.Control'#7#12'ColorPreview'#4'Left'#3#212#0#6'Height'#3#218#0#3 - +'Top'#3#154#0#5'Width'#3'H'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8 - +'akBottom'#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#10'Attributes'#12'Cli' - +'entHeight'#3#200#0#11'ClientWidth'#3'D'#1#8'TabOrder'#2#7#0#6'TLabel'#15'Fo' - +'reGroundLabel'#4'Left'#2#8#6'Height'#2#14#5'Width'#2'S'#7'Caption'#6#15'For' - ,'eGroundLabel'#11'ParentColor'#8#0#0#12'TColorButton'#21'ForegroundColorButt' - +'on'#21'AnchorSideTop.Control'#7#15'ForeGroundLabel'#18'AnchorSideTop.Side'#7 - +#9'asrBottom'#4'Left'#2#8#6'Height'#2#21#3'Top'#2#16#5'Width'#2'K'#17'Border' - +'Spacing.Top'#2#2#11'BorderWidth'#2#2#15'ButtonColorSize'#2#16#5'Color'#7#9 - +'clBtnFace'#14'OnColorChanged'#7#23'ColorButtonColorChanged'#0#0#12'TColorBu' - +'tton'#21'BackGroundColorButton'#21'AnchorSideTop.Control'#7#15'BackGroundLa' - +'bel'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#8#6'Height'#2#21#3'Top' - +#2':'#5'Width'#2'K'#17'BorderSpacing.Top'#2#2#11'BorderWidth'#2#2#15'ButtonC' - +'olorSize'#2#16#5'Color'#7#9'clBtnFace'#14'OnColorChanged'#7#23'ColorButtonC' - +'olorChanged'#0#0#6'TLabel'#15'BackGroundLabel'#21'AnchorSideTop.Control'#7 - +#15'ForeGroundLabel'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#8#6'Hei' - +'ght'#2#14#3'Top'#2'*'#5'Width'#2'S'#17'BorderSpacing.Top'#2#28#7'Caption'#6 - +#15'BackGroundLabel'#11'ParentColor'#8#0#0#9'TCheckBox'#28'ForeGroundUseDefa' - +'ultCheckBox'#21'AnchorSideTop.Control'#7#15'ForeGroundLabel'#18'AnchorSideT' - +'op.Side'#7#9'asrBottom'#4'Left'#2'^'#6'Height'#2#19#3'Top'#2#16#5'Width'#3 - +#181#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#17'BorderSpacing.Top'#2 - +#2#7'Caption'#6#28'ForeGroundUseDefaultCheckBox'#8'OnChange'#7#23'GeneralChe' - +'ckBoxOnChange'#8'TabOrder'#2#0#0#0#9'TCheckBox'#28'BackGroundUseDefaultChec' - +'kBox'#21'AnchorSideTop.Control'#7#15'BackGroundLabel'#18'AnchorSideTop.Side' - +#7#9'asrBottom'#4'Left'#2'^'#6'Height'#2#19#3'Top'#2'8'#5'Width'#3#181#0#7'A' - +'nchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#19'BorderSpacing.Right'#2#2#7'Ca' - +'ption'#6#28'BackGroundUseDefaultCheckBox'#8'OnChange'#7#23'GeneralCheckBoxO' - +'nChange'#8'TabOrder'#2#1#0#0#6'TPanel'#18'TextUnderlinePanel'#4'Left'#2#6#6 - +'Height'#2#19#3'Top'#2'}'#5'Width'#3'8'#1#5'Align'#7#8'alBottom'#8'AutoSize' - +#9#20'BorderSpacing.Around'#2#6#10'BevelOuter'#7#6'bvNone'#12'ClientHeight'#2 - +#19#11'ClientWidth'#3'8'#1#8'TabOrder'#2#2#0#9'TCheckBox'#21'TextUnderlineCh' - +'eckBox'#6'Height'#2#19#5'Width'#3#168#0#5'Align'#7#8'alClient'#7'Caption'#6 - +#21'TextUnderlineCheckBox'#8'OnChange'#7#23'GeneralCheckBoxOnChange'#8'TabOr' - +'der'#2#0#0#0#6'TPanel'#23'TextUnderlineRadioPanel'#4'Left'#3#168#0#6'Height' - +#2#19#5'Width'#3#144#0#5'Align'#7#7'alRight'#8'AutoSize'#9#10'BevelOuter'#7#6 - +'bvNone'#29'ChildSizing.HorizontalSpacing'#2#3#29'ChildSizing.EnlargeHorizon' - +'tal'#7#14'crsScaleChilds'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChi' - +'lds'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSiz' - +'ing.ControlsPerLine'#2#3#12'ClientHeight'#2#19#11'ClientWidth'#3#144#0#8'Ta' - +'bOrder'#2#1#7'Visible'#8#0#12'TRadioButton'#20'TextUnderlineRadioOn'#3'Tag' - +#2#3#6'Height'#2#19#5'Width'#2'('#7'Caption'#6#2'On'#7'Checked'#9#8'OnChange' - +#7#22'TextStyleRadioOnChange'#5'State'#7#9'cbChecked'#8'TabOrder'#2#0#0#0#12 - +'TRadioButton'#21'TextUnderlineRadioOff'#3'Tag'#2#3#4'Left'#2'+'#6'Height'#2 - +#19#5'Width'#2'*'#7'Caption'#6#3'Off'#8'OnChange'#7#22'TextStyleRadioOnChang' - +'e'#8'TabOrder'#2#1#0#0#12'TRadioButton'#24'TextUnderlineRadioInvert'#3'Tag' - +#2#3#4'Left'#2'X'#6'Height'#2#19#5'Width'#2'8'#7'Caption'#6#6'Invert'#8'OnCh' - +'ange'#7#22'TextStyleRadioOnChange'#8'TabOrder'#2#2#0#0#0#0#6'TPanel'#13'Tex' - +'tBoldPanel'#4'Left'#2#6#6'Height'#2#19#3'Top'#3#150#0#5'Width'#3'8'#1#5'Ali' - +'gn'#7#8'alBottom'#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#10'BevelOuter' - +#7#6'bvNone'#12'ClientHeight'#2#19#11'ClientWidth'#3'8'#1#8'TabOrder'#2#3#0#9 - +'TCheckBox'#16'TextBoldCheckBox'#6'Height'#2#19#5'Width'#3#168#0#5'Align'#7#8 - +'alClient'#7'Caption'#6#16'TextBoldCheckBox'#8'OnChange'#7#23'GeneralCheckBo' - +'xOnChange'#8'TabOrder'#2#0#0#0#6'TPanel'#18'TextBoldRadioPanel'#4'Left'#3 - +#168#0#6'Height'#2#19#5'Width'#3#144#0#5'Align'#7#7'alRight'#8'AutoSize'#9#10 - +'BevelOuter'#7#6'bvNone'#29'ChildSizing.HorizontalSpacing'#2#3#29'ChildSizin' - +'g.EnlargeHorizontal'#7#14'crsScaleChilds'#28'ChildSizing.ShrinkHorizontal'#7 - +#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBotto' - +'m'#27'ChildSizing.ControlsPerLine'#2#3#12'ClientHeight'#2#19#11'ClientWidth' - +#3#144#0#8'TabOrder'#2#1#7'Visible'#8#0#12'TRadioButton'#15'TextBoldRadioOn' - +#3'Tag'#2#1#6'Height'#2#19#5'Width'#2'('#7'Caption'#6#2'On'#7'Checked'#9#8'O' - +'nChange'#7#22'TextStyleRadioOnChange'#5'State'#7#9'cbChecked'#8'TabOrder'#2 - +#0#0#0#12'TRadioButton'#16'TextBoldRadioOff'#3'Tag'#2#1#4'Left'#2'+'#6'Heigh' - +'t'#2#19#5'Width'#2'*'#7'Caption'#6#3'Off'#8'OnChange'#7#22'TextStyleRadioOn' - +'Change'#8'TabOrder'#2#1#0#0#12'TRadioButton'#19'TextBoldRadioInvert'#3'Tag' - +#2#1#4'Left'#2'X'#6'Height'#2#19#5'Width'#2'8'#7'Caption'#6#6'Invert'#8'OnCh' - +'ange'#7#22'TextStyleRadioOnChange'#8'TabOrder'#2#2#0#0#0#0#6'TPanel'#15'Tex' - +'tItalicPanel'#4'Left'#2#6#6'Height'#2#19#3'Top'#3#175#0#5'Width'#3'8'#1#5'A' - +'lign'#7#8'alBottom'#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#10'BevelOute' - +'r'#7#6'bvNone'#12'ClientHeight'#2#19#11'ClientWidth'#3'8'#1#8'TabOrder'#2#4 - ,#0#9'TCheckBox'#18'TextItalicCheckBox'#6'Height'#2#19#5'Width'#3#168#0#5'Ali' - +'gn'#7#8'alClient'#7'Caption'#6#18'TextItalicCheckBox'#8'OnChange'#7#23'Gene' - +'ralCheckBoxOnChange'#8'TabOrder'#2#0#0#0#6'TPanel'#20'TextItalicRadioPanel' - +#4'Left'#3#168#0#6'Height'#2#19#5'Width'#3#144#0#5'Align'#7#7'alRight'#8'Aut' - +'oSize'#9#10'BevelOuter'#7#6'bvNone'#29'ChildSizing.HorizontalSpacing'#2#3#29 - +'ChildSizing.EnlargeHorizontal'#7#14'crsScaleChilds'#28'ChildSizing.ShrinkHo' - +'rizontal'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclLeftToRightTh' - +'enTopToBottom'#27'ChildSizing.ControlsPerLine'#2#3#12'ClientHeight'#2#19#11 - +'ClientWidth'#3#144#0#8'TabOrder'#2#1#7'Visible'#8#0#12'TRadioButton'#17'Tex' - +'tItalicRadioOn'#3'Tag'#2#2#6'Height'#2#19#5'Width'#2'('#7'Caption'#6#2'On'#7 - +'Checked'#9#8'OnChange'#7#22'TextStyleRadioOnChange'#5'State'#7#9'cbChecked' - +#8'TabOrder'#2#0#0#0#12'TRadioButton'#18'TextItalicRadioOff'#3'Tag'#2#2#4'Le' - +'ft'#2'+'#6'Height'#2#19#5'Width'#2'*'#7'Caption'#6#3'Off'#8'OnChange'#7#22 - +'TextStyleRadioOnChange'#8'TabOrder'#2#1#0#0#12'TRadioButton'#21'TextItalicR' - +'adioInvert'#3'Tag'#2#2#4'Left'#2'X'#6'Height'#2#19#5'Width'#2'8'#7'Caption' - +#6#6'Invert'#8'OnChange'#7#22'TextStyleRadioOnChange'#8'TabOrder'#2#2#0#0#0#0 - +#0#0#5'TPage'#13'CodetoolsPage'#7'Caption'#6#13'CodetoolsPage'#11'ClientWidt' - +'h'#3'&'#2#12'ClientHeight'#3#249#1#0#9'TGroupBox'#25'AutomaticFeaturesGroup' - +'Box'#4'Left'#2#6#6'Height'#3#237#1#3'Top'#2#6#5'Width'#3#26#2#5'Align'#7#8 - +'alClient'#20'BorderSpacing.Around'#2#6#7'Caption'#6#25'AutomaticFeaturesGro' - +'upBox'#12'ClientHeight'#3#237#1#11'ClientWidth'#3#26#2#8'TabOrder'#2#0#0#6 - +'TLabel'#14'AutoDelayLabel'#4'Left'#2#6#6'Height'#2#14#3'Top'#3#176#0#5'Widt' - +'h'#3#10#2#5'Align'#7#5'alTop'#17'BorderSpacing.Top'#2#24#20'BorderSpacing.A' - +'round'#2#6#7'Caption'#6#14'AutoDelayLabel'#11'ParentColor'#8#0#0#6'TLabel' - +#17'AutoDelayMinLabel'#21'AnchorSideTop.Control'#7#17'AutoDelayTrackBar'#18 - +'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#14#3'Top'#3#148#0 - +#5'Width'#2'\'#17'BorderSpacing.Top'#2#2#7'Caption'#6#17'AutoDelayMinLabel' - +#11'ParentColor'#8#0#0#6'TLabel'#17'AutoDelayMaxLabel'#21'AnchorSideTop.Cont' - +'rol'#7#17'AutoDelayTrackBar'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#3 - +#148#1#6'Height'#2#14#3'Top'#3#148#0#5'Width'#2'`'#9'Alignment'#7#14'taRight' - +'Justify'#7'Anchors'#11#5'akTop'#7'akRight'#0#17'BorderSpacing.Top'#2#2#7'Ca' - +'ption'#6#17'AutoDelayMaxLabel'#11'ParentColor'#8#0#0#9'TCheckBox AutoIdenti' - +'fierCompletionCheckBox'#4'Left'#2#6#6'Height'#2#19#3'Top'#2#6#5'Width'#3#10 - +#2#5'Align'#7#5'alTop'#20'BorderSpacing.Around'#2#6#7'Caption'#6' AutoIdenti' - +'fierCompletionCheckBox'#8'TabOrder'#2#0#0#0#9'TCheckBox'#26'AutoCodeParamet' - +'ersCheckBox'#4'Left'#2#6#6'Height'#2#19#3'Top'#2'8'#5'Width'#3#10#2#5'Align' - +#7#5'alTop'#20'BorderSpacing.Around'#2#6#7'Caption'#6#26'AutoCodeParametersC' - +'heckBox'#7'Enabled'#8#8'TabOrder'#2#1#0#0#9'TCheckBox'#27'AutoToolTipExprEv' - +'alCheckBox'#4'Left'#2#6#6'Height'#2#19#3'Top'#2'Q'#5'Width'#3#10#2#5'Align' - +#7#5'alTop'#20'BorderSpacing.Around'#2#6#7'Caption'#6#27'AutoToolTipExprEval' - +'CheckBox'#8'TabOrder'#2#2#0#0#9'TCheckBox'#28'AutoToolTipSymbToolsCheckBox' - +#4'Left'#2#6#6'Height'#2#19#3'Top'#2#31#5'Width'#3#10#2#5'Align'#7#5'alTop' - +#20'BorderSpacing.Around'#2#6#7'Caption'#6#28'AutoToolTipSymbToolsCheckBox'#8 - +'TabOrder'#2#3#0#0#9'TTrackBar'#17'AutoDelayTrackBar'#4'Left'#2#6#6'Height'#2 - +'('#3'Top'#2'j'#5'Width'#3#10#2#9'Frequency'#3#250#0#3'Max'#3#160#15#3'Min'#3 - +#244#1#8'Position'#3#244#1#8'ScalePos'#7#5'trTop'#5'Align'#7#5'alTop'#18'Bor' - +'derSpacing.Left'#2#6#17'BorderSpacing.Top'#2#6#19'BorderSpacing.Right'#2#6#8 - +'TabOrder'#2#4#0#0#0#0#5'TPage'#11'CodeFolding'#7'Caption'#6#11'CodeFolding' - +#11'ClientWidth'#3'&'#2#12'ClientHeight'#3#249#1#0#6'TLabel'#19'lblDividerDr' - +'awLevel'#4'Left'#2#6#6'Height'#2#14#3'Top'#2'G'#5'Width'#2'^'#7'Caption'#6 - +#19'lblDividerDrawLevel'#11'ParentColor'#8#0#0#6'TBevel'#6'Bevel1'#4'Left'#2 - +#6#6'Height'#2#2#3'Top'#2'1'#5'Width'#3#25#2#7'Anchors'#11#5'akTop'#6'akLeft' - +#7'akRight'#0#0#0#9'TCheckBox'#21'chkCodeFoldingEnabled'#4'Left'#2#6#6'Heigh' - +'t'#2#19#3'Top'#2#23#5'Width'#3#139#0#7'Caption'#6#21'chkCodeFoldingEnabled' - +#8'OnChange'#7#27'chkCodeFoldingEnabledChange'#8'TabOrder'#2#0#0#0#9'TSpinEd' - +'it'#18'edDividerDrawLevel'#4'Left'#3#211#0#6'Height'#2#23#3'Top'#2'B'#5'Wid' - +'th'#2'2'#8'MaxValue'#2#10#8'MinValue'#2#1#8'TabOrder'#2#1#5'Value'#2#1#0#0#0 - +#0#12'TButtonPanel'#11'ButtonPanel'#4'Left'#2#6#6'Height'#2'('#3'Top'#3#25#2 - +#5'Width'#3#30#2#5'Align'#7#8'alBottom'#8'AutoSize'#9#8'TabOrder'#2#1#11'Sho' - +'wButtons'#11#4'pbOK'#8'pbCancel'#6'pbHelp'#0#0#0#0 -]); diff --git a/ide/editoroptionsdlg.pas b/ide/editoroptionsdlg.pas deleted file mode 100644 index 5de8e9051f..0000000000 --- a/ide/editoroptionsdlg.pas +++ /dev/null @@ -1,1999 +0,0 @@ -{ $Id: editoroptionsdlg.pas 17085 2008-10-21 09:30:01Z paul $ } -{ - *************************************************************************** - * * - * This source is free software; you can redistribute it and/or modify * - * it under the terms of the GNU General Public License as published by * - * the Free Software Foundation; either version 2 of the License, or * - * (at your option) any later version. * - * * - * This code is distributed in the hope that it will be useful, but * - * WITHOUT ANY WARRANTY; without even the implied warranty of * - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU * - * General Public License for more details. * - * * - * A copy of the GNU General Public License is available on the World * - * Wide Web at . You can also * - * obtain it by writing to the Free Software Foundation, * - * Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. * - * * - *************************************************************************** - - Author: Mattias Gaertner -} -unit EditorOptionsDlg; - -{$mode objfpc}{$H+} - -interface - -uses - // RTL, FCL - Classes, SysUtils, - // LCL - Buttons, ComCtrls, Controls, Dialogs, ExtCtrls, Forms, Graphics, FileUtil, - GraphType, LCLIntf, LCLProc, LCLType, LResources, StdCtrls, Spin, - // synedit - SynEdit, SynEditAutoComplete, SynEditHighlighter, SynEditKeyCmds, - SynEditStrConst, - SynHighlighterCPP, SynHighlighterHTML, SynHighlighterJava, SynHighlighterLFM, - SynHighlighterPas, SynHighlighterPerl, SynHighlighterPHP, SynHighlighterSQL, - SynHighlighterPython, SynHighlighterUNIXShellScript, SynHighlighterXML, - SynHighlighterJScript, SynEditMiscClasses, - // codetools - LinkScanner, CodeToolManager, Laz_XMLCfg, - // IDEIntf - IDECommands, IDEWindowIntf, SrcEditorIntf, IDEImagesIntf, IDEOptionsIntf, - // IDE - LazarusIDEStrConsts, IDEOptionDefs, IDEProcs, InputHistory, KeyMapping, - KeymapSchemeDlg, KeyMapShortCutDlg, LazConf, ButtonPanel, EditorOptions; - -type - TPreviewEditor = TSynEdit; - - { TEditorOptionsForm } - - TEditorOptionsForm = class(TForm) - ButtonPanel: TButtonPanel; - DisableAntialiasingCheckBox: TCheckBox; - MainNoteBook: TNoteBook; - - // general options - EditorOptionsGroupBox: TCheckGroup; - GeneralPage: TPage; - DisplayPage: TPage; - KeymappingPage: TPage; - ColorPage: TPage; - CodetoolsPage: TPage; - BlockIndentComboBox: TComboBox; - BlockIndentLabel: TLabel; - CodeFolding: TPage; - TextBoldRadioOn : TRadioButton; - TextBoldRadioOff : TRadioButton; - TextBoldRadioInvert : TRadioButton; - TextItalicRadioOn : TRadioButton; - TextItalicRadioOff : TRadioButton; - TextItalicRadioInvert : TRadioButton; - TextUnderlineRadioOn : TRadioButton; - TextUnderlineRadioOff : TRadioButton; - TextUnderlineRadioInvert : TRadioButton; - TextBoldRadioPanel : TPanel; - TextItalicRadioPanel : TPanel; - TextUnderlineRadioPanel : TPanel; - TextUnderlinePanel : TPanel; - TextItalicPanel : TPanel; - TextBoldPanel : TPanel; - UndoLimitComboBox: TComboBox; - UndoLimitLabel: TLabel; - TabWidthsComboBox: TComboBox; - TabWidthsLabel: TLabel; - - // Display options - MarginAndGutterGroupBox: TGroupBox; - VisibleRightMarginCheckBox: TCheckBox; - VisibleGutterCheckBox: TCheckBox; - ShowLineNumbersCheckBox: TCheckBox; - ShowOnlyLineNumbersMultiplesOfLabel: TLabel; - ShowOnlyLineNumbersMultiplesOfSpinEdit: TSpinEdit; - GutterColorButton: TColorButton; - GutterColorLabel: TLabel; - RightMarginComboBox: TComboBox; - RightMarginLabel: TLabel; - RightMarginColorButton: TColorButton; - RightMarginColorLabel: TLabel; - EditorFontGroupBox: TGroupBox; - EditorFontComboBox: TComboBox; - EditorFontButton: TButton; - EditorFontHeightLabel: TLabel; - EditorFontHeightComboBox: TComboBox; - ExtraLineSpacingLabel: TLabel; - ExtraLineSpacingComboBox: TComboBox; - ExtraCharSpacingLabel: TLabel; - ExtraCharSpacingComboBox: TComboBox; - DisplayPreview: TPreviewEditor; - - // Key Mappings - KeyMappingChooseSchemeButton: TButton; - KeyMappingHelpLabel: TLabel; - KeyMappingTreeView: TTreeView; - KeyMappingConsistencyCheckButton: TButton; - KeyMappingFindKeyButton: TButton; - KeyMappingFilterEdit: TEdit; - - // Color options - LanguageComboBox: TComboBox; - LanguageLabel: TLabel; - FileExtensionsComboBox: TComboBox; - FileExtensionsLabel: TLabel; - ColorSchemeComboBox: TComboBox; - ColorSchemeLabel: TLabel; - ColorElementLabel: TLabel; - ColorElementListBox: TListBox; - TextAttributesGroupBox: TGroupBox; - TextBoldCheckBox: TCheckBox; - TextItalicCheckBox: TCheckBox; - TextUnderlineCheckBox: TCheckBox; - ForeGroundGroupBox: TGroupBox; - ForeGroundColorButton: TColorButton; - ForeGroundUseDefaultCheckBox: TCheckBox; - BackGroundGroupBox: TGroupBox; - BackGroundColorButton: TColorButton; - BackGroundUseDefaultCheckBox: TCheckBox; - SetAttributeToDefaultButton: TButton; - SetAllAttributesToDefaultButton: TButton; - ColorPreview: TPreviewEditor; - ForeGroundLabel: TLabel; - BackGroundLabel: TLabel; - - // Code Tools options - AutomaticFeaturesGroupBox: TGroupBox; - AutoIdentifierCompletionCheckBox: TCheckBox; - AutoCodeParametersCheckBox: TCheckBox; - AutoToolTipExprEvalCheckBox: TCheckBox; - AutoToolTipSymbToolsCheckBox: TCheckBox; - AutoDelayLabel: TLabel; - AutoDelayTrackBar: TTrackBar; - AutoDelayMinLabel: TLabel; - AutoDelayMaxLabel: TLabel; - - // Code Folding - Bevel1: TBevel; - chkCodeFoldingEnabled: TCheckBox; - lblDividerDrawLevel: TLabel; - edDividerDrawLevel: TSpinEdit; - - // general - procedure ColorElementListBoxClick(Sender: TObject); - procedure DisplayPreviewStatusChange(Sender : TObject; Changes : TSynStatusChanges); - procedure GeneralCheckBoxOnChange(Sender: TObject); - procedure ComboBoxOnChange(Sender: TObject); - procedure ComboBoxOnExit(Sender: TObject); - procedure ComboBoxOnKeyDown(Sender: TObject; - var Key: Word; Shift: TShiftState); - procedure ColorButtonColorChanged(Sender: TObject); - - // display - procedure FontDialogApplyClicked(Sender: TObject); - procedure EditorFontComboBoxEditingDone(Sender: TObject); - procedure EditorFontButtonClick(Sender: TObject); - procedure HelpButtonClick(Sender: TObject); - procedure KeyMappingFilterEditExit(Sender: TObject); - procedure RightMarginColorButtonColorChanged(Sender: TObject); - - // key mapping - procedure KeyMappingFilterEditEnter(Sender: TObject); - procedure KeyMappingFilterEditChange(Sender: TObject); - procedure KeyMappingChooseSchemeButtonClick(Sender: TObject); - procedure KeyMappingTreeViewMouseUp(Sender: TObject; - Button: TMouseButton; Shift: TShiftState; X, Y: Integer); - procedure KeyMappingConsistencyCheckButtonClick(Sender: TObject); - procedure KeyMappingFindKeyButtonClick(Sender: TObject); - - // color - procedure ColorElementListBoxSelectionChange(Sender: TObject; User: Boolean); - procedure ColorPreviewMouseUp(Sender: TObject; Button: TMouseButton; - Shift: TShiftState; X, Y: Integer); - procedure OnSpecialLineColors(Sender: TObject; Line: Integer; - var Special: boolean; aMarkUp : TSynSelectedColor); - procedure SetAttributeToDefaultButtonClick(Sender: TObject); - procedure SetAllAttributesToDefaultButtonClick(Sender: TObject); - - // code tools - - // Code Folding - procedure chkCodeFoldingEnabledChange(Sender: TObject); - - // buttons at bottom - procedure OkButtonClick(Sender: TObject); - procedure CancelButtonClick(Sender: TObject); - procedure ShowLineNumbersCheckBoxClick(Sender: TObject); - procedure TextStyleRadioOnChange(Sender : TObject); - private - FormCreating: Boolean; - PreviewSyn: TSrcIDEHighlighter; - // 3 is used to hold the true (non-preview) options, it is not displayed - PreviewEdits: array[1..3] of TPreviewEditor; - CurLanguageID: Integer; - // current index in EditorOpts.EditOptHighlighterList - CurHighlightElement: TSynHighlightElement; - CurHighlightElementIsExtra: Boolean; - UpdatingColor: Boolean; - fHighlighterList: TStringList; // list of "ColorScheme" Data=TSrcIDEHighlighter - fColorSchemes: TStringList; // list of LanguageName=ColorScheme - fFileExtensions: TStringList; // list of LanguageName=FileExtensions - EditingKeyMap: TKeyCommandRelationList; - - procedure SetComboBoxText(AComboBox: TComboBox; const AText: String); - procedure FontDialogNameToFont(FontDialogName: String; AFont: TFont); - procedure InvalidatePreviews; - procedure SetPreviewSynInAllPreviews; - procedure SetupButtonBar; - - // general - procedure SetupGeneralPage(Page: Integer); - - // display - procedure SetupDisplayPage(Page: Integer); - - // keymapping - KeyMapNameFilter: string; - KeyMapKeyFilter: TIDEShortCut; - procedure SetupKeyMappingsPage(Page: Integer); - function KeyMappingRelationToString(Index: Integer): String; - function KeyMappingRelationToString(KeyRelation: - TKeyCommandRelation): String; - procedure FillKeyMappingTreeView; - - // color - procedure SetupColorPage(Page: Integer); - procedure ShowCurAttribute; - procedure FindCurHighlightElement; - function GetHighlighter(SynClass: TCustomSynClass; - const ColorScheme: String; CreateIfNotExists: Boolean): TSrcIDEHighlighter; - procedure ClearHighlighters; - procedure SaveAllHighlighters; - procedure FillColorElementListBox; - function GetCurColorScheme(const LanguageName: String): String; - procedure SetCurColorScheme(const LanguageName, ColorScheme: String); - procedure SaveAllColorSchemes; - function GetCurFileExtensions(const LanguageName: String): String; - procedure SetCurFileExtensions(const LanguageName, FileExtensions: String); - procedure SaveAllFileExtensions; - procedure SetColorElementsToDefaults(OnlySelected: Boolean); - - // code tools - procedure SetupCodeToolsPage(Page: Integer); - - // Code Folding - procedure SetupCodeFoldingPage(Page: integer); - public - constructor Create(TheOwner: TComponent); override; - destructor Destroy; override; - end; - -implementation - -uses - IDEContextHelpEdit; - -var - imgKeyCategory, imgKeyItem: Integer; - -{ TEditorOptionsForm } - -constructor TEditorOptionsForm.Create(TheOwner: TComponent); -var - a: Integer; - s: String; -begin - inherited Create(TheOwner); - FormCreating := True; - Caption := lismenueditoroptions; - KeyMapNameFilter:=''; - KeyMapKeyFilter:=CleanIDEShortCut; - - IDEDialogLayoutList.ApplyLayout(Self, Width,Height); - - SetupGeneralPage(0); - SetupDisplayPage(1); - SetupKeyMappingsPage(2); - SetupColorPage(3); - SetupCodeToolsPage(4); - SetupCodeFoldingPage(5); - SetupButtonBar; - - UpdatingColor := False; - CurHighlightElement := Nil; - CurHighlightElementIsExtra := False; - - // create a temporary copy of the keymap for editing - EditingKeyMap := TKeyCommandRelationList.Create; - EditingKeyMap.Assign(EditorOpts.KeyMap); - - // initialize previews - for a := Low(PreviewEdits) to High(PreviewEdits) do - PreviewEdits[a] := Nil; - s := GetCurColorScheme(TPreviewPasSyn.GetLanguageName); - PreviewSyn := GetHighlighter(TPreviewPasSyn, s, True); - CurLanguageID := EditorOpts.HighlighterList.FindByClass( - TCustomSynClass(PreviewSyn.ClassType)); - - PreviewEdits[1] := DisplayPreview; - PreviewEdits[2] := ColorPreview; - PreviewEdits[3] := TSynEdit.Create(self); - for a := Low(PreviewEdits) to High(PreviewEdits) do - if PreviewEdits[a] <> Nil then - with PreviewEdits[a] do - begin - if EditorOpts.UseSyntaxHighlight then - Highlighter := PreviewSyn; - if a <> 3 then - EditorOpts.GetSynEditPreviewSettings(PreviewEdits[a]) - else - EditorOpts.GetSynEditSettings(PreviewEdits[a]); - EditingKeyMap.AssignTo(PreviewEdits[a].KeyStrokes, - TSourceEditorWindowInterface); - if a <> 3 then - begin - Lines.Text := EditorOpts.HighlighterList[CurLanguageID].SampleSource; - PreviewEdits[a].CaretXY := EditorOpts.HighlighterList[CurLanguageID].CaretXY; - PreviewEdits[a].TopLine := 1; - PreviewEdits[a].LeftChar := 1; - end; - end; - - // general options - - // display options - - // key mappings - FillKeyMappingTreeView; - - // color options - LanguageComboBox.Text := PreviewSyn.LanguageName; - SetComboBoxText(LanguageComboBox, LanguageComboBox.Text); - ColorSchemeComboBox.Text := GetCurColorScheme(PreviewSyn.LanguageName); - SetComboBoxText(ColorSchemeComboBox, ColorSchemeComboBox.Text); - FillColorElementListBox; - FindCurHighlightElement; - ShowCurAttribute; - InvalidatePreviews; - - // code Tools options - - MainNoteBook.PageIndex := 0; - FormCreating := False; -end; - -destructor TEditorOptionsForm.Destroy; -begin - ClearHighlighters; - fColorSchemes.Free; - fFileExtensions.Free; - EditingKeyMap.Free; - inherited Destroy; -end; - - -// general - -procedure TEditorOptionsForm.GeneralCheckBoxOnChange(Sender: TObject); -var - a: Integer; - NewColor: TColor; - i: LongInt; - - procedure SetOption(const CheckBoxName: String; AnOption: TSynEditorOption); - var - a: Integer; - i: LongInt; - begin - i:=EditorOptionsGroupBox.Items.IndexOf(CheckBoxName); - if i<0 then begin - DebugLn(['TEditorOptionsForm.GeneralCheckBoxOnChange.SetOption i<0']); - exit; - end; - for a := Low(PreviewEdits) to High(PreviewEdits) do begin - if (a <> 3) and (AnOption in SynEditPreviewExcludeOptions) then - continue; - if PreviewEdits[a] <> Nil then - if EditorOptionsGroupBox.Checked[i] then - PreviewEdits[a].Options := PreviewEdits[a].Options + [AnOption] - else - PreviewEdits[a].Options := PreviewEdits[a].Options - [AnOption]; - end; - end; - - procedure SetOption2(const CheckBoxName: String; AnOption: TSynEditorOption2); - var - a: Integer; - i: LongInt; - begin - i:=EditorOptionsGroupBox.Items.IndexOf(CheckBoxName); - if i<0 then exit; - for a := Low(PreviewEdits) to High(PreviewEdits) do begin - if (a <> 3) and (AnOption in SynEditPreviewExcludeOptions2) then - continue; - if PreviewEdits[a] <> Nil then - if EditorOptionsGroupBox.Checked[i] then - PreviewEdits[a].Options2 := PreviewEdits[a].Options2 + [AnOption] - else - PreviewEdits[a].Options2 := PreviewEdits[a].Options2 - [AnOption]; - end; - end; - - // GeneralCheckBoxOnChange -begin - if FormCreating then - exit; - // general - SetOption(dlgAltSetClMode, eoAltSetsColumnMode); - SetOption(dlgAutoIdent, eoAutoIndent); - SetOption(dlgBracHighlight,eoBracketHighlight); - SetOption(dlgDoubleClickLine, eoDoubleClickSelectsLine); - SetOption(dlgDragDropEd, eoDragDropEditing); - SetOption(dlgDropFiles, eoDropFiles); - SetOption(dlgGroupUndo, eoGroupUndo); - 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); - SetOption2(dlgAlwaysVisibleCursor, eoAlwaysVisibleCaret); - - for a := Low(PreviewEdits) to High(PreviewEdits) do - if PreviewEdits[a] <> Nil then - begin - // general - i:=EditorOptionsGroupBox.Items.IndexOf(dlgUseSyntaxHighlight); - if EditorOptionsGroupBox.Checked[i] then - PreviewEdits[a].Highlighter := PreviewSyn - else - PreviewEdits[a].Highlighter := Nil; - // display - PreviewEdits[a].Gutter.Visible := VisibleGutterCheckBox.Checked; - PreviewEdits[a].Gutter.ShowLineNumbers := ShowLineNumbersCheckBox.Checked; - PreviewEdits[a].Gutter.ShowOnlyLineNumbersMultiplesOf := ShowOnlyLineNumbersMultiplesOfSpinEdit.Value; - PreviewEdits[a].RightEdgeColor:=RightMarginColorButton.ButtonColor; - if VisibleRightMarginCheckBox.Checked then - PreviewEdits[a].RightEdge:=StrToIntDef(RightMarginComboBox.Text,80) - else - PreviewEdits[a].RightEdge:=0; - if DisableAntialiasingCheckBox.Checked then - PreviewEdits[a].Font.Quality:=fqNonAntialiased - else - PreviewEdits[a].Font.Quality:=fqDefault; - end; - if CurHighlightElement <> Nil then - begin - if Sender = ForeGroundUseDefaultCheckBox then - if UpdatingColor = False then - begin - UpdatingColor := True; - if not ForeGroundUseDefaultCheckBox.Checked then - NewColor := ForeGroundColorButton.ButtonColor - else - NewColor := clNone; - ForeGroundColorButton.Visible := not - ForeGroundUseDefaultCheckBox.Checked; - if NewColor <> CurHighlightElement.Foreground then - begin - CurHighlightElement.Foreground := NewColor; - InvalidatePreviews; - end; - UpdatingColor := False; - end; - if Sender = BackGroundUseDefaultCheckBox then - if UpdatingColor = False then - begin - if not BackGroundUseDefaultCheckBox.Checked then - NewColor := BackGroundColorButton.ButtonColor - else - NewColor := clNone; - BackGroundColorButton.Visible := not - BackGroundUseDefaultCheckBox.Checked; - if NewColor <> CurHighlightElement.Background then - begin - CurHighlightElement.Background := NewColor; - InvalidatePreviews; - end; - end; - if Sender = TextBoldCheckBox then - if CurHighlightElementIsExtra - then TextStyleRadioOnChange(Sender) - else if TextBoldCheckBox.Checked xor (fsBold in CurHighlightElement.Style) then - begin - if TextBoldCheckBox.Checked then - CurHighlightElement.Style := CurHighlightElement.Style + [fsBold] - else - CurHighlightElement.Style := CurHighlightElement.Style - [fsBold]; - InvalidatePreviews; - end; - if Sender = TextItalicCheckBox then - if CurHighlightElementIsExtra - then TextStyleRadioOnChange(Sender) - else if TextItalicCheckBox.Checked then - begin - if not (fsItalic in CurHighlightElement.Style) then - begin - CurHighlightElement.Style := CurHighlightElement.Style + [fsItalic]; - InvalidatePreviews; - end; - end - else - if (fsItalic in CurHighlightElement.Style) then - begin - CurHighlightElement.Style := CurHighlightElement.Style - [fsItalic]; - InvalidatePreviews; - end; - if Sender = TextUnderlineCheckBox then - if CurHighlightElementIsExtra - then TextStyleRadioOnChange(Sender) - else if TextUnderlineCheckBox.Checked then - begin - if not (fsUnderline in CurHighlightElement.Style) then - begin - CurHighlightElement.Style := CurHighlightElement.Style + [fsUnderline]; - InvalidatePreviews; - end; - end - else - if (fsUnderline in CurHighlightElement.Style) then - begin - CurHighlightElement.Style := CurHighlightElement.Style - [fsUnderline]; - InvalidatePreviews; - end; - end; -end; -procedure TEditorOptionsForm.ColorElementListBoxClick(Sender: TObject); -begin - FindCurHighlightElement; -end; - -type - // This is only needed until SynEdit does the ScrollWindowEx in Paint, instead of SetTopline - TSynEditAccess = class(TSynEdit); -procedure TEditorOptionsForm.DisplayPreviewStatusChange(Sender : TObject; Changes : TSynStatusChanges); -var - Syn: TSynEditAccess; - p: TPoint; - tl, lc: Integer; -begin - p := EditorOpts.HighlighterList[CurLanguageID].CaretXY; - Syn := TSynEditAccess(Pointer(Sender as TSynEdit)); - if p.y > Syn.Lines.Count then exit; - if (Syn.CaretX = p.x) and (Syn.Carety = p.y) then exit; - try - Syn.IncPaintLock; - tl := Syn.TopLine; - lc := Syn.LeftChar; - Syn.CaretXY:= p; - Syn.TopLine := tl; - Syn.LeftChar := lc; - finally - Syn.DecPaintLock; - end; -end; - -procedure TEditorOptionsForm.chkCodeFoldingEnabledChange(Sender: TObject); -begin - lblDividerDrawLevel.Enabled := chkCodeFoldingEnabled.Checked; - edDividerDrawLevel.Enabled := chkCodeFoldingEnabled.Checked; -end; - -procedure TEditorOptionsForm.EditorFontComboBoxEditingDone(Sender: TObject); -var - i: Integer; -begin - for i := Low(PreviewEdits) to High(PreviewEdits) do - if PreviewEdits[i] <> Nil then - PreviewEdits[i].Font.Name:=EditorFontComboBox.Text; -end; - -procedure TEditorOptionsForm.ColorButtonColorChanged(Sender: TObject); -var - a: Integer; -begin - if FormCreating then - exit; - if Sender = ForeGroundColorButton then - begin - if (CurHighlightElement = Nil) or UpdatingColor then - exit; - if not ForeGroundUseDefaultCheckBox.Checked then - begin - CurHighlightElement.Foreground := ForeGroundColorButton.ButtonColor; - InvalidatePreviews; - end; - end; - if Sender = BackGroundColorButton then - begin - if (CurHighlightElement = Nil) or UpdatingColor then - exit; - if not BackGroundUseDefaultCheckBox.Checked then - begin - CurHighlightElement.Background := BackGroundColorButton.ButtonColor; - InvalidatePreviews; - end; - end; - if Sender = GutterColorButton then - for a := Low(PreviewEdits) to High(PreviewEdits) do - if PreviewEdits[a] <> Nil then - begin - PreviewEdits[a].Gutter.Color := GutterColorButton.ButtonColor; - PreviewEdits[a].Invalidate; - end; -end; - -procedure TEditorOptionsForm.FontDialogNameToFont(FontDialogName: String; - AFont: TFont); -var - TmpFont: TFont; - p, p2, index: Integer; - s: shortstring; -begin - TmpFont := TFont.Create; - TmpFont.Assign(AFont); - try - p := 1; - p2 := 0; - index := 1; - while (p <= length(FontDialogName)) do - begin - if (FontDialogName[p] = '-') then - begin - // this is an XLFD font name, the third item is the name - s := copy(FontDialogName, p2 + 1, p - p2 - 1); - p2 := p; - case Index of - 3: - TmpFont.Name := s; - //8:TmpFont.Height:=StrToIntDef(s,TmpFont.Height); - end; - inc(Index); - end; - inc(p); - end; - AFont.Assign(TmpFont); - finally - TmpFont.Free; - end; -end; - -procedure TEditorOptionsForm.FontDialogApplyClicked(Sender: TObject); -var - a: Integer; -begin - for a := Low(PreviewEdits) to High(PreviewEdits) do - if PreviewEdits[a] <> Nil then - PreviewEdits[a].Font.Assign(TFontDialog(Sender).Font); - SetComboBoxText(EditorFontComboBox,DisplayPreview.Font.Name); - SetComboBoxText(EditorFontHeightComboBox, - IntToStr(DisplayPreview.Font.Height)); -end; - -procedure TEditorOptionsForm.EditorFontButtonClick(Sender: TObject); -var - FontDialog: TFontDialog; - NewHeight: LongInt; -begin - FontDialog := TFontDialog.Create(Nil); - try - with FontDialog do - begin - Font.Name := EditorFontComboBox.Text; - NewHeight := StrToIntDef(EditorFontHeightComboBox.Text, PreviewEdits[1].Font.Height); - RepairEditorFontHeight(NewHeight); - Font.Height := NewHeight; - Options := Options + [fdApplyButton]; - OnApplyClicked := @FontDialogApplyClicked; - if Execute then - FontDialogApplyClicked(FontDialog); - end; - finally - FontDialog.Free; - end; -end; - -procedure TEditorOptionsForm.HelpButtonClick(Sender: TObject); -begin - ShowContextHelpForIDE(Self); -end; - -procedure TEditorOptionsForm.KeyMappingFilterEditExit(Sender: TObject); -begin - if KeyMappingFilterEdit.Text='' then - KeyMappingFilterEdit.Text:=lisFilter2; -end; - -procedure TEditorOptionsForm.KeyMappingFilterEditEnter(Sender: TObject); -begin - if KeyMappingFilterEdit.Text=lisFilter2 then - KeyMappingFilterEdit.Text:=''; -end; - -procedure TEditorOptionsForm.KeyMappingFilterEditChange(Sender: TObject); -var - Filter: String; -begin - if [csLoading,csDestroying]*ComponentState<>[] then exit; - Filter:=KeyMappingFilterEdit.Text; - if (Filter=lisFilter2) or (Filter=KeyMappingFilterEdit.Name) then Filter:=''; - KeyMapNameFilter:=Filter; - FillKeyMappingTreeView; -end; - -procedure TEditorOptionsForm.KeyMappingFindKeyButtonClick(Sender: TObject); -var - KeyFilter: TIDEShortCut; -begin - if ShowKeyMappingGrabForm(KeyFilter)<>mrOK then exit; - //debugln(['TEditorOptionsForm.KeyMappingFindKeyButtonClick ',KeyAndShiftStateToEditorKeyString(KeyFilter)]); - KeyMapKeyFilter:=KeyFilter; - FillKeyMappingTreeView; -end; - -procedure TEditorOptionsForm.KeyMappingChooseSchemeButtonClick( - Sender: TObject); -var - NewScheme: String; -begin - NewScheme:=EditorOpts.KeyMappingScheme; - if ShowChooseKeySchemeDialog(NewScheme) <> mrOk then - exit; - EditorOpts.KeyMappingScheme:=NewScheme; - EditingKeyMap.LoadScheme(NewScheme); - FillKeyMappingTreeView; -end; - -procedure TEditorOptionsForm.ComboBoxOnExit(Sender: TObject); -var - NewVal, a: Integer; - Box: TComboBox; -begin - if FormCreating then - exit; - Box := TComboBox(Sender); - if PreviewEdits[1] <> Nil then - if Sender = BlockIndentComboBox then - begin - NewVal := StrToIntDef(BlockIndentComboBox.Text, - PreviewEdits[1].BlockIndent); - SetComboBoxText(BlockIndentComboBox, IntToStr(NewVal)); - for a := Low(PreviewEdits) to High(PreviewEdits) do - if PreviewEdits[a] <> Nil then - PreviewEdits[a].BlockIndent := NewVal; - end - else - if Sender = TabWidthsComboBox then - begin - NewVal := StrToIntDef(TabWidthsComboBox.Text, - PreviewEdits[1].TabWidth); - SetComboBoxText(TabWidthsComboBox, IntToStr(NewVal)); - for a := Low(PreviewEdits) to High(PreviewEdits) do - if PreviewEdits[a] <> Nil then - PreviewEdits[a].TabWidth := NewVal; - end - // display - else - if Sender = EditorFontHeightComboBox then - begin - NewVal := StrToIntDef(EditorFontHeightComboBox.Text, - PreviewEdits[1].Font.Height); - RepairEditorFontHeight(NewVal); - SetComboBoxText(EditorFontHeightComboBox, IntToStr(NewVal)); - for a := Low(PreviewEdits) to High(PreviewEdits) do - if PreviewEdits[a] <> Nil then - PreviewEdits[a].Font.Height := NewVal; - end - else - if Sender = ExtraCharSpacingComboBox then - begin - NewVal := StrToIntDef(ExtraCharSpacingComboBox.Text, - PreviewEdits[1].ExtraCharSpacing); - SetComboBoxText(ExtraCharSpacingComboBox, IntToStr(NewVal)); - for a := Low(PreviewEdits) to High(PreviewEdits) do - if PreviewEdits[a] <> Nil then - PreviewEdits[a].ExtraCharSpacing := NewVal; - end - else - if Sender = ExtraLineSpacingComboBox then - begin - NewVal := StrToIntDef(ExtraLineSpacingComboBox.Text, - PreviewEdits[1].ExtraLineSpacing); - SetComboBoxText(ExtraLineSpacingComboBox, IntToStr(NewVal)); - for a := Low(PreviewEdits) to High(PreviewEdits) do - if PreviewEdits[a] <> Nil then - PreviewEdits[a].ExtraLineSpacing := NewVal; - end - else - if Sender = RightMarginComboBox then - begin - NewVal := StrToIntDef(RightMarginComboBox.Text,PreviewEdits[1].RightEdge); - SetComboBoxText(RightMarginComboBox, IntToStr(NewVal)); - for a := Low(PreviewEdits) to High(PreviewEdits) do - if PreviewEdits[a] <> Nil then begin - if VisibleRightMarginCheckBox.Checked then - PreviewEdits[a].RightEdge := NewVal - else - PreviewEdits[a].RightEdge := 0; - end; - end - // color - else - if Sender = ColorSchemeComboBox then - begin - if Box.Items.IndexOf(Box.Text) < 0 then - SetComboBoxText(Box, GetCurColorScheme(PreviewSyn.LanguageName)) - // unknown color scheme -> switch back - else - if Box.Text <> GetCurColorScheme(PreviewSyn.LanguageName) then - begin - // change the colorscheme - SetCurColorScheme(PreviewSyn.LanguageName, Box.Text); - SetComboBoxText(Box, Box.Text); - PreviewSyn := GetHighlighter(TCustomSynClass(PreviewSyn.ClassType), - Box.Text, True); - SetPreviewSynInAllPreviews; - FillColorElementListBox; - FindCurHighlightElement; - InvalidatePreviews; - end; - end - else - if Sender = FileExtensionsComboBox then - begin - //DebugLn(['TEditorOptionsForm.ComboBoxOnExit Box.Text="',Box.Text,'" Old="',GetCurFileExtensions(PreviewSyn.LanguageName),'" PreviewSyn.LanguageName=',PreviewSyn.LanguageName]); - if Box.Text <> GetCurFileExtensions(PreviewSyn.LanguageName) then - begin - SetCurFileExtensions(PreviewSyn.LanguageName, Box.Text); - SetComboBoxText(Box, Box.Text); - end; - //DebugLn(['TEditorOptionsForm.ComboBoxOnExit Box.Text="',Box.Text,'" Now="',GetCurFileExtensions(PreviewSyn.LanguageName),'" PreviewSyn.LanguageName=',PreviewSyn.LanguageName]); - end - else - if Sender = LanguageComboBox then - if Box.Items.IndexOf(Box.Text) < 0 then - SetComboBoxText(Box, PreviewSyn.LanguageName)// unknown language -> switch back - else - if Box.Text <> PreviewSyn.LanguageName then - begin - NewVal := EditorOpts.HighlighterList.FindByName(Box.Text); - if NewVal >= 0 then - begin - SetComboBoxText(Box, Box.Text); - CurLanguageID := NewVal; - PreviewSyn := GetHighlighter( - EditorOpts.HighlighterList[CurLanguageID].SynClass, - GetCurColorScheme( - EditorOpts.HighlighterList[ - CurLanguageID].SynClass.GetLanguageName) - , True); - SetComboBoxText(ColorSchemeComboBox, - GetCurColorScheme(PreviewSyn.LanguageName)); - SetComboBoxText(FileExtensionsComboBox, - GetCurFileExtensions(PreviewSyn.LanguageName)); - for a := Low(PreviewEdits) to High(PreviewEdits) do - if a <> 3 then begin - PreviewEdits[a].Lines.Text := - EditorOpts.HighlighterList[CurLanguageID].SampleSource; - PreviewEdits[a].CaretXY := EditorOpts.HighlighterList[CurLanguageID].CaretXY; - PreviewEdits[a].TopLine := 1; - PreviewEdits[a].LeftChar := 1; - end; - SetPreviewSynInAllPreviews; - FillColorElementListBox; - FindCurHighlightElement; - InvalidatePreviews; - end; - end// change language - // general - ; -end; - -procedure TEditorOptionsForm.ComboBoxOnKeyDown(Sender: TObject; var Key: Word; - Shift: TShiftState); -begin - if (ssCtrl in Shift) and (Key = VK_S) then - ComboBoxOnExit(Sender); -end; - -procedure TEditorOptionsForm.ComboBoxOnChange(Sender: TObject); -var - ComboBox: TComboBox; -begin - ComboBox := TComboBox(Sender); - if ComboBox.Items.IndexOf(ComboBox.Text) >= 0 then - ComboBoxOnExit(Sender); -end; - -procedure TEditorOptionsForm.FindCurHighlightElement; -var - a, i: Integer; - h: TAdditionalHilightAttribute; - Old: TSynHighlightElement; -begin - Old := CurHighlightElement; - CurHighlightElement := Nil; - a := ColorElementListBox.ItemIndex; - if (a >= 0) then - begin - i := PreviewSyn.AttrCount - 1; - while (i >= 0) do - begin - if ColorElementListBox.Items[a] = PreviewSyn.Attribute[i].Name then - begin - CurHighlightElement := PreviewSyn.Attribute[i]; - break; - end; - dec(i); - end; - end; - - if Old <> CurHighlightElement then begin - CurHighlightElementIsExtra := False; - for h := Low(TAdditionalHilightAttribute) - to high(TAdditionalHilightAttribute) do - if ColorElementListBox.Items[a] = AdditionalHighlightAttributes[h] - then CurHighlightElementIsExtra := true; - ShowCurAttribute; - end; -end; - -procedure TEditorOptionsForm.InvalidatePreviews; -var - a: Integer; -begin - for a := Low(PreviewEdits) to High(PreviewEdits) do - if PreviewEdits[a] <> Nil then begin - EditorOpts.SetMarkupColors(PreviewEdits[a].Highlighter, PreviewEdits[a]); - PreviewEdits[a].Invalidate; - end; -end; - -procedure TEditorOptionsForm.SetPreviewSynInAllPreviews; -var - a: Integer; -begin - for a := Low(PreviewEdits) to High(PreviewEdits) do - if PreviewEdits[a] <> Nil then - if EditorOpts.UseSyntaxHighlight then - PreviewEdits[a].Highlighter := PreviewSyn - else - PreviewEdits[a].Highlighter := Nil; -end; - -procedure TEditorOptionsForm.ShowCurAttribute; -begin - if (CurHighlightElement = nil) or UpdatingColor then - exit; - UpdatingColor := True; - - TextBoldRadioPanel.Visible := CurHighlightElementIsExtra; - TextItalicRadioPanel.Visible := CurHighlightElementIsExtra; - TextUnderlineRadioPanel.Visible := CurHighlightElementIsExtra; - if CurHighlightElementIsExtra then begin - TextBoldCheckBox.Checked := (fsBold in CurHighlightElement.Style) - or (fsBold in CurHighlightElement.StyleMask); - TextBoldRadioPanel.Enabled := TextBoldCheckBox.Checked; - if not(fsBold in CurHighlightElement.StyleMask) - then TextBoldRadioInvert.Checked := True - else if fsBold in CurHighlightElement.Style - then TextBoldRadioOn.Checked := True - else TextBoldRadioOff.Checked := True; - - TextItalicCheckBox.Checked := (fsItalic in CurHighlightElement.Style) - or (fsItalic in CurHighlightElement.StyleMask); - TextItalicRadioPanel.Enabled := TextItalicCheckBox.Checked; - if not(fsItalic in CurHighlightElement.StyleMask) - then TextItalicRadioInvert.Checked := True - else if fsItalic in CurHighlightElement.Style - then TextItalicRadioOn.Checked := True - else TextItalicRadioOff.Checked := True; - - TextUnderlineCheckBox.Checked := (fsUnderline in CurHighlightElement.Style) - or (fsUnderline in CurHighlightElement.StyleMask); - TextUnderlineRadioPanel.Enabled := TextUnderlineCheckBox.Checked; - if not(fsUnderline in CurHighlightElement.StyleMask) - then TextUnderlineRadioInvert.Checked := True - else if fsUnderline in CurHighlightElement.Style - then TextUnderlineRadioOn.Checked := True - else TextUnderlineRadioOff.Checked := True; - end else begin - TextBoldCheckBox.Checked := fsBold in CurHighlightElement.Style; - TextItalicCheckBox.Checked := fsItalic in CurHighlightElement.Style; - TextUnderlineCheckBox.Checked := fsUnderline in CurHighlightElement.Style; - end; - - - if CurHighlightElement.Foreground = clNone then - ForeGroundUseDefaultCheckBox.Checked := True - else - begin - ForeGroundUseDefaultCheckBox.Checked := False; - ForeGroundColorButton.ButtonColor := CurHighlightElement.Foreground; - end; - ForeGroundColorButton.Visible := not ForeGroundUseDefaultCheckBox.Checked; - if CurHighlightElement.Background = clNone then - BackGroundUseDefaultCheckBox.Checked := True - else - begin - BackGroundUseDefaultCheckBox.Checked := False; - BackGroundColorButton.ButtonColor := CurHighlightElement.Background; - end; - BackGroundColorButton.Visible := not BackGroundUseDefaultCheckBox.Checked; - UpdatingColor := False; -end; - -procedure TEditorOptionsForm.KeyMappingTreeViewMouseUp(Sender: TObject; - Button: TMouseButton; Shift: TShiftState; X, Y: Integer); -var - i: Integer; - ARelation: TKeyCommandRelation; - ANode: TTreeNode; -begin - ANode := KeyMappingTreeView.GetNodeAt(X, Y); - if (ANode <> Nil) and (ANode.Data <> Nil) and - (TObject(ANode.Data) is TKeyCommandRelation) then - begin - ARelation := TKeyCommandRelation(ANode.Data); - i := EditingKeyMap.IndexOf(ARelation); - if (i >= 0) and (ShowKeyMappingEditForm(i, EditingKeyMap) = mrOk) then - begin - FillKeyMappingTreeView; - for i := Low(PreviewEdits) to High(PreviewEdits) do - if PreviewEdits[i] <> Nil then - EditingKeyMap.AssignTo(PreviewEdits[i].KeyStrokes, - TSourceEditorWindowInterface); - end; - end; -end; - -type - TKeyMapErrorsForm = class(TForm) - ListBox: TListBox; - BackButton: TButton; - procedure BackButtonClick(Sender: TObject); - public - constructor Create(AnOwner: TComponent); override; - end; - -constructor TKeyMapErrorsForm.Create(AnOwner: TComponent); -begin - inherited Create(AnOwner); - if LazarusResources.Find(ClassName) = Nil then - begin - SetBounds((Screen.Width - 410) div 2, (Screen.Height - 260) div 2, 400, 250); - Caption := dlgKeyMappingErrors; - - ListBox := TListBox.Create(Self); - with ListBox do - begin - Name := 'ListBox'; - Align:=alTop; - Parent := Self; - end; - - BackButton := TButton.Create(Self); - with BackButton do - begin - Name := 'BackButton'; - AutoSize:=true; - Anchors:=[akBottom]; - Parent := Self; - AnchorParallel(akBottom,6,Self); - Caption := dlgEdBack; - OnClick := @BackButtonClick; - end; - ListBox.AnchorToNeighbour(akBottom,6,BackButton); - end; -end; - -procedure TKeyMapErrorsForm.BackButtonClick(Sender: TObject); -begin - ModalResult := mrOk; -end; - -procedure TEditorOptionsForm.KeyMappingConsistencyCheckButtonClick( - Sender: TObject); -var - Protocol: TStringList; - ErrorCount, Index1, Index2: Integer; - ACaption, AText: String; - KeyMapErrorsForm: TKeyMapErrorsForm; -begin - Protocol := TStringList.Create; - try - ErrorCount := FindKeymapConflicts(EditingKeyMap, Protocol, Index1, Index2); - if ErrorCount > 0 then - begin - KeyMapErrorsForm := TKeyMapErrorsForm.Create(Nil); - try - KeyMapErrorsForm.ListBox.Items.Assign(Protocol); - KeyMapErrorsForm.ShowModal; - finally - KeyMapErrorsForm.Free; - end; - end - else - begin - ACaption := dlgReport; - AText := dlgEdNoErr; - MessageDlg(ACaption, AText, mtInformation, [mbOk], 0); - end; - finally - Protocol.Free; - end; -end; - -procedure TEditorOptionsForm.ColorElementListBoxSelectionChange( - Sender: TObject; - User: Boolean); -begin - FindCurHighlightElement; -end; - -procedure TEditorOptionsForm.FillColorElementListBox; -var - i: Integer; -begin - with ColorElementListBox.Items do - begin - BeginUpdate; - Clear; - - for i := 0 to PreviewSyn.AttrCount - 1 do - if PreviewSyn.Attribute[i].Name <> '' then - Add(PreviewSyn.Attribute[i].Name); - EndUpdate; - end; - - CurHighlightElement := Nil; - CurHighlightElementIsExtra := False; - if ColorElementListBox.Items.Count > 0 then - ColorElementListBox.Selected[0] := True; - FindCurHighlightElement; -end; - -procedure TEditorOptionsForm.ColorPreviewMouseUp(Sender: TObject; - Button: TMouseButton; Shift: TShiftState; X, Y: Integer); -var - NewIndex: Integer; - Token: String; - Attri: TSynHighlightElement; - MouseXY, XY: TPoint; - AddAttr: TAdditionalHilightAttribute; -begin - MouseXY := Point(X, Y); - XY := ColorPreview.PixelsToRowColumn(MouseXY); - NewIndex := -1; - if CurLanguageID >= 0 then - begin - AddAttr := EditorOpts.HighlighterList[ - CurLanguageID].SampleLineToAddAttr(XY.Y); - if AddAttr <> ahaNone then - NewIndex := ColorElementListBox.Items.IndexOf( - AdditionalHighlightAttributes[AddAttr]); - end; - if NewIndex < 0 then - begin - Token:=''; - Attri:=nil; - ColorPreview.GetHighlighterAttriAtRowCol(XY, Token, Attri); - if Attri = Nil then - Attri := PreviewSyn.WhitespaceAttribute; - if Attri <> Nil then - NewIndex := ColorElementListBox.Items.IndexOf(Attri.Name); - end; - if NewIndex >= 0 then - begin - ColorElementListBox.ItemIndex := NewIndex; - FindCurHighlightElement; - end; -end; - -procedure TEditorOptionsForm.OnSpecialLineColors(Sender: TObject; - Line: Integer; var Special: boolean; aMarkup: TSynSelectedColor); -var - e: TSynHighlightElement; - AddAttr: TAdditionalHilightAttribute; - i: Integer; -begin - if CurLanguageID >= 0 then - begin - AddAttr := EditorOpts.HighlighterList[CurLanguageID].SampleLineToAddAttr(Line); - if AddAttr <> ahaNone then - begin - i := PreviewSyn.AttrCount - 1; - while (i >= 0) do - begin - e := PreviewSyn.Attribute[i]; - if e.Name = '' then - continue; - if e.Name = AdditionalHighlightAttributes[AddAttr] then - begin - Special := True; - EditorOpts.SetMarkupColor(PreviewSyn, AddAttr, aMarkup); - exit; - end; - dec(i); - end; - end; - end; -end; - -procedure TEditorOptionsForm.RightMarginColorButtonColorChanged(Sender: TObject); -var - a: Integer; -begin - for a := Low(PreviewEdits) to High(PreviewEdits) do - if PreviewEdits[a] <> Nil then - PreviewEdits[a].RightEdgeColor:=RightMarginColorButton.ButtonColor; -end; - -procedure TEditorOptionsForm.SetAttributeToDefaultButtonClick(Sender: TObject); -begin - SetColorElementsToDefaults(True); -end; - -procedure TEditorOptionsForm.SetAllAttributesToDefaultButtonClick( - Sender: TObject); -begin - SetColorElementsToDefaults(False); -end; - -procedure TEditorOptionsForm.SetColorElementsToDefaults(OnlySelected: Boolean); -var - DefaultSyn: TSrcIDEHighlighter; - PascalSyn: TPreviewPasSyn; - i, j: Integer; - CurSynClass: TCustomSynClass; -begin - PascalSyn := TPreviewPasSyn(GetHighlighter(TPreviewPasSyn, - ColorSchemeComboBox.Text, True)); - CurSynClass := TCustomSynClass(PreviewSyn.ClassType); - DefaultSyn := CurSynClass.Create(Nil); - try - EditorOpts.AddSpecialHilightAttribsToHighlighter(DefaultSyn); - EditorOpts.ReadDefaultsForHighlighterSettings(DefaultSyn, - ColorSchemeComboBox.Text, PascalSyn); - for i := 0 to DefaultSyn.AttrCount - 1 do - begin - if DefaultSyn.Attribute[i].Name = '' then - continue; - if OnlySelected then - begin - if (DefaultSyn.Attribute[i].Name = CurHighlightElement.Name) then - CopyHiLightAttributeValues(DefaultSyn.Attribute[i], - CurHighlightElement); - end - else - for j := 0 to PreviewSyn.AttrCount - 1 do - if PreviewSyn.Attribute[j].Name = DefaultSyn.Attribute[i].Name then - CopyHiLightAttributeValues(DefaultSyn.Attribute[i], - PreviewSyn.Attribute[j]); - end; - finally - DefaultSyn.Free; - end; - ShowCurAttribute; -end; - -function TEditorOptionsForm.GetCurColorScheme( - const LanguageName: String): String; -begin - if fColorSchemes = Nil then - Result := '' - else - Result := fColorSchemes.Values[LanguageName]; - if Result = '' then - Result := EditorOpts.ReadColorScheme(LanguageName); -end; - -procedure TEditorOptionsForm.SetCurColorScheme( - const LanguageName, ColorScheme: String); -begin - if fColorSchemes = Nil then - fColorSchemes := TStringList.Create; - fColorSchemes.Values[LanguageName] := ColorScheme; -end; - -procedure TEditorOptionsForm.SaveAllColorSchemes; -var - i: Integer; -begin - if fColorSchemes = Nil then - exit; - for i := 0 to fColorSchemes.Count - 1 do - EditorOpts.WriteColorScheme(fColorSchemes.Names[i], - fColorSchemes.Values[fColorSchemes.Names[i]]); -end; - -function TEditorOptionsForm.GetCurFileExtensions( - const LanguageName: String): String; -var - i: Integer; -begin - if fFileExtensions = Nil then - Result := '' - else - Result := fFileExtensions.Values[LanguageName]; - if Result = '' then - begin - i := EditorOpts.HighlighterList.FindByName(LanguageName); - if i >= 0 then - Result := EditorOpts.HighlighterList[i].FileExtensions; - end; -end; - -procedure TEditorOptionsForm.SetCurFileExtensions( - const LanguageName, FileExtensions: String); -begin - if fFileExtensions = Nil then - fFileExtensions := TStringList.Create; - fFileExtensions.Values[LanguageName] := FileExtensions; - //DebugLn(['TEditorOptionsForm.SetCurFileExtensions ',LanguageName,'=',FileExtensions]); -end; - -procedure TEditorOptionsForm.SaveAllFileExtensions; -var - i, j: Integer; -begin - if fFileExtensions = Nil then - exit; - for i := 0 to fFileExtensions.Count - 1 do - begin - j := EditorOpts.HighlighterList.FindByName(fFileExtensions.Names[i]); - if j >= 0 then begin - EditorOpts.HighlighterList[j].FileExtensions := - fFileExtensions.ValueFromIndex[i]; - //DebugLn(['TEditorOptionsForm.SaveAllFileExtensions ',fFileExtensions.Names[i],'=',fFileExtensions.ValueFromIndex[i],' -> ',EditorOpts.HighlighterList[j].FileExtensions]); - end; - end; -end; - -function TEditorOptionsForm.GetHighlighter(SynClass: TCustomSynClass; - const ColorScheme: String; CreateIfNotExists: Boolean): TSrcIDEHighlighter; -var - i: Integer; -begin - if fHighlighterList = Nil then - fHighlighterList := TStringList.Create; - for i := 0 to fHighlighterList.Count - 1 do - if (fHighlighterList[i] = ColorScheme) and - (TCustomSynClass(TSrcIDEHighlighter(fHighlighterList.Objects[i]).ClassType) = - SynClass) then - begin - Result := TSrcIDEHighlighter(fHighlighterList.Objects[i]); - exit; - end; - if CreateIfNotExists then - begin - Result := SynClass.Create(Nil); - EditorOpts.AddSpecialHilightAttribsToHighlighter(Result); - fHighlighterList.AddObject(ColorScheme, Result); - EditorOpts.ReadHighlighterSettings(Result, ColorScheme); - end; -end; - -procedure TEditorOptionsForm.ClearHighlighters; -var - i: Integer; -begin - if fHighlighterList = Nil then - exit; - for i := 0 to fHighlighterList.Count - 1 do - TSrcIDEHighlighter(fHighlighterList.Objects[i]).Free; - fHighlighterList.Free; -end; - -procedure TEditorOptionsForm.SaveAllHighlighters; -var - i: Integer; - Syn: TSrcIDEHighlighter; -begin - if fHighlighterList = Nil then - exit; - for i := 0 to fHighlighterList.Count - 1 do - begin - Syn := TSrcIDEHighlighter(fHighlighterList.Objects[i]); - EditorOpts.WriteHighlighterSettings(Syn, fHighlighterList[i]); - end; -end; - -// keymapping ------------------------------------------------------------------ - -function TEditorOptionsForm.KeyMappingRelationToString(Index: Integer): String; -begin - Result := KeyMappingRelationToString(EditingKeyMap.Relations[Index]); -end; - -function TEditorOptionsForm.KeyMappingRelationToString( - KeyRelation: TKeyCommandRelation): String; -var - s: String; - CopiedLength: Integer; -begin - with KeyRelation do - begin - Result := UTF8Copy(LocalizedName, 1, 40); - CopiedLength := UTF8Length(Result); - if CopiedLength < 40 then - begin - SetLength(s, (40 - CopiedLength)); - FillChar(s[1], length(s), ' '); - end - else - s := ''; - Result := Result + s; - if (ShortcutA.Key1 = VK_UNKNOWN) and (ShortcutB.Key1 = VK_UNKNOWN) then - Result := Result + lisNone2 - else - if (ShortcutA.Key1 = VK_UNKNOWN) then - Result := Result + KeyAndShiftStateToEditorKeyString(ShortcutB) - else - if (ShortcutB.Key1 = VK_UNKNOWN) then - Result := Result + KeyAndShiftStateToEditorKeyString(ShortcutA) - else - Result := Result + KeyAndShiftStateToEditorKeyString(ShortcutA) - + ' '+lisOr+' ' + - KeyAndShiftStateToEditorKeyString(ShortcutB); - end; -end; - -procedure TEditorOptionsForm.FillKeyMappingTreeView; -var - i, j: Integer; - NewCategoryNode, NewKeyNode: TTreeNode; - CurCategory: TIDECommandCategory; - CurKeyRelation: TKeyCommandRelation; - ChildNodeIndex: Integer; - CategoryNodeIndex: Integer; - HasFilter: Boolean; - ItemCaption: String; - NameFilterUp: String; -begin - HasFilter:=(KeyMapNameFilter<>''); - NameFilterUp:=uppercase(KeyMapNameFilter); - with KeyMappingTreeView do - begin - BeginUpdate; - CategoryNodeIndex:=0; - for i := 0 to EditingKeyMap.CategoryCount - 1 do - begin - CurCategory := EditingKeyMap.Categories[i]; - if Items.TopLvlCount > CategoryNodeIndex then - begin - NewCategoryNode := Items.TopLvlItems[CategoryNodeIndex]; - NewCategoryNode.Text := CurCategory.Description; - NewCategoryNode.Data := CurCategory; - end - else - NewCategoryNode := Items.AddObject(Nil, CurCategory.Description, CurCategory); - NewCategoryNode.ImageIndex := imgKeyCategory; - NewCategoryNode.SelectedIndex := NewCategoryNode.ImageIndex; - ChildNodeIndex:=0; - for j := 0 to CurCategory.Count - 1 do - begin - CurKeyRelation := TKeyCommandRelation(CurCategory[j]); - ItemCaption:=KeyMappingRelationToString(CurKeyRelation); - if (NameFilterUp<>'') - and (System.Pos(NameFilterUp,UpperCase(ItemCaption))=0) then - continue; - if (KeyMapKeyFilter.Key1<>VK_UNKNOWN) - and (CompareIDEShortCutKey1s(@KeyMapKeyFilter,@CurKeyRelation.ShortcutA)<>0) - and (CompareIDEShortCutKey1s(@KeyMapKeyFilter,@CurKeyRelation.ShortcutB)<>0) - then - continue; - if NewCategoryNode.Count > ChildNodeIndex then - begin - NewKeyNode := NewCategoryNode.Items[ChildNodeIndex]; - NewKeyNode.Text := ItemCaption; - NewKeyNode.Data := CurKeyRelation; - end - else - NewKeyNode := Items.AddChildObject(NewCategoryNode, - ItemCaption, CurKeyRelation); - NewKeyNode.ImageIndex := imgKeyItem; - NewKeyNode.SelectedIndex := NewKeyNode.ImageIndex; - inc(ChildNodeIndex); - end; - // delete unneeded ones - while NewCategoryNode.Count > ChildNodeIndex do - NewCategoryNode[NewCategoryNode.Count - 1].Delete; - if NewCategoryNode.Count>0 then begin - if HasFilter then - NewCategoryNode.Expanded:=true; - inc(CategoryNodeIndex); - end; - end; - while Items.TopLvlCount > CategoryNodeIndex do - Items.TopLvlItems[Items.TopLvlCount - 1].Delete; - EndUpdate; - end; -end; - -// useful functions - -procedure TEditorOptionsForm.SetComboBoxText(AComboBox: TComboBox; - const AText: String); -var - a: Integer; -begin - a := AComboBox.Items.IndexOf(AText); - if a >= 0 then begin - AComboBox.ItemIndex := a; - end else - begin - AComboBox.Items.Add(AText); - AComboBox.ItemIndex := AComboBox.Items.IndexOf(AText); - end; -end; - -procedure TEditorOptionsForm.SetupGeneralPage(Page: Integer); -begin - MainNoteBook.Page[Page].Caption := lisMenuInsertGeneral; - - EditorOptionsGroupBox.Caption := lismenueditoroptions; - - with EditorOptionsGroupBox do - begin - // selections - Items.Add(dlgAltSetClMode); - Items.Add(dlgAutoIdent); - // visual effects - Items.Add(dlgBracHighlight); - Items.Add(dlgShowGutterHints); - //Items.Add(dlgShowScrollHint); - Items.Add(lisShowSpecialCharacters); - Items.Add(dlgUseSyntaxHighlight); - // drag&drop - 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); - // undo - Items.Add(dlgUndoAfterSave); - Items.Add(dlgGroupUndo); - // mouse - Items.Add(dlgDoubleClickLine); - Items.Add(dlgMouseLinks); - Items.Add(dlgCloseButtonsNotebook); - // copying - Items.Add(dlgFindTextatCursor); - Items.Add(dlgCopyWordAtCursorOnCopyNone); - - Checked[Items.IndexOf(dlgAltSetClMode)] := eoAltSetsColumnMode in - EditorOpts.SynEditOptions; - Checked[Items.IndexOf(dlgAutoIdent)] := eoAutoIndent in EditorOpts.SynEditOptions; - Checked[Items.IndexOf(dlgBracHighlight)] := - eoBracketHighlight in EditorOpts.SynEditOptions; - Checked[Items.IndexOf(dlgDragDropEd)] := - eoDragDropEditing in EditorOpts.SynEditOptions; - Checked[Items.IndexOf(dlgDropFiles)] := eoDropFiles in EditorOpts.SynEditOptions; - //TODO CheckEnabledByName[dlgDropFiles] := False; - Checked[Items.IndexOf(dlgGroupUndo)] := eoGroupUndo in EditorOpts.SynEditOptions; - Checked[Items.IndexOf(dlgHalfPageScroll)] := - eoHalfPageScroll in EditorOpts.SynEditOptions; - Checked[Items.IndexOf(dlgKeepCursorX)] := eoKeepCaretX in EditorOpts.SynEditOptions; - Checked[Items.IndexOf(dlgPersistentCursor)] := - eoPersistentCaret in EditorOpts.SynEditOptions; - Checked[Items.IndexOf(dlgRightMouseMovesCursor)] := - eoRightMouseMovesCursor in EditorOpts.SynEditOptions; - Checked[Items.IndexOf(dlgScrollByOneLess)] := - eoScrollByOneLess in EditorOpts.SynEditOptions; - Checked[Items.IndexOf(dlgScrollPastEndFile)] := - eoScrollPastEoF in EditorOpts.SynEditOptions; - Checked[Items.IndexOf(dlgMouseLinks)] := EditorOpts.CtrlMouseLinks; - Checked[Items.IndexOf(dlgShowGutterHints)] := EditorOpts.ShowGutterHints; - Checked[Items.IndexOf(dlgScrollPastEndLine)] := - eoScrollPastEoL in EditorOpts.SynEditOptions; - Checked[Items.IndexOf(dlgCloseButtonsNotebook)] := EditorOpts.ShowTabCloseButtons; - //Checked[Items.IndexOf(dlgShowScrollHint)] := - // eoShowScrollHint in EditorOpts.SynEditOptions; - Checked[Items.IndexOf(lisShowSpecialCharacters)] := - eoShowSpecialChars in EditorOpts.SynEditOptions; - Checked[Items.IndexOf(dlgSmartTabs)] := eoSmartTabs in EditorOpts.SynEditOptions; - //DebugLn(['TEditorOptionsForm.SetupGeneralPage ',Checked[Items.IndexOf(dlgSmartTabs)],' ',Items.IndexOf(dlgSmartTabs),' ',eoSmartTabs in EditorOpts.SynEditOptions]); - Checked[Items.IndexOf(dlgTabsToSpaces)] := - eoTabsToSpaces in EditorOpts.SynEditOptions; - Checked[Items.IndexOf(dlgTabIndent)] := eoTabIndent in EditorOpts.SynEditOptions; - Checked[Items.IndexOf(dlgTrimTrailingSpaces)] := - eoTrimTrailingSpaces in EditorOpts.SynEditOptions; - Checked[Items.IndexOf(dlgUndoAfterSave)] := EditorOpts.UndoAfterSave; - Checked[Items.IndexOf(dlgDoubleClickLine)] := - eoDoubleClickSelectsLine in EditorOpts.SynEditOptions; - Checked[Items.IndexOf(dlgFindTextatCursor)] := EditorOpts.FindTextAtCursor; - Checked[Items.IndexOf(dlgUseSyntaxHighlight)] := EditorOpts.UseSyntaxHighlight; - Checked[Items.IndexOf(dlgCopyWordAtCursorOnCopyNone)] := - EditorOpts.CopyWordAtCursorOnCopyNone; - Checked[Items.IndexOf(dlgHomeKeyJumpsToNearestStart)] := - eoEnhanceHomeKey in EditorOpts.SynEditOptions; - Checked[Items.IndexOf(dlgCursorSkipsSelection)] := - eoCaretSkipsSelection in EditorOpts.SynEditOptions2; - Checked[Items.IndexOf(dlgAlwaysVisibleCursor)] := - eoAlwaysVisibleCaret in EditorOpts.SynEditOptions2; - end; - - with BlockIndentComboBox do - SetComboBoxText(BlockIndentComboBox, IntToStr(EditorOpts.BlockIndent)); - - BlockIndentLabel.Caption := dlgBlockIndent; - - with UndoLimitComboBox do - SetComboBoxText(UndoLimitComboBox, IntToStr(EditorOpts.UndoLimit)); - - UndoLimitLabel.Caption := dlgUndoLimit; - - with TabWidthsComboBox do - SetComboBoxText(TabWidthsComboBox, IntToStr(EditorOpts.TabWidth)); - - TabWidthsLabel.Caption := dlgTabWidths; -end; - -procedure TEditorOptionsForm.SetupDisplayPage(Page: Integer); -begin - MainNoteBook.Page[Page].Caption := dlgEdDisplay; - - MarginAndGutterGroupBox.Caption := dlgMarginGutter; - - with VisibleRightMarginCheckBox do - begin - Caption := dlgVisibleRightMargin; - Checked := EditorOpts.VisibleRightMargin; - end; - - with VisibleGutterCheckBox do - begin - Caption := dlgVisibleGutter; - Checked := EditorOpts.VisibleGutter; - end; - - with ShowLineNumbersCheckBox do - begin - Caption := dlgShowLineNumbers; - Checked := EditorOpts.ShowLineNumbers; - end; - - ShowOnlyLineNumbersMultiplesOfLabel.Caption := lisEveryNThLineNumber; - ShowOnlyLineNumbersMultiplesOfLabel.Enabled := ShowLineNumbersCheckBox.Checked; - ShowOnlyLineNumbersMultiplesOfSpinEdit.Value := EditorOpts.ShowOnlyLineNumbersMultiplesOf; - ShowOnlyLineNumbersMultiplesOfSpinEdit.Enabled := ShowLineNumbersCheckBox.Checked; - - RightMarginLabel.Caption := dlgRightMargin; - - VisibleRightMarginCheckBox.Checked:=EditorOpts.VisibleRightMargin; - with RightMarginComboBox do - SetComboBoxText(RightMarginComboBox, IntToStr(EditorOpts.RightMargin)); - - RightMarginColorLabel.Caption := dlgRightMarginColor; - - RightMarginColorButton.ButtonColor := EditorOpts.RightMarginColor; - - GutterColorLabel.Caption := dlgGutterColor; - - GutterColorButton.ButtonColor := EditorOpts.GutterColor; - - EditorFontGroupBox.Caption := dlgDefaultEditorFont; - - with EditorFontComboBox do - SetComboBoxText(EditorFontComboBox, EditorOpts.EditorFont); - - with EditorFontHeightComboBox do - SetComboBoxText(EditorFontHeightComboBox,IntToStr(EditorOpts.EditorFontHeight)); - - EditorFontHeightLabel.Caption := dlgEditorFontHeight; - - SetComboBoxText(ExtraCharSpacingComboBox,IntToStr(EditorOpts.ExtraCharSpacing)); - ExtraCharSpacingLabel.Caption := dlgExtraCharSpacing; - SetComboBoxText(ExtraLineSpacingComboBox,IntToStr(EditorOpts.ExtraLineSpacing)); - ExtraLineSpacingLabel.Caption := dlgExtraLineSpacing; - DisableAntialiasingCheckBox.Checked := EditorOpts.DisableAntialiasing; - DisableAntialiasingCheckBox.Caption := dlgDisableAntialiasing; -end; - -procedure TEditorOptionsForm.SetupKeyMappingsPage(Page: Integer); -begin - MainNoteBook.Page[Page].Caption := dlgKeyMapping; - - KeyMappingChooseSchemeButton.Caption := lisEdOptsChooseScheme; - - KeyMappingConsistencyCheckButton.Caption := dlgCheckConsistency; - - KeyMappingHelpLabel.Caption := dlgEdHintCommand; - KeyMappingFilterEdit.Text:=lisFilter2; - KeyMappingFindKeyButton.Caption:=lisFindKeyCombination; - KeyMappingTreeView.Images := IDEImages.Images_16; - imgKeyCategory := IDEImages.LoadImage(16, 'item_keyboard'); - imgKeyItem := IDEImages.LoadImage(16, 'item_character'); -end; - -procedure TEditorOptionsForm.SetupColorPage(Page: Integer); -var - a: Integer; -begin - MainNoteBook.Page[Page].Caption := dlgEdColor; - - LanguageLabel.Caption := dlgLang; - - with LanguageComboBox do - with Items do - begin - BeginUpdate; - for a := 0 to EditorOpts.HighlighterList.Count - 1 do - Add(EditorOpts.HighlighterList[a].SynClass.GetLanguageName); - //for a:=0 to EditorOpts.HighlighterList.Count-1 do - // writeln('TEditorOptionsForm.SetupColorPage ',a,' ',EditorOpts.HighlighterList[a].SynClass.GetLanguageName - // ,' ',EditorOpts.HighlighterList[a].SynClass.ClassName); - EndUpdate; - end; - - ColorSchemeLabel.Caption := dlgClrScheme; - - with ColorSchemeComboBox do - begin - with Items do - begin - BeginUpdate; - // ToDo: fill also with custom color schemes - Add(DEFAULT_COLOR_SCHEME.Name); - Add(DELPHI_COLOR_SCHEME.Name); - Add(CLASSIC_COLOR_SCHEME.Name); - Add(TWILIGHT_COLOR_SCHEME.Name); - Add(OCEAN_COLOR_SCHEME.Name); - EndUpdate; - end; - Text := DEFAULT_COLOR_SCHEME.Name; - end; - - FileExtensionsLabel.Caption := dlgFileExts; - - with FileExtensionsComboBox do - if CurLanguageID >= 0 then - SetComboBoxText(FileExtensionsComboBox, - EditorOpts.HighlighterList[CurLanguageID].FileExtensions); - - ColorElementLabel.Caption := dlgEdElement; - - SetAttributeToDefaultButton.Caption := dlgSetElementDefault; - - SetAllAttributesToDefaultButton.Caption := dlgSetAllElementDefault; - - ForeGroundLabel.Caption := dlgForecolor; - - ForeGroundUseDefaultCheckBox.Caption := dlgEdUseDefColor; - - BackGroundLabel.Caption := dlgBackColor; - - BackgroundColorButton.Color := clBlue; - - BackGroundUseDefaultCheckBox.Caption := dlgEdUseDefColor; - - TextAttributesGroupBox.Caption := dlgTextAttributes; - - TextBoldCheckBox.Caption := dlgEdBold; - TextBoldRadioOn.Caption := dlgEdOn; - TextBoldRadioOff.Caption := dlgEdOff; - TextBoldRadioInvert.Caption := dlgEdInvert; - - TextItalicCheckBox.Caption := dlgEdItal; - TextItalicRadioOn.Caption := dlgEdOn; - TextItalicRadioOff.Caption := dlgEdOff; - TextItalicRadioInvert.Caption := dlgEdInvert; - - TextUnderlineCheckBox.Caption := dlgEdUnder; - TextUnderlineRadioOn.Caption := dlgEdOn; - TextUnderlineRadioOff.Caption := dlgEdOff; - TextUnderlineRadioInvert.Caption := dlgEdInvert; -end; - -procedure TEditorOptionsForm.SetupCodeToolsPage(Page: Integer); -begin - MainNoteBook.Page[Page].Caption := dlgCodeToolsTab; - - AutomaticFeaturesGroupBox.Caption := lisAutomaticFeatures; - - with AutoIdentifierCompletionCheckBox do - begin - Caption := dlgEdIdComlet; - Checked := EditorOpts.AutoIdentifierCompletion; - end; - - with AutoCodeParametersCheckBox do - begin - Caption := dlgEdCodeParams; - Checked := EditorOpts.AutoCodeParameters; - end; - - with AutoToolTipExprEvalCheckBox do - begin - Caption := dlgTooltipEval; - Checked := EditorOpts.AutoToolTipExprEval; - end; - - with AutoToolTipSymbToolsCheckBox do - begin - Caption := dlgTooltipTools; - Checked := EditorOpts.AutoToolTipSymbTools; - end; - - AutoDelayLabel.Caption := dlgEdDelay; - AutoDelayTrackBar.Position := EditorOpts.AutoDelayInMSec; - AutoDelayMinLabel.Caption := '0.5 ' + DlgTimeSecondUnit; - AutoDelayMaxLabel.Caption := '4.0 ' + dlgTimeSecondUnit; -end; - -procedure TEditorOptionsForm.SetupCodeFoldingPage(Page: integer); -begin - MainNoteBook.Page[Page].Caption := dlgUseCodeFolding; - chkCodeFoldingEnabled.Caption := dlgUseCodeFolding; - lblDividerDrawLevel.Caption := dlgCFDividerDrawLevel + ':'; - - chkCodeFoldingEnabled.Checked := EditorOpts.UseCodeFolding; - edDividerDrawLevel.Value := EditorOpts.CFDividerDrawLevel; -end; - -procedure TEditorOptionsForm.SetupButtonBar; -begin - ButtonPanel.OKButton.OnClick := @OKButtonClick; - ButtonPanel.CancelButton.OnClick := @CancelButtonClick; - ButtonPanel.HelpButton.OnClick := @HelpButtonClick; -end; - -procedure TEditorOptionsForm.OkButtonClick(Sender: TObject); -var - i: Integer; -begin - IDEDialogLayoutList.SaveLayout(Self); - - // save all values - EditorOpts.KeyMap.Assign(EditingKeyMap); - EditorOpts.SetSynEditSettings(PreviewEdits[3]); - - // general - EditorOpts.ShowTabCloseButtons := - CheckGroupItemChecked(EditorOptionsGroupBox,dlgCloseButtonsNotebook); - EditorOpts.UndoAfterSave := - CheckGroupItemChecked(EditorOptionsGroupBox,dlgUndoAfterSave); - EditorOpts.CopyWordAtCursorOnCopyNone := - CheckGroupItemChecked(EditorOptionsGroupBox,dlgCopyWordAtCursorOnCopyNone); - EditorOpts.ShowGutterHints := - CheckGroupItemChecked(EditorOptionsGroupBox,dlgShowGutterHints); - EditorOpts.FindTextAtCursor := - CheckGroupItemChecked(EditorOptionsGroupBox,dlgFindTextatCursor); - EditorOpts.UseSyntaxHighlight := - CheckGroupItemChecked(EditorOptionsGroupBox,dlgUseSyntaxHighlight); - EditorOpts.CtrlMouseLinks := - CheckGroupItemChecked(EditorOptionsGroupBox,dlgMouseLinks); - i := StrToIntDef(UndoLimitComboBox.Text, 32767); - if i < 1 then - i := 1; - if i > 32767 then - i := 32767; - EditorOpts.UndoLimit := i; - i := StrToIntDef(TabWidthsComboBox.Text, 2); - if i < 1 then - i := 1; - if i > 20 then - i := 20; - EditorOpts.TabWidth := i; - i := StrToIntDef(BlockIndentComboBox.Text, 2); - if i < 1 then - i := 1; - if i > 20 then - i := 20; - EditorOpts.BlockIndent := i; - - - // color - SaveAllFileExtensions; - SaveAllColorSchemes; - SaveAllHighlighters; - - // code Tools - EditorOpts.AutoIdentifierCompletion := - AutoIdentifierCompletionCheckBox.Checked; - EditorOpts.AutoCodeParameters := AutoCodeParametersCheckBox.Checked; - EditorOpts.AutoToolTipExprEval := AutoToolTipExprEvalCheckBox.Checked; - EditorOpts.AutoToolTipSymbTools := AutoToolTipSymbToolsCheckBox.Checked; - EditorOpts.AutoDelayInMSec := AutoDelayTrackBar.Position; - - // Code Folding - EditorOpts.UseCodeFolding := chkCodeFoldingEnabled.Checked; - EditorOpts.CFDividerDrawLevel := edDividerDrawLevel.Value; - - EditorOpts.Save; - ModalResult := mrOk; -end; - -procedure TEditorOptionsForm.CancelButtonClick(Sender: TObject); -begin - IDEDialogLayoutList.SaveLayout(Self); - EditorOpts.Load; - ModalResult := mrCancel; -end; - -procedure TEditorOptionsForm.ShowLineNumbersCheckBoxClick(Sender: TObject); -begin - ShowOnlyLineNumbersMultiplesOfSpinEdit.Enabled := ShowLineNumbersCheckBox.Checked; - ShowOnlyLineNumbersMultiplesOfLabel.Enabled := ShowLineNumbersCheckBox.Checked; -end; - -procedure TEditorOptionsForm.TextStyleRadioOnChange(Sender : TObject); - procedure CalcNewStyle(CheckBox: TCheckBox; RadioOn, RadioOff, - RadioInvert: TRadioButton; fs : TFontStyle; - Panel: TPanel); - begin - if CheckBox.Checked then begin - Panel.Enabled := True; - if RadioInvert.Checked then begin - CurHighlightElement.Style := CurHighlightElement.Style + [fs]; - CurHighlightElement.StyleMask := CurHighlightElement.StyleMask - [fs]; - end else if RadioOn.Checked then begin - CurHighlightElement.Style := CurHighlightElement.Style + [fs]; - CurHighlightElement.StyleMask := CurHighlightElement.StyleMask + [fs]; - end else if RadioOff.Checked then begin - CurHighlightElement.Style := CurHighlightElement.Style - [fs]; - CurHighlightElement.StyleMask := CurHighlightElement.StyleMask + [fs]; - end - end else begin - Panel.Enabled := False; - CurHighlightElement.Style := CurHighlightElement.Style - [fs]; - CurHighlightElement.StyleMask := CurHighlightElement.StyleMask - [fs]; - end; - end; -begin - if FormCreating then exit; - if UpdatingColor or not CurHighlightElementIsExtra then exit; - - if (Sender = TextBoldCheckBox) or (Sender = TextBoldRadioOn) - or (Sender = TextBoldRadioOff) or (Sender = TextBoldRadioInvert) - then CalcNewStyle(TextBoldCheckBox, TextBoldRadioOn, TextBoldRadioOff, - TextBoldRadioInvert, fsBold, TextBoldRadioPanel); - - if (Sender = TextItalicCheckBox) or (Sender = TextItalicRadioOn) - or (Sender = TextItalicRadioOff) or (Sender = TextItalicRadioInvert) - then CalcNewStyle(TextItalicCheckBox, TextItalicRadioOn, TextItalicRadioOff, - TextItalicRadioInvert, fsItalic, TextItalicRadioPanel); - - if (Sender = TextUnderlineCheckBox) or (Sender = TextUnderlineRadioOn) - or (Sender = TextUnderlineRadioOff) or (Sender = TextUnderlineRadioInvert) - then CalcNewStyle(TextUnderlineCheckBox, TextUnderlineRadioOn, TextUnderlineRadioOff, - TextUnderlineRadioInvert, fsUnderline, TextUnderlineRadioPanel); - - - InvalidatePreviews; -end; - -//============================================================================= - -initialization - {$I editoroptionsdlg.lrs} -end. diff --git a/ide/main.pp b/ide/main.pp index a9bcd44245..50fb6b65dd 100644 --- a/ide/main.pp +++ b/ide/main.pp @@ -126,7 +126,7 @@ uses // main ide MainBar, MainIntf, MainBase, // options frames - IDEOptionsIntf, IDEOptionsDlg, EditorOptionsDlg {temporary}, + IDEOptionsIntf, IDEOptionsDlg, options_files, options_desktop, options_window, options_formed, options_oi, options_backup, options_naming, options_fpdoc, options_editor_general, options_editor_display, options_editor_keymapping, @@ -2243,9 +2243,9 @@ end; procedure TMainIDE.SetupEnvironmentMenu; begin inherited SetupEnvironmentMenu; - with MainIDEBar do begin + with MainIDEBar do + begin itmEnvGeneralOptions.OnClick := @mnuEnvGeneralOptionsClicked; - itmEnvEditorOptions.OnClick := @mnuEnvEditorOptionsClicked; itmEnvCodeTemplates.OnClick := @mnuEnvCodeTemplatesClicked; itmEnvCodeToolsOptions.OnClick := @mnuEnvCodeToolsOptionsClicked; itmEnvCodeToolsDefinesEditor.OnClick := @mnuEnvCodeToolsDefinesEditorClicked; @@ -4006,22 +4006,9 @@ begin end; procedure TMainIDE.mnuEnvEditorOptionsClicked(Sender: TObject); -var - EditorOptionsForm: TEditorOptionsForm; -Begin - EditorOptionsForm:=TEditorOptionsForm.Create(nil); - try - Project1.UpdateAllCustomHighlighter; - if EditorOptionsForm.ShowModal = mrOk then - begin - Project1.UpdateAllSyntaxHighlighter; - SourceNotebook.ReloadEditorOptions; - ReloadMenuShortCuts; - end; - finally - EditorOptionsForm.Free; - end; -End; +begin + DoShowEnvGeneralOptions(TEditorGeneralOptionsFrame); +end; procedure TMainIDE.mnuEnvCodeTemplatesClicked(Sender: TObject); begin diff --git a/ide/mainbar.pas b/ide/mainbar.pas index a29c4ea631..6150d0654c 100644 --- a/ide/mainbar.pas +++ b/ide/mainbar.pas @@ -300,7 +300,7 @@ type //mnuEnvironment: TIDEMenuSection; //itmOptionsDialogs: TIDEMenuSection; itmEnvGeneralOptions: TIDEMenuCommand; - itmEnvEditorOptions: TIDEMenuCommand; + //itmEnvEditorOptions: TIDEMenuCommand; itmEnvCodeTemplates: TIDEMenuCommand; itmEnvDebuggerOptions: TIDEMenuCommand; itmEnvCodeToolsOptions: TIDEMenuCommand; diff --git a/ide/mainbase.pas b/ide/mainbase.pas index 2b4943c805..1771cc623a 100644 --- a/ide/mainbase.pas +++ b/ide/mainbase.pas @@ -734,8 +734,6 @@ begin CreateMenuItem(ParentMI,itmEnvGeneralOptions,'itmEnvGeneralOptions', lisMenuGeneralOptions,'menu_environment_options'); - CreateMenuItem(ParentMI,itmEnvEditorOptions,'itmEnvEditorOptions', - lisMenuEditorOptions,'menu_editor_options'); CreateMenuItem(ParentMI,itmEnvCodeTemplates,'itmEnvCodeTemplates', lisMenuEditCodeTemplates,''); CreateMenuItem(ParentMI,itmEnvDebuggerOptions,'itmEnvDebuggerOptions', @@ -960,7 +958,6 @@ begin // environment menu itmEnvGeneralOptions.Command:=GetCommand(ecEnvironmentOptions); - itmEnvEditorOptions.Command:=GetCommand(ecEditorOptions); itmEnvCodeTemplates.Command:=GetCommand(ecEditCodeTemplates); itmEnvCodeToolsOptions.Command:=GetCommand(ecCodeToolsOptions); itmEnvCodeToolsDefinesEditor.Command:=GetCommand(ecCodeToolsDefinesEd);