paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 23:39:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

ide: finish code explorer figures options

Browse Source 
git-svn-id: trunk@19489 -
This commit is contained in:
paul 2009-04-18 16:47:06 +00:00
parent c42b65b456
commit 9eba2b2313
6 changed files with 145 additions and 63 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/frames/codeexplorer_categories_options.lfm
View File

@ -4,8 +4,8 @@ inherited CodeExplorerCategoriesOptionsFrame: TCodeExplorerCategoriesOptionsFram
ClientHeight = 300 ClientHeight = 300
ClientWidth = 400 ClientWidth = 400
TabOrder = 0 TabOrder = 0
DesignLeft = 22 DesignLeft = 154
DesignTop = 29 DesignTop = 203
object CategoriesCheckGroup: TCheckGroup[0] object CategoriesCheckGroup: TCheckGroup[0]
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner AnchorSideTop.Control = Owner
@ -17,8 +17,9 @@ inherited CodeExplorerCategoriesOptionsFrame: TCodeExplorerCategoriesOptionsFram
Height = 300 Height = 300
Top = 0 Top = 0
Width = 400 Width = 400
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight]
AutoFill = True AutoFill = True
AutoSize = True
Caption = 'CategoriesCheckGroup' Caption = 'CategoriesCheckGroup'
ChildSizing.LeftRightSpacing = 6 ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6 ChildSizing.TopBottomSpacing = 6

28
ide/frames/codeexplorer_categories_options.lrs
View File

@ -1,17 +1,19 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TCodeExplorerCategoriesOptionsFrame','FORMDATA',[ LazarusResources.Add('TCodeExplorerCategoriesOptionsFrame','FORMDATA',[
'TPF0'#241'#TCodeExplorerCategoriesOptionsFrame"CodeExplorerCategoriesOptions' 'TPF0'#241'#TCodeExplorerCategoriesOptionsFrame"CodeExplorerCategoriesOptions'
+'Frame'#6'Height'#3','#1#5'Width'#3#144#1#12'ClientHeight'#3','#1#11'ClientW' +'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 +'idth'#3#144#1#8'TabOrder'#2#0#10'DesignLeft'#3#154#0#9'DesignTop'#3#203#0#0
+#0#11'TCheckGroup'#20'CategoriesCheckGroup'#22'AnchorSideLeft.Control'#7#5'O' +#242#2#0#11'TCheckGroup'#20'CategoriesCheckGroup'#22'AnchorSideLeft.Control'
+'wner'#21'AnchorSideTop.Control'#7#5'Owner'#23'AnchorSideRight.Control'#7#5 +#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#23'AnchorSideRight.Control'
+'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control' +#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSideBottom.Cont'
+#7#5'Owner'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#2#0#6'Height'#3 +'rol'#7#5'Owner'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#2#0#6'Heig'
+','#1#3'Top'#2#0#5'Width'#3#144#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight' +'ht'#3','#1#3'Top'#2#0#5'Width'#3#144#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'a'
+#8'akBottom'#0#8'AutoFill'#9#7'Caption'#6#20'CategoriesCheckGroup'#28'ChildS' +'kRight'#0#8'AutoFill'#9#8'AutoSize'#9#7'Caption'#6#20'CategoriesCheckGroup'
+'izing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'ChildSi' +#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29
+'zing.EnlargeHorizontal'#7#24'crsHomogenousChildResize'#27'ChildSizing.Enlar' +'ChildSizing.EnlargeHorizontal'#7#24'crsHomogenousChildResize'#27'ChildSizin'
+'geVertical'#7#24'crsHomogenousChildResize'#28'ChildSizing.ShrinkHorizontal' +'g.EnlargeVertical'#7#24'crsHomogenousChildResize'#28'ChildSizing.ShrinkHori'
+#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChilds'#18 +'zontal'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleCh'
+'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSizing.Cont' +'ilds'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSi'
+'rolsPerLine'#2#1#8'TabOrder'#2#0#0#0#0 +'zing.ControlsPerLine'#2#1#8'TabOrder'#2#0#0#0#0
]); ]);

62
ide/frames/codeexplorer_figures_options.lfm
View File

