From 9eba2b231309bafd4a2f1a56e2ff792daa1f6eec Mon Sep 17 00:00:00 2001 From: paul Date: Sat, 18 Apr 2009 16:47:06 +0000 Subject: [PATCH] ide: finish code explorer figures options git-svn-id: trunk@19489 - --- .../codeexplorer_categories_options.lfm | 7 +- .../codeexplorer_categories_options.lrs | 28 +++--- ide/frames/codeexplorer_figures_options.lfm | 62 ++++++++++-- ide/frames/codeexplorer_figures_options.lrs | 97 +++++++++++-------- ide/frames/codeexplorer_figures_options.pas | 12 +++ ide/lazarusidestrconsts.pas | 2 + 6 files changed, 145 insertions(+), 63 deletions(-) diff --git a/ide/frames/codeexplorer_categories_options.lfm b/ide/frames/codeexplorer_categories_options.lfm index 17c1ac8b17..0bc3c572ba 100644 --- 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 diff --git a/ide/frames/codeexplorer_categories_options.lrs b/ide/frames/codeexplorer_categories_options.lrs index 39661c54f5..b36adf830a 100644 --- 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 ]); diff --git a/ide/frames/codeexplorer_figures_options.lfm b/ide/frames/codeexplorer_figures_options.lfm index 15c836d9ae..e5ec02cfc0 100644 --- 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 diff --git a/ide/frames/codeexplorer_figures_options.lrs b/ide/frames/codeexplorer_figures_options.lrs index f2616a02ec..d273654504 100644 --- 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 ]); diff --git a/ide/frames/codeexplorer_figures_options.pas b/ide/frames/codeexplorer_figures_options.pas index 60da049172..4c33ba97e9 100644 --- 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; diff --git a/ide/lazarusidestrconsts.pas b/ide/lazarusidestrconsts.pas index 308636bdc7..82c0984843 100644 --- 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