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

codetools: added option to not insert class comment for implementation

Browse Source 
git-svn-id: trunk@23086 -
This commit is contained in:
mattias 2009-12-11 20:37:22 +00:00
parent 6cc37ddac3
commit 1b68eafebe
7 changed files with 107 additions and 83 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/codetools/codecompletiontool.pas
View File

@ -6571,6 +6571,9 @@ var
begin begin
// insert class comment // insert class comment
if ClassProcs.Count=0 then exit; if ClassProcs.Count=0 then exit;
if not ASourceChangeCache.BeautifyCodeOptions.ClassImplementationComments
then
exit;
// find the start of the class (the position in front of the class name) // find the start of the class (the position in front of the class name)
// check if there is already a comment in front // check if there is already a comment in front
if FindClassMethodsComment(InsertPos,CommentStart,CommentEnd) then begin if FindClassMethodsComment(InsertPos,CommentStart,CommentEnd) then begin

1
components/codetools/sourcechanger.pas
View File

@ -127,6 +127,7 @@ type
KeepForwardProcOrder: boolean; KeepForwardProcOrder: boolean;
// classes, methods, properties // classes, methods, properties
ClassHeaderComments: boolean; ClassHeaderComments: boolean;
ClassImplementationComments: boolean;
ClassPartInsertPolicy: TClassPartInsertPolicy; ClassPartInsertPolicy: TClassPartInsertPolicy;
MixMethodsAndProperties: boolean; MixMethodsAndProperties: boolean;
MethodInsertPolicy: TMethodInsertPolicy; MethodInsertPolicy: TMethodInsertPolicy;

12
ide/codetoolsoptions.pas
View File

