mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-09-08 10:59:05 +02:00
ide: start merge of codetools options into ide options dialog
git-svn-id: trunk@17206 -
This commit is contained in:
paul
parent
4cef3c1e28
commit
8a3e470663
9
.gitattributes
vendored
9
.gitattributes
vendored
@ -2429,6 +2429,15 @@ ide/fpdocselectlink.pas svneol=native#text/plain
|
||||
ide/frames/options_backup.lfm svneol=native#text/plain
|
||||
ide/frames/options_backup.lrs svneol=native#text/pascal
|
||||
ide/frames/options_backup.pas svneol=native#text/pascal
|
||||
ide/frames/options_codetools_codecreation.lfm svneol=native#text/plain
|
||||
ide/frames/options_codetools_codecreation.lrs svneol=native#text/pascal
|
||||
ide/frames/options_codetools_codecreation.pas svneol=native#text/pascal
|
||||
ide/frames/options_codetools_general.lfm svneol=native#text/plain
|
||||
ide/frames/options_codetools_general.lrs svneol=native#text/pascal
|
||||
ide/frames/options_codetools_general.pas svneol=native#text/pascal
|
||||
ide/frames/options_codetools_wordpolicy.lfm svneol=native#text/plain
|
||||
ide/frames/options_codetools_wordpolicy.lrs svneol=native#text/pascal
|
||||
ide/frames/options_codetools_wordpolicy.pas svneol=native#text/pascal
|
||||
ide/frames/options_desktop.lfm svneol=native#text/plain
|
||||
ide/frames/options_desktop.lrs svneol=native#text/pascal
|
||||
ide/frames/options_desktop.pas svneol=native#text/pascal
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
@ -38,14 +38,14 @@ uses
|
||||
Classes, SysUtils, LazConf, Laz_XMLCfg, FileUtil,
|
||||
LResources, Forms, Controls, Buttons, LclProc, ExtCtrls, StdCtrls, ComCtrls,
|
||||
Dialogs, CodeToolManager, DefineTemplates, SourceChanger, SynEdit,
|
||||
IDEWindowIntf, IDEContextHelpEdit,
|
||||
IDEWindowIntf, IDEOptionsIntf, IDEContextHelpEdit,
|
||||
IDEOptionDefs, EditDefineTree, LazarusIDEStrConsts, IDEProcs, ButtonPanel;
|
||||
|
||||
type
|
||||
|
||||
{ TCodeToolsOptions }
|
||||
|
||||
TCodeToolsOptions = class
|
||||
TCodeToolsOptions = class(TAbstractIDEOptions)
|
||||
private
|
||||
FClassHeaderComments: boolean;
|
||||
FFilename: string;
|
||||
@ -1366,7 +1366,7 @@ begin
|
||||
end;
|
||||
|
||||
initialization
|
||||
RegisterIDEOptionsGroup(GroupCodetools, dlgGroupCodetools);
|
||||
{$I codetoolsoptions.lrs}
|
||||
|
||||
end.
|
||||
|
||||
|
||||
266
ide/frames/options_codetools_codecreation.lfm
Normal file
266
ide/frames/options_codetools_codecreation.lfm
Normal file
@ -0,0 +1,266 @@
|
||||
object CodetoolsCodeCreationOptionsFrame: TCodetoolsCodeCreationOptionsFrame
|
||||
Height = 377
|
||||
Width = 572
|
||||
ClientHeight = 377
|
||||
ClientWidth = 572
|
||||
TabOrder = 0
|
||||
Visible = False
|
||||
DesignLeft = 404
|
||||
DesignTop = 209
|
||||
object ClassPartInsertPolicyRadioGroup: TRadioGroup
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideTop.Control = Owner
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Height = 100
|
||||
Width = 254
|
||||
AutoFill = True
|
||||
Caption = 'ClassPartInsertPolicyRadioGroup'
|
||||
ChildSizing.LeftRightSpacing = 6
|
||||
ChildSizing.TopBottomSpacing = 6
|
||||
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
|
||||
ChildSizing.EnlargeVertical = crsHomogenousChildResize
|
||||
ChildSizing.ShrinkHorizontal = crsScaleChilds
|
||||
ChildSizing.ShrinkVertical = crsScaleChilds
|
||||
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
||||
ChildSizing.ControlsPerLine = 1
|
||||
TabOrder = 0
|
||||
end
|
||||
object MethodInsertPolicyRadioGroup: TRadioGroup
|
||||
AnchorSideLeft.Control = ClassPartInsertPolicyRadioGroup
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = Owner
|
||||
AnchorSideRight.Control = Owner
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 260
|
||||
Height = 100
|
||||
Width = 312
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
AutoFill = True
|
||||
BorderSpacing.Left = 6
|
||||
Caption = 'MethodInsertPolicyRadioGroup'
|
||||
ChildSizing.LeftRightSpacing = 6
|
||||
ChildSizing.TopBottomSpacing = 6
|
||||
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
|
||||
ChildSizing.EnlargeVertical = crsHomogenousChildResize
|
||||
ChildSizing.ShrinkHorizontal = crsScaleChilds
|
||||
ChildSizing.ShrinkVertical = crsScaleChilds
|
||||
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
||||
ChildSizing.ControlsPerLine = 1
|
||||
TabOrder = 1
|
||||
end
|
||||
object MixMethodsAndPropertiesCheckBox: TCheckBox
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideTop.Control = ClassPartInsertPolicyRadioGroup
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Height = 19
|
||||
Top = 106
|
||||
Width = 198
|
||||
BorderSpacing.Top = 6
|
||||
Caption = 'MixMethodsAndPropertiesCheckBox'
|
||||
TabOrder = 2
|
||||
end
|
||||
object ForwardProcsInsertPolicyRadioGroup: TRadioGroup
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideTop.Control = MixMethodsAndPropertiesCheckBox
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = ClassPartInsertPolicyRadioGroup
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Height = 100
|
||||
Top = 137
|
||||
Width = 254
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
AutoFill = True
|
||||
BorderSpacing.Top = 12
|
||||
Caption = 'ForwardProcsInsertPolicyRadioGroup'
|
||||
ChildSizing.LeftRightSpacing = 6
|
||||
ChildSizing.TopBottomSpacing = 6
|
||||
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
|
||||
ChildSizing.EnlargeVertical = crsHomogenousChildResize
|
||||
ChildSizing.ShrinkHorizontal = crsScaleChilds
|
||||
ChildSizing.ShrinkVertical = crsScaleChilds
|
||||
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
||||
ChildSizing.ControlsPerLine = 1
|
||||
TabOrder = 3
|
||||
end
|
||||
object ForwardProcsKeepOrderCheckBox: TCheckBox
|
||||
AnchorSideLeft.Control = ForwardProcsInsertPolicyRadioGroup
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = ForwardProcsInsertPolicyRadioGroup
|
||||
Left = 260
|
||||
Height = 19
|
||||
Top = 143
|
||||
Width = 191
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'ForwardProcsKeepOrderCheckBox'
|
||||
TabOrder = 4
|
||||
end
|
||||
object ClassHeaderCommentsCheckBox: TCheckBox
|
||||
AnchorSideLeft.Control = ForwardProcsInsertPolicyRadioGroup
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = ForwardProcsKeepOrderCheckBox
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 260
|
||||
Height = 19
|
||||
Top = 168
|
||||
Width = 183
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'ClassHeaderCommentsCheckBox'
|
||||
TabOrder = 5
|
||||
end
|
||||
object PropertyCompletionGroupBox: TGroupBox
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideTop.Control = ForwardProcsInsertPolicyRadioGroup
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = Owner
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Height = 123
|
||||
Top = 243
|
||||
Width = 572
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Top = 6
|
||||
Caption = 'PropertyCompletionGroupBox'
|
||||
ClientHeight = 105
|
||||
ClientWidth = 568
|
||||
TabOrder = 6
|
||||
object PropertyReadIdentPrefixLabel: TLabel
|
||||
AnchorSideTop.Control = PropertyReadIdentPrefixEdit
|
||||
AnchorSideTop.Side = asrCenter
|
||||
AnchorSideRight.Control = PropertyReadIdentPrefixEdit
|
||||
Left = -13
|
||||
Height = 14
|
||||
Top = 35
|
||||
Width = 147
|
||||
Anchors = [akTop, akRight]
|
||||
BorderSpacing.Right = 6
|
||||
Caption = 'PropertyReadIdentPrefixLabel'
|
||||
ParentColor = False
|
||||
end
|
||||
object PropertyWriteIdentPrefixLabel: TLabel
|
||||
AnchorSideTop.Control = PropertyWriteIdentPrefixEdit
|
||||
AnchorSideTop.Side = asrCenter
|
||||
AnchorSideRight.Control = PropertyWriteIdentPrefixEdit
|
||||
Left = -14
|
||||
Height = 14
|
||||
Top = 58
|
||||
Width = 148
|
||||
Anchors = [akTop, akRight]
|
||||
BorderSpacing.Right = 6
|
||||
Caption = 'PropertyWriteIdentPrefixLabel'
|
||||
ParentColor = False
|
||||
end
|
||||
object PropertyStoredIdentPostfixLabel: TLabel
|
||||
AnchorSideTop.Control = PropertyStoredIdentPostfixEdit
|
||||
AnchorSideTop.Side = asrCenter
|
||||
AnchorSideRight.Control = PropertyStoredIdentPostfixEdit
|
||||
Left = -25
|
||||
Height = 14
|
||||
Top = 81
|
||||
Width = 159
|
||||
Anchors = [akTop, akRight]
|
||||
BorderSpacing.Right = 6
|
||||
Caption = 'PropertyStoredIdentPostfixLabel'
|
||||
ParentColor = False
|
||||
end
|
||||
object PrivateVariablePrefixLabel: TLabel
|
||||
AnchorSideTop.Control = PrivateVariablePrefixEdit
|
||||
AnchorSideTop.Side = asrCenter
|
||||
AnchorSideRight.Control = PrivateVariablePrefixEdit
|
||||
Left = 350
|
||||
Height = 14
|
||||
Top = 35
|
||||
Width = 126
|
||||
Anchors = [akTop, akRight]
|
||||
BorderSpacing.Right = 6
|
||||
Caption = 'PrivateVariablePrefixLabel'
|
||||
ParentColor = False
|
||||
end
|
||||
object SetPropertyVariablenameLabel: TLabel
|
||||
AnchorSideTop.Control = SetPropertyVariablenameEdit
|
||||
AnchorSideTop.Side = asrCenter
|
||||
AnchorSideRight.Control = SetPropertyVariablenameEdit
|
||||
Left = 328
|
||||
Height = 14
|
||||
Top = 58
|
||||
Width = 148
|
||||
Anchors = [akTop, akRight]
|
||||
BorderSpacing.Right = 6
|
||||
Caption = 'SetPropertyVariablenameLabel'
|
||||
ParentColor = False
|
||||
end
|
||||
object PropertyCompletionCheckBox: TCheckBox
|
||||
AnchorSideLeft.Control = PropertyCompletionGroupBox
|
||||
AnchorSideTop.Control = PropertyCompletionGroupBox
|
||||
Left = 6
|
||||
Height = 19
|
||||
Top = 6
|
||||
Width = 168
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'PropertyCompletionCheckBox'
|
||||
TabOrder = 0
|
||||
end
|
||||
object PropertyReadIdentPrefixEdit: TEdit
|
||||
AnchorSideLeft.Control = PropertyWriteIdentPrefixEdit
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = PropertyWriteIdentPrefixEdit
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 140
|
||||
Height = 23
|
||||
Top = 31
|
||||
Width = 80
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
TabOrder = 1
|
||||
Text = 'PropertyReadIdentPrefixEdit'
|
||||
end
|
||||
object PropertyWriteIdentPrefixEdit: TEdit
|
||||
AnchorSideTop.Control = PropertyReadIdentPrefixEdit
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 140
|
||||
Height = 23
|
||||
Top = 54
|
||||
Width = 80
|
||||
TabOrder = 2
|
||||
Text = 'PropertyWriteIdentPrefixEdit'
|
||||
end
|
||||
object PropertyStoredIdentPostfixEdit: TEdit
|
||||
AnchorSideTop.Control = PropertyWriteIdentPrefixEdit
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 140
|
||||
Height = 23
|
||||
Top = 77
|
||||
Width = 80
|
||||
TabOrder = 3
|
||||
Text = 'PropertyStoredIdentPostfixEdit'
|
||||
end
|
||||
object PrivateVariablePrefixEdit: TEdit
|
||||
AnchorSideTop.Control = PropertyReadIdentPrefixEdit
|
||||
AnchorSideTop.Side = asrCenter
|
||||
AnchorSideRight.Control = PropertyCompletionGroupBox
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 482
|
||||
Height = 23
|
||||
Top = 31
|
||||
Width = 80
|
||||
Anchors = [akTop, akRight]
|
||||
BorderSpacing.Right = 6
|
||||
TabOrder = 4
|
||||
Text = 'PrivateVariablePrefixEdit'
|
||||
end
|
||||
object SetPropertyVariablenameEdit: TEdit
|
||||
AnchorSideTop.Control = PropertyWriteIdentPrefixEdit
|
||||
AnchorSideTop.Side = asrCenter
|
||||
AnchorSideRight.Control = PropertyCompletionGroupBox
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 482
|
||||
Height = 23
|
||||
Top = 54
|
||||
Width = 80
|
||||
Anchors = [akTop, akRight]
|
||||
BorderSpacing.Right = 6
|
||||
TabOrder = 5
|
||||
Text = 'SetPropertyVariablenameEdit'
|
||||
end
|
||||
end
|
||||
end
|
||||
117
ide/frames/options_codetools_codecreation.lrs
Normal file
117
ide/frames/options_codetools_codecreation.lrs
Normal file
@ -0,0 +1,117 @@
|
||||
{ This is an automatically generated lazarus resource file }
|
||||
|
||||
LazarusResources.Add('TCodetoolsCodeCreationOptionsFrame','FORMDATA',[
|
||||
'TPF0"TCodetoolsCodeCreationOptionsFrame!CodetoolsCodeCreationOptionsFrame'#6
|
||||
+'Height'#3'y'#1#5'Width'#3'<'#2#12'ClientHeight'#3'y'#1#11'ClientWidth'#3'<'
|
||||
+#2#8'TabOrder'#2#0#7'Visible'#8#10'DesignLeft'#3#148#1#9'DesignTop'#3#209#0#0
|
||||
+#11'TRadioGroup'#31'ClassPartInsertPolicyRadioGroup'#22'AnchorSideLeft.Contr'
|
||||
+'ol'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#20'AnchorSideRight.Side'
|
||||
+#7#9'asrBottom'#6'Height'#2'd'#5'Width'#3#254#0#8'AutoFill'#9#7'Caption'#6#31
|
||||
+'ClassPartInsertPolicyRadioGroup'#28'ChildSizing.LeftRightSpacing'#2#6#28'Ch'
|
||||
+'ildSizing.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsH'
|
||||
+'omogenousChildResize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenousChi'
|
||||
+'ldResize'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSiz'
|
||||
+'ing.ShrinkVertical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclLef'
|
||||
+'tToRightThenTopToBottom'#27'ChildSizing.ControlsPerLine'#2#1#8'TabOrder'#2#0
|
||||
+#0#0#11'TRadioGroup'#28'MethodInsertPolicyRadioGroup'#22'AnchorSideLeft.Cont'
|
||||
+'rol'#7#31'ClassPartInsertPolicyRadioGroup'#19'AnchorSideLeft.Side'#7#9'asrB'
|
||||
+'ottom'#21'AnchorSideTop.Control'#7#5'Owner'#23'AnchorSideRight.Control'#7#5
|
||||
+'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#4#1#6'Height'#2'd'
|
||||
+#5'Width'#3'8'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'AutoFill'#9
|
||||
+#18'BorderSpacing.Left'#2#6#7'Caption'#6#28'MethodInsertPolicyRadioGroup'#28
|
||||
+'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'C'
|
||||
+'hildSizing.EnlargeHorizontal'#7#24'crsHomogenousChildResize'#27'ChildSizing'
|
||||
+'.EnlargeVertical'#7#24'crsHomogenousChildResize'#28'ChildSizing.ShrinkHoriz'
|
||||
+'ontal'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChi'
|
||||
+'lds'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSiz'
|
||||
+'ing.ControlsPerLine'#2#1#8'TabOrder'#2#1#0#0#9'TCheckBox'#31'MixMethodsAndP'
|
||||
+'ropertiesCheckBox'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.C'
|
||||
+'ontrol'#7#31'ClassPartInsertPolicyRadioGroup'#18'AnchorSideTop.Side'#7#9'as'
|
||||
+'rBottom'#6'Height'#2#19#3'Top'#2'j'#5'Width'#3#198#0#17'BorderSpacing.Top'#2
|
||||
+#6#7'Caption'#6#31'MixMethodsAndPropertiesCheckBox'#8'TabOrder'#2#2#0#0#11'T'
|
||||
+'RadioGroup"ForwardProcsInsertPolicyRadioGroup'#22'AnchorSideLeft.Control'#7
|
||||
+#5'Owner'#21'AnchorSideTop.Control'#7#31'MixMethodsAndPropertiesCheckBox'#18
|
||||
+'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#31'ClassPa'
|
||||
+'rtInsertPolicyRadioGroup'#20'AnchorSideRight.Side'#7#9'asrBottom'#6'Height'
|
||||
+#2'd'#3'Top'#3#137#0#5'Width'#3#254#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akR'
|
||||
+'ight'#0#8'AutoFill'#9#17'BorderSpacing.Top'#2#12#7'Caption'#6'"ForwardProcs'
|
||||
+'InsertPolicyRadioGroup'#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing'
|
||||
+'.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsHomogenous'
|
||||
+'ChildResize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenousChildResize'
|
||||
+#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSizing.Shrink'
|
||||
+'Vertical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclLeftToRightTh'
|
||||
+'enTopToBottom'#27'ChildSizing.ControlsPerLine'#2#1#8'TabOrder'#2#3#0#0#9'TC'
|
||||
+'heckBox'#29'ForwardProcsKeepOrderCheckBox'#22'AnchorSideLeft.Control'#7'"Fo'
|
||||
+'rwardProcsInsertPolicyRadioGroup'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21
|
||||
+'AnchorSideTop.Control'#7'"ForwardProcsInsertPolicyRadioGroup'#4'Left'#3#4#1
|
||||
+#6'Height'#2#19#3'Top'#3#143#0#5'Width'#3#191#0#20'BorderSpacing.Around'#2#6
|
||||
+#7'Caption'#6#29'ForwardProcsKeepOrderCheckBox'#8'TabOrder'#2#4#0#0#9'TCheck'
|
||||
+'Box'#27'ClassHeaderCommentsCheckBox'#22'AnchorSideLeft.Control'#7'"ForwardP'
|
||||
+'rocsInsertPolicyRadioGroup'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'Ancho'
|
||||
+'rSideTop.Control'#7#29'ForwardProcsKeepOrderCheckBox'#18'AnchorSideTop.Side'
|
||||
+#7#9'asrBottom'#4'Left'#3#4#1#6'Height'#2#19#3'Top'#3#168#0#5'Width'#3#183#0
|
||||
+#20'BorderSpacing.Around'#2#6#7'Caption'#6#27'ClassHeaderCommentsCheckBox'#8
|
||||
+'TabOrder'#2#5#0#0#9'TGroupBox'#26'PropertyCompletionGroupBox'#22'AnchorSide'
|
||||
+'Left.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7'"ForwardProcsInsertPol'
|
||||
+'icyRadioGroup'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Con'
|
||||
+'trol'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#21'AnchorSideBotto'
|
||||
+'m.Side'#7#9'asrBottom'#6'Height'#2'{'#3'Top'#3#243#0#5'Width'#3'<'#2#7'Anch'
|
||||
+'ors'#11#5'akTop'#6'akLeft'#7'akRight'#0#17'BorderSpacing.Top'#2#6#7'Caption'
|
||||
+#6#26'PropertyCompletionGroupBox'#12'ClientHeight'#2'i'#11'ClientWidth'#3'8'
|
||||
+#2#8'TabOrder'#2#6#0#6'TLabel'#28'PropertyReadIdentPrefixLabel'#21'AnchorSid'
|
||||
+'eTop.Control'#7#27'PropertyReadIdentPrefixEdit'#18'AnchorSideTop.Side'#7#9
|
||||
+'asrCenter'#23'AnchorSideRight.Control'#7#27'PropertyReadIdentPrefixEdit'#4
|
||||
+'Left'#2#243#6'Height'#2#14#3'Top'#2'#'#5'Width'#3#147#0#7'Anchors'#11#5'akT'
|
||||
+'op'#7'akRight'#0#19'BorderSpacing.Right'#2#6#7'Caption'#6#28'PropertyReadId'
|
||||
+'entPrefixLabel'#11'ParentColor'#8#0#0#6'TLabel'#29'PropertyWriteIdentPrefix'
|
||||
+'Label'#21'AnchorSideTop.Control'#7#28'PropertyWriteIdentPrefixEdit'#18'Anch'
|
||||
,'orSideTop.Side'#7#9'asrCenter'#23'AnchorSideRight.Control'#7#28'PropertyWri'
|
||||
+'teIdentPrefixEdit'#4'Left'#2#242#6'Height'#2#14#3'Top'#2':'#5'Width'#3#148#0
|
||||
+#7'Anchors'#11#5'akTop'#7'akRight'#0#19'BorderSpacing.Right'#2#6#7'Caption'#6
|
||||
+#29'PropertyWriteIdentPrefixLabel'#11'ParentColor'#8#0#0#6'TLabel'#31'Proper'
|
||||
+'tyStoredIdentPostfixLabel'#21'AnchorSideTop.Control'#7#30'PropertyStoredIde'
|
||||
+'ntPostfixEdit'#18'AnchorSideTop.Side'#7#9'asrCenter'#23'AnchorSideRight.Con'
|
||||
+'trol'#7#30'PropertyStoredIdentPostfixEdit'#4'Left'#2#231#6'Height'#2#14#3'T'
|
||||
+'op'#2'Q'#5'Width'#3#159#0#7'Anchors'#11#5'akTop'#7'akRight'#0#19'BorderSpac'
|
||||
+'ing.Right'#2#6#7'Caption'#6#31'PropertyStoredIdentPostfixLabel'#11'ParentCo'
|
||||
+'lor'#8#0#0#6'TLabel'#26'PrivateVariablePrefixLabel'#21'AnchorSideTop.Contro'
|
||||
+'l'#7#25'PrivateVariablePrefixEdit'#18'AnchorSideTop.Side'#7#9'asrCenter'#23
|
||||
+'AnchorSideRight.Control'#7#25'PrivateVariablePrefixEdit'#4'Left'#3'^'#1#6'H'
|
||||
+'eight'#2#14#3'Top'#2'#'#5'Width'#2'~'#7'Anchors'#11#5'akTop'#7'akRight'#0#19
|
||||
+'BorderSpacing.Right'#2#6#7'Caption'#6#26'PrivateVariablePrefixLabel'#11'Par'
|
||||
+'entColor'#8#0#0#6'TLabel'#28'SetPropertyVariablenameLabel'#21'AnchorSideTop'
|
||||
+'.Control'#7#27'SetPropertyVariablenameEdit'#18'AnchorSideTop.Side'#7#9'asrC'
|
||||
+'enter'#23'AnchorSideRight.Control'#7#27'SetPropertyVariablenameEdit'#4'Left'
|
||||
+#3'H'#1#6'Height'#2#14#3'Top'#2':'#5'Width'#3#148#0#7'Anchors'#11#5'akTop'#7
|
||||
+'akRight'#0#19'BorderSpacing.Right'#2#6#7'Caption'#6#28'SetPropertyVariablen'
|
||||
+'ameLabel'#11'ParentColor'#8#0#0#9'TCheckBox'#26'PropertyCompletionCheckBox'
|
||||
+#22'AnchorSideLeft.Control'#7#26'PropertyCompletionGroupBox'#21'AnchorSideTo'
|
||||
+'p.Control'#7#26'PropertyCompletionGroupBox'#4'Left'#2#6#6'Height'#2#19#3'To'
|
||||
+'p'#2#6#5'Width'#3#168#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#26'Proper'
|
||||
+'tyCompletionCheckBox'#8'TabOrder'#2#0#0#0#5'TEdit'#27'PropertyReadIdentPref'
|
||||
+'ixEdit'#22'AnchorSideLeft.Control'#7#28'PropertyWriteIdentPrefixEdit'#18'An'
|
||||
+'chorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#28'PropertyW'
|
||||
+'riteIdentPrefixEdit'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#140#0
|
||||
+#6'Height'#2#23#3'Top'#2#31#5'Width'#2'P'#7'Anchors'#11#5'akTop'#6'akLeft'#7
|
||||
+'akRight'#0#8'TabOrder'#2#1#4'Text'#6#27'PropertyReadIdentPrefixEdit'#0#0#5
|
||||
+'TEdit'#28'PropertyWriteIdentPrefixEdit'#21'AnchorSideTop.Control'#7#27'Prop'
|
||||
+'ertyReadIdentPrefixEdit'#18'AnchorSideTop.Side'#7#9'asrBottom'#20'AnchorSid'
|
||||
+'eRight.Side'#7#9'asrBottom'#4'Left'#3#140#0#6'Height'#2#23#3'Top'#2'6'#5'Wi'
|
||||
+'dth'#2'P'#8'TabOrder'#2#2#4'Text'#6#28'PropertyWriteIdentPrefixEdit'#0#0#5
|
||||
+'TEdit'#30'PropertyStoredIdentPostfixEdit'#21'AnchorSideTop.Control'#7#28'Pr'
|
||||
+'opertyWriteIdentPrefixEdit'#18'AnchorSideTop.Side'#7#9'asrBottom'#20'Anchor'
|
||||
+'SideRight.Side'#7#9'asrBottom'#4'Left'#3#140#0#6'Height'#2#23#3'Top'#2'M'#5
|
||||
+'Width'#2'P'#8'TabOrder'#2#3#4'Text'#6#30'PropertyStoredIdentPostfixEdit'#0#0
|
||||
+#5'TEdit'#25'PrivateVariablePrefixEdit'#21'AnchorSideTop.Control'#7#27'Prope'
|
||||
+'rtyReadIdentPrefixEdit'#18'AnchorSideTop.Side'#7#9'asrCenter'#23'AnchorSide'
|
||||
+'Right.Control'#7#26'PropertyCompletionGroupBox'#20'AnchorSideRight.Side'#7#9
|
||||
+'asrBottom'#4'Left'#3#226#1#6'Height'#2#23#3'Top'#2#31#5'Width'#2'P'#7'Ancho'
|
||||
+'rs'#11#5'akTop'#7'akRight'#0#19'BorderSpacing.Right'#2#6#8'TabOrder'#2#4#4
|
||||
+'Text'#6#25'PrivateVariablePrefixEdit'#0#0#5'TEdit'#27'SetPropertyVariablena'
|
||||
+'meEdit'#21'AnchorSideTop.Control'#7#28'PropertyWriteIdentPrefixEdit'#18'Anc'
|
||||
+'horSideTop.Side'#7#9'asrCenter'#23'AnchorSideRight.Control'#7#26'PropertyCo'
|
||||
+'mpletionGroupBox'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#226#1#6
|
||||
+'Height'#2#23#3'Top'#2'6'#5'Width'#2'P'#7'Anchors'#11#5'akTop'#7'akRight'#0
|
||||
+#19'BorderSpacing.Right'#2#6#8'TabOrder'#2#5#4'Text'#6#27'SetPropertyVariabl'
|
||||
+'enameEdit'#0#0#0#0
|
||||
]);
|
||||
210
ide/frames/options_codetools_codecreation.pas
Normal file
210
ide/frames/options_codetools_codecreation.pas
Normal file
@ -0,0 +1,210 @@
|
||||
{
|
||||
***************************************************************************
|
||||
* *
|
||||
* This source is free software; you can redistribute it and/or modify *
|
||||
* it under the terms of the GNU General Public License as published by *
|
||||
* the Free Software Foundation; either version 2 of the License, or *
|
||||
* (at your option) any later version. *
|
||||
* *
|
||||
* This code is distributed in the hope that it will be useful, but *
|
||||
* WITHOUT ANY WARRANTY; without even the implied warranty of *
|
||||
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *
|
||||
* General Public License for more details. *
|
||||
* *
|
||||
* A copy of the GNU General Public License is available on the World *
|
||||
* Wide Web at <http://www.gnu.org/copyleft/gpl.html>. You can also *
|
||||
* obtain it by writing to the Free Software Foundation, *
|
||||
* Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *
|
||||
* *
|
||||
***************************************************************************
|
||||
}
|
||||
unit options_codetools_codecreation;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, FileUtil, LResources, Forms, ExtCtrls, StdCtrls,
|
||||
SourceChanger, CodeToolsOptions, LazarusIDEStrConsts, IDEOptionsIntf;
|
||||
|
||||
type
|
||||
|
||||
{ TCodetoolsCodeCreationOptionsFrame }
|
||||
|
||||
TCodetoolsCodeCreationOptionsFrame = class(TAbstractIDEOptionsEditor)
|
||||
ClassHeaderCommentsCheckBox: TCheckBox;
|
||||
ClassPartInsertPolicyRadioGroup: TRadioGroup;
|
||||
ForwardProcsInsertPolicyRadioGroup: TRadioGroup;
|
||||
ForwardProcsKeepOrderCheckBox: TCheckBox;
|
||||
MethodInsertPolicyRadioGroup: TRadioGroup;
|
||||
MixMethodsAndPropertiesCheckBox: TCheckBox;
|
||||
PrivateVariablePrefixEdit: TEdit;
|
||||
PrivateVariablePrefixLabel: TLabel;
|
||||
PropertyCompletionCheckBox: TCheckBox;
|
||||
PropertyCompletionGroupBox: TGroupBox;
|
||||
PropertyReadIdentPrefixEdit: TEdit;
|
||||
PropertyReadIdentPrefixLabel: TLabel;
|
||||
PropertyStoredIdentPostfixEdit: TEdit;
|
||||
PropertyStoredIdentPostfixLabel: TLabel;
|
||||
PropertyWriteIdentPrefixEdit: TEdit;
|
||||
PropertyWriteIdentPrefixLabel: TLabel;
|
||||
SetPropertyVariablenameEdit: TEdit;
|
||||
SetPropertyVariablenameLabel: TLabel;
|
||||
private
|
||||
{ private declarations }
|
||||
public
|
||||
function GetTitle: String; override;
|
||||
procedure Setup(ADialog: TAbstractOptionsEditorDialog); override;
|
||||
procedure ReadSettings(AOptions: TAbstractIDEOptions); override;
|
||||
procedure WriteSettings(AOptions: TAbstractIDEOptions); override;
|
||||
class function SupportedOptionsClass: TAbstractIDEOptionsClass; override;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{ TCodetoolsCodeCreationOptionsFrame }
|
||||
|
||||
function TCodetoolsCodeCreationOptionsFrame.GetTitle: String;
|
||||
begin
|
||||
Result := dlgCodeCreation;
|
||||
end;
|
||||
|
||||
procedure TCodetoolsCodeCreationOptionsFrame.Setup(
|
||||
ADialog: TAbstractOptionsEditorDialog);
|
||||
begin
|
||||
with ClassPartInsertPolicyRadioGroup do begin
|
||||
Caption:=dlgClassInsertPolicy;
|
||||
with Items do begin
|
||||
BeginUpdate;
|
||||
Add(dlgAlphabetically);
|
||||
Add(dlgCDTLast);
|
||||
EndUpdate;
|
||||
end;
|
||||
end;
|
||||
|
||||
with MixMethodsAndPropertiesCheckBox do
|
||||
Caption:=dlgMixMethodsAndProperties;
|
||||
|
||||
with MethodInsertPolicyRadioGroup do begin
|
||||
Caption:=dlgMethodInsPolicy;
|
||||
with Items do begin
|
||||
BeginUpdate;
|
||||
Add(dlgAlphabetically);
|
||||
Add(dlgCDTLast);
|
||||
Add(dlgCDTClassOrder);
|
||||
EndUpdate;
|
||||
end;
|
||||
end;
|
||||
|
||||
with ForwardProcsInsertPolicyRadioGroup do begin
|
||||
Caption:=dlgForwardProcsInsertPolicy;
|
||||
with Items do begin
|
||||
BeginUpdate;
|
||||
Add(dlgLast);
|
||||
Add(dlgInFrontOfMethods);
|
||||
Add(dlgBehindMethods);
|
||||
EndUpdate;
|
||||
end;
|
||||
end;
|
||||
|
||||
with ForwardProcsKeepOrderCheckBox do
|
||||
Caption:=dlgForwardProcsKeepOrder;
|
||||
|
||||
with ClassHeaderCommentsCheckBox do
|
||||
Caption:=lisHeaderCommentForClass;
|
||||
|
||||
with PropertyCompletionGroupBox do
|
||||
Caption:=dlgPropertyCompletion;
|
||||
|
||||
with PropertyCompletionCheckBox do
|
||||
Caption:=dlgCompleteProperties;
|
||||
|
||||
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;
|
||||
|
||||
procedure TCodetoolsCodeCreationOptionsFrame.ReadSettings(
|
||||
AOptions: TAbstractIDEOptions);
|
||||
begin
|
||||
with AOptions as TCodetoolsOptions do
|
||||
begin
|
||||
case ClassPartInsertPolicy of
|
||||
cpipAlphabetically:
|
||||
ClassPartInsertPolicyRadioGroup.ItemIndex:=0;
|
||||
else
|
||||
// cpipLast
|
||||
ClassPartInsertPolicyRadioGroup.ItemIndex:=1;
|
||||
end;
|
||||
|
||||
MixMethodsAndPropertiesCheckBox.Checked := MixMethodsAndProperties;
|
||||
case ForwardProcBodyInsertPolicy of
|
||||
fpipLast: ForwardProcsInsertPolicyRadioGroup.ItemIndex:=0;
|
||||
fpipInFrontOfMethods: ForwardProcsInsertPolicyRadioGroup.ItemIndex:=1;
|
||||
else
|
||||
// fpipBehindMethods
|
||||
ForwardProcsInsertPolicyRadioGroup.ItemIndex:=2;
|
||||
end;
|
||||
|
||||
ForwardProcsKeepOrderCheckBox.Checked := KeepForwardProcOrder;
|
||||
ClassHeaderCommentsCheckBox.Checked := ClassHeaderComments;
|
||||
case MethodInsertPolicy of
|
||||
mipAlphabetically:
|
||||
MethodInsertPolicyRadioGroup.ItemIndex:=0;
|
||||
mipLast:
|
||||
MethodInsertPolicyRadioGroup.ItemIndex:=1;
|
||||
else
|
||||
// mipClassOrder
|
||||
MethodInsertPolicyRadioGroup.ItemIndex:=2;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TCodetoolsCodeCreationOptionsFrame.WriteSettings(
|
||||
AOptions: TAbstractIDEOptions);
|
||||
begin
|
||||
with AOptions as TCodetoolsOptions do
|
||||
begin
|
||||
case ClassPartInsertPolicyRadioGroup.ItemIndex of
|
||||
0: ClassPartInsertPolicy := cpipAlphabetically;
|
||||
1: ClassPartInsertPolicy := cpipLast;
|
||||
end;
|
||||
|
||||
MixMethodsAndProperties := MixMethodsAndPropertiesCheckBox.Checked;
|
||||
case ForwardProcsInsertPolicyRadioGroup.ItemIndex of
|
||||
0: ForwardProcBodyInsertPolicy := fpipLast;
|
||||
1: ForwardProcBodyInsertPolicy := fpipInFrontOfMethods;
|
||||
2: ForwardProcBodyInsertPolicy := fpipBehindMethods;
|
||||
end;
|
||||
KeepForwardProcOrder := ForwardProcsKeepOrderCheckBox.Checked;
|
||||
ClassHeaderComments := ClassHeaderCommentsCheckBox.Checked;
|
||||
case MethodInsertPolicyRadioGroup.ItemIndex of
|
||||
0: MethodInsertPolicy := mipAlphabetically;
|
||||
1: MethodInsertPolicy := mipLast;
|
||||
2: MethodInsertPolicy := mipClassOrder;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
class function TCodetoolsCodeCreationOptionsFrame.SupportedOptionsClass: TAbstractIDEOptionsClass;
|
||||
begin
|
||||
Result := TCodeToolsOptions;
|
||||
end;
|
||||
|
||||
initialization
|
||||
{$I options_codetools_codecreation.lrs}
|
||||
RegisterIDEOptionsEditor(GroupCodetools, TCodetoolsCodeCreationOptionsFrame, CdtOptionsCodeCreation);
|
||||
end.
|
||||
|
||||
90
ide/frames/options_codetools_general.lfm
Normal file
90
ide/frames/options_codetools_general.lfm
Normal file
@ -0,0 +1,90 @@
|
||||
inherited CodetoolsGeneralOptionsFrame: TCodetoolsGeneralOptionsFrame
|
||||
Height = 199
|
||||
Width = 552
|
||||
ClientHeight = 199
|
||||
ClientWidth = 552
|
||||
TabOrder = 0
|
||||
Visible = False
|
||||
DesignLeft = 176
|
||||
DesignTop = 232
|
||||
object SrcPathGroupBox: TGroupBox[0]
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideTop.Control = Owner
|
||||
AnchorSideRight.Control = Owner
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Height = 56
|
||||
Width = 552
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
Caption = 'SrcPathGroupBox'
|
||||
ClientHeight = 38
|
||||
ClientWidth = 548
|
||||
TabOrder = 0
|
||||
object SrcPathEdit: TEdit
|
||||
AnchorSideLeft.Control = SrcPathGroupBox
|
||||
AnchorSideRight.Control = SrcPathGroupBox
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 23
|
||||
Top = 8
|
||||
Width = 536
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Around = 6
|
||||
TabOrder = 0
|
||||
Text = 'SrcPathEdit'
|
||||
end
|
||||
end
|
||||
object JumpingGroupBox: TGroupBox[1]
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideTop.Control = SrcPathGroupBox
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = Owner
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Height = 111
|
||||
Top = 62
|
||||
Width = 552
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
AutoSize = True
|
||||
BorderSpacing.Top = 6
|
||||
Caption = 'JumpingGroupBox'
|
||||
ClientHeight = 93
|
||||
ClientWidth = 548
|
||||
TabOrder = 1
|
||||
object AdjustTopLineDueToCommentCheckBox: TCheckBox
|
||||
AnchorSideLeft.Control = JumpingGroupBox
|
||||
AnchorSideTop.Control = JumpingGroupBox
|
||||
Left = 6
|
||||
Height = 19
|
||||
Top = 6
|
||||
Width = 217
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'AdjustTopLineDueToCommentCheckBox'
|
||||
TabOrder = 0
|
||||
end
|
||||
object JumpCenteredCheckBox: TCheckBox
|
||||
AnchorSideLeft.Control = JumpingGroupBox
|
||||
AnchorSideTop.Control = AdjustTopLineDueToCommentCheckBox
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 19
|
||||
Top = 37
|
||||
Width = 143
|
||||
BorderSpacing.Top = 6
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'JumpCenteredCheckBox'
|
||||
TabOrder = 1
|
||||
end
|
||||
object CursorBeyondEOLCheckBox: TCheckBox
|
||||
AnchorSideLeft.Control = JumpingGroupBox
|
||||
AnchorSideTop.Control = JumpCenteredCheckBox
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 19
|
||||
Top = 68
|
||||
Width = 160
|
||||
BorderSpacing.Top = 6
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'CursorBeyondEOLCheckBox'
|
||||
TabOrder = 2
|
||||
end
|
||||
end
|
||||
end
|
||||
37
ide/frames/options_codetools_general.lrs
Normal file
37
ide/frames/options_codetools_general.lrs
Normal file
@ -0,0 +1,37 @@
|
||||
{ This is an automatically generated lazarus resource file }
|
||||
|
||||
LazarusResources.Add('TCodetoolsGeneralOptionsFrame','FORMDATA',[
|
||||
'TPF0'#241#29'TCodetoolsGeneralOptionsFrame'#28'CodetoolsGeneralOptionsFrame'
|
||||
+#6'Height'#3#199#0#5'Width'#3'('#2#12'ClientHeight'#3#199#0#11'ClientWidth'#3
|
||||
+'('#2#8'TabOrder'#2#0#7'Visible'#8#10'DesignLeft'#3#176#0#9'DesignTop'#3#232
|
||||
+#0#0#242#2#0#9'TGroupBox'#15'SrcPathGroupBox'#22'AnchorSideLeft.Control'#7#5
|
||||
+'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#23'AnchorSideRight.Control'#7#5
|
||||
+'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#6'Height'#2'8'#5'Width'#3'('
|
||||
+#2#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7'Caption'#6#15'SrcPathGrou'
|
||||
+'pBox'#12'ClientHeight'#2'&'#11'ClientWidth'#3'$'#2#8'TabOrder'#2#0#0#5'TEdi'
|
||||
+'t'#11'SrcPathEdit'#22'AnchorSideLeft.Control'#7#15'SrcPathGroupBox'#23'Anch'
|
||||
+'orSideRight.Control'#7#15'SrcPathGroupBox'#20'AnchorSideRight.Side'#7#9'asr'
|
||||
+'Bottom'#4'Left'#2#6#6'Height'#2#23#3'Top'#2#8#5'Width'#3#24#2#7'Anchors'#11
|
||||
+#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Around'#2#6#8'TabOrder'#2#0
|
||||
+#4'Text'#6#11'SrcPathEdit'#0#0#0#242#2#1#9'TGroupBox'#15'JumpingGroupBox'#22
|
||||
+'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#15'SrcPathGr'
|
||||
+'oupBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7
|
||||
+#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#6'Height'#2'o'#3'Top'#2'>'
|
||||
+#5'Width'#3'('#2#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'AutoSize'#9
|
||||
+#17'BorderSpacing.Top'#2#6#7'Caption'#6#15'JumpingGroupBox'#12'ClientHeight'
|
||||
+#2']'#11'ClientWidth'#3'$'#2#8'TabOrder'#2#1#0#9'TCheckBox!AdjustTopLineDueT'
|
||||
+'oCommentCheckBox'#22'AnchorSideLeft.Control'#7#15'JumpingGroupBox'#21'Ancho'
|
||||
+'rSideTop.Control'#7#15'JumpingGroupBox'#4'Left'#2#6#6'Height'#2#19#3'Top'#2
|
||||
+#6#5'Width'#3#217#0#20'BorderSpacing.Around'#2#6#7'Caption'#6'!AdjustTopLine'
|
||||
+'DueToCommentCheckBox'#8'TabOrder'#2#0#0#0#9'TCheckBox'#20'JumpCenteredCheck'
|
||||
+'Box'#22'AnchorSideLeft.Control'#7#15'JumpingGroupBox'#21'AnchorSideTop.Cont'
|
||||
+'rol'#7'!AdjustTopLineDueToCommentCheckBox'#18'AnchorSideTop.Side'#7#9'asrBo'
|
||||
+'ttom'#4'Left'#2#6#6'Height'#2#19#3'Top'#2'%'#5'Width'#3#143#0#17'BorderSpac'
|
||||
+'ing.Top'#2#6#20'BorderSpacing.Around'#2#6#7'Caption'#6#20'JumpCenteredCheck'
|
||||
+'Box'#8'TabOrder'#2#1#0#0#9'TCheckBox'#23'CursorBeyondEOLCheckBox'#22'Anchor'
|
||||
+'SideLeft.Control'#7#15'JumpingGroupBox'#21'AnchorSideTop.Control'#7#20'Jump'
|
||||
+'CenteredCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Heigh'
|
||||
+'t'#2#19#3'Top'#2'D'#5'Width'#3#160#0#17'BorderSpacing.Top'#2#6#20'BorderSpa'
|
||||
+'cing.Around'#2#6#7'Caption'#6#23'CursorBeyondEOLCheckBox'#8'TabOrder'#2#2#0
|
||||
+#0#0#0
|
||||
]);
|
||||
112
ide/frames/options_codetools_general.pas
Normal file
112
ide/frames/options_codetools_general.pas
Normal file
@ -0,0 +1,112 @@
|
||||
{
|
||||
***************************************************************************
|
||||
* *
|
||||
* This source is free software; you can redistribute it and/or modify *
|
||||
* it under the terms of the GNU General Public License as published by *
|
||||
* the Free Software Foundation; either version 2 of the License, or *
|
||||
* (at your option) any later version. *
|
||||
* *
|
||||
* This code is distributed in the hope that it will be useful, but *
|
||||
* WITHOUT ANY WARRANTY; without even the implied warranty of *
|
||||
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *
|
||||
* General Public License for more details. *
|
||||
* *
|
||||
* A copy of the GNU General Public License is available on the World *
|
||||
* Wide Web at <http://www.gnu.org/copyleft/gpl.html>. You can also *
|
||||
* obtain it by writing to the Free Software Foundation, *
|
||||
* Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *
|
||||
* *
|
||||
***************************************************************************
|
||||
}
|
||||
unit options_codetools_general;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, FileUtil, LResources, Forms, StdCtrls,
|
||||
CodeToolsOptions, LazarusIDEStrConsts, IDEOptionsIntf;
|
||||
|
||||
type
|
||||
|
||||
{ TCodetoolsGeneralOptionsFrame }
|
||||
|
||||
TCodetoolsGeneralOptionsFrame = class(TAbstractIDEOptionsEditor)
|
||||
AdjustTopLineDueToCommentCheckBox: TCheckBox;
|
||||
CursorBeyondEOLCheckBox: TCheckBox;
|
||||
JumpCenteredCheckBox: TCheckBox;
|
||||
JumpingGroupBox: TGroupBox;
|
||||
SrcPathEdit: TEdit;
|
||||
SrcPathGroupBox: TGroupBox;
|
||||
private
|
||||
{ private declarations }
|
||||
public
|
||||
function GetTitle: String; override;
|
||||
procedure Setup(ADialog: TAbstractOptionsEditorDialog); override;
|
||||
procedure ReadSettings(AOptions: TAbstractIDEOptions); override;
|
||||
procedure WriteSettings(AOptions: TAbstractIDEOptions); override;
|
||||
class function SupportedOptionsClass: TAbstractIDEOptionsClass; override;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{ TCodetoolsGeneralOptionsFrame }
|
||||
|
||||
function TCodetoolsGeneralOptionsFrame.GetTitle: String;
|
||||
begin
|
||||
Result := lisMenuInsertGeneral;
|
||||
end;
|
||||
|
||||
procedure TCodetoolsGeneralOptionsFrame.Setup(ADialog: TAbstractOptionsEditorDialog);
|
||||
begin
|
||||
with SrcPathGroupBox do
|
||||
Caption:=dlgAdditionalSrcPath;
|
||||
|
||||
with JumpingGroupBox do
|
||||
Caption:=dlgJumpingETC;
|
||||
|
||||
with AdjustTopLineDueToCommentCheckBox do
|
||||
Caption:=dlgAdjustTopLine;
|
||||
|
||||
with JumpCenteredCheckBox do
|
||||
Caption:=dlgcentercursorline;
|
||||
|
||||
with CursorBeyondEOLCheckBox do
|
||||
Caption:=dlgcursorbeyondeol;
|
||||
end;
|
||||
|
||||
procedure TCodetoolsGeneralOptionsFrame.ReadSettings(
|
||||
AOptions: TAbstractIDEOptions);
|
||||
begin
|
||||
with AOptions as TCodeToolsOptions do
|
||||
begin
|
||||
SrcPathEdit.Text := SrcPath;
|
||||
AdjustTopLineDueToCommentCheckBox.Checked := AdjustTopLineDueToComment;
|
||||
JumpCenteredCheckBox.Checked := JumpCentered;
|
||||
CursorBeyondEOLCheckBox.Checked := CursorBeyondEOL;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TCodetoolsGeneralOptionsFrame.WriteSettings(
|
||||
AOptions: TAbstractIDEOptions);
|
||||
begin
|
||||
with AOptions as TCodeToolsOptions do
|
||||
begin
|
||||
SrcPath := SrcPathEdit.Text;
|
||||
AdjustTopLineDueToComment := AdjustTopLineDueToCommentCheckBox.Checked;
|
||||
JumpCentered := JumpCenteredCheckBox.Checked;
|
||||
CursorBeyondEOL := CursorBeyondEOLCheckBox.Checked;
|
||||
end;
|
||||
end;
|
||||
|
||||
class function TCodetoolsGeneralOptionsFrame.SupportedOptionsClass: TAbstractIDEOptionsClass;
|
||||
begin
|
||||
Result := TCodeToolsOptions;
|
||||
end;
|
||||
|
||||
initialization
|
||||
{$I options_codetools_general.lrs}
|
||||
RegisterIDEOptionsEditor(GroupCodetools, TCodetoolsGeneralOptionsFrame, CdtOptionsGeneral);
|
||||
end.
|
||||
|
||||
50
ide/frames/options_codetools_wordpolicy.lfm
Normal file
50
ide/frames/options_codetools_wordpolicy.lfm
Normal file
@ -0,0 +1,50 @@
|
||||
object CodetoolsWordPolicyOptionsFrame: TCodetoolsWordPolicyOptionsFrame
|
||||
Height = 229
|
||||
Width = 483
|
||||
ClientHeight = 229
|
||||
ClientWidth = 483
|
||||
TabOrder = 0
|
||||
Visible = False
|
||||
DesignLeft = 419
|
||||
DesignTop = 205
|
||||
object KeyWordPolicyRadioGroup: TRadioGroup
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Height = 100
|
||||
Top = 6
|
||||
Width = 540
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
AutoFill = True
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'KeyWordPolicyRadioGroup'
|
||||
ChildSizing.LeftRightSpacing = 6
|
||||
ChildSizing.TopBottomSpacing = 6
|
||||
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
|
||||
ChildSizing.EnlargeVertical = crsHomogenousChildResize
|
||||
ChildSizing.ShrinkHorizontal = crsScaleChilds
|
||||
ChildSizing.ShrinkVertical = crsScaleChilds
|
||||
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
||||
ChildSizing.ControlsPerLine = 1
|
||||
TabOrder = 0
|
||||
end
|
||||
object IdentifierPolicyRadioGroup: TRadioGroup
|
||||
AnchorSideTop.Control = KeyWordPolicyRadioGroup
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Height = 100
|
||||
Top = 112
|
||||
Width = 540
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
AutoFill = True
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'IdentifierPolicyRadioGroup'
|
||||
ChildSizing.LeftRightSpacing = 6
|
||||
ChildSizing.TopBottomSpacing = 6
|
||||
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
|
||||
ChildSizing.EnlargeVertical = crsHomogenousChildResize
|
||||
ChildSizing.ShrinkHorizontal = crsScaleChilds
|
||||
ChildSizing.ShrinkVertical = crsScaleChilds
|
||||
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
||||
ChildSizing.ControlsPerLine = 1
|
||||
TabOrder = 1
|
||||
end
|
||||
end
|
||||
27
ide/frames/options_codetools_wordpolicy.lrs
Normal file
27
ide/frames/options_codetools_wordpolicy.lrs
Normal file
@ -0,0 +1,27 @@
|
||||
{ This is an automatically generated lazarus resource file }
|
||||
|
||||
LazarusResources.Add('TCodetoolsWordPolicyOptionsFrame','FORMDATA',[
|
||||
'TPF0 TCodetoolsWordPolicyOptionsFrame'#31'CodetoolsWordPolicyOptionsFrame'#6
|
||||
+'Height'#3#229#0#5'Width'#3#227#1#12'ClientHeight'#3#229#0#11'ClientWidth'#3
|
||||
+#227#1#8'TabOrder'#2#0#7'Visible'#8#10'DesignLeft'#3#163#1#9'DesignTop'#3#205
|
||||
+#0#0#11'TRadioGroup'#23'KeyWordPolicyRadioGroup'#20'AnchorSideRight.Side'#7#9
|
||||
+'asrBottom'#6'Height'#2'd'#3'Top'#2#6#5'Width'#3#28#2#7'Anchors'#11#5'akTop'
|
||||
+#6'akLeft'#7'akRight'#0#8'AutoFill'#9#20'BorderSpacing.Around'#2#6#7'Caption'
|
||||
+#6#23'KeyWordPolicyRadioGroup'#28'ChildSizing.LeftRightSpacing'#2#6#28'Child'
|
||||
+'Sizing.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsHomo'
|
||||
+'genousChildResize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenousChildR'
|
||||
+'esize'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSizing'
|
||||
+'.ShrinkVertical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclLeftTo'
|
||||
+'RightThenTopToBottom'#27'ChildSizing.ControlsPerLine'#2#1#8'TabOrder'#2#0#0
|
||||
+#0#11'TRadioGroup'#26'IdentifierPolicyRadioGroup'#21'AnchorSideTop.Control'#7
|
||||
+#23'KeyWordPolicyRadioGroup'#18'AnchorSideTop.Side'#7#9'asrBottom'#20'Anchor'
|
||||
+'SideRight.Side'#7#9'asrBottom'#6'Height'#2'd'#3'Top'#2'p'#5'Width'#3#28#2#7
|
||||
+'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'AutoFill'#9#20'BorderSpacing.'
|
||||
+'Around'#2#6#7'Caption'#6#26'IdentifierPolicyRadioGroup'#28'ChildSizing.Left'
|
||||
+'RightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'ChildSizing.Enlar'
|
||||
+'geHorizontal'#7#24'crsHomogenousChildResize'#27'ChildSizing.EnlargeVertical'
|
||||
+#7#24'crsHomogenousChildResize'#28'ChildSizing.ShrinkHorizontal'#7#14'crsSca'
|
||||
+'leChilds'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChilds'#18'ChildSizin'
|
||||
+'g.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSizing.ControlsPerLin'
|
||||
+'e'#2#1#8'TabOrder'#2#1#0#0#0
|
||||
]);
|
||||
144
ide/frames/options_codetools_wordpolicy.pas
Normal file
144
ide/frames/options_codetools_wordpolicy.pas
Normal file
@ -0,0 +1,144 @@
|
||||
{
|
||||
***************************************************************************
|
||||
* *
|
||||
* This source is free software; you can redistribute it and/or modify *
|
||||
* it under the terms of the GNU General Public License as published by *
|
||||
* the Free Software Foundation; either version 2 of the License, or *
|
||||
* (at your option) any later version. *
|
||||
* *
|
||||
* This code is distributed in the hope that it will be useful, but *
|
||||
* WITHOUT ANY WARRANTY; without even the implied warranty of *
|
||||
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *
|
||||
* General Public License for more details. *
|
||||
* *
|
||||
* A copy of the GNU General Public License is available on the World *
|
||||
* Wide Web at <http://www.gnu.org/copyleft/gpl.html>. You can also *
|
||||
* obtain it by writing to the Free Software Foundation, *
|
||||
* Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *
|
||||
* *
|
||||
***************************************************************************
|
||||
}
|
||||
unit options_codetools_wordpolicy;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, FileUtil, LResources, Forms, ExtCtrls,
|
||||
SourceChanger, CodeToolsOptions, LazarusIDEStrConsts, IDEOptionsIntf;
|
||||
|
||||
type
|
||||
|
||||
{ TCodetoolsWordPolicyOptionsFrame }
|
||||
|
||||
TCodetoolsWordPolicyOptionsFrame = class(TAbstractIDEOptionsEditor)
|
||||
IdentifierPolicyRadioGroup: TRadioGroup;
|
||||
KeyWordPolicyRadioGroup: TRadioGroup;
|
||||
private
|
||||
{ private declarations }
|
||||
public
|
||||
function GetTitle: String; override;
|
||||
procedure Setup(ADialog: TAbstractOptionsEditorDialog); override;
|
||||
procedure ReadSettings(AOptions: TAbstractIDEOptions); override;
|
||||
procedure WriteSettings(AOptions: TAbstractIDEOptions); override;
|
||||
class function SupportedOptionsClass: TAbstractIDEOptionsClass; override;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{ TCodetoolsWordPolicyOptionsFrame }
|
||||
|
||||
function TCodetoolsWordPolicyOptionsFrame.GetTitle: String;
|
||||
begin
|
||||
Result := dlgWordsPolicies;
|
||||
end;
|
||||
|
||||
procedure TCodetoolsWordPolicyOptionsFrame.Setup(
|
||||
ADialog: TAbstractOptionsEditorDialog);
|
||||
begin
|
||||
with KeyWordPolicyRadioGroup do begin
|
||||
Caption:=dlgKeywordPolicy ;
|
||||
with Items do begin
|
||||
BeginUpdate;
|
||||
Add(dlgEnvNone);
|
||||
Add(dlgCDTLower);
|
||||
Add(dlgCDTUPPERCASE);
|
||||
Add(dlg1UP2low);
|
||||
EndUpdate;
|
||||
end;
|
||||
end;
|
||||
|
||||
with IdentifierPolicyRadioGroup do begin
|
||||
Caption:=dlgIdentifierPolicy;
|
||||
with Items do begin
|
||||
BeginUpdate;
|
||||
Add(dlgEnvNone);
|
||||
Add(dlgCDTLower);
|
||||
Add(dlgCDTUPPERCASE);
|
||||
Add(dlg1UP2low);
|
||||
EndUpdate;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TCodetoolsWordPolicyOptionsFrame.ReadSettings(
|
||||
AOptions: TAbstractIDEOptions);
|
||||
begin
|
||||
with AOptions as TCodetoolsOptions do
|
||||
begin
|
||||
case KeyWordPolicy of
|
||||
wpLowerCase:
|
||||
KeyWordPolicyRadioGroup.ItemIndex:=1;
|
||||
wpUpperCase:
|
||||
KeyWordPolicyRadioGroup.ItemIndex:=2;
|
||||
wpLowerCaseFirstLetterUp:
|
||||
KeyWordPolicyRadioGroup.ItemIndex:=3;
|
||||
else
|
||||
// wpNone
|
||||
KeyWordPolicyRadioGroup.ItemIndex:=0;
|
||||
end;
|
||||
case IdentifierPolicy of
|
||||
wpLowerCase:
|
||||
IdentifierPolicyRadioGroup.ItemIndex:=1;
|
||||
wpUpperCase:
|
||||
IdentifierPolicyRadioGroup.ItemIndex:=2;
|
||||
wpLowerCaseFirstLetterUp:
|
||||
IdentifierPolicyRadioGroup.ItemIndex:=3;
|
||||
else
|
||||
// wpNone
|
||||
IdentifierPolicyRadioGroup.ItemIndex:=0;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TCodetoolsWordPolicyOptionsFrame.WriteSettings(
|
||||
AOptions: TAbstractIDEOptions);
|
||||
begin
|
||||
with AOptions as TCodetoolsOptions do
|
||||
begin
|
||||
case KeyWordPolicyRadioGroup.ItemIndex of
|
||||
0: KeyWordPolicy:=wpNone;
|
||||
1: KeyWordPolicy:=wpLowerCase;
|
||||
2: KeyWordPolicy:=wpUpperCase;
|
||||
3: KeyWordPolicy:=wpLowerCaseFirstLetterUp;
|
||||
end;
|
||||
case IdentifierPolicyRadioGroup.ItemIndex of
|
||||
0: IdentifierPolicy:=wpNone;
|
||||
1: IdentifierPolicy:=wpLowerCase;
|
||||
2: IdentifierPolicy:=wpUpperCase;
|
||||
3: IdentifierPolicy:=wpLowerCaseFirstLetterUp;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
class function TCodetoolsWordPolicyOptionsFrame.SupportedOptionsClass: TAbstractIDEOptionsClass;
|
||||
begin
|
||||
Result := TCodetoolsOptions;
|
||||
end;
|
||||
|
||||
initialization
|
||||
{$I options_codetools_wordpolicy.lrs}
|
||||
RegisterIDEOptionsEditor(GroupCodetools, TCodetoolsWordPolicyOptionsFrame, CdtOptionsWords);
|
||||
end.
|
||||
|
||||
@ -41,7 +41,7 @@
|
||||
<PackageName Value="SynEdit"/>
|
||||
</Item4>
|
||||
</RequiredPackages>
|
||||
<Units Count="17">
|
||||
<Units Count="20">
|
||||
<Unit0>
|
||||
<Filename Value="lazarus.pp"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
@ -175,6 +175,30 @@
|
||||
<ResourceFilename Value="frames\options_editor_codefolding.lrs"/>
|
||||
<UnitName Value="options_editor_codefolding"/>
|
||||
</Unit16>
|
||||
<Unit17>
|
||||
<Filename Value="frames\options_codetools_general.pas"/>
|
||||
<ComponentName Value="CodetoolsGeneralOptionsFrame"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ResourceBaseClass Value="Frame"/>
|
||||
<ResourceFilename Value="frames\options_codetools_general.lrs"/>
|
||||
<UnitName Value="options_codetools_general"/>
|
||||
</Unit17>
|
||||
<Unit18>
|
||||
<Filename Value="frames\options_codetools_codecreation.pas"/>
|
||||
<ComponentName Value="CodetoolsCodeCreationOptionsFrame"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ResourceBaseClass Value="Frame"/>
|
||||
<ResourceFilename Value="frames\options_codetools_codecreation.lrs"/>
|
||||
<UnitName Value="options_codetools_codecreation"/>
|
||||
</Unit18>
|
||||
<Unit19>
|
||||
<Filename Value="frames\options_codetools_wordpolicy.pas"/>
|
||||
<ComponentName Value="CodetoolsWordPolicyOptionsFrame"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ResourceBaseClass Value="Frame"/>
|
||||
<ResourceFilename Value="frames\options_codetools_wordpolicy.lrs"/>
|
||||
<UnitName Value="options_codetools_wordpolicy"/>
|
||||
</Unit19>
|
||||
</Units>
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
|
||||
@ -856,6 +856,8 @@ resourcestring
|
||||
// Options dialog groups
|
||||
dlgGroupEnvironment = 'Environment';
|
||||
dlgGroupEditor = 'Editor';
|
||||
dlgGroupCodetools = 'Codetools';
|
||||
|
||||
// Options dialog
|
||||
dlgBakNoSubDirectory = '(no subdirectory)';
|
||||
dlgEOFocusMessagesAfterCompilation = 'Focus messages after compilation';
|
||||
|
||||
@ -130,7 +130,8 @@ uses
|
||||
options_files, options_desktop, options_window, options_formed, options_oi,
|
||||
options_backup, options_naming, options_fpdoc,
|
||||
options_editor_general, options_editor_display, options_editor_keymapping,
|
||||
options_editor_color, options_editor_codetools, options_editor_codefolding;
|
||||
options_editor_color, options_editor_codetools, options_editor_codefolding,
|
||||
options_codetools_general, options_codetools_codecreation, options_codetools_wordpolicy;
|
||||
|
||||
type
|
||||
TIDEProjectItem =
|
||||
@ -3949,6 +3950,8 @@ begin
|
||||
ReadSettings(EnvironmentOptions);
|
||||
// load settings from EditorOptions to IDEOptionsDialog
|
||||
ReadSettings(EditorOpts);
|
||||
// load settings from CodetoolsOption to IDEOptionsDialog
|
||||
ReadSettings(CodeToolsOpts);
|
||||
end;
|
||||
if IDEOptionsDialog.ShowModal = mrOk then
|
||||
begin
|
||||
@ -3960,6 +3963,7 @@ begin
|
||||
OldLanguage:=EnvironmentOptions.LanguageID;
|
||||
IDEOptionsDialog.WriteSettings(EnvironmentOptions);
|
||||
IDEOptionsDialog.WriteSettings(EditorOpts);
|
||||
IDEOptionsDialog.WriteSettings(CodeToolsOpts);
|
||||
ShowCompileDialog := EnvironmentOptions.ShowCompileDialog;
|
||||
|
||||
UpdateDefaultPascalFileExtensions;
|
||||
@ -3990,6 +3994,8 @@ begin
|
||||
// save to disk
|
||||
EnvironmentOptions.Save(False);
|
||||
EditorOpts.Save;
|
||||
CodeToolsOpts.AssignTo(CodeToolBoss);
|
||||
CodeToolsOpts.Save;
|
||||
|
||||
// update environment
|
||||
UpdateDesigners;
|
||||
|
||||
@ -114,14 +114,14 @@ function IDEEditorGroups: TIDEOptionsGroupList;
|
||||
const
|
||||
// options groups
|
||||
GroupEnvironment = 100;
|
||||
EnvOptionsFiles = 100;
|
||||
EnvOptionsDesktop = 200;
|
||||
EnvOptionsWindow = 300;
|
||||
EnvOptionsFormEd = 400;
|
||||
EnvOptionsOI = 500;
|
||||
EnvOptionsBackup = 600;
|
||||
EnvOptionsNaming = 700;
|
||||
EnvOptionsFpDoc = 800;
|
||||
EnvOptionsFiles = 100;
|
||||
EnvOptionsDesktop = 200;
|
||||
EnvOptionsWindow = 300;
|
||||
EnvOptionsFormEd = 400;
|
||||
EnvOptionsOI = 500;
|
||||
EnvOptionsBackup = 600;
|
||||
EnvOptionsNaming = 700;
|
||||
EnvOptionsFpDoc = 800;
|
||||
|
||||
GroupEditor = 200;
|
||||
EdtOptionsGeneral = 100;
|
||||
@ -131,6 +131,16 @@ const
|
||||
EdtOptionsCodetools = 500;
|
||||
EdtOptionsCodeFolding = 600;
|
||||
|
||||
GroupCodetools = 300;
|
||||
CdtOptionsGeneral = 100;
|
||||
CdtOptionsCodeCreation = 200;
|
||||
CdtOptionsWords = 300;
|
||||
CdtOptionsLineSplitting = 400;
|
||||
CdtOptionsSpace = 500;
|
||||
CdtOptionsIdentCompletion = 600;
|
||||
|
||||
GroupDebugger = 400;
|
||||
|
||||
implementation
|
||||
var
|
||||
FIDEEditorGroups: TIDEOptionsGroupList;
|
||||
|
||||
Loading…
Reference in New Issue
Block a user