ide: finish code explorer figures options

git-svn-id: trunk@19489 -
2025-04-23 01:19:37 +02:00 · 2009-04-18 16:47:06 +00:00 · 2009-04-18 16:47:06 +00:00 · 9eba2b2313
commit 9eba2b2313
parent c42b65b456
6 changed files with 145 additions and 63 deletions
--- a/ide/frames/codeexplorer_categories_options.lfm
+++ b/ide/frames/codeexplorer_categories_options.lfm
@ -4,8 +4,8 @@ inherited CodeExplorerCategoriesOptionsFrame: TCodeExplorerCategoriesOptionsFram
  ClientHeight = 300
  ClientWidth = 400
  TabOrder = 0
-  DesignLeft = 22
-  DesignTop = 29
+  DesignLeft = 154
+  DesignTop = 203
  object CategoriesCheckGroup: TCheckGroup[0]
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = Owner
@ -17,8 +17,9 @@ inherited CodeExplorerCategoriesOptionsFrame: TCodeExplorerCategoriesOptionsFram
    Height = 300
    Top = 0
    Width = 400
-    Anchors = [akTop, akLeft, akRight, akBottom]
+    Anchors = [akTop, akLeft, akRight]
    AutoFill = True
+    AutoSize = True
    Caption = 'CategoriesCheckGroup'
    ChildSizing.LeftRightSpacing = 6
    ChildSizing.TopBottomSpacing = 6
--- a/ide/frames/codeexplorer_categories_options.lrs
+++ b/ide/frames/codeexplorer_categories_options.lrs
@ -1,17 +1,19 @@
+{ This is an automatically generated lazarus resource file }
+
 LazarusResources.Add('TCodeExplorerCategoriesOptionsFrame','FORMDATA',[
  'TPF0'#241'#TCodeExplorerCategoriesOptionsFrame"CodeExplorerCategoriesOptions'
  +'Frame'#6'Height'#3','#1#5'Width'#3#144#1#12'ClientHeight'#3','#1#11'ClientW'
-  +'idth'#3#144#1#8'TabOrder'#2#0#10'DesignLeft'#2#22#9'DesignTop'#2#29#0#242#2
-  +#0#11'TCheckGroup'#20'CategoriesCheckGroup'#22'AnchorSideLeft.Control'#7#5'O'
-  +'wner'#21'AnchorSideTop.Control'#7#5'Owner'#23'AnchorSideRight.Control'#7#5
-  +'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'
-  +#7#5'Owner'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#2#0#6'Height'#3
-  +','#1#3'Top'#2#0#5'Width'#3#144#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'
-  +#8'akBottom'#0#8'AutoFill'#9#7'Caption'#6#20'CategoriesCheckGroup'#28'ChildS'
-  +'izing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'ChildSi'
-  +'zing.EnlargeHorizontal'#7#24'crsHomogenousChildResize'#27'ChildSizing.Enlar'
-  +'geVertical'#7#24'crsHomogenousChildResize'#28'ChildSizing.ShrinkHorizontal'
-  +#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChilds'#18
-  +'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSizing.Cont'
-  +'rolsPerLine'#2#1#8'TabOrder'#2#0#0#0#0
+  +'idth'#3#144#1#8'TabOrder'#2#0#10'DesignLeft'#3#154#0#9'DesignTop'#3#203#0#0
+  +#242#2#0#11'TCheckGroup'#20'CategoriesCheckGroup'#22'AnchorSideLeft.Control'
+  +#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#23'AnchorSideRight.Control'
+  +#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSideBottom.Cont'
+  +'rol'#7#5'Owner'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#2#0#6'Heig'
+  +'ht'#3','#1#3'Top'#2#0#5'Width'#3#144#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'a'
+  +'kRight'#0#8'AutoFill'#9#8'AutoSize'#9#7'Caption'#6#20'CategoriesCheckGroup'
+  +#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29
+  +'ChildSizing.EnlargeHorizontal'#7#24'crsHomogenousChildResize'#27'ChildSizin'
+  +'g.EnlargeVertical'#7#24'crsHomogenousChildResize'#28'ChildSizing.ShrinkHori'
+  +'zontal'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleCh'
+  +'ilds'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSi'
+  +'zing.ControlsPerLine'#2#1#8'TabOrder'#2#0#0#0#0
 ]);
--- a/ide/frames/codeexplorer_figures_options.lfm
+++ b/ide/frames/codeexplorer_figures_options.lfm
@ -1,11 +1,11 @@
 inherited CodeExplorerFiguresOptionsFrame: TCodeExplorerFiguresOptionsFrame
