ide: improve editor color options page

git-svn-id: trunk@17499 -
This commit is contained in:
paul 2008-11-21 17:34:18 +00:00
parent 4d41f6cdbc
commit 63d0a22db7
3 changed files with 1000 additions and 463 deletions

File diff suppressed because it is too large Load Diff

View File

@ -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
]);

View File

@ -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;