@ -1,11 +1,11 @@
inherited CodeExplorerFiguresOptionsFrame: TCodeExplorerFiguresOptionsFrame inherited CodeExplorerFiguresOptionsFrame: TCodeExplorerFiguresOptionsFrame
Height = 376 Height = 396
Width = 478 Width = 478
ClientHeight = 376 ClientHeight = 396
ClientWidth = 478 ClientWidth = 478
TabOrder = 0 TabOrder = 0
DesignLeft = 476 DesignLeft = 621
DesignTop = 97 DesignTop = 269
object LongProcLineCountLabel: TLabel[0] object LongProcLineCountLabel: TLabel[0]
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = FigureCategoriesCheckGroup AnchorSideTop.Control = FigureCategoriesCheckGroup
@ -42,7 +42,22 @@ inherited CodeExplorerFiguresOptionsFrame: TCodeExplorerFiguresOptionsFrame
Caption = 'NestedProcCountLabel' Caption = 'NestedProcCountLabel'
ParentColor = False ParentColor = False
end 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 AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
@ -67,7 +82,7 @@ inherited CodeExplorerFiguresOptionsFrame: TCodeExplorerFiguresOptionsFrame
ChildSizing.ControlsPerLine = 1 ChildSizing.ControlsPerLine = 1
TabOrder = 0 TabOrder = 0
end end
object NestedProcCountSpinEdit: TSpinEdit[4] object NestedProcCountSpinEdit: TSpinEdit[5]
AnchorSideLeft.Control = LongProcLineCountSpinEdit AnchorSideLeft.Control = LongProcLineCountSpinEdit
AnchorSideTop.Control = NestedProcCountLabel AnchorSideTop.Control = NestedProcCountLabel
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
@ -78,7 +93,7 @@ inherited CodeExplorerFiguresOptionsFrame: TCodeExplorerFiguresOptionsFrame
BorderSpacing.Top = 3 BorderSpacing.Top = 3
TabOrder = 1 TabOrder = 1
end end
object LongProcLineCountSpinEdit: TSpinEdit[5] object LongProcLineCountSpinEdit: TSpinEdit[6]
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = LongProcLineCountLabel AnchorSideTop.Control = LongProcLineCountLabel
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
@ -90,7 +105,7 @@ inherited CodeExplorerFiguresOptionsFrame: TCodeExplorerFiguresOptionsFrame
BorderSpacing.Top = 3 BorderSpacing.Top = 3
TabOrder = 2 TabOrder = 2
end end
object LongParamListCountSpinEdit: TSpinEdit[6] object LongParamListCountSpinEdit: TSpinEdit[7]
AnchorSideLeft.Control = LongProcLineCountSpinEdit AnchorSideLeft.Control = LongProcLineCountSpinEdit
AnchorSideTop.Control = LongParamListCountLabel AnchorSideTop.Control = LongParamListCountLabel
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
@ -101,4 +116,35 @@ inherited CodeExplorerFiguresOptionsFrame: TCodeExplorerFiguresOptionsFrame
BorderSpacing.Top = 3 BorderSpacing.Top = 3
TabOrder = 3 TabOrder = 3
end 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 end

97
ide/frames/codeexplorer_figures_options.lrs
View File

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

12
ide/frames/codeexplorer_figures_options.pas
View File

@ -33,9 +33,12 @@ type
{ TCodeExplorerFiguresOptionsFrame } { TCodeExplorerFiguresOptionsFrame }
TCodeExplorerFiguresOptionsFrame = class(TAbstractIDEOptionsEditor) TCodeExplorerFiguresOptionsFrame = class(TAbstractIDEOptionsEditor)
FigureCharConstCheckBox: TCheckBox;
FigureCategoriesCheckGroup: TCheckGroup; FigureCategoriesCheckGroup: TCheckGroup;
NotFigureConstantsLabel: TLabel;
LongProcLineCountLabel: TLabel; LongProcLineCountLabel: TLabel;
LongParamListCountLabel: TLabel; LongParamListCountLabel: TLabel;
NotFigureConstantsMemo: TMemo;
NestedProcCountLabel: TLabel; NestedProcCountLabel: TLabel;
LongProcLineCountSpinEdit: TSpinEdit; LongProcLineCountSpinEdit: TSpinEdit;
LongParamListCountSpinEdit: TSpinEdit; LongParamListCountSpinEdit: TSpinEdit;
@ -69,12 +72,15 @@ begin
LongProcLineCountLabel.Caption := lisCELongProcLineCount; LongProcLineCountLabel.Caption := lisCELongProcLineCount;
LongParamListCountLabel.Caption := lisCELongParamListCount; LongParamListCountLabel.Caption := lisCELongParamListCount;
NestedProcCountLabel.Caption := lisCENestedProcCount; NestedProcCountLabel.Caption := lisCENestedProcCount;
FigureCharConstCheckBox.Caption := lisCEFigureCharConst;
NotFigureConstantsLabel.Caption := lisCENotFigureConstants;
end; end;
procedure TCodeExplorerFiguresOptionsFrame.ReadSettings( procedure TCodeExplorerFiguresOptionsFrame.ReadSettings(
AOptions: TAbstractIDEOptions); AOptions: TAbstractIDEOptions);
var var
c: TCEFigureCategory; c: TCEFigureCategory;
Tmp: TStrings;
begin begin
with AOptions as TCodeExplorerOptions do with AOptions as TCodeExplorerOptions do
begin begin
@ -84,6 +90,10 @@ begin
LongProcLineCountSpinEdit.Value := LongProcLineCount; LongProcLineCountSpinEdit.Value := LongProcLineCount;
LongParamListCountSpinEdit.Value := LongParamListCount; LongParamListCountSpinEdit.Value := LongParamListCount;
NestedProcCountSpinEdit.Value := NestedProcCount; NestedProcCountSpinEdit.Value := NestedProcCount;
FigureCharConstCheckBox.Checked := FigureCharConst;
Tmp := CreateListOfNotFigureConstants;
NotFigureConstantsMemo.Lines.Assign(Tmp);
Tmp.Free;
end; end;
end; end;
@ -103,6 +113,8 @@ begin
LongProcLineCount := LongProcLineCountSpinEdit.Value; LongProcLineCount := LongProcLineCountSpinEdit.Value;
LongParamListCount := LongParamListCountSpinEdit.Value; LongParamListCount := LongParamListCountSpinEdit.Value;
NestedProcCount := NestedProcCountSpinEdit.Value; NestedProcCount := NestedProcCountSpinEdit.Value;
FigureCharConst := FigureCharConstCheckBox.Checked;
SetListOfNotFigureConstants(NotFigureConstantsMemo.Lines);
end; end;
end; end;

2
ide/lazarusidestrconsts.pas
View File

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