-  Height = 376
+  Height = 396
  Width = 478
-  ClientHeight = 376
+  ClientHeight = 396
  ClientWidth = 478
  TabOrder = 0
-  DesignLeft = 476
-  DesignTop = 97
+  DesignLeft = 621
+  DesignTop = 269
  object LongProcLineCountLabel: TLabel[0]
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = FigureCategoriesCheckGroup
@ -42,7 +42,22 @@ inherited CodeExplorerFiguresOptionsFrame: TCodeExplorerFiguresOptionsFrame
    Caption = 'NestedProcCountLabel'
    ParentColor = False
  end
-  object FigureCategoriesCheckGroup: TCheckGroup[3]
+  object NotFigureConstantsLabel: TLabel[3]
+    AnchorSideLeft.Control = NestedProcCountLabel
+    AnchorSideLeft.Side = asrBottom
+    AnchorSideTop.Control = FigureCategoriesCheckGroup
+    AnchorSideTop.Side = asrBottom
+    AnchorSideBottom.Control = FigureCharConstCheckBox
+    Left = 210
+    Height = 14
+    Top = 218
+    Width = 122
+    BorderSpacing.Left = 100
+    BorderSpacing.Top = 6
+    Caption = 'NotFigureConstantsLabel'
+    ParentColor = False
+  end
+  object FigureCategoriesCheckGroup: TCheckGroup[4]
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = Owner
    AnchorSideRight.Control = Owner
@ -67,7 +82,7 @@ inherited CodeExplorerFiguresOptionsFrame: TCodeExplorerFiguresOptionsFrame
    ChildSizing.ControlsPerLine = 1
    TabOrder = 0
  end
-  object NestedProcCountSpinEdit: TSpinEdit[4]
+  object NestedProcCountSpinEdit: TSpinEdit[5]
    AnchorSideLeft.Control = LongProcLineCountSpinEdit
    AnchorSideTop.Control = NestedProcCountLabel
    AnchorSideTop.Side = asrBottom
@ -78,7 +93,7 @@ inherited CodeExplorerFiguresOptionsFrame: TCodeExplorerFiguresOptionsFrame
    BorderSpacing.Top = 3
    TabOrder = 1
  end
-  object LongProcLineCountSpinEdit: TSpinEdit[5]
+  object LongProcLineCountSpinEdit: TSpinEdit[6]
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = LongProcLineCountLabel
    AnchorSideTop.Side = asrBottom
@ -90,7 +105,7 @@ inherited CodeExplorerFiguresOptionsFrame: TCodeExplorerFiguresOptionsFrame
    BorderSpacing.Top = 3
    TabOrder = 2
  end
-  object LongParamListCountSpinEdit: TSpinEdit[6]
+  object LongParamListCountSpinEdit: TSpinEdit[7]
    AnchorSideLeft.Control = LongProcLineCountSpinEdit
    AnchorSideTop.Control = LongParamListCountLabel
    AnchorSideTop.Side = asrBottom
@ -101,4 +116,35 @@ inherited CodeExplorerFiguresOptionsFrame: TCodeExplorerFiguresOptionsFrame
    BorderSpacing.Top = 3
    TabOrder = 3
  end
+  object FigureCharConstCheckBox: TCheckBox[8]
+    AnchorSideLeft.Control = Owner
+    AnchorSideTop.Control = NestedProcCountSpinEdit
+    AnchorSideTop.Side = asrBottom
+    Left = 0
+    Height = 17
+    Top = 356
+    Width = 145
+    BorderSpacing.Top = 6
+    Caption = 'FigureCharConstCheckBox'
+    TabOrder = 4
+  end
+  object NotFigureConstantsMemo: TMemo[9]
+    AnchorSideLeft.Control = NotFigureConstantsLabel
+    AnchorSideTop.Control = NotFigureConstantsLabel
+    AnchorSideTop.Side = asrBottom
+    AnchorSideRight.Control = Owner
+    AnchorSideRight.Side = asrBottom
+    AnchorSideBottom.Control = FigureCharConstCheckBox
+    AnchorSideBottom.Side = asrBottom
+    Left = 210
+    Height = 138
+    Top = 235
+    Width = 268
+    Anchors = [akTop, akLeft, akRight, akBottom]
+    BorderSpacing.Top = 3
+    Lines.Strings = (
+      'NotFigureConstantsMemo'
+    )
+    TabOrder = 5
+  end
 end