@ -50,6 +50,7 @@ type
TCodeToolsOptions = class(TAbstractIDEOptions) TCodeToolsOptions = class(TAbstractIDEOptions)
private private
FClassHeaderComments: boolean; FClassHeaderComments: boolean;
FClassImplementationComments: boolean;
FFilename: string; FFilename: string;
FIdentComplAddParameterBrackets: boolean; FIdentComplAddParameterBrackets: boolean;
@ -153,6 +154,8 @@ type
read FKeepForwardProcOrder write FKeepForwardProcOrder; read FKeepForwardProcOrder write FKeepForwardProcOrder;
property ClassHeaderComments: boolean property ClassHeaderComments: boolean
read FClassHeaderComments write FClassHeaderComments; read FClassHeaderComments write FClassHeaderComments;
property ClassImplementationComments: boolean
read FClassImplementationComments write FClassImplementationComments;
property MethodInsertPolicy: TMethodInsertPolicy property MethodInsertPolicy: TMethodInsertPolicy
read FMethodInsertPolicy write FMethodInsertPolicy; read FMethodInsertPolicy write FMethodInsertPolicy;
property KeyWordPolicy : TWordPolicy property KeyWordPolicy : TWordPolicy
@ -377,6 +380,8 @@ begin
'CodeToolsOptions/KeepForwardProcOrder/Value',true); 'CodeToolsOptions/KeepForwardProcOrder/Value',true);
FClassHeaderComments:=XMLConfig.GetValue( FClassHeaderComments:=XMLConfig.GetValue(
'CodeToolsOptions/ClassHeaderComments/Value',true); 'CodeToolsOptions/ClassHeaderComments/Value',true);
FClassImplementationComments:=XMLConfig.GetValue(
'CodeToolsOptions/ClassImplementationComments/Value',true);
FMethodInsertPolicy:=MethodInsertPolicyNameToPolicy(XMLConfig.GetValue( FMethodInsertPolicy:=MethodInsertPolicyNameToPolicy(XMLConfig.GetValue(
'CodeToolsOptions/MethodInsertPolicy/Value', 'CodeToolsOptions/MethodInsertPolicy/Value',
@ -497,6 +502,9 @@ begin
'CodeToolsOptions/KeepForwardProcOrder/Value',FKeepForwardProcOrder,true); 'CodeToolsOptions/KeepForwardProcOrder/Value',FKeepForwardProcOrder,true);
XMLConfig.SetDeleteValue( XMLConfig.SetDeleteValue(
'CodeToolsOptions/ClassHeaderComments/Value',FClassHeaderComments,true); 'CodeToolsOptions/ClassHeaderComments/Value',FClassHeaderComments,true);
XMLConfig.SetDeleteValue(
'CodeToolsOptions/ClassImplementationComments/Value',
FClassImplementationComments,true);
XMLConfig.SetDeleteValue('CodeToolsOptions/MethodInsertPolicy/Value', XMLConfig.SetDeleteValue('CodeToolsOptions/MethodInsertPolicy/Value',
MethodInsertPolicyNames[FMethodInsertPolicy], MethodInsertPolicyNames[FMethodInsertPolicy],
MethodInsertPolicyNames[mipClassOrder]); MethodInsertPolicyNames[mipClassOrder]);
@ -613,6 +621,7 @@ begin
FForwardProcBodyInsertPolicy:=CodeToolsOpts.ForwardProcBodyInsertPolicy; FForwardProcBodyInsertPolicy:=CodeToolsOpts.ForwardProcBodyInsertPolicy;
FKeepForwardProcOrder:=CodeToolsOpts.KeepForwardProcOrder; FKeepForwardProcOrder:=CodeToolsOpts.KeepForwardProcOrder;
FClassHeaderComments:=CodeToolsOpts.ClassHeaderComments; FClassHeaderComments:=CodeToolsOpts.ClassHeaderComments;
FClassImplementationComments:=CodeToolsOpts.ClassImplementationComments;
FMethodInsertPolicy:=CodeToolsOpts.FMethodInsertPolicy; FMethodInsertPolicy:=CodeToolsOpts.FMethodInsertPolicy;
FKeyWordPolicy:=CodeToolsOpts.FKeyWordPolicy; FKeyWordPolicy:=CodeToolsOpts.FKeyWordPolicy;
FIdentifierPolicy:=CodeToolsOpts.FIdentifierPolicy; FIdentifierPolicy:=CodeToolsOpts.FIdentifierPolicy;
@ -661,6 +670,7 @@ begin
FForwardProcBodyInsertPolicy:=fpipInFrontOfMethods; FForwardProcBodyInsertPolicy:=fpipInFrontOfMethods;
FKeepForwardProcOrder:=true; FKeepForwardProcOrder:=true;
FClassHeaderComments:=true; FClassHeaderComments:=true;
FClassImplementationComments:=true;
FMethodInsertPolicy:=mipClassOrder; FMethodInsertPolicy:=mipClassOrder;
FKeyWordPolicy:=wpLowerCase; FKeyWordPolicy:=wpLowerCase;
FIdentifierPolicy:=wpNone; FIdentifierPolicy:=wpNone;
@ -724,6 +734,7 @@ begin
and (FForwardProcBodyInsertPolicy=CodeToolsOpts.ForwardProcBodyInsertPolicy) and (FForwardProcBodyInsertPolicy=CodeToolsOpts.ForwardProcBodyInsertPolicy)
and (FKeepForwardProcOrder=CodeToolsOpts.KeepForwardProcOrder) and (FKeepForwardProcOrder=CodeToolsOpts.KeepForwardProcOrder)
and (FClassHeaderComments=CodeToolsOpts.ClassHeaderComments) and (FClassHeaderComments=CodeToolsOpts.ClassHeaderComments)
and (FClassImplementationComments=CodeToolsOpts.ClassImplementationComments)
and (FMethodInsertPolicy=CodeToolsOpts.FMethodInsertPolicy) and (FMethodInsertPolicy=CodeToolsOpts.FMethodInsertPolicy)
and (FKeyWordPolicy=CodeToolsOpts.FKeyWordPolicy) and (FKeyWordPolicy=CodeToolsOpts.FKeyWordPolicy)
and (FIdentifierPolicy=CodeToolsOpts.FIdentifierPolicy) and (FIdentifierPolicy=CodeToolsOpts.FIdentifierPolicy)
@ -818,6 +829,7 @@ begin
BeautifyCodeOptions.ForwardProcBodyInsertPolicy:=ForwardProcBodyInsertPolicy; BeautifyCodeOptions.ForwardProcBodyInsertPolicy:=ForwardProcBodyInsertPolicy;
BeautifyCodeOptions.KeepForwardProcOrder:=KeepForwardProcOrder; BeautifyCodeOptions.KeepForwardProcOrder:=KeepForwardProcOrder;
BeautifyCodeOptions.ClassHeaderComments:=ClassHeaderComments; BeautifyCodeOptions.ClassHeaderComments:=ClassHeaderComments;
BeautifyCodeOptions.ClassImplementationComments:=ClassImplementationComments;
BeautifyCodeOptions.MethodInsertPolicy:=MethodInsertPolicy; BeautifyCodeOptions.MethodInsertPolicy:=MethodInsertPolicy;
BeautifyCodeOptions.KeyWordPolicy:=KeyWordPolicy; BeautifyCodeOptions.KeyWordPolicy:=KeyWordPolicy;
BeautifyCodeOptions.IdentifierPolicy:=IdentifierPolicy; BeautifyCodeOptions.IdentifierPolicy:=IdentifierPolicy;

23
ide/frames/codetools_classcompletion_options.lfm
View File

@ -77,20 +77,21 @@ inherited CodetoolsClassCompletionOptionsFrame: TCodetoolsClassCompletionOptions
end end
object PropertyCompletionGroupBox: TGroupBox[4] object PropertyCompletionGroupBox: TGroupBox[4]
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = ClassImplementationCommentsCheckBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 0 Left = 0
Height = 194 Height = 193
Top = 173 Top = 190
Width = 572 Width = 572
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = True AutoSize = True
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'PropertyCompletionGroupBox' Caption = 'PropertyCompletionGroupBox'
ClientHeight = 175 ClientHeight = 175
ClientWidth = 568 ClientWidth = 570
TabOrder = 4 TabOrder = 4
object PropertyCompletionCheckBox: TCheckBox object PropertyCompletionCheckBox: TCheckBox
AnchorSideLeft.Control = PropertyCompletionGroupBox AnchorSideLeft.Control = PropertyCompletionGroupBox
@ -112,7 +113,7 @@ inherited CodetoolsClassCompletionOptionsFrame: TCodetoolsClassCompletionOptions
Left = 6 Left = 6
Height = 135 Height = 135
Top = 34 Top = 34
Width = 556 Width = 558
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -120,7 +121,7 @@ inherited CodetoolsClassCompletionOptionsFrame: TCodetoolsClassCompletionOptions
ChildSizing.Layout = cclTopToBottomThenLeftToRight ChildSizing.Layout = cclTopToBottomThenLeftToRight
ChildSizing.ControlsPerLine = 5 ChildSizing.ControlsPerLine = 5
ClientHeight = 135 ClientHeight = 135
ClientWidth = 556 ClientWidth = 558
TabOrder = 1 TabOrder = 1
object SetPropertyVariablenameLabel: TLabel object SetPropertyVariablenameLabel: TLabel
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
@ -234,4 +235,16 @@ inherited CodetoolsClassCompletionOptionsFrame: TCodetoolsClassCompletionOptions
end end
end end
end end
object ClassImplementationCommentsCheckBox: TCheckBox[5]
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = ClassHeaderCommentsCheckBox
AnchorSideTop.Side = asrBottom
Left = 6
Height = 22
Top = 162
Width = 293
BorderSpacing.Around = 6
Caption = 'ClassImplementationCommentsCheckBox'
TabOrder = 5
end
end end

115
ide/frames/codetools_classcompletion_options.lrs
View File

@ -35,62 +35,67 @@ LazarusResources.Add('TCodetoolsClassCompletionOptionsFrame','FORMDATA',[
+'pertiesCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height' +'pertiesCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'
+#2#22#3'Top'#3#134#0#5'Width'#3#239#0#20'BorderSpacing.Around'#2#6#7'Caption' +#2#22#3'Top'#3#134#0#5'Width'#3#239#0#20'BorderSpacing.Around'#2#6#7'Caption'
+#6#27'ClassHeaderCommentsCheckBox'#8'TabOrder'#2#3#0#0#242#2#4#9'TGroupBox' +#6#27'ClassHeaderCommentsCheckBox'#8'TabOrder'#2#3#0#0#242#2#4#9'TGroupBox'
+#26'PropertyCompletionGroupBox'#22'AnchorSideLeft.Control'#7#5'Owner'#18'Anc' +#26'PropertyCompletionGroupBox'#22'AnchorSideLeft.Control'#7#5'Owner'#21'Anc'
+'horSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20'A' +'horSideTop.Control'#7'#ClassImplementationCommentsCheckBox'#18'AnchorSideTo'
+'nchorSideRight.Side'#7#9'asrBottom'#21'AnchorSideBottom.Side'#7#9'asrBottom' +'p.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSide'
+#4'Left'#2#0#6'Height'#3#194#0#3'Top'#3#173#0#5'Width'#3'<'#2#7'Anchors'#11#5 +'Right.Side'#7#9'asrBottom'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'
+'akTop'#6'akLeft'#7'akRight'#0#8'AutoSize'#9#17'BorderSpacing.Top'#2#6#7'Cap' +#2#0#6'Height'#3#193#0#3'Top'#3#190#0#5'Width'#3'<'#2#7'Anchors'#11#5'akTop'
+'tion'#6#26'PropertyCompletionGroupBox'#12'ClientHeight'#3#175#0#11'ClientWi' +#6'akLeft'#7'akRight'#0#8'AutoSize'#9#17'BorderSpacing.Top'#2#6#7'Caption'#6
+'dth'#3'8'#2#8'TabOrder'#2#4#0#9'TCheckBox'#26'PropertyCompletionCheckBox'#22 +#26'PropertyCompletionGroupBox'#12'ClientHeight'#3#175#0#11'ClientWidth'#3':'
+'AnchorSideLeft.Control'#7#26'PropertyCompletionGroupBox'#21'AnchorSideTop.C' +#2#8'TabOrder'#2#4#0#9'TCheckBox'#26'PropertyCompletionCheckBox'#22'AnchorSi'
+'ontrol'#7#26'PropertyCompletionGroupBox'#4'Left'#2#6#6'Height'#2#22#3'Top'#2 +'deLeft.Control'#7#26'PropertyCompletionGroupBox'#21'AnchorSideTop.Control'#7
+#6#5'Width'#3#214#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#26'PropertyCom' +#26'PropertyCompletionGroupBox'#4'Left'#2#6#6'Height'#2#22#3'Top'#2#6#5'Widt'
+'pletionCheckBox'#8'TabOrder'#2#0#0#0#6'TPanel'#17'PropPrefixesPanel'#22'Anc' +'h'#3#214#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#26'PropertyCompletionC'
+'horSideLeft.Control'#7#26'PropertyCompletionGroupBox'#21'AnchorSideTop.Cont' +'heckBox'#8'TabOrder'#2#0#0#0#6'TPanel'#17'PropPrefixesPanel'#22'AnchorSideL'
+'rol'#7#26'PropertyCompletionCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom' +'eft.Control'#7#26'PropertyCompletionGroupBox'#21'AnchorSideTop.Control'#7#26
+#23'AnchorSideRight.Control'#7#26'PropertyCompletionGroupBox'#20'AnchorSideR' +'PropertyCompletionCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'Anchor'
+'ight.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#3#135#0#3'Top'#2'"'#5'Width' +'SideRight.Control'#7#26'PropertyCompletionGroupBox'#20'AnchorSideRight.Side'
+#3','#2#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'AutoSize'#9#20'Borde' +#7#9'asrBottom'#4'Left'#2#6#6'Height'#3#135#0#3'Top'#2'"'#5'Width'#3'.'#2#7
+'rSpacing.Around'#2#6#10'BevelOuter'#7#6'bvNone'#18'ChildSizing.Layout'#7#29 +'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'AutoSize'#9#20'BorderSpacing.'
+'cclTopToBottomThenLeftToRight'#27'ChildSizing.ControlsPerLine'#2#5#12'Clien' +'Around'#2#6#10'BevelOuter'#7#6'bvNone'#18'ChildSizing.Layout'#7#29'cclTopTo'
+'tHeight'#3#135#0#11'ClientWidth'#3','#2#8'TabOrder'#2#1#0#6'TLabel'#28'SetP' +'BottomThenLeftToRight'#27'ChildSizing.ControlsPerLine'#2#5#12'ClientHeight'
+'ropertyVariablenameLabel'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#7 +#3#135#0#11'ClientWidth'#3'.'#2#8'TabOrder'#2#1#0#6'TLabel'#28'SetPropertyVa'
+#6'Height'#2#18#3'Top'#2#4#5'Width'#3#199#0#19'BorderSpacing.Right'#2#6'!Bor' +'riablenameLabel'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#7#6'Height'
+'derSpacing.CellAlignHorizontal'#7#14'ccaRightBottom'#31'BorderSpacing.CellA' +#2#18#3'Top'#2#4#5'Width'#3#199#0#19'BorderSpacing.Right'#2#6'!BorderSpacing'
+'lignVertical'#7#9'ccaCenter'#7'Caption'#6#28'SetPropertyVariablenameLabel' +'.CellAlignHorizontal'#7#14'ccaRightBottom'#31'BorderSpacing.CellAlignVertic'
+#11'ParentColor'#8#0#0#6'TLabel'#26'PrivateVariablePrefixLabel'#18'AnchorSid' +'al'#7#9'ccaCenter'#7'Caption'#6#28'SetPropertyVariablenameLabel'#11'ParentC'
+'eTop.Side'#7#9'asrCenter'#4'Left'#2')'#6'Height'#2#18#3'Top'#2#31#5'Width'#3 +'olor'#8#0#0#6'TLabel'#26'PrivateVariablePrefixLabel'#18'AnchorSideTop.Side'
+#165#0#19'BorderSpacing.Right'#2#6'!BorderSpacing.CellAlignHorizontal'#7#14 +#7#9'asrCenter'#4'Left'#2')'#6'Height'#2#18#3'Top'#2#31#5'Width'#3#165#0#19
+'BorderSpacing.Right'#2#6'!BorderSpacing.CellAlignHorizontal'#7#14'ccaRightB'
+'ottom'#31'BorderSpacing.CellAlignVertical'#7#9'ccaCenter'#7'Caption'#6#26'P'
+'rivateVariablePrefixLabel'#11'ParentColor'#8#0#0#6'TLabel'#31'PropertyStore'
+'dIdentPostfixLabel'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#0#6'Hei'
,'ght'#2#18#3'Top'#2':'#5'Width'#3#206#0#19'BorderSpacing.Right'#2#6'!BorderS'
+'pacing.CellAlignHorizontal'#7#14'ccaRightBottom'#31'BorderSpacing.CellAlign'
+'Vertical'#7#9'ccaCenter'#7'Caption'#6#31'PropertyStoredIdentPostfixLabel'#11
+'ParentColor'#8#0#0#6'TLabel'#29'PropertyWriteIdentPrefixLabel'#18'AnchorSid'
+'eTop.Side'#7#9'asrCenter'#4'Left'#2#19#6'Height'#2#18#3'Top'#2'U'#5'Width'#3
+#187#0#19'BorderSpacing.Right'#2#6'!BorderSpacing.CellAlignHorizontal'#7#14
+'ccaRightBottom'#31'BorderSpacing.CellAlignVertical'#7#9'ccaCenter'#7'Captio' +'ccaRightBottom'#31'BorderSpacing.CellAlignVertical'#7#9'ccaCenter'#7'Captio'
+'n'#6#26'PrivateVariablePrefixLabel'#11'ParentColor'#8#0#0#6'TLabel'#31'Prop' +'n'#6#29'PropertyWriteIdentPrefixLabel'#11'ParentColor'#8#0#0#6'TLabel'#28'P'
+'ertyStoredIdentPostfixLabel'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2 +'ropertyReadIdentPrefixLabel'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2
+#0#6'Height'#2#18#3'Top'#2':'#5'Width'#3#206#0#19'BorderSpacing.Right'#2#6'!' +#19#6'Height'#2#18#3'Top'#2'p'#5'Width'#3#187#0#19'BorderSpacing.Right'#2#6
,'BorderSpacing.CellAlignHorizontal'#7#14'ccaRightBottom'#31'BorderSpacing.Ce' +'!BorderSpacing.CellAlignHorizontal'#7#14'ccaRightBottom'#31'BorderSpacing.C'
+'llAlignVertical'#7#9'ccaCenter'#7'Caption'#6#31'PropertyStoredIdentPostfixL' +'ellAlignVertical'#7#9'ccaCenter'#7'Caption'#6#28'PropertyReadIdentPrefixLab'
+'abel'#11'ParentColor'#8#0#0#6'TLabel'#29'PropertyWriteIdentPrefixLabel'#18 +'el'#11'ParentColor'#8#0#0#5'TEdit'#27'SetPropertyVariablenameEdit'#18'Ancho'
+'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#19#6'Height'#2#18#3'Top'#2'U'#5 +'rSideTop.Side'#7#9'asrBottom'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Lef'
+'Width'#3#187#0#19'BorderSpacing.Right'#2#6'!BorderSpacing.CellAlignHorizont' +'t'#3#212#0#6'Height'#2#27#3'Top'#2#0#5'Width'#2'P'#8'TabOrder'#2#0#4'Text'#6
+'al'#7#14'ccaRightBottom'#31'BorderSpacing.CellAlignVertical'#7#9'ccaCenter' +#27'SetPropertyVariablenameEdit'#0#0#5'TEdit'#25'PrivateVariablePrefixEdit'
+#7'Caption'#6#29'PropertyWriteIdentPrefixLabel'#11'ParentColor'#8#0#0#6'TLab'
+'el'#28'PropertyReadIdentPrefixLabel'#18'AnchorSideTop.Side'#7#9'asrCenter'#4
+'Left'#2#19#6'Height'#2#18#3'Top'#2'p'#5'Width'#3#187#0#19'BorderSpacing.Rig'
+'ht'#2#6'!BorderSpacing.CellAlignHorizontal'#7#14'ccaRightBottom'#31'BorderS'
+'pacing.CellAlignVertical'#7#9'ccaCenter'#7'Caption'#6#28'PropertyReadIdentP'
+'refixLabel'#11'ParentColor'#8#0#0#5'TEdit'#27'SetPropertyVariablenameEdit'
+#18'AnchorSideTop.Side'#7#9'asrBottom'#20'AnchorSideRight.Side'#7#9'asrBotto' +#18'AnchorSideTop.Side'#7#9'asrBottom'#20'AnchorSideRight.Side'#7#9'asrBotto'
+'m'#4'Left'#3#212#0#6'Height'#2#27#3'Top'#2#0#5'Width'#2'P'#8'TabOrder'#2#0#4 +'m'#4'Left'#3#212#0#6'Height'#2#27#3'Top'#2#27#5'Width'#2'P'#8'TabOrder'#2#1
+'Text'#6#27'SetPropertyVariablenameEdit'#0#0#5'TEdit'#25'PrivateVariablePref' +#4'Text'#6#25'PrivateVariablePrefixEdit'#0#0#5'TEdit'#30'PropertyStoredIdent'
+'ixEdit'#18'AnchorSideTop.Side'#7#9'asrBottom'#20'AnchorSideRight.Side'#7#9 +'PostfixEdit'#18'AnchorSideTop.Side'#7#9'asrBottom'#20'AnchorSideRight.Side'
+'asrBottom'#4'Left'#3#212#0#6'Height'#2#27#3'Top'#2#27#5'Width'#2'P'#8'TabOr' +#7#9'asrBottom'#4'Left'#3#212#0#6'Height'#2#27#3'Top'#2'6'#5'Width'#2'P'#8'T'
+'der'#2#1#4'Text'#6#25'PrivateVariablePrefixEdit'#0#0#5'TEdit'#30'PropertySt' +'abOrder'#2#2#4'Text'#6#30'PropertyStoredIdentPostfixEdit'#0#0#5'TEdit'#28'P'
+'oredIdentPostfixEdit'#18'AnchorSideTop.Side'#7#9'asrBottom'#20'AnchorSideRi' +'ropertyWriteIdentPrefixEdit'#18'AnchorSideTop.Side'#7#9'asrBottom'#20'Ancho'
+'ght.Side'#7#9'asrBottom'#4'Left'#3#212#0#6'Height'#2#27#3'Top'#2'6'#5'Width' +'rSideRight.Side'#7#9'asrBottom'#4'Left'#3#212#0#6'Height'#2#27#3'Top'#2'Q'#5
+#2'P'#8'TabOrder'#2#2#4'Text'#6#30'PropertyStoredIdentPostfixEdit'#0#0#5'TEd' +'Width'#2'P'#8'TabOrder'#2#3#4'Text'#6#28'PropertyWriteIdentPrefixEdit'#0#0#5
+'it'#28'PropertyWriteIdentPrefixEdit'#18'AnchorSideTop.Side'#7#9'asrBottom' +'TEdit'#27'PropertyReadIdentPrefixEdit'#18'AnchorSideTop.Side'#7#9'asrBottom'
+#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#212#0#6'Height'#2#27#3'To' +#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#212#0#6'Height'#2#27#3'To'
+'p'#2'Q'#5'Width'#2'P'#8'TabOrder'#2#3#4'Text'#6#28'PropertyWriteIdentPrefix' +'p'#2'l'#5'Width'#2'P'#8'TabOrder'#2#4#4'Text'#6#27'PropertyReadIdentPrefixE'
+'Edit'#0#0#5'TEdit'#27'PropertyReadIdentPrefixEdit'#18'AnchorSideTop.Side'#7 +'dit'#0#0#0#0#242#2#5#9'TCheckBox#ClassImplementationCommentsCheckBox'#22'An'
+#9'asrBottom'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#212#0#6'Heig' +'chorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#27'ClassHeader'
+'ht'#2#27#3'Top'#2'l'#5'Width'#2'P'#8'TabOrder'#2#4#4'Text'#6#27'PropertyRea' +'CommentsCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Heigh'
+'dIdentPrefixEdit'#0#0#0#0#0 +'t'#2#22#3'Top'#3#162#0#5'Width'#3'%'#1#20'BorderSpacing.Around'#2#6#7'Capti'
+'on'#6'#ClassImplementationCommentsCheckBox'#8'TabOrder'#2#5#0#0#0
]); ]);

