From 63d0a22db71dcb4d88f1612b17e777735d4301df Mon Sep 17 00:00:00 2001 From: paul Date: Fri, 21 Nov 2008 17:34:18 +0000 Subject: [PATCH] ide: improve editor color options page git-svn-id: trunk@17499 - --- ide/frames/options_editor_color.lfm | 841 ++++++++++++++++++++-------- ide/frames/options_editor_color.lrs | 477 ++++++++++------ ide/frames/options_editor_color.pas | 145 ++--- 3 files changed, 1000 insertions(+), 463 deletions(-) diff --git a/ide/frames/options_editor_color.lfm b/ide/frames/options_editor_color.lfm index e23162436b..f961110612 100644 --- a/ide/frames/options_editor_color.lfm +++ b/ide/frames/options_editor_color.lfm @@ -5,8 +5,8 @@ inherited EditorColorOptionsFrame: TEditorColorOptionsFrame ClientWidth = 531 TabOrder = 0 Visible = False - DesignLeft = 678 - DesignTop = 258 + DesignLeft = 674 + DesignTop = 208 object FileExtensionsLabel: TLabel[0] AnchorSideLeft.Control = FileExtensionsComboBox AnchorSideLeft.Side = asrBottom @@ -16,7 +16,15 @@ inherited EditorColorOptionsFrame: TEditorColorOptionsFrame Height = 14 Top = 51 Width = 94 + HelpContext = 0 + Alignment = taLeftJustify BorderSpacing.Left = 6 + BorderSpacing.Top = 0 + BorderSpacing.Right = 0 + BorderSpacing.Bottom = 0 + BorderSpacing.Around = 0 + BorderSpacing.CellAlignHorizontal = ccaFill + BorderSpacing.CellAlignVertical = ccaFill Caption = 'FileExtensionsLabel' ParentColor = False end @@ -29,7 +37,15 @@ inherited EditorColorOptionsFrame: TEditorColorOptionsFrame Height = 14 Top = 27 Width = 88 + HelpContext = 0 + Alignment = taLeftJustify BorderSpacing.Left = 6 + BorderSpacing.Top = 0 + BorderSpacing.Right = 0 + BorderSpacing.Bottom = 0 + BorderSpacing.Around = 0 + BorderSpacing.CellAlignHorizontal = ccaFill + BorderSpacing.CellAlignVertical = ccaFill Caption = 'ColorSchemeLabel' ParentColor = False end @@ -42,8 +58,15 @@ inherited EditorColorOptionsFrame: TEditorColorOptionsFrame Height = 14 Top = 3 Width = 73 + HelpContext = 0 + Alignment = taLeftJustify BorderSpacing.Left = 6 + BorderSpacing.Top = 0 BorderSpacing.Right = 6 + BorderSpacing.Bottom = 0 + BorderSpacing.Around = 0 + BorderSpacing.CellAlignHorizontal = ccaFill + BorderSpacing.CellAlignVertical = ccaFill Caption = 'LanguageLabel' ParentColor = False end @@ -51,23 +74,47 @@ inherited EditorColorOptionsFrame: TEditorColorOptionsFrame AnchorSideLeft.Control = Owner AnchorSideTop.Control = FileExtensionsComboBox AnchorSideTop.Side = asrBottom + Left = 0 Height = 14 Top = 75 Width = 89 + HelpContext = 0 + Alignment = taLeftJustify + BorderSpacing.Left = 0 BorderSpacing.Top = 6 + BorderSpacing.Right = 0 + BorderSpacing.Bottom = 0 + BorderSpacing.Around = 0 + BorderSpacing.CellAlignHorizontal = ccaFill + BorderSpacing.CellAlignVertical = ccaFill Caption = 'ColorElementLabel' ParentColor = False end object LanguageComboBox: TComboBox[4] AnchorSideLeft.Control = Owner AnchorSideTop.Control = Owner + Left = 0 Height = 21 + Top = 0 Width = 200 + HelpContext = 0 + AutoComplete = False + BorderSpacing.Left = 0 + BorderSpacing.Top = 0 + BorderSpacing.Right = 0 + BorderSpacing.Bottom = 0 + BorderSpacing.Around = 0 + BorderSpacing.CellAlignHorizontal = ccaFill + BorderSpacing.CellAlignVertical = ccaFill + CharCase = ecNormal + Ctl3D = False ItemHeight = 13 - MaxLength = -1 + ItemWidth = 0 OnChange = ComboBoxOnChange OnExit = ComboBoxOnExit OnKeyDown = ComboBoxOnKeyDown + Sorted = False + Style = csDropDown TabOrder = 0 Text = 'LanguageComboBox' end @@ -75,15 +122,28 @@ inherited EditorColorOptionsFrame: TEditorColorOptionsFrame AnchorSideLeft.Control = Owner AnchorSideTop.Control = LanguageComboBox AnchorSideTop.Side = asrBottom + Left = 0 Height = 21 Top = 24 Width = 200 + HelpContext = 0 + AutoComplete = False + BorderSpacing.Left = 0 BorderSpacing.Top = 3 + BorderSpacing.Right = 0 + BorderSpacing.Bottom = 0 + BorderSpacing.Around = 0 + BorderSpacing.CellAlignHorizontal = ccaFill + BorderSpacing.CellAlignVertical = ccaFill + CharCase = ecNormal + Ctl3D = False ItemHeight = 13 - MaxLength = -1 + ItemWidth = 0 OnChange = ComboBoxOnChange OnExit = ComboBoxOnExit OnKeyDown = ComboBoxOnKeyDown + Sorted = False + Style = csDropDown TabOrder = 1 Text = 'ColorSchemeComboBox' end @@ -91,34 +151,64 @@ inherited EditorColorOptionsFrame: TEditorColorOptionsFrame AnchorSideLeft.Control = Owner AnchorSideTop.Control = ColorSchemeComboBox AnchorSideTop.Side = asrBottom + Left = 0 Height = 21 Top = 48 Width = 200 + HelpContext = 0 + AutoComplete = False + BorderSpacing.Left = 0 BorderSpacing.Top = 3 + BorderSpacing.Right = 0 + BorderSpacing.Bottom = 0 + BorderSpacing.Around = 0 + BorderSpacing.CellAlignHorizontal = ccaFill + BorderSpacing.CellAlignVertical = ccaFill + CharCase = ecNormal + Ctl3D = False ItemHeight = 13 Items.Strings = ( 'pp;pas;inc;lpr;lrs;dpr;dpk' 'pp;pas;inc;lpr;lrs' 'pp;pas;inc' ) - MaxLength = -1 + ItemWidth = 0 OnChange = ComboBoxOnChange OnExit = ComboBoxOnExit OnKeyDown = ComboBoxOnKeyDown + Sorted = False + Style = csDropDown TabOrder = 2 end object ColorElementListBox: TListBox[7] AnchorSideLeft.Control = Owner AnchorSideTop.Control = ColorElementLabel AnchorSideTop.Side = asrBottom - Height = 264 + AnchorSideBottom.Control = TextAttributesGroupBox + AnchorSideBottom.Side = asrBottom + Left = 0 + Height = 246 Top = 95 Width = 200 + HelpContext = 0 + Anchors = [akTop, akLeft, akBottom] + BorderSpacing.Left = 0 BorderSpacing.Top = 6 + BorderSpacing.Right = 0 + BorderSpacing.Bottom = 0 + BorderSpacing.Around = 0 + BorderSpacing.CellAlignHorizontal = ccaFill + BorderSpacing.CellAlignVertical = ccaFill ClickOnSelChange = False + IntegralHeight = False + ItemHeight = 0 + MultiSelect = False OnClick = ColorElementListBoxClick OnSelectionChange = ColorElementListBoxSelectionChange + Sorted = False + Style = lbStandard TabOrder = 3 + TopIndex = 0 end object SetAttributeToDefaultButton: TButton[8] AnchorSideLeft.Control = ColorElementListBox @@ -130,8 +220,15 @@ inherited EditorColorOptionsFrame: TEditorColorOptionsFrame Height = 25 Top = 95 Width = 325 + HelpContext = 0 Anchors = [akTop, akLeft, akRight] BorderSpacing.Left = 6 + BorderSpacing.Top = 0 + BorderSpacing.Right = 0 + BorderSpacing.Bottom = 0 + BorderSpacing.Around = 0 + BorderSpacing.CellAlignHorizontal = ccaFill + BorderSpacing.CellAlignVertical = ccaFill Caption = 'SetAttributeToDefaultButton' OnClick = SetAttributeToDefaultButtonClick TabOrder = 4 @@ -146,9 +243,15 @@ inherited EditorColorOptionsFrame: TEditorColorOptionsFrame Height = 25 Top = 126 Width = 325 + HelpContext = 0 Anchors = [akTop, akLeft, akRight] BorderSpacing.Left = 6 BorderSpacing.Top = 6 + BorderSpacing.Right = 0 + BorderSpacing.Bottom = 0 + BorderSpacing.Around = 0 + BorderSpacing.CellAlignHorizontal = ccaFill + BorderSpacing.CellAlignVertical = ccaFill Caption = 'SetAllAttributesToDefaultButton' OnClick = SetAllAttributesToDefaultButtonClick TabOrder = 5 @@ -158,285 +261,529 @@ inherited EditorColorOptionsFrame: TEditorColorOptionsFrame AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = SetAllAttributesToDefaultButton AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = Owner AnchorSideRight.Side = asrBottom AnchorSideBottom.Control = ColorElementListBox AnchorSideBottom.Side = asrBottom Left = 206 - Height = 202 + Height = 184 Top = 157 Width = 325 - Anchors = [akTop, akLeft, akRight, akBottom] + HelpContext = 0 + Anchors = [akTop, akLeft, akRight] + AutoSize = True BorderSpacing.Left = 6 BorderSpacing.Top = 6 + BorderSpacing.Right = 0 + BorderSpacing.Bottom = 0 + BorderSpacing.Around = 0 + BorderSpacing.CellAlignHorizontal = ccaFill + BorderSpacing.CellAlignVertical = ccaFill Caption = 'Attributes' - ClientHeight = 184 + ChildSizing.LeftRightSpacing = 0 + ChildSizing.TopBottomSpacing = 0 + ChildSizing.HorizontalSpacing = 0 + ChildSizing.VerticalSpacing = 0 + ChildSizing.ControlsPerLine = 0 + ClientHeight = 166 ClientWidth = 321 + Ctl3D = False TabOrder = 6 object ForeGroundLabel: TLabel - Left = 8 + AnchorSideLeft.Control = TextAttributesGroupBox + AnchorSideTop.Control = TextAttributesGroupBox + Left = 6 Height = 14 + Top = 6 Width = 83 + HelpContext = 0 + Alignment = taLeftJustify + BorderSpacing.Left = 6 + BorderSpacing.Top = 6 + BorderSpacing.Right = 0 + BorderSpacing.Bottom = 0 + BorderSpacing.Around = 0 + BorderSpacing.CellAlignHorizontal = ccaFill + BorderSpacing.CellAlignVertical = ccaFill 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 = ForegroundColorButtonColorChanged - 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 - end object BackGroundLabel: TLabel - AnchorSideTop.Control = ForeGroundLabel + AnchorSideLeft.Control = TextAttributesGroupBox + AnchorSideTop.Control = ForegroundColorBox AnchorSideTop.Side = asrBottom - Left = 8 + Left = 6 Height = 14 - Top = 42 + Top = 47 Width = 83 - BorderSpacing.Top = 28 + HelpContext = 0 + Alignment = taLeftJustify + BorderSpacing.Left = 6 + BorderSpacing.Top = 3 + BorderSpacing.Right = 0 + BorderSpacing.Bottom = 0 + BorderSpacing.Around = 0 + BorderSpacing.CellAlignHorizontal = ccaFill + BorderSpacing.CellAlignVertical = ccaFill Caption = 'BackGroundLabel' ParentColor = False end object ForeGroundUseDefaultCheckBox: TCheckBox - AnchorSideTop.Control = ForeGroundLabel - AnchorSideTop.Side = asrBottom - Left = 94 + AnchorSideLeft.Control = BackGroundColorBox + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = ForegroundColorBox + AnchorSideTop.Side = asrCenter + Left = 112 Height = 19 - Top = 16 - Width = 178 - Anchors = [akTop, akLeft, akRight] - BorderSpacing.Top = 2 + Top = 24 + Width = 183 + HelpContext = 0 + BorderSpacing.Left = 6 + BorderSpacing.Top = 0 + BorderSpacing.Right = 0 + BorderSpacing.Bottom = 0 + BorderSpacing.Around = 0 + BorderSpacing.CellAlignHorizontal = ccaFill + BorderSpacing.CellAlignVertical = ccaFill Caption = 'ForeGroundUseDefaultCheckBox' OnChange = GeneralCheckBoxOnChange + State = cbUnchecked TabOrder = 0 + UseOnChange = False end object BackGroundUseDefaultCheckBox: TCheckBox - AnchorSideTop.Control = BackGroundLabel - AnchorSideTop.Side = asrBottom - Left = 94 + AnchorSideLeft.Control = BackGroundColorBox + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = BackGroundColorBox + AnchorSideTop.Side = asrCenter + Left = 112 Height = 19 - Top = 56 - Width = 178 - Anchors = [akTop, akLeft, akRight] - BorderSpacing.Right = 2 + Top = 65 + Width = 183 + HelpContext = 0 + BorderSpacing.Left = 6 + BorderSpacing.Top = 0 + BorderSpacing.Right = 0 + BorderSpacing.Bottom = 0 + BorderSpacing.Around = 0 + BorderSpacing.CellAlignHorizontal = ccaFill + BorderSpacing.CellAlignVertical = ccaFill Caption = 'BackGroundUseDefaultCheckBox' OnChange = GeneralCheckBoxOnChange + State = cbUnchecked TabOrder = 1 + UseOnChange = False end - object TextUnderlinePanel: TPanel + object ForegroundColorBox: TColorBox + AnchorSideLeft.Control = ForeGroundLabel + AnchorSideTop.Control = ForeGroundLabel + AnchorSideTop.Side = asrBottom Left = 6 - Height = 19 - Top = 109 - Width = 309 - Align = alBottom - AutoSize = True - BorderSpacing.Around = 6 - BevelOuter = bvNone - ClientHeight = 19 - ClientWidth = 309 + Height = 22 + Top = 22 + Width = 100 + HelpContext = 0 + Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbIncludeDefault, cbCustomColor, cbPrettyNames] + AutoComplete = False + BorderSpacing.Left = 0 + BorderSpacing.Top = 2 + BorderSpacing.Right = 0 + BorderSpacing.Bottom = 0 + BorderSpacing.Around = 0 + BorderSpacing.CellAlignHorizontal = ccaFill + BorderSpacing.CellAlignVertical = ccaFill + Ctl3D = False + ItemHeight = 16 + ItemWidth = 0 + OnChange = ForegroundColorBoxChange TabOrder = 2 - object TextUnderlineCheckBox: TCheckBox - Height = 19 - Width = 165 - Align = alClient - Caption = 'TextUnderlineCheckBox' - OnChange = GeneralCheckBoxOnChange - TabOrder = 0 - end - object TextUnderlineRadioPanel: TPanel - Left = 165 - 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 + object BackGroundColorBox: TColorBox + AnchorSideLeft.Control = BackGroundLabel + AnchorSideTop.Control = BackGroundLabel + AnchorSideTop.Side = asrBottom Left = 6 - Height = 19 - Top = 134 - Width = 309 - Align = alBottom - AutoSize = True - BorderSpacing.Around = 6 - BevelOuter = bvNone - ClientHeight = 19 - ClientWidth = 309 + Height = 22 + Top = 63 + Width = 100 + HelpContext = 0 + DefaultColorColor = clWhite + Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbIncludeDefault, cbCustomColor, cbPrettyNames] + AutoComplete = False + BorderSpacing.Left = 0 + BorderSpacing.Top = 2 + BorderSpacing.Right = 0 + BorderSpacing.Bottom = 0 + BorderSpacing.Around = 0 + BorderSpacing.CellAlignHorizontal = ccaFill + BorderSpacing.CellAlignVertical = ccaFill + Ctl3D = False + ItemHeight = 16 + ItemWidth = 0 + OnChange = ForegroundColorBoxChange TabOrder = 3 - object TextBoldCheckBox: TCheckBox - Height = 19 - Width = 165 - Align = alClient - Caption = 'TextBoldCheckBox' - OnChange = GeneralCheckBoxOnChange - TabOrder = 0 - end - object TextBoldRadioPanel: TPanel - Left = 165 - 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 + object TextUnderlineCheckBox: TCheckBox + AnchorSideLeft.Control = TextAttributesGroupBox + AnchorSideTop.Control = BackGroundColorBox + AnchorSideTop.Side = asrBottom Left = 6 Height = 19 - Top = 159 - Width = 309 - Align = alBottom - AutoSize = True + Top = 91 + Width = 140 + HelpContext = 0 + BorderSpacing.Left = 0 + BorderSpacing.Top = 0 + BorderSpacing.Right = 0 + BorderSpacing.Bottom = 0 BorderSpacing.Around = 6 - BevelOuter = bvNone - ClientHeight = 19 - ClientWidth = 309 + BorderSpacing.CellAlignHorizontal = ccaFill + BorderSpacing.CellAlignVertical = ccaFill + Caption = 'TextUnderlineCheckBox' + OnChange = GeneralCheckBoxOnChange + State = cbUnchecked TabOrder = 4 - object TextItalicCheckBox: TCheckBox + UseOnChange = False + end + object TextBoldCheckBox: TCheckBox + AnchorSideLeft.Control = TextAttributesGroupBox + AnchorSideTop.Control = TextUnderlineCheckBox + AnchorSideTop.Side = asrBottom + Left = 6 + Height = 19 + Top = 116 + Width = 115 + HelpContext = 0 + BorderSpacing.Left = 0 + BorderSpacing.Top = 0 + BorderSpacing.Right = 0 + BorderSpacing.Bottom = 0 + BorderSpacing.Around = 6 + BorderSpacing.CellAlignHorizontal = ccaFill + BorderSpacing.CellAlignVertical = ccaFill + Caption = 'TextBoldCheckBox' + OnChange = GeneralCheckBoxOnChange + State = cbUnchecked + TabOrder = 5 + UseOnChange = False + end + object TextItalicCheckBox: TCheckBox + AnchorSideLeft.Control = TextAttributesGroupBox + AnchorSideTop.Control = TextBoldCheckBox + AnchorSideTop.Side = asrBottom + Left = 6 + Height = 19 + Top = 141 + Width = 118 + HelpContext = 0 + BorderSpacing.Left = 0 + BorderSpacing.Top = 0 + BorderSpacing.Right = 0 + BorderSpacing.Bottom = 0 + BorderSpacing.Around = 6 + BorderSpacing.CellAlignHorizontal = ccaFill + BorderSpacing.CellAlignVertical = ccaFill + Caption = 'TextItalicCheckBox' + OnChange = GeneralCheckBoxOnChange + State = cbUnchecked + TabOrder = 6 + UseOnChange = False + end + object TextUnderlineRadioPanel: TPanel + AnchorSideTop.Control = TextUnderlineCheckBox + AnchorSideRight.Control = TextAttributesGroupBox + AnchorSideRight.Side = asrBottom + Left = 171 + Height = 19 + Top = 91 + Width = 144 + HelpContext = 0 + Anchors = [akTop, akRight] + AutoSize = True + BorderSpacing.Left = 0 + BorderSpacing.Top = 0 + BorderSpacing.Right = 6 + BorderSpacing.Bottom = 0 + BorderSpacing.Around = 0 + BorderSpacing.CellAlignHorizontal = ccaFill + BorderSpacing.CellAlignVertical = ccaFill + BevelOuter = bvNone + ChildSizing.LeftRightSpacing = 0 + ChildSizing.TopBottomSpacing = 0 + ChildSizing.HorizontalSpacing = 0 + ChildSizing.VerticalSpacing = 0 + ChildSizing.ControlsPerLine = 0 + ClientHeight = 19 + ClientWidth = 144 + TabOrder = 7 + object TextUnderlineRadioOn: TRadioButton + Tag = 3 + AnchorSideTop.Control = TextUnderlineRadioPanel + AnchorSideRight.Control = TextUnderlineRadioOff + Left = 0 Height = 19 - Width = 165 - Align = alClient - Caption = 'TextItalicCheckBox' - OnChange = GeneralCheckBoxOnChange + Top = 0 + Width = 40 + HelpContext = 0 + Anchors = [akTop, akRight] + BorderSpacing.Left = 0 + BorderSpacing.Top = 0 + BorderSpacing.Right = 3 + BorderSpacing.Bottom = 0 + BorderSpacing.Around = 0 + BorderSpacing.CellAlignHorizontal = ccaFill + BorderSpacing.CellAlignVertical = ccaFill + Caption = 'On' + Checked = True + OnChange = TextStyleRadioOnChange + State = cbChecked TabOrder = 0 + UseOnChange = False end - object TextItalicRadioPanel: TPanel - Left = 165 + object TextUnderlineRadioOff: TRadioButton + Tag = 3 + AnchorSideTop.Control = TextUnderlineRadioOn + AnchorSideRight.Control = TextUnderlineRadioInvert + Left = 43 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 + Top = 0 + Width = 42 + HelpContext = 0 + Anchors = [akTop, akRight] + BorderSpacing.Left = 0 + BorderSpacing.Top = 0 + BorderSpacing.Right = 3 + BorderSpacing.Bottom = 0 + BorderSpacing.Around = 0 + BorderSpacing.CellAlignHorizontal = ccaFill + BorderSpacing.CellAlignVertical = ccaFill + Caption = 'Off' + OnChange = TextStyleRadioOnChange + State = cbUnchecked 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 + UseOnChange = False + end + object TextUnderlineRadioInvert: TRadioButton + Tag = 3 + AnchorSideTop.Control = TextUnderlineRadioPanel + AnchorSideRight.Control = TextUnderlineRadioPanel + AnchorSideRight.Side = asrBottom + Left = 88 + Height = 19 + Top = 0 + Width = 56 + HelpContext = 0 + Anchors = [akTop, akRight] + BorderSpacing.Left = 0 + BorderSpacing.Top = 0 + BorderSpacing.Right = 0 + BorderSpacing.Bottom = 0 + BorderSpacing.Around = 0 + BorderSpacing.CellAlignHorizontal = ccaFill + BorderSpacing.CellAlignVertical = ccaFill + Caption = 'Invert' + OnChange = TextStyleRadioOnChange + State = cbUnchecked + TabOrder = 2 + UseOnChange = False + end + end + object TextBoldRadioPanel: TPanel + AnchorSideTop.Control = TextBoldCheckBox + AnchorSideRight.Control = TextAttributesGroupBox + AnchorSideRight.Side = asrBottom + Left = 171 + Height = 19 + Top = 116 + Width = 144 + HelpContext = 0 + Anchors = [akTop, akRight] + AutoSize = True + BorderSpacing.Left = 0 + BorderSpacing.Top = 0 + BorderSpacing.Right = 6 + BorderSpacing.Bottom = 0 + BorderSpacing.Around = 0 + BorderSpacing.CellAlignHorizontal = ccaFill + BorderSpacing.CellAlignVertical = ccaFill + BevelOuter = bvNone + ChildSizing.LeftRightSpacing = 0 + ChildSizing.TopBottomSpacing = 0 + ChildSizing.HorizontalSpacing = 0 + ChildSizing.VerticalSpacing = 0 + ChildSizing.ControlsPerLine = 0 + ClientHeight = 19 + ClientWidth = 144 + TabOrder = 8 + object TextBoldRadioInvert: TRadioButton + Tag = 2 + AnchorSideTop.Control = TextBoldRadioPanel + AnchorSideRight.Control = TextBoldRadioPanel + AnchorSideRight.Side = asrBottom + Left = 88 + Height = 19 + Top = 0 + Width = 56 + HelpContext = 0 + Anchors = [akTop, akRight] + BorderSpacing.Left = 0 + BorderSpacing.Top = 0 + BorderSpacing.Right = 0 + BorderSpacing.Bottom = 0 + BorderSpacing.Around = 0 + BorderSpacing.CellAlignHorizontal = ccaFill + BorderSpacing.CellAlignVertical = ccaFill + Caption = 'Invert' + OnChange = TextStyleRadioOnChange + State = cbUnchecked + TabOrder = 0 + UseOnChange = False + end + object TextBoldRadioOn: TRadioButton + Tag = 2 + AnchorSideTop.Control = TextBoldRadioPanel + AnchorSideRight.Control = TextBoldRadioOff + Left = 0 + Height = 19 + Top = 0 + Width = 40 + HelpContext = 0 + Anchors = [akTop, akRight] + BorderSpacing.Left = 0 + BorderSpacing.Top = 0 + BorderSpacing.Right = 3 + BorderSpacing.Bottom = 0 + BorderSpacing.Around = 0 + BorderSpacing.CellAlignHorizontal = ccaFill + BorderSpacing.CellAlignVertical = ccaFill + Caption = 'On' + Checked = True + OnChange = TextStyleRadioOnChange + State = cbChecked + TabOrder = 1 + UseOnChange = False + end + object TextBoldRadioOff: TRadioButton + Tag = 2 + AnchorSideTop.Control = TextBoldRadioPanel + AnchorSideRight.Control = TextBoldRadioInvert + Left = 43 + Height = 19 + Top = 0 + Width = 42 + HelpContext = 0 + Anchors = [akTop, akRight] + BorderSpacing.Left = 0 + BorderSpacing.Top = 0 + BorderSpacing.Right = 3 + BorderSpacing.Bottom = 0 + BorderSpacing.Around = 0 + BorderSpacing.CellAlignHorizontal = ccaFill + BorderSpacing.CellAlignVertical = ccaFill + Caption = 'Off' + OnChange = TextStyleRadioOnChange + State = cbUnchecked + TabOrder = 2 + UseOnChange = False + end + end + object TextItalicRadioPanel: TPanel + AnchorSideTop.Control = TextItalicCheckBox + AnchorSideRight.Control = TextAttributesGroupBox + AnchorSideRight.Side = asrBottom + Left = 171 + Height = 19 + Top = 141 + Width = 144 + HelpContext = 0 + Anchors = [akTop, akRight] + AutoSize = True + BorderSpacing.Left = 0 + BorderSpacing.Top = 0 + BorderSpacing.Right = 6 + BorderSpacing.Bottom = 0 + BorderSpacing.Around = 0 + BorderSpacing.CellAlignHorizontal = ccaFill + BorderSpacing.CellAlignVertical = ccaFill + BevelOuter = bvNone + ChildSizing.LeftRightSpacing = 0 + ChildSizing.TopBottomSpacing = 0 + ChildSizing.HorizontalSpacing = 0 + ChildSizing.VerticalSpacing = 0 + ChildSizing.ControlsPerLine = 0 + ClientHeight = 19 + ClientWidth = 144 + TabOrder = 9 + object TextItalicRadioInvert: TRadioButton + Tag = 2 + AnchorSideTop.Control = TextItalicRadioPanel + AnchorSideRight.Control = TextItalicRadioPanel + AnchorSideRight.Side = asrBottom + Left = 88 + Height = 19 + Top = 0 + Width = 56 + HelpContext = 0 + Anchors = [akTop, akRight] + BorderSpacing.Left = 0 + BorderSpacing.Top = 0 + BorderSpacing.Right = 0 + BorderSpacing.Bottom = 0 + BorderSpacing.Around = 0 + BorderSpacing.CellAlignHorizontal = ccaFill + BorderSpacing.CellAlignVertical = ccaFill + Caption = 'Invert' + OnChange = TextStyleRadioOnChange + State = cbUnchecked + TabOrder = 0 + UseOnChange = False + end + object TextItalicRadioOn: TRadioButton + Tag = 2 + AnchorSideTop.Control = TextItalicRadioPanel + AnchorSideRight.Control = TextItalicRadioOff + Left = 0 + Height = 19 + Top = 0 + Width = 40 + HelpContext = 0 + Anchors = [akTop, akRight] + BorderSpacing.Left = 0 + BorderSpacing.Top = 0 + BorderSpacing.Right = 3 + BorderSpacing.Bottom = 0 + BorderSpacing.Around = 0 + BorderSpacing.CellAlignHorizontal = ccaFill + BorderSpacing.CellAlignVertical = ccaFill + Caption = 'On' + Checked = True + OnChange = TextStyleRadioOnChange + State = cbChecked + TabOrder = 1 + UseOnChange = False + end + object TextItalicRadioOff: TRadioButton + Tag = 2 + AnchorSideTop.Control = TextItalicRadioPanel + AnchorSideRight.Control = TextItalicRadioInvert + Left = 43 + Height = 19 + Top = 0 + Width = 42 + HelpContext = 0 + Anchors = [akTop, akRight] + BorderSpacing.Left = 0 + BorderSpacing.Top = 0 + BorderSpacing.Right = 3 + BorderSpacing.Bottom = 0 + BorderSpacing.Around = 0 + BorderSpacing.CellAlignHorizontal = ccaFill + BorderSpacing.CellAlignVertical = ccaFill + Caption = 'Off' + OnChange = TextStyleRadioOnChange + State = cbUnchecked + TabOrder = 2 + UseOnChange = False end end end @@ -448,15 +795,26 @@ inherited EditorColorOptionsFrame: TEditorColorOptionsFrame AnchorSideRight.Side = asrBottom AnchorSideBottom.Control = Owner AnchorSideBottom.Side = asrBottom - Height = 212 - Top = 365 + Left = 0 + Height = 230 + Top = 347 Width = 531 + HelpContext = 0 + BorderSpacing.Left = 0 BorderSpacing.Top = 6 + BorderSpacing.Right = 0 + BorderSpacing.Bottom = 0 + BorderSpacing.Around = 0 + BorderSpacing.CellAlignHorizontal = ccaFill + BorderSpacing.CellAlignVertical = ccaFill Anchors = [akTop, akLeft, akRight, akBottom] + CFDividerDrawLevel = 0 + Ctl3D = False Font.Height = -16 Font.Name = 'courier' Font.Pitch = fpFixed Font.Quality = fqNonAntialiased + Font.Style = [] ParentColor = False ParentFont = False TabOrder = 7 @@ -794,10 +1152,21 @@ inherited EditorColorOptionsFrame: TEditorColorOptionsFrame AnchorSideRight.Side = asrBottom Left = 365 Height = 19 + Top = 0 Width = 166 + HelpContext = 0 Anchors = [akTop, akRight] + BorderSpacing.Left = 0 + BorderSpacing.Top = 0 + BorderSpacing.Right = 0 + BorderSpacing.Bottom = 0 + BorderSpacing.Around = 0 + BorderSpacing.CellAlignHorizontal = ccaFill + BorderSpacing.CellAlignVertical = ccaFill Caption = 'UseSyntaxHighlightCheckBox' OnChange = GeneralCheckBoxOnChange + State = cbUnchecked TabOrder = 8 + UseOnChange = False end end diff --git a/ide/frames/options_editor_color.lrs b/ide/frames/options_editor_color.lrs index 1ff2e3cef9..bb20210970 100644 --- a/ide/frames/options_editor_color.lrs +++ b/ide/frames/options_editor_color.lrs @@ -3,159 +3,317 @@ LazarusResources.Add('TEditorColorOptionsFrame','FORMDATA',[ 'TPF0'#241#24'TEditorColorOptionsFrame'#23'EditorColorOptionsFrame'#6'Height' +#3'A'#2#5'Width'#3#19#2#12'ClientHeight'#3'A'#2#11'ClientWidth'#3#19#2#8'Tab' - +'Order'#2#0#7'Visible'#8#10'DesignLeft'#3#166#2#9'DesignTop'#3#2#1#0#242#2#0 - +#6'TLabel'#19'FileExtensionsLabel'#22'AnchorSideLeft.Control'#7#22'FileExten' - +'sionsComboBox'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Cont' - +'rol'#7#22'FileExtensionsComboBox'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'L' - +'eft'#3#206#0#6'Height'#2#14#3'Top'#2'3'#5'Width'#2'^'#18'BorderSpacing.Left' - +#2#6#7'Caption'#6#19'FileExtensionsLabel'#11'ParentColor'#8#0#0#242#2#1#6'TL' - +'abel'#16'ColorSchemeLabel'#22'AnchorSideLeft.Control'#7#19'ColorSchemeCombo' - +'Box'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#19 - +'ColorSchemeComboBox'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#3#206#0#6 - +'Height'#2#14#3'Top'#2#27#5'Width'#2'X'#18'BorderSpacing.Left'#2#6#7'Caption' - +#6#16'ColorSchemeLabel'#11'ParentColor'#8#0#0#242#2#2#6'TLabel'#13'LanguageL' - +'abel'#22'AnchorSideLeft.Control'#7#16'LanguageComboBox'#19'AnchorSideLeft.S' - +'ide'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#16'LanguageComboBox'#18'Anc' - +'horSideTop.Side'#7#9'asrCenter'#4'Left'#3#206#0#6'Height'#2#14#3'Top'#2#3#5 - +'Width'#2'I'#18'BorderSpacing.Left'#2#6#19'BorderSpacing.Right'#2#6#7'Captio' - +'n'#6#13'LanguageLabel'#11'ParentColor'#8#0#0#242#2#3#6'TLabel'#17'ColorElem' - +'entLabel'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7 - +#22'FileExtensionsComboBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#6'Height'#2 - +#14#3'Top'#2'K'#5'Width'#2'Y'#17'BorderSpacing.Top'#2#6#7'Caption'#6#17'Colo' - +'rElementLabel'#11'ParentColor'#8#0#0#242#2#4#9'TComboBox'#16'LanguageComboB' - +'ox'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Own' - +'er'#6'Height'#2#21#5'Width'#3#200#0#10'ItemHeight'#2#13#9'MaxLength'#2#255#8 - +'OnChange'#7#16'ComboBoxOnChange'#6'OnExit'#7#14'ComboBoxOnExit'#9'OnKeyDown' - +#7#17'ComboBoxOnKeyDown'#8'TabOrder'#2#0#4'Text'#6#16'LanguageComboBox'#0#0 - +#242#2#5#9'TComboBox'#19'ColorSchemeComboBox'#22'AnchorSideLeft.Control'#7#5 - +'Owner'#21'AnchorSideTop.Control'#7#16'LanguageComboBox'#18'AnchorSideTop.Si' - +'de'#7#9'asrBottom'#6'Height'#2#21#3'Top'#2#24#5'Width'#3#200#0#17'BorderSpa' - +'cing.Top'#2#3#10'ItemHeight'#2#13#9'MaxLength'#2#255#8'OnChange'#7#16'Combo' - +'BoxOnChange'#6'OnExit'#7#14'ComboBoxOnExit'#9'OnKeyDown'#7#17'ComboBoxOnKey' - +'Down'#8'TabOrder'#2#1#4'Text'#6#19'ColorSchemeComboBox'#0#0#242#2#6#9'TComb' - +'oBox'#22'FileExtensionsComboBox'#22'AnchorSideLeft.Control'#7#5'Owner'#21'A' - +'nchorSideTop.Control'#7#19'ColorSchemeComboBox'#18'AnchorSideTop.Side'#7#9 - +'asrBottom'#6'Height'#2#21#3'Top'#2'0'#5'Width'#3#200#0#17'BorderSpacing.Top' - +#2#3#10'ItemHeight'#2#13#13'Items.Strings'#1#6#26'pp;pas;inc;lpr;lrs;dpr;dpk' - +#6#18'pp;pas;inc;lpr;lrs'#6#10'pp;pas;inc'#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#242#2#7#8'TListBox'#19'ColorElementListBo' - +'x'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#17'Col' - +'orElementLabel'#18'AnchorSideTop.Side'#7#9'asrBottom'#6'Height'#3#8#1#3'Top' - +#2'_'#5'Width'#3#200#0#17'BorderSpacing.Top'#2#6#16'ClickOnSelChange'#8#7'On' - +'Click'#7#24'ColorElementListBoxClick'#17'OnSelectionChange'#7'"ColorElement' - +'ListBoxSelectionChange'#8'TabOrder'#2#3#0#0#242#2#8#7'TButton'#27'SetAttrib' - +'uteToDefaultButton'#22'AnchorSideLeft.Control'#7#19'ColorElementListBox'#19 - +'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#19'ColorEle' - +'mentListBox'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side' - +#7#9'asrBottom'#4'Left'#3#206#0#6'Height'#2#25#3'Top'#2'_'#5'Width'#3'E'#1#7 - +'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#18'BorderSpacing.Left'#2#6#7'Ca' - +'ption'#6#27'SetAttributeToDefaultButton'#7'OnClick'#7' SetAttributeToDefaul' - +'tButtonClick'#8'TabOrder'#2#4#0#0#242#2#9#7'TButton'#31'SetAllAttributesToD' - +'efaultButton'#22'AnchorSideLeft.Control'#7#19'ColorElementListBox'#19'Ancho' - +'rSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#27'SetAttributeT' - +'oDefaultButton'#18'AnchorSideTop.Side'#7#9'asrBottom'#20'AnchorSideRight.Si' - +'de'#7#9'asrBottom'#4'Left'#3#206#0#6'Height'#2#25#3'Top'#2'~'#5'Width'#3'E' - +#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#18'BorderSpacing.Left'#2#6 - +#17'BorderSpacing.Top'#2#6#7'Caption'#6#31'SetAllAttributesToDefaultButton'#7 - +'OnClick'#7'$SetAllAttributesToDefaultButtonClick'#8'TabOrder'#2#5#0#0#242#2 - +#10#9'TGroupBox'#22'TextAttributesGroupBox'#22'AnchorSideLeft.Control'#7#19 + +'Order'#2#0#7'Visible'#8#10'DesignLeft'#3#162#2#9'DesignTop'#3#208#0#0#242#2 + +#0#6'TLabel'#19'FileExtensionsLabel'#22'AnchorSideLeft.Control'#7#22'FileExt' + +'ensionsComboBox'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Co' + +'ntrol'#7#22'FileExtensionsComboBox'#18'AnchorSideTop.Side'#7#9'asrCenter'#4 + +'Left'#3#206#0#6'Height'#2#14#3'Top'#2'3'#5'Width'#2'^'#11'HelpContext'#2#0#9 + +'Alignment'#7#13'taLeftJustify'#18'BorderSpacing.Left'#2#6#17'BorderSpacing.' + +'Top'#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'Border' + +'Spacing.Around'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'Bor' + +'derSpacing.CellAlignVertical'#7#7'ccaFill'#7'Caption'#6#19'FileExtensionsLa' + +'bel'#11'ParentColor'#8#0#0#242#2#1#6'TLabel'#16'ColorSchemeLabel'#22'Anchor' + +'SideLeft.Control'#7#19'ColorSchemeComboBox'#19'AnchorSideLeft.Side'#7#9'asr' + +'Bottom'#21'AnchorSideTop.Control'#7#19'ColorSchemeComboBox'#18'AnchorSideTo' + +'p.Side'#7#9'asrCenter'#4'Left'#3#206#0#6'Height'#2#14#3'Top'#2#27#5'Width'#2 + +'X'#11'HelpContext'#2#0#9'Alignment'#7#13'taLeftJustify'#18'BorderSpacing.Le' + +'ft'#2#6#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpac' + +'ing.Bottom'#2#0#20'BorderSpacing.Around'#2#0'!BorderSpacing.CellAlignHorizo' + +'ntal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#7'Capti' + +'on'#6#16'ColorSchemeLabel'#11'ParentColor'#8#0#0#242#2#2#6'TLabel'#13'Langu' + +'ageLabel'#22'AnchorSideLeft.Control'#7#16'LanguageComboBox'#19'AnchorSideLe' + +'ft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#16'LanguageComboBox'#18 + +'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#3#206#0#6'Height'#2#14#3'Top'#2#3 + +#5'Width'#2'I'#11'HelpContext'#2#0#9'Alignment'#7#13'taLeftJustify'#18'Borde' + +'rSpacing.Left'#2#6#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#6#20 + +'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#0'!BorderSpacing.CellA' + +'lignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFil' + +'l'#7'Caption'#6#13'LanguageLabel'#11'ParentColor'#8#0#0#242#2#3#6'TLabel'#17 + +'ColorElementLabel'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.C' + +'ontrol'#7#22'FileExtensionsComboBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4 + +'Left'#2#0#6'Height'#2#14#3'Top'#2'K'#5'Width'#2'Y'#11'HelpContext'#2#0#9'Al' + +'ignment'#7#13'taLeftJustify'#18'BorderSpacing.Left'#2#0#17'BorderSpacing.To' + +'p'#2#6#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSp' + +'acing.Around'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'Borde' + +'rSpacing.CellAlignVertical'#7#7'ccaFill'#7'Caption'#6#17'ColorElementLabel' + +#11'ParentColor'#8#0#0#242#2#4#9'TComboBox'#16'LanguageComboBox'#22'AnchorSi' + +'deLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#4'Left'#2#0 + +#6'Height'#2#21#3'Top'#2#0#5'Width'#3#200#0#11'HelpContext'#2#0#12'AutoCompl' + +'ete'#8#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'BorderSpacin' + +'g.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#0'!Bor' + +'derSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVert' + +'ical'#7#7'ccaFill'#8'CharCase'#7#8'ecNormal'#5'Ctl3D'#8#10'ItemHeight'#2#13 + +#9'ItemWidth'#2#0#8'OnChange'#7#16'ComboBoxOnChange'#6'OnExit'#7#14'ComboBox' + +'OnExit'#9'OnKeyDown'#7#17'ComboBoxOnKeyDown'#6'Sorted'#8#5'Style'#7#10'csDr' + +'opDown'#8'TabOrder'#2#0#4'Text'#6#16'LanguageComboBox'#0#0#242#2#5#9'TCombo' + +'Box'#19'ColorSchemeComboBox'#22'AnchorSideLeft.Control'#7#5'Owner'#21'Ancho' + +'rSideTop.Control'#7#16'LanguageComboBox'#18'AnchorSideTop.Side'#7#9'asrBott' + +'om'#4'Left'#2#0#6'Height'#2#21#3'Top'#2#24#5'Width'#3#200#0#11'HelpContext' + +#2#0#12'AutoComplete'#8#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#3 + +#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.A' + +'round'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacin' + +'g.CellAlignVertical'#7#7'ccaFill'#8'CharCase'#7#8'ecNormal'#5'Ctl3D'#8#10'I' + +'temHeight'#2#13#9'ItemWidth'#2#0#8'OnChange'#7#16'ComboBoxOnChange'#6'OnExi' + +'t'#7#14'ComboBoxOnExit'#9'OnKeyDown'#7#17'ComboBoxOnKeyDown'#6'Sorted'#8#5 + +'Style'#7#10'csDropDown'#8'TabOrder'#2#1#4'Text'#6#19'ColorSchemeComboBox'#0 + +#0#242#2#6#9'TComboBox'#22'FileExtensionsComboBox'#22'AnchorSideLeft.Control' + +#7#5'Owner'#21'AnchorSideTop.Control'#7#19'ColorSchemeComboBox'#18'AnchorSid' + +'eTop.Side'#7#9'asrBottom'#4'Left'#2#0#6'Height'#2#21#3'Top'#2'0'#5'Width'#3 + +#200#0#11'HelpContext'#2#0#12'AutoComplete'#8#18'BorderSpacing.Left'#2#0#17 + +'BorderSpacing.Top'#2#3#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom' + +#2#0#20'BorderSpacing.Around'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7'cc' + +'aFill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#8'CharCase'#7#8'ecN' + +'ormal'#5'Ctl3D'#8#10'ItemHeight'#2#13#13'Items.Strings'#1#6#26'pp;pas;inc;l' + +'pr;lrs;dpr;dpk'#6#18'pp;pas;inc;lpr;lrs'#6#10'pp;pas;inc'#0#9'ItemWidth'#2#0 + ,#8'OnChange'#7#16'ComboBoxOnChange'#6'OnExit'#7#14'ComboBoxOnExit'#9'OnKeyDo' + +'wn'#7#17'ComboBoxOnKeyDown'#6'Sorted'#8#5'Style'#7#10'csDropDown'#8'TabOrde' + +'r'#2#2#0#0#242#2#7#8'TListBox'#19'ColorElementListBox'#22'AnchorSideLeft.Co' + +'ntrol'#7#5'Owner'#21'AnchorSideTop.Control'#7#17'ColorElementLabel'#18'Anch' + +'orSideTop.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7#22'TextAttrib' + +'utesGroupBox'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#2#0#6'Height' + +#3#246#0#3'Top'#2'_'#5'Width'#3#200#0#11'HelpContext'#2#0#7'Anchors'#11#5'ak' + +'Top'#6'akLeft'#8'akBottom'#0#18'BorderSpacing.Left'#2#0#17'BorderSpacing.To' + +'p'#2#6#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSp' + +'acing.Around'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'Borde' + +'rSpacing.CellAlignVertical'#7#7'ccaFill'#16'ClickOnSelChange'#8#14'Integral' + +'Height'#8#10'ItemHeight'#2#0#11'MultiSelect'#8#7'OnClick'#7#24'ColorElement' + +'ListBoxClick'#17'OnSelectionChange'#7'"ColorElementListBoxSelectionChange'#6 + +'Sorted'#8#5'Style'#7#10'lbStandard'#8'TabOrder'#2#3#8'TopIndex'#2#0#0#0#242 + +#2#8#7'TButton'#27'SetAttributeToDefaultButton'#22'AnchorSideLeft.Control'#7 + +#19'ColorElementListBox'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSid' + +'eTop.Control'#7#19'ColorElementListBox'#23'AnchorSideRight.Control'#7#5'Own' + +'er'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#206#0#6'Height'#2#25#3 + +'Top'#2'_'#5'Width'#3'E'#1#11'HelpContext'#2#0#7'Anchors'#11#5'akTop'#6'akLe' + +'ft'#7'akRight'#0#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#0#19'Bo' + +'rderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around' + +#2#0'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellA' + +'lignVertical'#7#7'ccaFill'#7'Caption'#6#27'SetAttributeToDefaultButton'#7'O' + +'nClick'#7' SetAttributeToDefaultButtonClick'#8'TabOrder'#2#4#0#0#242#2#9#7 + +'TButton'#31'SetAllAttributesToDefaultButton'#22'AnchorSideLeft.Control'#7#19 +'ColorElementListBox'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTo' - +'p.Control'#7#31'SetAllAttributesToDefaultButton'#18'AnchorSideTop.Side'#7#9 - +'asrBottom'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSideBottom.Cont' - +'rol'#7#19'ColorElementListBox'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'L' - +'eft'#3#206#0#6'Height'#3#202#0#3'Top'#3#157#0#5'Width'#3'E'#1#7'Anchors'#11 - ,#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#18'BorderSpacing.Left'#2#6#17'B' - +'orderSpacing.Top'#2#6#7'Caption'#6#10'Attributes'#12'ClientHeight'#3#184#0 - +#11'ClientWidth'#3'A'#1#8'TabOrder'#2#6#0#6'TLabel'#15'ForeGroundLabel'#4'Le' - +'ft'#2#8#6'Height'#2#14#5'Width'#2'S'#7'Caption'#6#15'ForeGroundLabel'#11'Pa' - +'rentColor'#8#0#0#12'TColorButton'#21'ForegroundColorButton'#21'AnchorSideTo' - +'p.Control'#7#15'ForeGroundLabel'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Le' - +'ft'#2#8#6'Height'#2#21#3'Top'#2#16#5'Width'#2'K'#17'BorderSpacing.Top'#2#2 - +#11'BorderWidth'#2#2#15'ButtonColorSize'#2#16#5'Color'#7#9'clBtnFace'#14'OnC' - +'olorChanged'#7'!ForegroundColorButtonColorChanged'#0#0#12'TColorButton'#21 - +'BackGroundColorButton'#21'AnchorSideTop.Control'#7#15'BackGroundLabel'#18'A' - +'nchorSideTop.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'ButtonColorSiz' - +'e'#2#16#5'Color'#7#9'clBtnFace'#0#0#6'TLabel'#15'BackGroundLabel'#21'Anchor' - +'SideTop.Control'#7#15'ForeGroundLabel'#18'AnchorSideTop.Side'#7#9'asrBottom' - +#4'Left'#2#8#6'Height'#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'F' - +'oreGroundUseDefaultCheckBox'#21'AnchorSideTop.Control'#7#15'ForeGroundLabel' - +#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2'^'#6'Height'#2#19#3'Top'#2 - +#16#5'Width'#3#178#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#17'Border' - +'Spacing.Top'#2#2#7'Caption'#6#28'ForeGroundUseDefaultCheckBox'#8'OnChange'#7 - +#23'GeneralCheckBoxOnChange'#8'TabOrder'#2#0#0#0#9'TCheckBox'#28'BackGroundU' - +'seDefaultCheckBox'#21'AnchorSideTop.Control'#7#15'BackGroundLabel'#18'Ancho' - +'rSideTop.Side'#7#9'asrBottom'#4'Left'#2'^'#6'Height'#2#19#3'Top'#2'8'#5'Wid' - +'th'#3#178#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#19'BorderSpacing.' - +'Right'#2#2#7'Caption'#6#28'BackGroundUseDefaultCheckBox'#8'OnChange'#7#23'G' - +'eneralCheckBoxOnChange'#8'TabOrder'#2#1#0#0#6'TPanel'#18'TextUnderlinePanel' - +#4'Left'#2#6#6'Height'#2#19#3'Top'#2'm'#5'Width'#3'5'#1#5'Align'#7#8'alBotto' - +'m'#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#10'BevelOuter'#7#6'bvNone'#12 - +'ClientHeight'#2#19#11'ClientWidth'#3'5'#1#8'TabOrder'#2#2#0#9'TCheckBox'#21 - +'TextUnderlineCheckBox'#6'Height'#2#19#5'Width'#3#165#0#5'Align'#7#8'alClien' - +'t'#7'Caption'#6#21'TextUnderlineCheckBox'#8'OnChange'#7#23'GeneralCheckBoxO' - +'nChange'#8'TabOrder'#2#0#0#0#6'TPanel'#23'TextUnderlineRadioPanel'#4'Left'#3 - +#165#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'#20'TextUnderlineRad' - +'ioOn'#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'TabOrd' - +'er'#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'TextSt' - +'yleRadioOnChange'#8'TabOrder'#2#1#0#0#12'TRadioButton'#24'TextUnderlineRadi' - +'oInvert'#3'Tag'#2#3#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#6 - +'TPanel'#13'TextBoldPanel'#4'Left'#2#6#6'Height'#2#19#3'Top'#3#134#0#5'Width' - +#3'5'#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'5'#1#8'TabO' - +'rder'#2#3#0#9'TCheckBox'#16'TextBoldCheckBox'#6'Height'#2#19#5'Width'#3#165 - +#0#5'Align'#7#8'alClient'#7'Caption'#6#16'TextBoldCheckBox'#8'OnChange'#7#23 - +'GeneralCheckBoxOnChange'#8'TabOrder'#2#0#0#0#6'TPanel'#18'TextBoldRadioPane' - +'l'#4'Left'#3#165#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.EnlargeHorizontal'#7#14'crsScaleChilds'#28'ChildSizing.Shrin' - +'kHorizontal'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclLeftToRigh' - +'tThenTopToBottom'#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'OnChange'#7#22'TextStyleRadioOnChange'#5'State'#7#9'cbChecke' - +'d'#8'TabOrder'#2#0#0#0#12'TRadioButton'#16'TextBoldRadioOff'#3'Tag'#2#1#4'L' - +'eft'#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'#19'TextBoldRad' - +'ioInvert'#3'Tag'#2#1#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#6 - ,'TPanel'#15'TextItalicPanel'#4'Left'#2#6#6'Height'#2#19#3'Top'#3#159#0#5'Wid' - +'th'#3'5'#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'5'#1#8'T' - +'abOrder'#2#4#0#9'TCheckBox'#18'TextItalicCheckBox'#6'Height'#2#19#5'Width'#3 - +#165#0#5'Align'#7#8'alClient'#7'Caption'#6#18'TextItalicCheckBox'#8'OnChange' - +#7#23'GeneralCheckBoxOnChange'#8'TabOrder'#2#0#0#0#6'TPanel'#20'TextItalicRa' - +'dioPanel'#4'Left'#3#165#0#6'Height'#2#19#5'Width'#3#144#0#5'Align'#7#7'alRi' - +'ght'#8'AutoSize'#9#10'BevelOuter'#7#6'bvNone'#29'ChildSizing.HorizontalSpac' - +'ing'#2#3#29'ChildSizing.EnlargeHorizontal'#7#14'crsScaleChilds'#28'ChildSiz' - +'ing.ShrinkHorizontal'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclL' - +'eftToRightThenTopToBottom'#27'ChildSizing.ControlsPerLine'#2#3#12'ClientHei' - +'ght'#2#19#11'ClientWidth'#3#144#0#8'TabOrder'#2#1#7'Visible'#8#0#12'TRadioB' - +'utton'#17'TextItalicRadioOn'#3'Tag'#2#2#6'Height'#2#19#5'Width'#2'('#7'Capt' - +'ion'#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'Left'#2'+'#6'Height'#2#19#5'Width'#2'*'#7'Caption'#6#3'Off'#8'On' - +'Change'#7#22'TextStyleRadioOnChange'#8'TabOrder'#2#1#0#0#12'TRadioButton'#21 - +'TextItalicRadioInvert'#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#242#2#11#8'TSynEdit'#12'ColorPreview'#22'AnchorSideLeft.Contr' - +'ol'#7#5'Owner'#21'AnchorSideTop.Control'#7#19'ColorElementListBox'#18'Ancho' - +'rSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20'Anc' - +'horSideRight.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7#5'Owner'#21 - +'AnchorSideBottom.Side'#7#9'asrBottom'#6'Height'#3#212#0#3'Top'#3'm'#1#5'Wid' - +'th'#3#19#2#17'BorderSpacing.Top'#2#6#7'Anchors'#11#5'akTop'#6'akLeft'#7'akR' - +'ight'#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' + +'p.Control'#7#27'SetAttributeToDefaultButton'#18'AnchorSideTop.Side'#7#9'asr' + +'Bottom'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#206#0#6'Height'#2 + +#25#3'Top'#2'~'#5'Width'#3'E'#1#11'HelpContext'#2#0#7'Anchors'#11#5'akTop'#6 + +'akLeft'#7'akRight'#0#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#6#19 + +'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Arou' + +'nd'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.C' + +'ellAlignVertical'#7#7'ccaFill'#7'Caption'#6#31'SetAllAttributesToDefaultBut' + +'ton'#7'OnClick'#7'$SetAllAttributesToDefaultButtonClick'#8'TabOrder'#2#5#0#0 + +#242#2#10#9'TGroupBox'#22'TextAttributesGroupBox'#22'AnchorSideLeft.Control' + +#7#19'ColorElementListBox'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorS' + +'ideTop.Control'#7#31'SetAllAttributesToDefaultButton'#18'AnchorSideTop.Side' + +#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Si' + +'de'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7#19'ColorElementListBox'#21 + +'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#3#206#0#6'Height'#3#184#0#3'T' + +'op'#3#157#0#5'Width'#3'E'#1#11'HelpContext'#2#0#7'Anchors'#11#5'akTop'#6'ak' + +'Left'#7'akRight'#0#8'AutoSize'#9#18'BorderSpacing.Left'#2#6#17'BorderSpacin' + +'g.Top'#2#6#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'Bord' + +'erSpacing.Around'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'B' + +'orderSpacing.CellAlignVertical'#7#7'ccaFill'#7'Caption'#6#10'Attributes'#28 + +'ChildSizing.LeftRightSpacing'#2#0#28'ChildSizing.TopBottomSpacing'#2#0#29'C' + +'hildSizing.HorizontalSpacing'#2#0#27'ChildSizing.VerticalSpacing'#2#0#27'Ch' + +'ildSizing.ControlsPerLine'#2#0#12'ClientHeight'#3#166#0#11'ClientWidth'#3'A' + +#1#5'Ctl3D'#8#8'TabOrder'#2#6#0#6'TLabel'#15'ForeGroundLabel'#22'AnchorSideL' + +'eft.Control'#7#22'TextAttributesGroupBox'#21'AnchorSideTop.Control'#7#22'Te' + +'xtAttributesGroupBox'#4'Left'#2#6#6'Height'#2#14#3'Top'#2#6#5'Width'#2'S'#11 + +'HelpContext'#2#0#9'Alignment'#7#13'taLeftJustify'#18'BorderSpacing.Left'#2#6 + +#17'BorderSpacing.Top'#2#6#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bott' + +'om'#2#0#20'BorderSpacing.Around'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7 + +'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#7'Caption'#6#15'F' + +'oreGroundLabel'#11'ParentColor'#8#0#0#6'TLabel'#15'BackGroundLabel'#22'Anch' + +'orSideLeft.Control'#7#22'TextAttributesGroupBox'#21'AnchorSideTop.Control'#7 + +#18'ForegroundColorBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6 + +'Height'#2#14#3'Top'#2'/'#5'Width'#2'S'#11'HelpContext'#2#0#9'Alignment'#7#13 + +'taLeftJustify'#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#3#19'Bord' + +'erSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2 + +#0'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAli' + +'gnVertical'#7#7'ccaFill'#7'Caption'#6#15'BackGroundLabel'#11'ParentColor'#8 + +#0#0#9'TCheckBox'#28'ForeGroundUseDefaultCheckBox'#22'AnchorSideLeft.Control' + ,#7#18'BackGroundColorBox'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSi' + +'deTop.Control'#7#18'ForegroundColorBox'#18'AnchorSideTop.Side'#7#9'asrCente' + +'r'#4'Left'#2'p'#6'Height'#2#19#3'Top'#2#24#5'Width'#3#183#0#11'HelpContext' + +#2#0#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#0#19'BorderSpacing.R' + +'ight'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#0'!Border' + +'Spacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVertica' + +'l'#7#7'ccaFill'#7'Caption'#6#28'ForeGroundUseDefaultCheckBox'#8'OnChange'#7 + +#23'GeneralCheckBoxOnChange'#5'State'#7#11'cbUnchecked'#8'TabOrder'#2#0#11'U' + +'seOnChange'#8#0#0#9'TCheckBox'#28'BackGroundUseDefaultCheckBox'#22'AnchorSi' + +'deLeft.Control'#7#18'BackGroundColorBox'#19'AnchorSideLeft.Side'#7#9'asrBot' + +'tom'#21'AnchorSideTop.Control'#7#18'BackGroundColorBox'#18'AnchorSideTop.Si' + +'de'#7#9'asrCenter'#4'Left'#2'p'#6'Height'#2#19#3'Top'#2'A'#5'Width'#3#183#0 + +#11'HelpContext'#2#0#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#0#19 + +'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Arou' + +'nd'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.C' + +'ellAlignVertical'#7#7'ccaFill'#7'Caption'#6#28'BackGroundUseDefaultCheckBox' + +#8'OnChange'#7#23'GeneralCheckBoxOnChange'#5'State'#7#11'cbUnchecked'#8'TabO' + +'rder'#2#1#11'UseOnChange'#8#0#0#9'TColorBox'#18'ForegroundColorBox'#22'Anch' + +'orSideLeft.Control'#7#15'ForeGroundLabel'#21'AnchorSideTop.Control'#7#15'Fo' + +'reGroundLabel'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2 + +#22#3'Top'#2#22#5'Width'#2'd'#11'HelpContext'#2#0#5'Style'#11#16'cbStandardC' + +'olors'#16'cbExtendedColors'#14'cbSystemColors'#16'cbIncludeDefault'#13'cbCu' + +'stomColor'#13'cbPrettyNames'#0#12'AutoComplete'#8#18'BorderSpacing.Left'#2#0 + +#17'BorderSpacing.Top'#2#2#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bott' + +'om'#2#0#20'BorderSpacing.Around'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7 + +'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#5'Ctl3D'#8#10'Ite' + +'mHeight'#2#16#9'ItemWidth'#2#0#8'OnChange'#7#24'ForegroundColorBoxChange'#8 + +'TabOrder'#2#2#0#0#9'TColorBox'#18'BackGroundColorBox'#22'AnchorSideLeft.Con' + +'trol'#7#15'BackGroundLabel'#21'AnchorSideTop.Control'#7#15'BackGroundLabel' + +#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#22#3'Top'#2'?' + +#5'Width'#2'd'#11'HelpContext'#2#0#17'DefaultColorColor'#7#7'clWhite'#5'Styl' + +'e'#11#16'cbStandardColors'#16'cbExtendedColors'#14'cbSystemColors'#16'cbInc' + +'ludeDefault'#13'cbCustomColor'#13'cbPrettyNames'#0#12'AutoComplete'#8#18'Bo' + +'rderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#2#19'BorderSpacing.Right'#2#0 + +#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#0'!BorderSpacing.Ce' + +'llAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7'cca' + +'Fill'#5'Ctl3D'#8#10'ItemHeight'#2#16#9'ItemWidth'#2#0#8'OnChange'#7#24'Fore' + +'groundColorBoxChange'#8'TabOrder'#2#3#0#0#9'TCheckBox'#21'TextUnderlineChec' + +'kBox'#22'AnchorSideLeft.Control'#7#22'TextAttributesGroupBox'#21'AnchorSide' + +'Top.Control'#7#18'BackGroundColorBox'#18'AnchorSideTop.Side'#7#9'asrBottom' + +#4'Left'#2#6#6'Height'#2#19#3'Top'#2'['#5'Width'#3#140#0#11'HelpContext'#2#0 + +#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Right' + +#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#6'!BorderSpacin' + +'g.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7 + +'ccaFill'#7'Caption'#6#21'TextUnderlineCheckBox'#8'OnChange'#7#23'GeneralChe' + +'ckBoxOnChange'#5'State'#7#11'cbUnchecked'#8'TabOrder'#2#4#11'UseOnChange'#8 + +#0#0#9'TCheckBox'#16'TextBoldCheckBox'#22'AnchorSideLeft.Control'#7#22'TextA' + +'ttributesGroupBox'#21'AnchorSideTop.Control'#7#21'TextUnderlineCheckBox'#18 + +'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#19#3'Top'#2't'#5 + +'Width'#2's'#11'HelpContext'#2#0#18'BorderSpacing.Left'#2#0#17'BorderSpacing' + +'.Top'#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'Borde' + +'rSpacing.Around'#2#6'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'Bo' + +'rderSpacing.CellAlignVertical'#7#7'ccaFill'#7'Caption'#6#16'TextBoldCheckBo' + +'x'#8'OnChange'#7#23'GeneralCheckBoxOnChange'#5'State'#7#11'cbUnchecked'#8'T' + +'abOrder'#2#5#11'UseOnChange'#8#0#0#9'TCheckBox'#18'TextItalicCheckBox'#22'A' + +'nchorSideLeft.Control'#7#22'TextAttributesGroupBox'#21'AnchorSideTop.Contro' + +'l'#7#16'TextBoldCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6 + +#6'Height'#2#19#3'Top'#3#141#0#5'Width'#2'v'#11'HelpContext'#2#0#18'BorderSp' + +'acing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#0#20'Bo' + +'rderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#6'!BorderSpacing.CellAli' + +'gnHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill' + +#7'Caption'#6#18'TextItalicCheckBox'#8'OnChange'#7#23'GeneralCheckBoxOnChang' + +'e'#5'State'#7#11'cbUnchecked'#8'TabOrder'#2#6#11'UseOnChange'#8#0#0#6'TPane' + +'l'#23'TextUnderlineRadioPanel'#21'AnchorSideTop.Control'#7#21'TextUnderline' + ,'CheckBox'#23'AnchorSideRight.Control'#7#22'TextAttributesGroupBox'#20'Ancho' + +'rSideRight.Side'#7#9'asrBottom'#4'Left'#3#171#0#6'Height'#2#19#3'Top'#2'['#5 + +'Width'#3#144#0#11'HelpContext'#2#0#7'Anchors'#11#5'akTop'#7'akRight'#0#8'Au' + +'toSize'#9#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'BorderSpa' + +'cing.Right'#2#6#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#0'!' + +'BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignV' + +'ertical'#7#7'ccaFill'#10'BevelOuter'#7#6'bvNone'#28'ChildSizing.LeftRightSp' + +'acing'#2#0#28'ChildSizing.TopBottomSpacing'#2#0#29'ChildSizing.HorizontalSp' + +'acing'#2#0#27'ChildSizing.VerticalSpacing'#2#0#27'ChildSizing.ControlsPerLi' + +'ne'#2#0#12'ClientHeight'#2#19#11'ClientWidth'#3#144#0#8'TabOrder'#2#7#0#12 + +'TRadioButton'#20'TextUnderlineRadioOn'#3'Tag'#2#3#21'AnchorSideTop.Control' + +#7#23'TextUnderlineRadioPanel'#23'AnchorSideRight.Control'#7#21'TextUnderlin' + +'eRadioOff'#4'Left'#2#0#6'Height'#2#19#3'Top'#2#0#5'Width'#2'('#11'HelpConte' + +'xt'#2#0#7'Anchors'#11#5'akTop'#7'akRight'#0#18'BorderSpacing.Left'#2#0#17'B' + +'orderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#3#20'BorderSpacing.Bottom'#2 + +#0#20'BorderSpacing.Around'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7'ccaF' + +'ill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#7'Caption'#6#2'On'#7 + +'Checked'#9#8'OnChange'#7#22'TextStyleRadioOnChange'#5'State'#7#9'cbChecked' + +#8'TabOrder'#2#0#11'UseOnChange'#8#0#0#12'TRadioButton'#21'TextUnderlineRadi' + +'oOff'#3'Tag'#2#3#21'AnchorSideTop.Control'#7#20'TextUnderlineRadioOn'#23'An' + +'chorSideRight.Control'#7#24'TextUnderlineRadioInvert'#4'Left'#2'+'#6'Height' + +#2#19#3'Top'#2#0#5'Width'#2'*'#11'HelpContext'#2#0#7'Anchors'#11#5'akTop'#7 + +'akRight'#0#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'BorderSp' + +'acing.Right'#2#3#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#0 + +'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlign' + +'Vertical'#7#7'ccaFill'#7'Caption'#6#3'Off'#8'OnChange'#7#22'TextStyleRadioO' + +'nChange'#5'State'#7#11'cbUnchecked'#8'TabOrder'#2#1#11'UseOnChange'#8#0#0#12 + +'TRadioButton'#24'TextUnderlineRadioInvert'#3'Tag'#2#3#21'AnchorSideTop.Cont' + +'rol'#7#23'TextUnderlineRadioPanel'#23'AnchorSideRight.Control'#7#23'TextUnd' + +'erlineRadioPanel'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2'X'#6'He' + +'ight'#2#19#3'Top'#2#0#5'Width'#2'8'#11'HelpContext'#2#0#7'Anchors'#11#5'akT' + +'op'#7'akRight'#0#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'Bo' + +'rderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around' + +#2#0'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellA' + +'lignVertical'#7#7'ccaFill'#7'Caption'#6#6'Invert'#8'OnChange'#7#22'TextStyl' + +'eRadioOnChange'#5'State'#7#11'cbUnchecked'#8'TabOrder'#2#2#11'UseOnChange'#8 + +#0#0#0#6'TPanel'#18'TextBoldRadioPanel'#21'AnchorSideTop.Control'#7#16'TextB' + +'oldCheckBox'#23'AnchorSideRight.Control'#7#22'TextAttributesGroupBox'#20'An' + +'chorSideRight.Side'#7#9'asrBottom'#4'Left'#3#171#0#6'Height'#2#19#3'Top'#2 + +'t'#5'Width'#3#144#0#11'HelpContext'#2#0#7'Anchors'#11#5'akTop'#7'akRight'#0 + +#8'AutoSize'#9#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'Borde' + +'rSpacing.Right'#2#6#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2 + +#0'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAli' + +'gnVertical'#7#7'ccaFill'#10'BevelOuter'#7#6'bvNone'#28'ChildSizing.LeftRigh' + +'tSpacing'#2#0#28'ChildSizing.TopBottomSpacing'#2#0#29'ChildSizing.Horizonta' + +'lSpacing'#2#0#27'ChildSizing.VerticalSpacing'#2#0#27'ChildSizing.ControlsPe' + +'rLine'#2#0#12'ClientHeight'#2#19#11'ClientWidth'#3#144#0#8'TabOrder'#2#8#0 + +#12'TRadioButton'#19'TextBoldRadioInvert'#3'Tag'#2#2#21'AnchorSideTop.Contro' + +'l'#7#18'TextBoldRadioPanel'#23'AnchorSideRight.Control'#7#18'TextBoldRadioP' + +'anel'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2'X'#6'Height'#2#19#3 + +'Top'#2#0#5'Width'#2'8'#11'HelpContext'#2#0#7'Anchors'#11#5'akTop'#7'akRight' + +#0#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Rig' + +'ht'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#0'!BorderSp' + +'acing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical' + +#7#7'ccaFill'#7'Caption'#6#6'Invert'#8'OnChange'#7#22'TextStyleRadioOnChange' + +#5'State'#7#11'cbUnchecked'#8'TabOrder'#2#0#11'UseOnChange'#8#0#0#12'TRadioB' + +'utton'#15'TextBoldRadioOn'#3'Tag'#2#2#21'AnchorSideTop.Control'#7#18'TextBo' + +'ldRadioPanel'#23'AnchorSideRight.Control'#7#16'TextBoldRadioOff'#4'Left'#2#0 + +#6'Height'#2#19#3'Top'#2#0#5'Width'#2'('#11'HelpContext'#2#0#7'Anchors'#11#5 + +'akTop'#7'akRight'#0#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19 + +'BorderSpacing.Right'#2#3#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Arou' + +'nd'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.C' + +'ellAlignVertical'#7#7'ccaFill'#7'Caption'#6#2'On'#7'Checked'#9#8'OnChange'#7 + +#22'TextStyleRadioOnChange'#5'State'#7#9'cbChecked'#8'TabOrder'#2#1#11'UseOn' + ,'Change'#8#0#0#12'TRadioButton'#16'TextBoldRadioOff'#3'Tag'#2#2#21'AnchorSid' + +'eTop.Control'#7#18'TextBoldRadioPanel'#23'AnchorSideRight.Control'#7#19'Tex' + +'tBoldRadioInvert'#4'Left'#2'+'#6'Height'#2#19#3'Top'#2#0#5'Width'#2'*'#11'H' + +'elpContext'#2#0#7'Anchors'#11#5'akTop'#7'akRight'#0#18'BorderSpacing.Left'#2 + +#0#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#3#20'BorderSpacing.Bo' + +'ttom'#2#0#20'BorderSpacing.Around'#2#0'!BorderSpacing.CellAlignHorizontal'#7 + +#7'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#7'Caption'#6#3 + +'Off'#8'OnChange'#7#22'TextStyleRadioOnChange'#5'State'#7#11'cbUnchecked'#8 + +'TabOrder'#2#2#11'UseOnChange'#8#0#0#0#6'TPanel'#20'TextItalicRadioPanel'#21 + +'AnchorSideTop.Control'#7#18'TextItalicCheckBox'#23'AnchorSideRight.Control' + +#7#22'TextAttributesGroupBox'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left' + +#3#171#0#6'Height'#2#19#3'Top'#3#141#0#5'Width'#3#144#0#11'HelpContext'#2#0#7 + +'Anchors'#11#5'akTop'#7'akRight'#0#8'AutoSize'#9#18'BorderSpacing.Left'#2#0 + +#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#6#20'BorderSpacing.Bott' + +'om'#2#0#20'BorderSpacing.Around'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7 + +'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#10'BevelOuter'#7#6 + +'bvNone'#28'ChildSizing.LeftRightSpacing'#2#0#28'ChildSizing.TopBottomSpacin' + +'g'#2#0#29'ChildSizing.HorizontalSpacing'#2#0#27'ChildSizing.VerticalSpacing' + +#2#0#27'ChildSizing.ControlsPerLine'#2#0#12'ClientHeight'#2#19#11'ClientWidt' + +'h'#3#144#0#8'TabOrder'#2#9#0#12'TRadioButton'#21'TextItalicRadioInvert'#3'T' + +'ag'#2#2#21'AnchorSideTop.Control'#7#20'TextItalicRadioPanel'#23'AnchorSideR' + +'ight.Control'#7#20'TextItalicRadioPanel'#20'AnchorSideRight.Side'#7#9'asrBo' + +'ttom'#4'Left'#2'X'#6'Height'#2#19#3'Top'#2#0#5'Width'#2'8'#11'HelpContext'#2 + +#0#7'Anchors'#11#5'akTop'#7'akRight'#0#18'BorderSpacing.Left'#2#0#17'BorderS' + +'pacing.Top'#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20 + +'BorderSpacing.Around'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill' + +#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#7'Caption'#6#6'Invert'#8'O' + +'nChange'#7#22'TextStyleRadioOnChange'#5'State'#7#11'cbUnchecked'#8'TabOrder' + +#2#0#11'UseOnChange'#8#0#0#12'TRadioButton'#17'TextItalicRadioOn'#3'Tag'#2#2 + +#21'AnchorSideTop.Control'#7#20'TextItalicRadioPanel'#23'AnchorSideRight.Con' + +'trol'#7#18'TextItalicRadioOff'#4'Left'#2#0#6'Height'#2#19#3'Top'#2#0#5'Widt' + +'h'#2'('#11'HelpContext'#2#0#7'Anchors'#11#5'akTop'#7'akRight'#0#18'BorderSp' + +'acing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#3#20'Bo' + +'rderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#0'!BorderSpacing.CellAli' + +'gnHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill' + +#7'Caption'#6#2'On'#7'Checked'#9#8'OnChange'#7#22'TextStyleRadioOnChange'#5 + +'State'#7#9'cbChecked'#8'TabOrder'#2#1#11'UseOnChange'#8#0#0#12'TRadioButton' + +#18'TextItalicRadioOff'#3'Tag'#2#2#21'AnchorSideTop.Control'#7#20'TextItalic' + +'RadioPanel'#23'AnchorSideRight.Control'#7#21'TextItalicRadioInvert'#4'Left' + +#2'+'#6'Height'#2#19#3'Top'#2#0#5'Width'#2'*'#11'HelpContext'#2#0#7'Anchors' + +#11#5'akTop'#7'akRight'#0#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2 + +#0#19'BorderSpacing.Right'#2#3#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing' + +'.Around'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpac' + +'ing.CellAlignVertical'#7#7'ccaFill'#7'Caption'#6#3'Off'#8'OnChange'#7#22'Te' + +'xtStyleRadioOnChange'#5'State'#7#11'cbUnchecked'#8'TabOrder'#2#2#11'UseOnCh' + +'ange'#8#0#0#0#0#242#2#11#8'TSynEdit'#12'ColorPreview'#22'AnchorSideLeft.Con' + +'trol'#7#5'Owner'#21'AnchorSideTop.Control'#7#19'ColorElementListBox'#18'Anc' + +'horSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20'A' + +'nchorSideRight.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7#5'Owner' + +#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#2#0#6'Height'#3#230#0#3'To' + +'p'#3'['#1#5'Width'#3#19#2#11'HelpContext'#2#0#18'BorderSpacing.Left'#2#0#17 + +'BorderSpacing.Top'#2#6#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom' + +#2#0#20'BorderSpacing.Around'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7'cc' + +'aFill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#7'Anchors'#11#5'akT' + +'op'#6'akLeft'#7'akRight'#8'akBottom'#0#18'CFDividerDrawLevel'#2#0#5'Ctl3D'#8 + +#11'Font.Height'#2#240#9'Font.Name'#6#7'courier'#10'Font.Pitch'#7#7'fpFixed' + +#12'Font.Quality'#7#16'fqNonAntialiased'#10'Font.Style'#11#0#11'ParentColor' +#8#10'ParentFont'#8#8'TabOrder'#2#7#10'Keystrokes'#14#1#7'Command'#2#3#8'Sho' +'rtCut'#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'S' @@ -163,7 +321,7 @@ LazarusResources.Add('TEditorColorOptionsFrame','FORMDATA',[ +'ShortCut'#2'%'#0#1#7'Command'#2'e'#8'ShortCut'#3'% '#0#1#7'Command'#2#5#8'S' +'hortCut'#3'%@'#0#1#7'Command'#2'i'#8'ShortCut'#3'%`'#0#1#7'Command'#2#2#8'S' +'hortCut'#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 + ,'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 @@ -193,7 +351,7 @@ LazarusResources.Add('TEditorColorOptionsFrame','FORMDATA',[ +#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 + +'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 @@ -202,7 +360,12 @@ LazarusResources.Add('TEditorColorOptionsFrame','FORMDATA',[ +'iew'#0#8'ReadOnly'#9#22'SelectedColor.OnChange'#13#0#0#242#2#12#9'TCheckBox' +#26'UseSyntaxHighlightCheckBox'#22'AnchorSideLeft.Control'#7#5'Owner'#21'Anc' +'horSideTop.Control'#7#5'Owner'#23'AnchorSideRight.Control'#7#5'Owner'#20'An' - +'chorSideRight.Side'#7#9'asrBottom'#4'Left'#3'm'#1#6'Height'#2#19#5'Width'#3 - +#166#0#7'Anchors'#11#5'akTop'#7'akRight'#0#7'Caption'#6#26'UseSyntaxHighligh' - +'tCheckBox'#8'OnChange'#7#23'GeneralCheckBoxOnChange'#8'TabOrder'#2#8#0#0#0 + +'chorSideRight.Side'#7#9'asrBottom'#4'Left'#3'm'#1#6'Height'#2#19#3'Top'#2#0 + +#5'Width'#3#166#0#11'HelpContext'#2#0#7'Anchors'#11#5'akTop'#7'akRight'#0#18 + +'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'#2 + +#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#0'!BorderSpacing.' + +'CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7'c' + +'caFill'#7'Caption'#6#26'UseSyntaxHighlightCheckBox'#8'OnChange'#7#23'Genera' + +'lCheckBoxOnChange'#5'State'#7#11'cbUnchecked'#8'TabOrder'#2#8#11'UseOnChang' + +'e'#8#0#0#0 ]); diff --git a/ide/frames/options_editor_color.pas b/ide/frames/options_editor_color.pas index 1a6c14f695..80c2af9bfc 100644 --- a/ide/frames/options_editor_color.pas +++ b/ide/frames/options_editor_color.pas @@ -28,16 +28,32 @@ uses Classes, SysUtils, FileUtil, LResources, Forms, StdCtrls, SynEdit, ExtCtrls, Dialogs, Graphics, LCLProc, SynEditMiscClasses, LCLType, Controls, EditorOptions, LazarusIDEStrConsts, IDEOptionsIntf, options_editor_general, - IDEProcs; + IDEProcs, ColorBox; type { TEditorColorOptionsFrame } TEditorColorOptionsFrame = class(TAbstractIDEOptionsEditor) - BackGroundColorButton: TColorButton; + BackGroundColorBox: TColorBox; BackGroundLabel: TLabel; BackGroundUseDefaultCheckBox: TCheckBox; + ForegroundColorBox: TColorBox; + TextBoldCheckBox: TCheckBox; + TextBoldRadioInvert: TRadioButton; + TextBoldRadioOff: TRadioButton; + TextBoldRadioOn: TRadioButton; + TextBoldRadioPanel: TPanel; + TextItalicCheckBox: TCheckBox; + TextItalicRadioInvert: TRadioButton; + TextItalicRadioOff: TRadioButton; + TextItalicRadioOn: TRadioButton; + TextItalicRadioPanel: TPanel; + TextUnderlineCheckBox: TCheckBox; + TextUnderlineRadioInvert: TRadioButton; + TextUnderlineRadioOff: TRadioButton; + TextUnderlineRadioOn: TRadioButton; + TextUnderlineRadioPanel: TPanel; UseSyntaxHighlightCheckBox: TCheckBox; ColorElementLabel: TLabel; ColorElementListBox: TListBox; @@ -46,7 +62,6 @@ type ColorSchemeLabel: TLabel; FileExtensionsComboBox: TComboBox; FileExtensionsLabel: TLabel; - ForegroundColorButton: TColorButton; ForeGroundLabel: TLabel; ForeGroundUseDefaultCheckBox: TCheckBox; LanguageComboBox: TComboBox; @@ -54,27 +69,9 @@ type SetAllAttributesToDefaultButton: TButton; SetAttributeToDefaultButton: TButton; TextAttributesGroupBox: TGroupBox; - TextBoldCheckBox: TCheckBox; - TextBoldPanel: TPanel; - TextBoldRadioInvert: TRadioButton; - TextBoldRadioOff: TRadioButton; - TextBoldRadioOn: TRadioButton; - TextBoldRadioPanel: TPanel; - TextItalicCheckBox: TCheckBox; - TextItalicPanel: TPanel; - TextItalicRadioInvert: TRadioButton; - TextItalicRadioOff: TRadioButton; - TextItalicRadioOn: TRadioButton; - TextItalicRadioPanel: TPanel; - TextUnderlineCheckBox: TCheckBox; - TextUnderlinePanel: TPanel; - TextUnderlineRadioInvert: TRadioButton; - TextUnderlineRadioOff: TRadioButton; - TextUnderlineRadioOn: TRadioButton; - TextUnderlineRadioPanel: TPanel; procedure ColorElementListBoxClick(Sender: TObject); procedure ColorElementListBoxSelectionChange(Sender: TObject; User: boolean); - procedure ForegroundColorButtonColorChanged(Sender: TObject); + procedure ForegroundColorBoxChange(Sender: TObject); procedure GeneralCheckBoxOnChange(Sender: TObject); procedure ComboBoxOnExit(Sender: TObject); procedure SetAllAttributesToDefaultButtonClick(Sender: TObject); @@ -127,6 +124,23 @@ type implementation +function DefaultToNone(AColor: TColor): TColor; +begin + if AColor = clDefault then + Result := clNone + else + Result := AColor; +end; + +function NoneToDefault(AColor: TColor): TColor; +begin + if AColor = clNone then + Result := clDefault + else + Result := AColor; +end; + + { TEditorColorOptionsFrame } procedure TEditorColorOptionsFrame.ColorElementListBoxClick(Sender: TObject); @@ -140,34 +154,27 @@ begin FindCurHighlightElement; end; -procedure TEditorColorOptionsFrame.ForegroundColorButtonColorChanged( - Sender: TObject); +procedure TEditorColorOptionsFrame.ForegroundColorBoxChange(Sender: TObject); begin - if Sender = ForeGroundColorButton then + if Sender = ForegroundColorBox then begin if (CurHighlightElement = nil) or UpdatingColor then exit; - if not ForeGroundUseDefaultCheckBox.Checked then - begin - CurHighlightElement.Foreground := ForeGroundColorButton.ButtonColor; - InvalidatePreviews; - end; + CurHighlightElement.Foreground := DefaultToNone(ForeGroundColorBox.Selected); + ForeGroundUseDefaultCheckBox.Checked := ForeGroundColorBox.Selected = clDefault; + InvalidatePreviews; end; - if Sender = BackGroundColorButton then + if Sender = BackGroundColorBox then begin if (CurHighlightElement = nil) or UpdatingColor then exit; - if not BackGroundUseDefaultCheckBox.Checked then - begin - CurHighlightElement.Background := BackGroundColorButton.ButtonColor; - InvalidatePreviews; - end; + CurHighlightElement.Background := DefaultToNone(BackGroundColorBox.Selected); + BackGroundUseDefaultCheckBox.Checked := BackGroundColorBox.Selected = clDefault; + InvalidatePreviews; end; end; procedure TEditorColorOptionsFrame.GeneralCheckBoxOnChange(Sender: TObject); -var - NewColor: TColor; begin if Sender = UseSyntaxHighlightCheckBox then begin @@ -181,15 +188,16 @@ begin 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 + if ForeGroundUseDefaultCheckBox.Checked then begin - CurHighlightElement.Foreground := NewColor; + ForegroundColorBox.Tag := ForegroundColorBox.Selected; + ForegroundColorBox.Selected := clDefault; + end + else + ForegroundColorBox.Selected := ForegroundColorBox.Tag; + if DefaultToNone(ForegroundColorBox.Selected) <> CurHighlightElement.Foreground then + begin + CurHighlightElement.Foreground := DefaultToNone(ForegroundColorBox.Selected); InvalidatePreviews; end; UpdatingColor := False; @@ -197,15 +205,16 @@ begin 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 + if BackGroundUseDefaultCheckBox.Checked then begin - CurHighlightElement.Background := NewColor; + BackGroundColorBox.Tag := BackGroundColorBox.Selected; + BackGroundColorBox.Selected := clDefault; + end + else + BackGroundColorBox.Selected := BackGroundColorBox.Tag; + if DefaultToNone(BackGroundColorBox.Selected) <> CurHighlightElement.Background then + begin + CurHighlightElement.Background := DefaultToNone(BackGroundColorBox.Selected); InvalidatePreviews; end; end; @@ -463,23 +472,20 @@ begin TextUnderlineCheckBox.Checked := fsUnderline in CurHighlightElement.Style; end; + ForegroundColorBox.Selected := NoneToDefault(CurHighlightElement.Foreground); + if ForegroundColorBox.Selected = clDefault then + ForegroundColorBox.Tag := ForegroundColorBox.DefaultColorColor + else + ForegroundColorBox.Tag := ForegroundColorBox.Selected; + ForeGroundUseDefaultCheckBox.Checked := ForegroundColorBox.Selected = clDefault; - if CurHighlightElement.Foreground = clNone then - ForeGroundUseDefaultCheckBox.Checked := True + BackGroundColorBox.Selected := NoneToDefault(CurHighlightElement.Background); + if BackGroundColorBox.Selected = clDefault then + BackGroundColorBox.Tag := BackGroundColorBox.DefaultColorColor 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; + BackGroundColorBox.Tag := BackGroundColorBox.Selected; + BackGroundUseDefaultCheckBox.Checked := BackGroundColorBox.Selected = clDefault; + UpdatingColor := False; end; @@ -707,7 +713,6 @@ begin ForeGroundLabel.Caption := dlgForecolor; ForeGroundUseDefaultCheckBox.Caption := dlgEdUseDefColor; BackGroundLabel.Caption := dlgBackColor; - BackgroundColorButton.Color := clBlue; BackGroundUseDefaultCheckBox.Caption := dlgEdUseDefColor; TextAttributesGroupBox.Caption := dlgTextAttributes;