--- a/ide/frames/codeexplorer_figures_options.lrs
+++ b/ide/frames/codeexplorer_figures_options.lrs
@ -2,43 +2,62 @@

 LazarusResources.Add('TCodeExplorerFiguresOptionsFrame','FORMDATA',[
  'TPF0'#241' TCodeExplorerFiguresOptionsFrame'#31'CodeExplorerFiguresOptionsFr'
-  +'ame'#6'Height'#3'x'#1#5'Width'#3#222#1#12'ClientHeight'#3'x'#1#11'ClientWid'
-  +'th'#3#222#1#8'TabOrder'#2#0#10'DesignLeft'#3#220#1#9'DesignTop'#2'a'#0#242#2
-  +#0#6'TLabel'#22'LongProcLineCountLabel'#22'AnchorSideLeft.Control'#7#5'Owner'
-  +#21'AnchorSideTop.Control'#7#26'FigureCategoriesCheckGroup'#18'AnchorSideTop'
-  +'.Side'#7#9'asrBottom'#4'Left'#2#0#6'Height'#2#14#3'Top'#3#218#0#5'Width'#2
-  +'v'#17'BorderSpacing.Top'#2#6#7'Caption'#6#22'LongProcLineCountLabel'#11'Par'
-  +'entColor'#8#0#0#242#2#1#6'TLabel'#23'LongParamListCountLabel'#22'AnchorSide'
-  +'Left.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#25'LongProcLineCountSp'
-  +'inEdit'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#0#6'Height'#2#14#3
-  +'Top'#3#8#1#5'Width'#2'|'#17'BorderSpacing.Top'#2#6#7'Caption'#6#23'LongPara'
-  +'mListCountLabel'#11'ParentColor'#8#0#0#242#2#2#6'TLabel'#20'NestedProcCount'
-  +'Label'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#26
-  +'LongParamListCountSpinEdit'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2
-  +#0#6'Height'#2#14#3'Top'#3'6'#1#5'Width'#2'n'#17'BorderSpacing.Top'#2#6#7'Ca'
-  +'ption'#6#20'NestedProcCountLabel'#11'ParentColor'#8#0#0#242#2#3#11'TCheckGr'
-  +'oup'#26'FigureCategoriesCheckGroup'#22'AnchorSideLeft.Control'#7#5'Owner'#21
-  +'AnchorSideTop.Control'#7#5'Owner'#23'AnchorSideRight.Control'#7#5'Owner'#20
-  +'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7#5'Owner'
-  +#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#2#0#6'Height'#3#212#0#3'To'
-  +'p'#2#0#5'Width'#3#222#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'Aut'
-  +'oFill'#9#8'AutoSize'#9#7'Caption'#6#26'FigureCategoriesCheckGroup'#28'Child'
-  +'Sizing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'ChildS'
-  +'izing.EnlargeHorizontal'#7#24'crsHomogenousChildResize'#27'ChildSizing.Enla'
-  +'rgeVertical'#7#24'crsHomogenousChildResize'#28'ChildSizing.ShrinkHorizontal'
-  +#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChilds'#18
-  +'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSizing.Cont'
-  +'rolsPerLine'#2#1#8'TabOrder'#2#0#0#0#242#2#4#9'TSpinEdit'#23'NestedProcCoun'
-  +'tSpinEdit'#22'AnchorSideLeft.Control'#7#25'LongProcLineCountSpinEdit'#21'An'
-  +'chorSideTop.Control'#7#20'NestedProcCountLabel'#18'AnchorSideTop.Side'#7#9
-  +'asrBottom'#4'Left'#2#6#6'Height'#2#23#3'Top'#3'G'#1#5'Width'#2'<'#17'Border'
-  +'Spacing.Top'#2#3#8'TabOrder'#2#1#0#0#242#2#5#9'TSpinEdit'#25'LongProcLineCo'
-  +'untSpinEdit'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'
-  +#7#22'LongProcLineCountLabel'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2
-  +#6#6'Height'#2#23#3'Top'#3#235#0#5'Width'#2'<'#18'BorderSpacing.Left'#2#6#17
-  +'BorderSpacing.Top'#2#3#8'TabOrder'#2#2#0#0#242#2#6#9'TSpinEdit'#26'LongPara'
-  +'mListCountSpinEdit'#22'AnchorSideLeft.Control'#7#25'LongProcLineCountSpinEd'
-  +'it'#21'AnchorSideTop.Control'#7#23'LongParamListCountLabel'#18'AnchorSideTo'
-  +'p.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#23#3'Top'#3#25#1#5'Width'#2
-  +'<'#17'BorderSpacing.Top'#2#3#8'TabOrder'#2#3#0#0#0
+  +'ame'#6'Height'#3#140#1#5'Width'#3#222#1#12'ClientHeight'#3#140#1#11'ClientW'
+  +'idth'#3#222#1#8'TabOrder'#2#0#10'DesignLeft'#3'm'#2#9'DesignTop'#3#13#1#0
+  +#242#2#0#6'TLabel'#22'LongProcLineCountLabel'#22'AnchorSideLeft.Control'#7#5
+  +'Owner'#21'AnchorSideTop.Control'#7#26'FigureCategoriesCheckGroup'#18'Anchor'
+  +'SideTop.Side'#7#9'asrBottom'#4'Left'#2#0#6'Height'#2#14#3'Top'#3#218#0#5'Wi'
+  +'dth'#2'v'#17'BorderSpacing.Top'#2#6#7'Caption'#6#22'LongProcLineCountLabel'
+  +#11'ParentColor'#8#0#0#242#2#1#6'TLabel'#23'LongParamListCountLabel'#22'Anch'
+  +'orSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#25'LongProcLineC'
+  +'ountSpinEdit'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#0#6'Height'#2
+  +#14#3'Top'#3#8#1#5'Width'#2'|'#17'BorderSpacing.Top'#2#6#7'Caption'#6#23'Lon'
+  +'gParamListCountLabel'#11'ParentColor'#8#0#0#242#2#2#6'TLabel'#20'NestedProc'
+  +'CountLabel'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'
+  +#7#26'LongParamListCountSpinEdit'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Le'
+  +'ft'#2#0#6'Height'#2#14#3'Top'#3'6'#1#5'Width'#2'n'#17'BorderSpacing.Top'#2#6
+  +#7'Caption'#6#20'NestedProcCountLabel'#11'ParentColor'#8#0#0#242#2#3#6'TLabe'
+  +'l'#23'NotFigureConstantsLabel'#22'AnchorSideLeft.Control'#7#20'NestedProcCo'
+  +'untLabel'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7
+  +#26'FigureCategoriesCheckGroup'#18'AnchorSideTop.Side'#7#9'asrBottom'#24'Anc'
+  +'horSideBottom.Control'#7#23'FigureCharConstCheckBox'#4'Left'#3#210#0#6'Heig'
+  +'ht'#2#14#3'Top'#3#218#0#5'Width'#2'z'#18'BorderSpacing.Left'#2'd'#17'Border'
+  +'Spacing.Top'#2#6#7'Caption'#6#23'NotFigureConstantsLabel'#11'ParentColor'#8
+  +#0#0#242#2#4#11'TCheckGroup'#26'FigureCategoriesCheckGroup'#22'AnchorSideLef'
+  +'t.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#23'AnchorSideRig'
+  +'ht.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSid'
+  +'eBottom.Control'#7#5'Owner'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'
+  +#2#0#6'Height'#3#212#0#3'Top'#2#0#5'Width'#3#222#1#7'Anchors'#11#5'akTop'#6
+  +'akLeft'#7'akRight'#0#8'AutoFill'#9#8'AutoSize'#9#7'Caption'#6#26'FigureCate'
+  +'goriesCheckGroup'#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing.TopBo'
+  +'ttomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsHomogenousChildR'
+  +'esize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenousChildResize'#28'Ch'
+  +'ildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVerti'
+  +'cal'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTop'
+  +'ToBottom'#27'ChildSizing.ControlsPerLine'#2#1#8'TabOrder'#2#0#0#0#242#2#5#9
+  +'TSpinEdit'#23'NestedProcCountSpinEdit'#22'AnchorSideLeft.Control'#7#25'Long'
+  +'ProcLineCountSpinEdit'#21'AnchorSideTop.Control'#7#20'NestedProcCountLabel'
+  +#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#23#3'Top'#3'G'
+  +#1#5'Width'#2'<'#17'BorderSpacing.Top'#2#3#8'TabOrder'#2#1#0#0#242#2#6#9'TSp'
+  +'inEdit'#25'LongProcLineCountSpinEdit'#22'AnchorSideLeft.Control'#7#5'Owner'
+  +#21'AnchorSideTop.Control'#7#22'LongProcLineCountLabel'#18'AnchorSideTop.Sid'
+  +'e'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#23#3'Top'#3#235#0#5'Width'#2'<'#18
+  +'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#3#8'TabOrder'#2#2#0#0#242#2
+  +#7#9'TSpinEdit'#26'LongParamListCountSpinEdit'#22'AnchorSideLeft.Control'#7
+  +#25'LongProcLineCountSpinEdit'#21'AnchorSideTop.Control'#7#23'LongParamListC'
+  +'ountLabel'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#23
+  +#3'Top'#3#25#1#5'Width'#2'<'#17'BorderSpacing.Top'#2#3#8'TabOrder'#2#3#0#0
+  +#242#2#8#9'TCheckBox'#23'FigureCharConstCheckBox'#22'AnchorSideLeft.Control'
+  +#7#5'Owner'#21'AnchorSideTop.Control'#7#23'NestedProcCountSpinEdit'#18'Ancho'
+  +'rSideTop.Side'#7#9'asrBottom'#4'Left'#2#0#6'Height'#2#17#3'Top'#3'd'#1#5'Wi'
+  +'dth'#3#145#0#17'BorderSpacing.Top'#2#6#7'Caption'#6#23'FigureCharConstCheck'
+  +'Box'#8'TabOrder'#2#4#0#0#242#2#9#5'TMemo'#22'NotFigureConstantsMemo'#22'Anc'
+  +'horSideLeft.Control'#7#23'NotFigureConstantsLabel'#21'AnchorSideTop.Control'
+  +#7#23'NotFigureConstantsLabel'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'Anch'
+  +'orSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#24
+  +'AnchorSideBottom.Control'#7#23'FigureCharConstCheckBox'#21'AnchorSideBottom'
+  +'.Side'#7#9'asrBottom'#4'Left'#3#210#0#6'Height'#3#138#0#3'Top'#3#235#0#5'Wi'
+  +'dth'#3#12#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#17'Bo'
+  +'rderSpacing.Top'#2#3#13'Lines.Strings'#1#6#22'NotFigureConstantsMemo'#0#8'T'
+  +'abOrder'#2#5#0#0#0
 ]);