35
ide/frames/codetools_classcompletion_options.pas
View File

@ -34,6 +34,7 @@ type
TCodetoolsClassCompletionOptionsFrame = class(TAbstractIDEOptionsEditor) TCodetoolsClassCompletionOptionsFrame = class(TAbstractIDEOptionsEditor)
ClassHeaderCommentsCheckBox: TCheckBox; ClassHeaderCommentsCheckBox: TCheckBox;
ClassImplementationCommentsCheckBox: TCheckBox;
ClassPartInsertPolicyRadioGroup: TRadioGroup; ClassPartInsertPolicyRadioGroup: TRadioGroup;
MethodInsertPolicyRadioGroup: TRadioGroup; MethodInsertPolicyRadioGroup: TRadioGroup;
MixMethodsAndPropertiesCheckBox: TCheckBox; MixMethodsAndPropertiesCheckBox: TCheckBox;
@ -96,29 +97,15 @@ begin
end; end;
end; end;
with ClassHeaderCommentsCheckBox do ClassHeaderCommentsCheckBox.Caption:=lisHeaderCommentForClass;
Caption:=lisHeaderCommentForClass; ClassImplementationCommentsCheckBox.Caption:=lisImplementationCommentForClass;
PropertyCompletionGroupBox.Caption:=dlgPropertyCompletion;
with PropertyCompletionGroupBox do PropertyCompletionCheckBox.Caption:=dlgCompleteProperties;
Caption:=dlgPropertyCompletion; PropertyReadIdentPrefixLabel.Caption:=dlgCDTReadPrefix;
PropertyWriteIdentPrefixLabel.Caption:=dlgCDTWritePrefix;
with PropertyCompletionCheckBox do PropertyStoredIdentPostfixLabel.Caption:=dlgCDTStoredPostfix;
Caption:=dlgCompleteProperties; PrivateVariablePrefixLabel.Caption:=dlgCDTVariablePrefix;
SetPropertyVariablenameLabel.Caption:=dlgSetPropertyVariable;
with PropertyReadIdentPrefixLabel do
Caption:=dlgCDTReadPrefix;
with PropertyWriteIdentPrefixLabel do
Caption:=dlgCDTWritePrefix;
with PropertyStoredIdentPostfixLabel do
Caption:=dlgCDTStoredPostfix;
with PrivateVariablePrefixLabel do
Caption:=dlgCDTVariablePrefix;
with SetPropertyVariablenameLabel do
Caption:=dlgSetPropertyVariable;
end; end;
procedure TCodetoolsClassCompletionOptionsFrame.ReadSettings( procedure TCodetoolsClassCompletionOptionsFrame.ReadSettings(
@ -137,6 +124,7 @@ begin
MixMethodsAndPropertiesCheckBox.Checked := MixMethodsAndProperties; MixMethodsAndPropertiesCheckBox.Checked := MixMethodsAndProperties;
ClassHeaderCommentsCheckBox.Checked := ClassHeaderComments; ClassHeaderCommentsCheckBox.Checked := ClassHeaderComments;
ClassImplementationCommentsCheckBox.Checked := ClassImplementationComments;
case MethodInsertPolicy of case MethodInsertPolicy of
mipAlphabetically: mipAlphabetically:
MethodInsertPolicyRadioGroup.ItemIndex:=0; MethodInsertPolicyRadioGroup.ItemIndex:=0;
@ -169,6 +157,7 @@ begin
MixMethodsAndProperties := MixMethodsAndPropertiesCheckBox.Checked; MixMethodsAndProperties := MixMethodsAndPropertiesCheckBox.Checked;
ClassHeaderComments := ClassHeaderCommentsCheckBox.Checked; ClassHeaderComments := ClassHeaderCommentsCheckBox.Checked;
ClassImplementationComments := ClassImplementationCommentsCheckBox.Checked;
case MethodInsertPolicyRadioGroup.ItemIndex of case MethodInsertPolicyRadioGroup.ItemIndex of
0: MethodInsertPolicy := mipAlphabetically; 0: MethodInsertPolicy := mipAlphabetically;

1
ide/lazarusidestrconsts.pas
View File

@ -1490,6 +1490,7 @@ resourcestring
dlgIdentifierPolicy = 'Identifier policy'; dlgIdentifierPolicy = 'Identifier policy';
dlgPropertyCompletion = 'Property completion'; dlgPropertyCompletion = 'Property completion';
lisHeaderCommentForClass = 'Header comment for class'; lisHeaderCommentForClass = 'Header comment for class';
lisImplementationCommentForClass = 'Implementation comment for class';
dlgCompleteProperties = 'Complete properties'; dlgCompleteProperties = 'Complete properties';
dlgCDTReadPrefix = 'Read prefix'; dlgCDTReadPrefix = 'Read prefix';
dlgCDTWritePrefix = 'Write prefix'; dlgCDTWritePrefix = 'Write prefix';