--- a/ide/frames/codeexplorer_figures_options.pas
+++ b/ide/frames/codeexplorer_figures_options.pas
@ -33,9 +33,12 @@ type
  { TCodeExplorerFiguresOptionsFrame }

  TCodeExplorerFiguresOptionsFrame = class(TAbstractIDEOptionsEditor)
+    FigureCharConstCheckBox: TCheckBox;
    FigureCategoriesCheckGroup: TCheckGroup;
+    NotFigureConstantsLabel: TLabel;
    LongProcLineCountLabel: TLabel;
    LongParamListCountLabel: TLabel;
+    NotFigureConstantsMemo: TMemo;
    NestedProcCountLabel: TLabel;
    LongProcLineCountSpinEdit: TSpinEdit;
    LongParamListCountSpinEdit: TSpinEdit;
@ -69,12 +72,15 @@ begin
  LongProcLineCountLabel.Caption := lisCELongProcLineCount;
  LongParamListCountLabel.Caption := lisCELongParamListCount;
  NestedProcCountLabel.Caption := lisCENestedProcCount;
+  FigureCharConstCheckBox.Caption := lisCEFigureCharConst;
+  NotFigureConstantsLabel.Caption := lisCENotFigureConstants;
 end;

 procedure TCodeExplorerFiguresOptionsFrame.ReadSettings(
  AOptions: TAbstractIDEOptions);
 var
  c: TCEFigureCategory;
+  Tmp: TStrings;
 begin
  with AOptions as TCodeExplorerOptions do
  begin
@ -84,6 +90,10 @@ begin
    LongProcLineCountSpinEdit.Value := LongProcLineCount;
    LongParamListCountSpinEdit.Value := LongParamListCount;
    NestedProcCountSpinEdit.Value := NestedProcCount;
+    FigureCharConstCheckBox.Checked := FigureCharConst;
+    Tmp := CreateListOfNotFigureConstants;
+    NotFigureConstantsMemo.Lines.Assign(Tmp);
+    Tmp.Free;
  end;
 end;

@ -103,6 +113,8 @@ begin
    LongProcLineCount := LongProcLineCountSpinEdit.Value;
    LongParamListCount := LongParamListCountSpinEdit.Value;
    NestedProcCount := NestedProcCountSpinEdit.Value;
+    FigureCharConst := FigureCharConstCheckBox.Checked;
+    SetListOfNotFigureConstants(NotFigureConstantsMemo.Lines);
  end;
 end;

--- a/ide/lazarusidestrconsts.pas
+++ b/ide/lazarusidestrconsts.pas
@ -4142,6 +4142,8 @@ resourcestring
  lisCELongProcLineCount = 'Line count to treat procedure as "long"';
  lisCELongParamListCount = 'Parameters count to treat then as "many"';
  lisCENestedProcCount = 'Nested procedures count to tream them as "many"';
+  lisCEFigureCharConst = 'Search for unnamed char constants';
+  lisCENotFigureConstants = 'Unnamed constants to skip';

 implementation