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

* Maxim Ganetsky: Conversion to LFM of CodeTools Options Dialog

Browse Source 
git-svn-id: trunk@12304 -
This commit is contained in:
marc 2007-10-03 22:19:00 +00:00
parent 18645bdfa1
commit 8ebbbef03d
4 changed files with 1737 additions and 609 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.gitattributes vendored
View File

@ -1728,6 +1728,8 @@ ide/codetoolsdefines.pas svneol=native#text/pascal
ide/codetoolsdefpreview.lfm svneol=native#text/plain
ide/codetoolsdefpreview.lrs svneol=native#text/pascal
ide/codetoolsdefpreview.pas svneol=native#text/pascal
ide/codetoolsoptions.lfm svneol=native#text/pascal
ide/codetoolsoptions.lrs svneol=native#text/pascal
ide/codetoolsoptions.pas svneol=native#text/pascal
ide/compiler.pp svneol=native#text/pascal
ide/compileroptions.pp svneol=native#text/pascal

1302
ide/codetoolsoptions.lfm Normal file
View File

File diff suppressed because it is too large Load Diff

352
ide/codetoolsoptions.lrs Normal file
View File

@ -0,0 +1,352 @@
{ Ýòî - ôàéë ðåñóðñîâ, àâòîìàòè÷åñêè ñîçäàííûé lazarus }
LazarusResources.Add('TCodeToolsOptsDlg','FORMDATA',[
'TPF0'#17'TCodeToolsOptsDlg'#16'CodeToolsOptsDlg'#4'Left'#3#187#3#6'Height'#3
+#179#1#3'Top'#3#198#1#5'Width'#3'0'#2#18'HorzScrollBar.Page'#3'/'#2#18'VertS'
+'crollBar.Page'#3#178#1#13'ActiveControl'#7#8'OKButton'#11'BorderStyle'#7#13
+'bsSizeToolWin'#7'Caption'#6#16'CodeToolsOptsDlg'#12'ClientHeight'#3#179#1#11
+'ClientWidth'#3'0'#2#21'Constraints.MinHeight'#3#179#1#20'Constraints.MinWid'
+'th'#3#229#1#8'OnCreate'#7#10'FormCreate'#8'OnResize'#7#10'FormResize'#8'Pos'
+'ition'#7#14'poScreenCenter'#0#9'TNotebook'#8'Notebook'#22'AnchorSideLeft.Co'
+'ntrol'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#23'AnchorSideRight.C'
+'ontrol'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSideBot'
+'tom.Control'#7#12'CancelButton'#6'Height'#3#142#1#5'Width'#3'0'#2#7'Anchors'
+#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#20'BorderSpacing.Bottom'#2#6
+#9'PageIndex'#2#5#8'TabOrder'#2#0#0#5'TPage'#11'GeneralPage'#21'AnchorSideTo'
+'p.Control'#7#16'CodeCreationPage'#7'Caption'#6#11'GeneralPage'#11'ClientWid'
+'th'#3'('#2#12'ClientHeight'#3't'#1#0#9'TGroupBox'#15'SrcPathGroupBox'#22'An'
+'chorSideLeft.Control'#7#11'GeneralPage'#21'AnchorSideTop.Control'#7#11'Gene'
+'ralPage'#23'AnchorSideRight.Control'#7#11'GeneralPage'#20'AnchorSideRight.S'
+'ide'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2'8'#3'Top'#2#6#5'Width'#3#209#1#7
+'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Around'#2#6#7
+'Caption'#6#15'SrcPathGroupBox'#12'ClientHeight'#2'8'#11'ClientWidth'#3#209#1
+#8'TabOrder'#2#0#0#5'TEdit'#11'SrcPathEdit'#22'AnchorSideLeft.Control'#7#15
+'SrcPathGroupBox'#23'AnchorSideRight.Control'#7#15'SrcPathGroupBox'#20'Ancho'
+'rSideRight.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#23#3'Top'#2#8#5'Wid'
+'th'#3#193#1#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#9'TGroupBox'#15
+'JumpingGroupBox'#22'AnchorSideLeft.Control'#7#11'GeneralPage'#21'AnchorSide'
+'Top.Control'#7#15'SrcPathGroupBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#23
+'AnchorSideRight.Control'#7#11'GeneralPage'#20'AnchorSideRight.Side'#7#9'asr'
+'Bottom'#4'Left'#2#6#6'Height'#2'f'#3'Top'#2'D'#5'Width'#3#209#1#7'Anchors'
+#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Around'#2#6#7'Caption'#6
+#15'JumpingGroupBox'#12'ClientHeight'#2'f'#11'ClientWidth'#3#209#1#8'TabOrde'
+'r'#2#1#0#9'TCheckBox!AdjustTopLineDueToCommentCheckBox'#22'AnchorSideLeft.C'
+'ontrol'#7#15'JumpingGroupBox'#21'AnchorSideTop.Control'#7#15'JumpingGroupBo'
+'x'#4'Left'#2#6#6'Height'#2#13#3'Top'#2#6#5'Width'#3#214#0#20'BorderSpacing.'
+'Around'#2#6#7'Caption'#6'!AdjustTopLineDueToCommentCheckBox'#8'TabOrder'#2#0
+#0#0#9'TCheckBox'#20'JumpCenteredCheckBox'#22'AnchorSideLeft.Control'#7#15'J'
+'umpingGroupBox'#21'AnchorSideTop.Control'#7'!AdjustTopLineDueToCommentCheck'
+'Box'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#13#3'Top'
+#2#31#5'Width'#3#137#0#17'BorderSpacing.Top'#2#6#20'BorderSpacing.Around'#2#6
+#7'Caption'#6#20'JumpCenteredCheckBox'#8'TabOrder'#2#1#0#0#9'TCheckBox'#23'C'
+'ursorBeyondEOLCheckBox'#22'AnchorSideLeft.Control'#7#15'JumpingGroupBox'#21
+'AnchorSideTop.Control'#7#20'JumpCenteredCheckBox'#18'AnchorSideTop.Side'#7#9
+'asrBottom'#4'Left'#2#6#6'Height'#2#13#3'Top'#2'8'#5'Width'#3#156#0#17'Borde'
+'rSpacing.Top'#2#6#20'BorderSpacing.Around'#2#6#7'Caption'#6#23'CursorBeyond'
+'EOLCheckBox'#8'TabOrder'#2#2#0#0#0#0#5'TPage'#16'CodeCreationPage'#7'Captio'
+'n'#6#16'CodeCreationPage'#11'ClientWidth'#3'('#2#12'ClientHeight'#3't'#1#0
+#11'TRadioGroup'#31'ClassPartInsertPolicyRadioGroup'#22'AnchorSideLeft.Contr'
+'ol'#7#16'CodeCreationPage'#21'AnchorSideTop.Control'#7#16'CodeCreationPage'
+#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2'd'#3'Top'#2
+#6#5'Width'#3#222#0#8'AutoFill'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6
+#31'ClassPartInsertPolicyRadioGroup'#28'ChildSizing.LeftRightSpacing'#2#6#28
+'ChildSizing.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'cr'
+'sHomogenousChildResize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenousC'
+'hildResize'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildS'
+'izing.ShrinkVertical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclL'
+'eftToRightThenTopToBottom'#27'ChildSizing.ControlsPerLine'#2#1#8'TabOrder'#2
+#0#0#0#9'TCheckBox'#31'MixMethodsAndPropertiesCheckBox'#22'AnchorSideLeft.Co'
+'ntrol'#7#16'CodeCreationPage'#21'AnchorSideTop.Control'#7#31'ClassPartInser'
+'tPolicyRadioGroup'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Heig'
+'ht'#2#13#3'Top'#2'p'#5'Width'#3#192#0#20'BorderSpacing.Around'#2#6#7'Captio'
+'n'#6#31'MixMethodsAndPropertiesCheckBox'#8'TabOrder'#2#1#0#0#11'TRadioGroup'
+#28'MethodInsertPolicyRadioGroup'#22'AnchorSideLeft.Control'#7#31'ClassPartI'
+'nsertPolicyRadioGroup'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSide'
+'Top.Control'#7#16'CodeCreationPage'#23'AnchorSideRight.Control'#7#16'CodeCr'
+'eationPage'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#234#0#6'Heigh'
,'t'#2'd'#3'Top'#2#6#5'Width'#3#237#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRi'
+'ght'#0#8'AutoFill'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#28'MethodIns'
+'ertPolicyRadioGroup'#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing.To'
+'pBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsHomogenousChi'
+'ldResize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenousChildResize'#28
+'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVer'
+'tical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenT'
+'opToBottom'#27'ChildSizing.ControlsPerLine'#2#1#8'TabOrder'#2#2#0#0#11'TRad'
+'ioGroup"ForwardProcsInsertPolicyRadioGroup'#22'AnchorSideLeft.Control'#7#16
+'CodeCreationPage'#21'AnchorSideTop.Control'#7#31'MixMethodsAndPropertiesChe'
+'ckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7
+#31'ClassPartInsertPolicyRadioGroup'#20'AnchorSideRight.Side'#7#9'asrBottom'
+#4'Left'#2#6#6'Height'#2'd'#3'Top'#3#137#0#5'Width'#3#222#0#7'Anchors'#11#5
+'akTop'#6'akLeft'#7'akRight'#0#8'AutoFill'#9#18'BorderSpacing.Left'#2#6#17'B'
+'orderSpacing.Top'#2#12#7'Caption'#6'"ForwardProcsInsertPolicyRadioGroup'#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#3#0#0#9'TCheckBox'#29'ForwardProcsKe'
+'epOrderCheckBox'#22'AnchorSideLeft.Control'#7'"ForwardProcsInsertPolicyRadi'
+'oGroup'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7
+'"ForwardProcsInsertPolicyRadioGroup'#4'Left'#3#234#0#6'Height'#2#13#3'Top'#3
+#143#0#5'Width'#3#185#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#29'Forward'
+'ProcsKeepOrderCheckBox'#8'TabOrder'#2#4#0#0#9'TCheckBox'#27'ClassHeaderComm'
+'entsCheckBox'#22'AnchorSideLeft.Control'#7'"ForwardProcsInsertPolicyRadioGr'
+'oup'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#29
+'ForwardProcsKeepOrderCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'
+#3#234#0#6'Height'#2#13#3'Top'#3#162#0#5'Width'#3#178#0#20'BorderSpacing.Aro'
+'und'#2#6#7'Caption'#6#27'ClassHeaderCommentsCheckBox'#8'TabOrder'#2#5#0#0#9
+'TGroupBox'#26'PropertyCompletionGroupBox'#22'AnchorSideLeft.Control'#7#16'C'
+'odeCreationPage'#21'AnchorSideTop.Control'#7'"ForwardProcsInsertPolicyRadio'
+'Group'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7
+#16'CodeCreationPage'#20'AnchorSideRight.Side'#7#9'asrBottom'#21'AnchorSideB'
+'ottom.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2'{'#3'Top'#3#243#0#5'Widt'
+'h'#3#209#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.A'
+'round'#2#6#7'Caption'#6#26'PropertyCompletionGroupBox'#12'ClientHeight'#2'{'
+#11'ClientWidth'#3#209#1#8'TabOrder'#2#6#0#6'TLabel'#28'PropertyReadIdentPre'
+'fixLabel'#21'AnchorSideTop.Control'#7#27'PropertyReadIdentPrefixEdit'#18'An'
+'chorSideTop.Side'#7#9'asrCenter'#23'AnchorSideRight.Control'#7#27'PropertyR'
+'eadIdentPrefixEdit'#4'Left'#2#243#6'Height'#2#14#3'Top'#2'#'#5'Width'#3#147
+#0#7'Anchors'#11#5'akTop'#7'akRight'#0#19'BorderSpacing.Right'#2#6#7'Caption'
+#6#28'PropertyReadIdentPrefixLabel'#11'ParentColor'#8#0#0#6'TLabel'#29'Prope'
+'rtyWriteIdentPrefixLabel'#21'AnchorSideTop.Control'#7#28'PropertyWriteIdent'
+'PrefixEdit'#18'AnchorSideTop.Side'#7#9'asrCenter'#23'AnchorSideRight.Contro'
+'l'#7#28'PropertyWriteIdentPrefixEdit'#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.Ri'
+'ght'#2#6#7'Caption'#6#29'PropertyWriteIdentPrefixLabel'#11'ParentColor'#8#0
+#0#6'TLabel'#31'PropertyStoredIdentPostfixLabel'#21'AnchorSideTop.Control'#7
+#30'PropertyStoredIdentPostfixEdit'#18'AnchorSideTop.Side'#7#9'asrCenter'#23
+'AnchorSideRight.Control'#7#30'PropertyStoredIdentPostfixEdit'#4'Left'#2#231
+#6'Height'#2#14#3'Top'#2'Q'#5'Width'#3#159#0#7'Anchors'#11#5'akTop'#7'akRigh'
+'t'#0#19'BorderSpacing.Right'#2#6#7'Caption'#6#31'PropertyStoredIdentPostfix'
+'Label'#11'ParentColor'#8#0#0#6'TLabel'#26'PrivateVariablePrefixLabel'#21'An'
+'chorSideTop.Control'#7#25'PrivateVariablePrefixEdit'#18'AnchorSideTop.Side'
+#7#9'asrCenter'#23'AnchorSideRight.Control'#7#25'PrivateVariablePrefixEdit'#4
+'Left'#3#243#0#6'Height'#2#14#3'Top'#2'#'#5'Width'#2'~'#7'Anchors'#11#5'akTo'
+'p'#7'akRight'#0#19'BorderSpacing.Right'#2#6#7'Caption'#6#26'PrivateVariable'
+'PrefixLabel'#11'ParentColor'#8#0#0#6'TLabel'#28'SetPropertyVariablenameLabe'
+'l'#21'AnchorSideTop.Control'#7#27'SetPropertyVariablenameEdit'#18'AnchorSid'
+'eTop.Side'#7#9'asrCenter'#23'AnchorSideRight.Control'#7#27'SetPropertyVaria'
+'blenameEdit'#4'Left'#3#221#0#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'SetPropertyVariablenameLabel'#11'ParentColor'#8#0#0#9'TCheckBox'#26'Prop'
+'ertyCompletionCheckBox'#22'AnchorSideLeft.Control'#7#26'PropertyCompletionG'
+'roupBox'#21'AnchorSideTop.Control'#7#26'PropertyCompletionGroupBox'#4'Left'
+#2#6#6'Height'#2#13#3'Top'#2#6#5'Width'#3#160#0#20'BorderSpacing.Around'#2#6
+#7'Caption'#6#26'PropertyCompletionCheckBox'#8'TabOrder'#2#0#0#0#5'TEdit'#27
+'PropertyReadIdentPrefixEdit'#22'AnchorSideLeft.Control'#7#28'PropertyWriteI'
+'dentPrefixEdit'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Co'
+'ntrol'#7#28'PropertyWriteIdentPrefixEdit'#20'AnchorSideRight.Side'#7#9'asrB'
+'ottom'#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'PropertyRea'
+'dIdentPrefixEdit'#0#0#5'TEdit'#28'PropertyWriteIdentPrefixEdit'#21'AnchorSi'
+'deTop.Control'#7#27'PropertyReadIdentPrefixEdit'#18'AnchorSideTop.Side'#7#9
+'asrBottom'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#140#0#6'Height'
+#2#23#3'Top'#2'6'#5'Width'#2'P'#8'TabOrder'#2#2#4'Text'#6#28'PropertyWriteId'
+'entPrefixEdit'#0#0#5'TEdit'#30'PropertyStoredIdentPostfixEdit'#21'AnchorSid'
+'eTop.Control'#7#28'PropertyWriteIdentPrefixEdit'#18'AnchorSideTop.Side'#7#9
+'asrBottom'#20'AnchorSideRight.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'PropertyStoredI'
+'dentPostfixEdit'#0#0#5'TEdit'#25'PrivateVariablePrefixEdit'#21'AnchorSideTo'
+'p.Control'#7#27'PropertyReadIdentPrefixEdit'#18'AnchorSideTop.Side'#7#9'asr'
+'Center'#23'AnchorSideRight.Control'#7#26'PropertyCompletionGroupBox'#20'Anc'
+'horSideRight.Side'#7#9'asrBottom'#4'Left'#3'w'#1#6'Height'#2#23#3'Top'#2#31
+#5'Width'#2'P'#7'Anchors'#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'S'
+'etPropertyVariablenameEdit'#21'AnchorSideTop.Control'#7#28'PropertyWriteIde'
+'ntPrefixEdit'#18'AnchorSideTop.Side'#7#9'asrCenter'#23'AnchorSideRight.Cont'
+'rol'#7#26'PropertyCompletionGroupBox'#20'AnchorSideRight.Side'#7#9'asrBotto'
+'m'#4'Left'#3'w'#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
+'SetPropertyVariablenameEdit'#0#0#0#0#5'TPage'#17'WordsPoliciesPage'#7'Capti'
+'on'#6#17'WordsPoliciesPage'#11'ClientWidth'#3'('#2#12'ClientHeight'#3't'#1#0
+#11'TRadioGroup'#23'KeyWordPolicyRadioGroup'#22'AnchorSideLeft.Control'#7#17
+'WordsPoliciesPage'#21'AnchorSideTop.Control'#7#17'WordsPoliciesPage'#23'Anc'
+'horSideRight.Control'#7#17'WordsPoliciesPage'#20'AnchorSideRight.Side'#7#9
+'asrBottom'#4'Left'#2#6#6'Height'#2'd'#3'Top'#2#6#5'Width'#3#209#1#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'ChildSizing.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7
+#24'crsHomogenousChildResize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomoge'
+'nousChildResize'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'C'
+'hildSizing.ShrinkVertical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29
+'cclLeftToRightThenTopToBottom'#27'ChildSizing.ControlsPerLine'#2#1#7'OnClic'
+'k'#7#14'UpdateExamples'#8'TabOrder'#2#0#0#0#11'TRadioGroup'#26'IdentifierPo'
+'licyRadioGroup'#22'AnchorSideLeft.Control'#7#17'WordsPoliciesPage'#21'Ancho'
+'rSideTop.Control'#7#23'KeyWordPolicyRadioGroup'#18'AnchorSideTop.Side'#7#9
+'asrBottom'#23'AnchorSideRight.Control'#7#17'WordsPoliciesPage'#20'AnchorSid'
+'eRight.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2'd'#3'Top'#2'p'#5'Width'
+#3#209#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'AutoFill'#9#20'Bord'
+'erSpacing.Around'#2#6#7'Caption'#6#26'IdentifierPolicyRadioGroup'#28'ChildS'
+'izing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'ChildSi'
+'zing.EnlargeHorizontal'#7#24'crsHomogenousChildResize'#27'ChildSizing.Enlar'
+'geVertical'#7#24'crsHomogenousChildResize'#28'ChildSizing.ShrinkHorizontal'
+#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChilds'#18
+'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSizing.Cont'
+'rolsPerLine'#2#1#7'OnClick'#7#14'UpdateExamples'#8'TabOrder'#2#1#0#0#0#5'TP'
+'age'#17'LineSplittingPage'#7'Caption'#6#17'LineSplittingPage'#11'ClientWidt'
+'h'#3'('#2#12'ClientHeight'#3't'#1#0#6'TLabel'#15'LineLengthLabel'#21'Anchor'
+'SideTop.Control'#7#14'LineLengthEdit'#18'AnchorSideTop.Side'#7#9'asrCenter'
+#23'AnchorSideRight.Control'#7#14'LineLengthEdit'#4'Left'#2'0'#6'Height'#2#14
+#3'Top'#2#14#5'Width'#2'N'#7'Anchors'#11#5'akTop'#7'akRight'#0#19'BorderSpac'
+'ing.Right'#2#6#7'Caption'#6#15'LineLengthLabel'#11'ParentColor'#8#0#0#6'TLa'
+'bel'#17'SplitPreviewLabel'#22'AnchorSideLeft.Control'#7#19'SplitPreviewSynE'
+'dit'#24'AnchorSideBottom.Control'#7#19'SplitPreviewSynEdit'#4'Left'#3#12#1#6
+'Height'#2#16#3'Top'#2#18#5'Width'#2'T'#7'Anchors'#11#5'akTop'#6'akLeft'#8'a'
,'kBottom'#0#7'Caption'#6#17'SplitPreviewLabel'#11'ParentColor'#8#0#0#5'TEdit'
+#14'LineLengthEdit'#4'Left'#3#132#0#6'Height'#2#23#3'Top'#2#10#5'Width'#2'2'
+#8'OnChange'#7#14'UpdateExamples'#8'TabOrder'#2#0#4'Text'#6#14'LineLengthEdi'
+'t'#0#0#9'TGroupBox'#29'DoNotSplitLineInFrontGroupBox'#22'AnchorSideLeft.Con'
+'trol'#7#17'LineSplittingPage'#21'AnchorSideTop.Control'#7#14'LineLengthEdit'
+#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#19'Spli'
+'tPreviewSynEdit'#4'Left'#2#6#6'Height'#3#153#0#3'Top'#2''''#5'Width'#3#0#1
+#20'BorderSpacing.Around'#2#6#7'Caption'#6#29'DoNotSplitLineInFrontGroupBox'
+#8'TabOrder'#2#1#7'OnClick'#7#14'UpdateExamples'#0#0#9'TGroupBox'#27'DoNotSp'
+'litLineAfterGroupBox'#22'AnchorSideLeft.Control'#7#17'LineSplittingPage'#21
+'AnchorSideTop.Control'#7#29'DoNotSplitLineInFrontGroupBox'#18'AnchorSideTop'
+'.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#29'DoNotSplitLineInFron'
+'tGroupBox'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#3
+#153#0#3'Top'#3#198#0#5'Width'#3#0#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRi'
+'ght'#0#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#6#7'Caption'#6#27
+'DoNotSplitLineAfterGroupBox'#8'TabOrder'#2#2#7'OnClick'#7#14'UpdateExamples'
+#0#0#8'TSynEdit'#19'SplitPreviewSynEdit'#22'AnchorSideLeft.Control'#7#29'DoN'
+'otSplitLineInFrontGroupBox'#19'AnchorSideLeft.Side'#7#9'asrBottom'#23'Ancho'
+'rSideRight.Control'#7#17'LineSplittingPage'#20'AnchorSideRight.Side'#7#9'as'
+'rBottom'#24'AnchorSideBottom.Control'#7#17'LineSplittingPage'#21'AnchorSide'
+'Bottom.Side'#7#9'asrBottom'#4'Left'#3#12#1#6'Height'#3'L'#1#3'Top'#2'"'#5'W'
+'idth'#3#22#1#19'BorderSpacing.Right'#2#6#20'BorderSpacing.Bottom'#2#6#7'Anc'
+'hors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#11'Font.Height'#2#240#9
+'Font.Name'#6#7'courier'#11'ParentColor'#8#8'TabOrder'#2#3#24'BookMarkOption'
+'s.OnChange'#13#15'Gutter.OnChange'#13#23'Gutter.CodeFoldingWidth'#2#14#10'K'
+'eystrokes'#14#1#7'Command'#2#3#8'ShortCut'#2'&'#0#1#7'Command'#2'g'#8'Short'
+'Cut'#3'& '#0#1#7'Command'#3#211#0#8'ShortCut'#3'&@'#0#1#7'Command'#2#4#8'Sh'
+'ortCut'#2'('#0#1#7'Command'#2'h'#8'ShortCut'#3'( '#0#1#7'Command'#3#212#0#8
+'ShortCut'#3'(@'#0#1#7'Command'#2#1#8'ShortCut'#2'%'#0#1#7'Command'#2'e'#8'S'
+'hortCut'#3'% '#0#1#7'Command'#2#5#8'ShortCut'#3'%@'#0#1#7'Command'#2'i'#8'S'
+'hortCut'#3'%`'#0#1#7'Command'#2#2#8'ShortCut'#2''''#0#1#7'Command'#2'f'#8'S'
+'hortCut'#3''' '#0#1#7'Command'#2#6#8'ShortCut'#3'''@'#0#1#7'Command'#2'j'#8
+'ShortCut'#3'''`'#0#1#7'Command'#2#10#8'ShortCut'#2'"'#0#1#7'Command'#2'n'#8
+'ShortCut'#3'" '#0#1#7'Command'#2#14#8'ShortCut'#3'"@'#0#1#7'Command'#2'r'#8
+'ShortCut'#3'"`'#0#1#7'Command'#2#9#8'ShortCut'#2'!'#0#1#7'Command'#2'm'#8'S'
+'hortCut'#3'! '#0#1#7'Command'#2#13#8'ShortCut'#3'!@'#0#1#7'Command'#2'q'#8
+'ShortCut'#3'!`'#0#1#7'Command'#2#7#8'ShortCut'#2'$'#0#1#7'Command'#2'k'#8'S'
+'hortCut'#3'$ '#0#1#7'Command'#2#15#8'ShortCut'#3'$@'#0#1#7'Command'#2's'#8
+'ShortCut'#3'$`'#0#1#7'Command'#2#8#8'ShortCut'#2'#'#0#1#7'Command'#2'l'#8'S'
+'hortCut'#3'# '#0#1#7'Command'#2#16#8'ShortCut'#3'#@'#0#1#7'Command'#2't'#8
+'ShortCut'#3'#`'#0#1#7'Command'#3#223#0#8'ShortCut'#2'-'#0#1#7'Command'#3#201
+#0#8'ShortCut'#3'-@'#0#1#7'Command'#3'\'#2#8'ShortCut'#3'- '#0#1#7'Command'#3
+#246#1#8'ShortCut'#2'.'#0#1#7'Command'#3'['#2#8'ShortCut'#3'. '#0#1#7'Comman'
+'d'#3#245#1#8'ShortCut'#2#8#0#1#7'Command'#3#245#1#8'ShortCut'#3#8' '#0#1#7
+'Command'#3#248#1#8'ShortCut'#3#8'@'#0#1#7'Command'#3'Y'#2#8'ShortCut'#4#8
+#128#0#0#0#1#7'Command'#3'Z'#2#8'ShortCut'#4#8#160#0#0#0#1#7'Command'#3#253#1
+#8'ShortCut'#2#13#0#1#7'Command'#3#199#0#8'ShortCut'#3'A@'#0#1#7'Command'#3
+#201#0#8'ShortCut'#3'C@'#0#1#7'Command'#3'b'#2#8'ShortCut'#3'I`'#0#1#7'Comma'
+'nd'#3#253#1#8'ShortCut'#3'M@'#0#1#7'Command'#3#254#1#8'ShortCut'#3'N@'#0#1#7
+'Command'#3#247#1#8'ShortCut'#3'T@'#0#1#7'Command'#3'c'#2#8'ShortCut'#3'U`'#0
+#1#7'Command'#3'\'#2#8'ShortCut'#3'V@'#0#1#7'Command'#3'['#2#8'ShortCut'#3'X'
+'@'#0#1#7'Command'#3#251#1#8'ShortCut'#3'Y@'#0#1#7'Command'#3#250#1#8'ShortC'
+'ut'#3'Y`'#0#1#7'Command'#3'Y'#2#8'ShortCut'#3'Z@'#0#1#7'Command'#3'Z'#2#8'S'
+'hortCut'#3'Z`'#0#1#7'Command'#3'-'#1#8'ShortCut'#3'0@'#0#1#7'Command'#3'.'#1
+#8'ShortCut'#3'1@'#0#1#7'Command'#3'/'#1#8'ShortCut'#3'2@'#0#1#7'Command'#3
+'0'#1#8'ShortCut'#3'3@'#0#1#7'Command'#3'1'#1#8'ShortCut'#3'4@'#0#1#7'Comman'
+'d'#3'2'#1#8'ShortCut'#3'5@'#0#1#7'Command'#3'3'#1#8'ShortCut'#3'6@'#0#1#7'C'
+'ommand'#3'4'#1#8'ShortCut'#3'7@'#0#1#7'Command'#3'5'#1#8'ShortCut'#3'8@'#0#1
+#7'Command'#3'6'#1#8'ShortCut'#3'9@'#0#1#7'Command'#3'_'#1#8'ShortCut'#3'0`'
+#0#1#7'Command'#3'`'#1#8'ShortCut'#3'1`'#0#1#7'Command'#3'a'#1#8'ShortCut'#3
+'2`'#0#1#7'Command'#3'b'#1#8'ShortCut'#3'3`'#0#1#7'Command'#3'c'#1#8'ShortCu'
+'t'#3'4`'#0#1#7'Command'#3'd'#1#8'ShortCut'#3'5`'#0#1#7'Command'#3'e'#1#8'Sh'
+'ortCut'#3'6`'#0#1#7'Command'#3'f'#1#8'ShortCut'#3'7`'#0#1#7'Command'#3'g'#1
+#8'ShortCut'#3'8`'#0#1#7'Command'#3'h'#1#8'ShortCut'#3'9`'#0#1#7'Command'#3
,#231#0#8'ShortCut'#3'N`'#0#1#7'Command'#3#232#0#8'ShortCut'#3'C`'#0#1#7'Comm'
+'and'#3#233#0#8'ShortCut'#3'L`'#0#1#7'Command'#3'd'#2#8'ShortCut'#2#9#0#1#7
+'Command'#3'e'#2#8'ShortCut'#3#9' '#0#1#7'Command'#3#250#0#8'ShortCut'#3'B`'
+#0#0#13'Lines.Strings'#1#6#19'SplitPreviewSynEdit'#0#22'SelectedColor.OnChan'
+'ge'#13#0#0#0#5'TPage'#18'SpaceNotCosmosPage'#7'Caption'#6#18'SpaceNotCosmos'
+'Page'#11'ClientWidth'#3'('#2#12'ClientHeight'#3't'#1#0#6'TLabel'#17'SpacePr'
+'eviewLabel'#22'AnchorSideLeft.Control'#7#18'SpaceNotCosmosPage'#21'AnchorSi'
+'deTop.Control'#7#28'DoInsertSpaceInFrontGroupBox'#18'AnchorSideTop.Side'#7#9
+'asrBottom'#4'Left'#2#6#6'Height'#2#14#3'Top'#3#162#0#5'Width'#2']'#18'Borde'
+'rSpacing.Left'#2#6#17'BorderSpacing.Top'#2#6#19'BorderSpacing.Right'#2#6#7
+'Caption'#6#17'SpacePreviewLabel'#11'ParentColor'#8#0#0#9'TGroupBox'#28'DoIn'
+'sertSpaceInFrontGroupBox'#22'AnchorSideLeft.Control'#7#18'SpaceNotCosmosPag'
+'e'#21'AnchorSideTop.Control'#7#18'SpaceNotCosmosPage'#4'Left'#2#6#6'Height'
+#3#150#0#3'Top'#2#6#5'Width'#3#10#1#20'BorderSpacing.Around'#2#6#7'Caption'#6
+#28'DoInsertSpaceInFrontGroupBox'#8'TabOrder'#2#0#7'OnClick'#7#14'UpdateExam'
+'ples'#0#0#9'TGroupBox'#26'DoInsertSpaceAfterGroupBox'#22'AnchorSideLeft.Con'
+'trol'#7#28'DoInsertSpaceInFrontGroupBox'#19'AnchorSideLeft.Side'#7#9'asrBot'
+'tom'#21'AnchorSideTop.Control'#7#18'SpaceNotCosmosPage'#23'AnchorSideRight.'
+'Control'#7#18'SpaceNotCosmosPage'#20'AnchorSideRight.Side'#7#9'asrBottom'#4
+'Left'#3#22#1#6'Height'#3#150#0#3'Top'#2#6#5'Width'#3#12#1#7'Anchors'#11#5'a'
+'kTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#26'D'
+'oInsertSpaceAfterGroupBox'#8'TabOrder'#2#1#7'OnClick'#7#14'UpdateExamples'#0
+#0#8'TSynEdit'#19'SpacePreviewSynEdit'#22'AnchorSideLeft.Control'#7#18'Space'
+'NotCosmosPage'#21'AnchorSideTop.Control'#7#17'SpacePreviewLabel'#18'AnchorS'
+'ideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#18'SpaceNotCosmos'
+'Page'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7
+#18'SpaceNotCosmosPage'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#2#6
+#6'Height'#3#190#0#3'Top'#3#176#0#5'Width'#3#28#2#18'BorderSpacing.Left'#2#6
+#19'BorderSpacing.Right'#2#6#20'BorderSpacing.Bottom'#2#6#7'Anchors'#11#5'ak'
+'Top'#6'akLeft'#7'akRight'#8'akBottom'#0#11'Font.Height'#2#240#9'Font.Name'#6
+#7'courier'#11'ParentColor'#8#8'TabOrder'#2#2#24'BookMarkOptions.OnChange'#13
+#15'Gutter.OnChange'#13#23'Gutter.CodeFoldingWidth'#2#14#10'Keystrokes'#14#1
+#7'Command'#2#3#8'ShortCut'#2'&'#0#1#7'Command'#2'g'#8'ShortCut'#3'& '#0#1#7
+'Command'#3#211#0#8'ShortCut'#3'&@'#0#1#7'Command'#2#4#8'ShortCut'#2'('#0#1#7
+'Command'#2'h'#8'ShortCut'#3'( '#0#1#7'Command'#3#212#0#8'ShortCut'#3'(@'#0#1
+#7'Command'#2#1#8'ShortCut'#2'%'#0#1#7'Command'#2'e'#8'ShortCut'#3'% '#0#1#7
+'Command'#2#5#8'ShortCut'#3'%@'#0#1#7'Command'#2'i'#8'ShortCut'#3'%`'#0#1#7
+'Command'#2#2#8'ShortCut'#2''''#0#1#7'Command'#2'f'#8'ShortCut'#3''' '#0#1#7
+'Command'#2#6#8'ShortCut'#3'''@'#0#1#7'Command'#2'j'#8'ShortCut'#3'''`'#0#1#7
+'Command'#2#10#8'ShortCut'#2'"'#0#1#7'Command'#2'n'#8'ShortCut'#3'" '#0#1#7
+'Command'#2#14#8'ShortCut'#3'"@'#0#1#7'Command'#2'r'#8'ShortCut'#3'"`'#0#1#7
+'Command'#2#9#8'ShortCut'#2'!'#0#1#7'Command'#2'm'#8'ShortCut'#3'! '#0#1#7'C'
+'ommand'#2#13#8'ShortCut'#3'!@'#0#1#7'Command'#2'q'#8'ShortCut'#3'!`'#0#1#7
+'Command'#2#7#8'ShortCut'#2'$'#0#1#7'Command'#2'k'#8'ShortCut'#3'$ '#0#1#7'C'
+'ommand'#2#15#8'ShortCut'#3'$@'#0#1#7'Command'#2's'#8'ShortCut'#3'$`'#0#1#7
+'Command'#2#8#8'ShortCut'#2'#'#0#1#7'Command'#2'l'#8'ShortCut'#3'# '#0#1#7'C'
+'ommand'#2#16#8'ShortCut'#3'#@'#0#1#7'Command'#2't'#8'ShortCut'#3'#`'#0#1#7
+'Command'#3#223#0#8'ShortCut'#2'-'#0#1#7'Command'#3#201#0#8'ShortCut'#3'-@'#0
+#1#7'Command'#3'\'#2#8'ShortCut'#3'- '#0#1#7'Command'#3#246#1#8'ShortCut'#2
+'.'#0#1#7'Command'#3'['#2#8'ShortCut'#3'. '#0#1#7'Command'#3#245#1#8'ShortCu'
+'t'#2#8#0#1#7'Command'#3#245#1#8'ShortCut'#3#8' '#0#1#7'Command'#3#248#1#8'S'
+'hortCut'#3#8'@'#0#1#7'Command'#3'Y'#2#8'ShortCut'#4#8#128#0#0#0#1#7'Command'
+#3'Z'#2#8'ShortCut'#4#8#160#0#0#0#1#7'Command'#3#253#1#8'ShortCut'#2#13#0#1#7
+'Command'#3#199#0#8'ShortCut'#3'A@'#0#1#7'Command'#3#201#0#8'ShortCut'#3'C@'
+#0#1#7'Command'#3'b'#2#8'ShortCut'#3'I`'#0#1#7'Command'#3#253#1#8'ShortCut'#3
+'M@'#0#1#7'Command'#3#254#1#8'ShortCut'#3'N@'#0#1#7'Command'#3#247#1#8'Short'
+'Cut'#3'T@'#0#1#7'Command'#3'c'#2#8'ShortCut'#3'U`'#0#1#7'Command'#3'\'#2#8
+'ShortCut'#3'V@'#0#1#7'Command'#3'['#2#8'ShortCut'#3'X@'#0#1#7'Command'#3#251
+#1#8'ShortCut'#3'Y@'#0#1#7'Command'#3#250#1#8'ShortCut'#3'Y`'#0#1#7'Command'
+#3'Y'#2#8'ShortCut'#3'Z@'#0#1#7'Command'#3'Z'#2#8'ShortCut'#3'Z`'#0#1#7'Comm'
+'and'#3'-'#1#8'ShortCut'#3'0@'#0#1#7'Command'#3'.'#1#8'ShortCut'#3'1@'#0#1#7
+'Command'#3'/'#1#8'ShortCut'#3'2@'#0#1#7'Command'#3'0'#1#8'ShortCut'#3'3@'#0
+#1#7'Command'#3'1'#1#8'ShortCut'#3'4@'#0#1#7'Command'#3'2'#1#8'ShortCut'#3'5'
+'@'#0#1#7'Command'#3'3'#1#8'ShortCut'#3'6@'#0#1#7'Command'#3'4'#1#8'ShortCut'
,#3'7@'#0#1#7'Command'#3'5'#1#8'ShortCut'#3'8@'#0#1#7'Command'#3'6'#1#8'Short'
+'Cut'#3'9@'#0#1#7'Command'#3'_'#1#8'ShortCut'#3'0`'#0#1#7'Command'#3'`'#1#8
+'ShortCut'#3'1`'#0#1#7'Command'#3'a'#1#8'ShortCut'#3'2`'#0#1#7'Command'#3'b'
+#1#8'ShortCut'#3'3`'#0#1#7'Command'#3'c'#1#8'ShortCut'#3'4`'#0#1#7'Command'#3
+'d'#1#8'ShortCut'#3'5`'#0#1#7'Command'#3'e'#1#8'ShortCut'#3'6`'#0#1#7'Comman'
+'d'#3'f'#1#8'ShortCut'#3'7`'#0#1#7'Command'#3'g'#1#8'ShortCut'#3'8`'#0#1#7'C'
+'ommand'#3'h'#1#8'ShortCut'#3'9`'#0#1#7'Command'#3#231#0#8'ShortCut'#3'N`'#0
+#1#7'Command'#3#232#0#8'ShortCut'#3'C`'#0#1#7'Command'#3#233#0#8'ShortCut'#3
+'L`'#0#1#7'Command'#3'd'#2#8'ShortCut'#2#9#0#1#7'Command'#3'e'#2#8'ShortCut'
+#3#9' '#0#1#7'Command'#3#250#0#8'ShortCut'#3'B`'#0#0#13'Lines.Strings'#1#6#19
+'SpacePreviewSynEdit'#0#22'SelectedColor.OnChange'#13#0#0#0#5'TPage'#24'Iden'
+'tifierCompletionPage'#7'Caption'#6#24'IdentifierCompletionPage'#11'ClientWi'
+'dth'#3'('#2#12'ClientHeight'#3't'#1#0#9'TCheckBox'#22'ICAddSemicolonCheckBo'
+'x'#22'AnchorSideLeft.Control'#7#24'IdentifierCompletionPage'#21'AnchorSideT'
+'op.Control'#7#24'IdentifierCompletionPage'#4'Left'#2#6#6'Height'#2#13#3'Top'
+#2#6#5'Width'#3#147#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#22'ICAddSemi'
+'colonCheckBox'#8'TabOrder'#2#0#0#0#0#0#7'TButton'#8'OKButton'#23'AnchorSide'
+'Right.Control'#7#12'CancelButton'#24'AnchorSideBottom.Control'#7#5'Owner'#21
+'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#3'l'#1#6'Height'#2#25#3'Top'#3
+#148#1#5'Width'#2'\'#7'Anchors'#11#7'akRight'#8'akBottom'#0#20'BorderSpacing'
+'.Around'#2#6#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#8'OKButton'#11
+'ModalResult'#2#1#8'TabOrder'#2#1#0#0#7'TButton'#12'CancelButton'#23'AnchorS'
+'ideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'Anc'
+'horSideBottom.Control'#7#5'Owner'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4
+'Left'#3#206#1#6'Height'#2#25#3'Top'#3#148#1#5'Width'#2'\'#7'Anchors'#11#7'a'
+'kRight'#8'akBottom'#0#20'BorderSpacing.Around'#2#6#25'BorderSpacing.InnerBo'
+'rder'#2#4#7'Caption'#6#12'CancelButton'#11'ModalResult'#2#2#8'TabOrder'#2#2
+#0#0#0
]);

690
ide/codetoolsoptions.pas
View File

@ -169,7 +169,13 @@ type
{ TCodeToolsOptsDlg }
TCodeToolsOptsDlg = class(TForm)
NoteBook: TNoteBook;
Notebook: TNotebook;
GeneralPage: TPage;
CodeCreationPage: TPage;
WordsPoliciesPage: TPage;
LineSplittingPage: TPage;
SpaceNotCosmosPage: TPage;
IdentifierCompletionPage: TPage;
// General
SrcPathGroupBox: TGroupBox;
@ -208,13 +214,13 @@ type
LineLengthEdit: TEdit;
DoNotSplitLineInFrontGroupBox: TGroupBox;
DoNotSplitLineAfterGroupBox: TGroupBox;
SplitPreviewGroupBox: TGroupBox;
SplitPreviewLabel: TLabel;
SplitPreviewSynEdit: TSynEdit;
// Space
DoInsertSpaceInFrontGroupBox: TGroupBox;
DoInsertSpaceAfterGroupBox: TGroupBox;
SpacePreviewGroupBox: TGroupBox;
SpacePreviewLabel: TLabel;
SpacePreviewSynEdit: TSynEdit;
// identifier completion
@ -224,9 +230,8 @@ type
OkButton: TButton;
CancelButton: TButton;
procedure CodeToolsOptsDlgResize(Sender: TObject);
procedure OkButtonClick(Sender: TObject);
procedure CancelButtonClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormResize(Sender: TObject);
procedure UpdateExamples(Sender: TObject);
private
FOnGetSynEditSettings: TNotifyEvent;
@ -237,9 +242,6 @@ type
procedure SetupLineSplittingPage(PageID: integer);
procedure SetupSpacePage(PageID: integer);
procedure SetupIdentifierCompletionPage(PageID: integer);
procedure ResizeGeneralPage;
procedure ResizeCodeCreationPage;
procedure ResizeWordsPage;
procedure ResizeLineSplittingPage;
procedure ResizeSpacePage;
procedure CreateAtomCheckBoxes(ParentGroupBox: TGroupBox;
@ -252,7 +254,6 @@ type
procedure UpdateSplitLineExample;
procedure UpdateSpaceExample;
public
constructor Create(AnOwner:TComponent); override;
destructor Destroy; override;
property OnGetSynEditSettings: TNotifyEvent
read FOnGetSynEditSettings write FOnGetSynEditSettings;
@ -809,74 +810,6 @@ end;
{ TCodeToolsOptsDlg }
constructor TCodeToolsOptsDlg.Create(AnOwner: TComponent);
begin
inherited Create(AnOwner);
if LazarusResources.Find(ClassName)=nil then begin
Width:=485;
Height:=435;
Position:=poScreenCenter;
IDEDialogLayoutList.ApplyLayout(Self,485,435);
Caption:=dlgCodeToolsOpts;
OnResize:=@CodeToolsOptsDlgResize;
BorderStyle := bsSizeToolWin;
NoteBook:=TNoteBook.Create(Self);
with NoteBook do begin
Name:='NoteBook';
Parent:=Self;
SetBounds(0,0,
Self.ClientWidth,
Self.ClientHeight-50);
if PageCount>0 then
Pages[0]:=lisMenuInsertGeneral
else
Pages.Add(lisMenuInsertGeneral);//by VVI - using first phrase, otherwise we''ll encounter a problem with .po
Pages.Add(dlgCodeCreation);
Pages.Add(dlgWordsPolicies);
Pages.Add(dlgLineSplitting);
Pages.Add(dlgSpaceNotCosmos);
Pages.Add(dlgIdentifierCompletion);
PageIndex:=0;
end;
SetupGeneralPage(0);
SetupCodeCreationPage(1);
SetupWordsPage(2);
SetupLineSplittingPage(3);
SetupSpacePage(4);
SetupIdentifierCompletionPage(5);
CancelButton:=TButton.Create(Self);
with CancelButton do begin
Name:='CancelButton';
Parent:=Self;
Width:=70;
Height:=23;
Left:=Self.ClientWidth-Width-15;
Top:=Self.ClientHeight-Height-15;
Caption:=dlgCancel;
OnClick:=@CancelButtonClick;
end;
CancelControl:=CancelButton;
OkButton:=TButton.Create(Self);
with OkButton do begin
Name:='OkButton';
Parent:=Self;
Width:=CancelButton.Width;
Height:=CancelButton.Height;
Left:=CancelButton.Left-15-Width;
Top:=CancelButton.Top;
Caption:=lisCodeToolsOptsOk;
OnClick:=@OkButtonClick;
end;
end;
BeautifyCodeOptions:=TBeautifyCodeOptions.Create;
CodeToolsOptsDlgResize(nil);
UpdateExamples(Self);
end;
destructor TCodeToolsOptsDlg.Destroy;
begin
BeautifyCodeOptions.Free;
@ -885,67 +818,25 @@ end;
procedure TCodeToolsOptsDlg.SetupGeneralPage(PageID: integer);
begin
SrcPathGroupBox:=TGroupBox.Create(Self);
with SrcPathGroupBox do begin
Name:='SrcPathGroupBox';
Parent:=NoteBook.Page[PageID];
SetBounds(8,7,Self.ClientWidth-20,51);
Caption:=dlgAdditionalSrcPath ;
end;
with SrcPathGroupBox do
Caption:=dlgAdditionalSrcPath;
SrcPathEdit:=TEdit.Create(Self);
with SrcPathEdit do begin
Name:='SrcPathEdit';
Parent:=SrcPathGroupBox;
SetBounds(5,6,Parent.ClientWidth-14,Height);
end;
JumpingGroupBox:=TGroupBox.Create(Self);
with JumpingGroupBox do begin
Name:='JumpingGroupBox';
Parent:=NoteBook.Page[PageID];
SetBounds(8,SrcPathGroupBox.Top+SrcPathGroupBox.Height+7,
SrcPathGroupBox.Width,105);
with JumpingGroupBox do
Caption:=dlgJumpingETC;
end;
AdjustTopLineDueToCommentCheckBox:=TCheckBox.Create(Self);
with AdjustTopLineDueToCommentCheckBox do begin
Name:='AdjustTopLineDueToCommentCheckBox';
Parent:=JumpingGroupBox;
SetBounds(5,6,Parent.ClientWidth-10,Height);
with AdjustTopLineDueToCommentCheckBox do
Caption:=dlgAdjustTopLine;
end;
JumpCenteredCheckBox:=TCheckBox.Create(Self);
with JumpCenteredCheckBox do begin
Name:='JumpCenteredCheckBox';
Parent:=JumpingGroupBox;
SetBounds(AdjustTopLineDueToCommentCheckBox.Left,
AdjustTopLineDueToCommentCheckBox.Top+2
+AdjustTopLineDueToCommentCheckBox.Height,
AdjustTopLineDueToCommentCheckBox.Width,Height);
with JumpCenteredCheckBox do
Caption:=dlgcentercursorline;
end;
CursorBeyondEOLCheckBox:=TCheckBox.Create(Self);
with CursorBeyondEOLCheckBox do begin
Name:='CursorBeyondEOLCheckBox';
Parent:=JumpingGroupBox;
SetBounds(JumpCenteredCheckBox.Left,
JumpCenteredCheckBox.Top+JumpCenteredCheckBox.Height+2,
JumpCenteredCheckBox.Width,Height);
with CursorBeyondEOLCheckBox do
Caption:=dlgcursorbeyondeol;
end;
end;
procedure TCodeToolsOptsDlg.SetupCodeCreationPage(PageID: integer);
begin
ClassPartInsertPolicyRadioGroup:=TRadioGroup.Create(Self);
with ClassPartInsertPolicyRadioGroup do begin
Name:='ClassPartInsertPolicyRadioGroup';
Parent:=NoteBook.Page[PageID];
SetBounds(8,6,(Self.ClientWidth div 2)-12,70);
Caption:=dlgClassInsertPolicy;
with Items do begin
BeginUpdate;
@ -955,43 +846,21 @@ begin
end;
end;
MixMethodsAndPropertiesCheckBox:=TCheckBox.Create(Self);
with MixMethodsAndPropertiesCheckBox do begin
Name:='MixMethodsAndPropertiesCheckBox';
Parent:=NoteBook.Page[PageID];
SetBounds(ClassPartInsertPolicyRadioGroup.Left,
ClassPartInsertPolicyRadioGroup.Top+ClassPartInsertPolicyRadioGroup.Height+5,
ClassPartInsertPolicyRadioGroup.Width,Height);
with MixMethodsAndPropertiesCheckBox do
Caption:=dlgMixMethodsAndProperties;
end;
MethodInsertPolicyRadioGroup:=TRadioGroup.Create(Self);
with MethodInsertPolicyRadioGroup do begin
Name:='MethodInsertPolicyRadioGroup';
Parent:=NoteBook.Page[PageID];
SetBounds(ClassPartInsertPolicyRadioGroup.Left,
MixMethodsAndPropertiesCheckBox.Top
+MixMethodsAndPropertiesCheckBox.Height+10,
ClassPartInsertPolicyRadioGroup.Width,
100);
Caption:=dlgMethodInsPolicy;
with Items do begin
BeginUpdate;
Add(dlgAlphabetically);
Add(dlgCDTLast);
Add(dlgCDTClassOrder );
Add(dlgCDTClassOrder);
EndUpdate;
end;
end;
ForwardProcsInsertPolicyRadioGroup:=TRadioGroup.Create(Self);
with ForwardProcsInsertPolicyRadioGroup do begin
Name:='ForwardProcsInsertPolicyRadioGroup';
Parent:=NoteBook.Page[PageID];;
SetBounds(ClassPartInsertPolicyRadioGroup.Left
+ClassPartInsertPolicyRadioGroup.Width+8,
ClassPartInsertPolicyRadioGroup.Top,
ClassPartInsertPolicyRadioGroup.Width,100);
Caption:=dlgForwardProcsInsertPolicy;
with Items do begin
BeginUpdate;
@ -1002,144 +871,37 @@ begin
end;
end;
ForwardProcsKeepOrderCheckBox:=TCheckBox.Create(Self);
with ForwardProcsKeepOrderCheckBox do begin
Name:='ForwardProcsKeepOrderCheckBox';
Parent:=NoteBook.Page[PageID];;
SetBounds(ForwardProcsInsertPolicyRadioGroup.Left,
ForwardProcsInsertPolicyRadioGroup.Top
+ForwardProcsInsertPolicyRadioGroup.Height+5,
ForwardProcsInsertPolicyRadioGroup.Width,Height);
with ForwardProcsKeepOrderCheckBox do
Caption:=dlgForwardProcsKeepOrder;
end;
ClassHeaderCommentsCheckBox:=TCheckBox.Create(Self);
with ClassHeaderCommentsCheckBox do begin
Name:='ClassHeaderCommentsCheckBox';
Parent:=NoteBook.Page[PageID];;
SetBounds(ForwardProcsKeepOrderCheckBox.Left,
ForwardProcsKeepOrderCheckBox.Top
+ForwardProcsKeepOrderCheckBox.Height+5,
ForwardProcsKeepOrderCheckBox.Width,Height);
with ClassHeaderCommentsCheckBox do
Caption:=lisHeaderCommentForClass;
end;
PropertyCompletionGroupBox:=TGroupBox.Create(Self);
with PropertyCompletionGroupBox do begin
Name:='PropertyCompletionGroupBox';
Parent:=NoteBook.Page[PageID];
SetBounds(ClassPartInsertPolicyRadioGroup.Left,
MethodInsertPolicyRadioGroup.Top+MethodInsertPolicyRadioGroup.Height+7,
Self.ClientWidth-20,125);
with PropertyCompletionGroupBox do
Caption:=dlgPropertyCompletion;
end;
PropertyCompletionCheckBox:=TCheckBox.Create(Self);
with PropertyCompletionCheckBox do begin
Name:='PropertyCompletionCheckBox';
Parent:=PropertyCompletionGroupBox;
SetBounds(6,5,200,Height);
Caption:=dlgCompleteProperties ;
end;
with PropertyCompletionCheckBox do
Caption:=dlgCompleteProperties;
PropertyReadIdentPrefixLabel:=TLabel.Create(Self);
with PropertyReadIdentPrefixLabel do begin
Name:='PropertyReadIdentPrefixLabel';
Parent:=PropertyCompletionGroupBox;
SetBounds(PropertyCompletionCheckBox.Left,
PropertyCompletionCheckBox.Top+PropertyCompletionCheckBox.Height+5,
100,Height);
Caption:=dlgCDTReadPrefix ;
end;
with PropertyReadIdentPrefixLabel do
Caption:=dlgCDTReadPrefix;
PropertyReadIdentPrefixEdit:=TEdit.Create(Self);
with PropertyReadIdentPrefixEdit do begin
Name:='PropertyReadIdentPrefixEdit';
Parent:=PropertyCompletionGroupBox;
SetBounds(130,PropertyReadIdentPrefixLabel.Top,80,Height);
end;
with PropertyWriteIdentPrefixLabel do
Caption:=dlgCDTWritePrefix;
PropertyWriteIdentPrefixLabel:=TLabel.Create(Self);
with PropertyWriteIdentPrefixLabel do begin
Name:='PropertyWriteIdentPrefixLabel';
Parent:=PropertyCompletionGroupBox;
SetBounds(6,PropertyReadIdentPrefixLabel.Top
+PropertyReadIdentPrefixLabel.Height+5,
PropertyReadIdentPrefixLabel.Width,Height);
Caption:=dlgCDTWritePrefix ;
end;
PropertyWriteIdentPrefixEdit:=TEdit.Create(Self);
with PropertyWriteIdentPrefixEdit do begin
Name:='PropertyWriteIdentPrefixEdit';
Parent:=PropertyCompletionGroupBox;
SetBounds(PropertyReadIdentPrefixEdit.Left,
PropertyWriteIdentPrefixLabel.Top,80,Height);
end;
PropertyStoredIdentPostfixLabel:=TLabel.Create(Self);
with PropertyStoredIdentPostfixLabel do begin
Name:='PropertyStoredIdentPostfixLabel';
Parent:=PropertyCompletionGroupBox;
SetBounds(6,PropertyWriteIdentPrefixLabel.Top
+PropertyWriteIdentPrefixLabel.Height+5,
PropertyReadIdentPrefixLabel.Width,Height);
with PropertyStoredIdentPostfixLabel do
Caption:=dlgCDTStoredPostfix;
end;
PropertyStoredIdentPostfixEdit:=TEdit.Create(Self);
with PropertyStoredIdentPostfixEdit do begin
Name:='PropertyStoredIdentPostfixEdit';
Parent:=PropertyCompletionGroupBox;
SetBounds(PropertyReadIdentPrefixEdit.Left,
PropertyStoredIdentPostfixLabel.Top,80,Height);
end;
with PrivateVariablePrefixLabel do
Caption:=dlgCDTVariablePrefix;
PrivateVariablePrefixLabel:=TLabel.Create(Self);
with PrivateVariablePrefixLabel do begin
Name:='PrivateVariablePrefixLabel';
Parent:=PropertyCompletionGroupBox;
SetBounds((PropertyCompletionGroupBox.ClientWidth-20) div 2,
PropertyReadIdentPrefixLabel.Top,120,Height);
Caption:=dlgCDTVariablePrefix ;
end;
PrivateVariablePrefixEdit:=TEdit.Create(Self);
with PrivateVariablePrefixEdit do begin
Name:='PrivateVariablePrefixEdit';
Parent:=PropertyCompletionGroupBox;
SetBounds(PrivateVariablePrefixLabel.Left+150,PrivateVariablePrefixLabel.Top,
80,Height);
end;
SetPropertyVariablenameLabel:=TLabel.Create(Self);
with SetPropertyVariablenameLabel do begin
Name:='SetPropertyVariablenameLabel';
Parent:=PropertyCompletionGroupBox;
SetBounds(PrivateVariablePrefixLabel.Left,
PrivateVariablePrefixLabel.Top+PrivateVariablePrefixLabel.Height+5,
120,Height);
Caption:=dlgSetPropertyVariable ;
end;
SetPropertyVariablenameEdit:=TEdit.Create(Self);
with SetPropertyVariablenameEdit do begin
Name:='SetPropertyVariablenameEdit';
Parent:=PropertyCompletionGroupBox;
SetBounds(PrivateVariablePrefixEdit.Left,
PrivateVariablePrefixLabel.Top+PrivateVariablePrefixLabel.Height+5,
80,Height);
end;
with SetPropertyVariablenameLabel do
Caption:=dlgSetPropertyVariable;
end;
procedure TCodeToolsOptsDlg.SetupWordsPage(PageID: integer);
begin
KeyWordPolicyRadioGroup:=TRadioGroup.Create(Self);
with KeyWordPolicyRadioGroup do begin
Name:='KeyWordPolicyRadioGroup';
Parent:=NoteBook.Page[PageID];
SetBounds(8,6,
(Self.ClientWidth div 2)-12,120);
Caption:=dlgKeywordPolicy ;
with Items do begin
BeginUpdate;
@ -1149,16 +911,9 @@ begin
Add(dlg1UP2low);
EndUpdate;
end;
OnClick:=@UpdateExamples;
end;
IdentifierPolicyRadioGroup:=TRadioGroup.Create(Self);
with IdentifierPolicyRadioGroup do begin
Name:='IdentifierPolicyRadioGroup';
Parent:=NoteBook.Page[PageID];
SetBounds(KeyWordPolicyRadioGroup.Left+KeyWordPolicyRadioGroup.Width+8,
KeyWordPolicyRadioGroup.Top,
KeyWordPolicyRadioGroup.Width,KeyWordPolicyRadioGroup.Height);
Caption:=dlgIdentifierPolicy;
with Items do begin
BeginUpdate;
@ -1168,379 +923,60 @@ begin
Add(dlg1UP2low);
EndUpdate;
end;
OnClick:=@UpdateExamples;
end;
end;
procedure TCodeToolsOptsDlg.SetupLineSplittingPage(PageID: integer);
begin
LineLengthLabel:=TLabel.Create(Self);
with LineLengthLabel do begin
Name:='LineLengthLabel';
Parent:=NoteBook.Page[PageID];
SetBounds(8,7,Canvas.TextWidth(dlgMaxLineLength),Height);
with LineLengthLabel do
Caption:=dlgMaxLineLength;
end;
LineLengthEdit:=TEdit.Create(Self);
with LineLengthEdit do begin
Name:='LineLengthEdit';
Parent:=LineLengthLabel.Parent;
Left:=LineLengthLabel.Left+LineLengthLabel.Width+5;
Top:=LineLengthLabel.Top-2;
Width:=50;
OnChange:=@UpdateExamples;
end;
DoNotSplitLineInFrontGroupBox:=TGroupBox.Create(Self);
with DoNotSplitLineInFrontGroupBox do begin
Name:='DoNotSplitLineInFrontGroupBox';
Parent:=NoteBook.Page[PageID];
SetBounds(6,LineLengthLabel.Top+LineLengthLabel.Height+7,
(Self.ClientWidth-24) div 2,150);
Caption:=dlgNotSplitLineFront ;
CreateAtomCheckBoxes(DoNotSplitLineInFrontGroupBox,DoNotSplitAtoms,2);
OnClick:=@UpdateExamples;
end;
DoNotSplitLineAfterGroupBox:=TGroupBox.Create(Self);
with DoNotSplitLineAfterGroupBox do begin
Name:='DoNotSplitLineAfterGroupBox';
Parent:=NoteBook.Page[PageID];
SetBounds(DoNotSplitLineInFrontGroupBox.Left,
DoNotSplitLineInFrontGroupBox.Top+DoNotSplitLineInFrontGroupBox.Height+7,
DoNotSplitLineInFrontGroupBox.Width,
DoNotSplitLineInFrontGroupBox.Height);
Caption:=dlgNotSplitLineAfter ;
CreateAtomCheckBoxes(DoNotSplitLineAfterGroupBox,DoNotSplitAtoms,2);
OnClick:=@UpdateExamples;
end;
SplitPreviewGroupBox:=TGroupBox.Create(Self);
with SplitPreviewGroupBox do begin
Name:='SplitPreviewGroupBox';
Parent:=NoteBook.Page[PageID];
Left:=DoNotSplitLineInFrontGroupBox.Left
+DoNotSplitLineInFrontGroupBox.Width+8;
Top:=LineLengthLabel.Top;
Width:=Self.ClientWidth-10-Left;
Height:=Self.ClientHeight-92-Top;
with SplitPreviewLabel do
Caption:=dlgCDTPreview;
end;
SplitPreviewSynEdit:=TSynEdit.Create(Self);
with SplitPreviewSynEdit do begin
Name:='SplitPreviewSynEdit';
Parent:=SplitPreviewGroupBox;
Align:=alClient;
end;
end;
procedure TCodeToolsOptsDlg.SetupSpacePage(PageID: integer);
begin
DoInsertSpaceInFrontGroupBox:=TGroupBox.Create(Self);
with DoInsertSpaceInFrontGroupBox do begin
Name:='DoInsertSpaceInFrontGroupBox';
Parent:=NoteBook.Page[PageID];
SetBounds(6,6,
(Self.ClientWidth-24) div 2,150);
Caption:=dlgInsSpaceFront;
CreateAtomCheckBoxes(DoInsertSpaceInFrontGroupBox,DoInsertSpaceAtoms,2);
OnClick:=@UpdateExamples;
end;
DoInsertSpaceAfterGroupBox:=TGroupBox.Create(Self);
with DoInsertSpaceAfterGroupBox do begin
Name:='DoInsertSpaceAfterGroupBox';
Parent:=NoteBook.Page[PageID];
SetBounds(DoInsertSpaceInFrontGroupBox.Left
+DoInsertSpaceInFrontGroupBox.Width+8,
DoInsertSpaceInFrontGroupBox.Top,
DoInsertSpaceInFrontGroupBox.Width,
DoInsertSpaceInFrontGroupBox.Height);
Caption:=dlgInsSpaceAfter;
CreateAtomCheckBoxes(DoInsertSpaceAfterGroupBox,DoInsertSpaceAtoms,2);
OnClick:=@UpdateExamples;
end;
SpacePreviewGroupBox:=TGroupBox.Create(Self);
with SpacePreviewGroupBox do begin
Name:='SpacePreviewGroupBox';
Parent:=NoteBook.Page[PageID];
Left:=DoInsertSpaceInFrontGroupBox.Left;
Top:=DoInsertSpaceInFrontGroupBox.Top+DoInsertSpaceInFrontGroupBox.Height+7;
Width:=Self.ClientWidth-10-Left;
Height:=Self.ClientHeight-92-Top;
with SpacePreviewLabel do
Caption:=dlgWRDPreview;
end;
SpacePreviewSynEdit:=TSynEdit.Create(Self);
with SpacePreviewSynEdit do begin
Name:='SpacePreviewSynEdit';
Parent:=SpacePreviewGroupBox;
Align:=alClient;
end;
end;
procedure TCodeToolsOptsDlg.SetupIdentifierCompletionPage(PageID: integer);
var
CurPage: TPage;
begin
CurPage:=NoteBook.Page[PageID];
ICAddSemicolonCheckBox:=TCheckBox.Create(Self);
with ICAddSemicolonCheckBox do begin
Name:='ICAddSemicolonCheckBox';
SetBounds(6,6,Width,Height);
AutoSize:=true;
with ICAddSemicolonCheckBox do
Caption:=dlgAddSemicolon;
Parent:=CurPage;
end;
end;
procedure TCodeToolsOptsDlg.ResizeGeneralPage;
begin
with SrcPathGroupBox do begin
SetBounds(8,7,Self.ClientWidth-20,51);
end;
with SrcPathEdit do begin
SetBounds(5,6,Parent.ClientWidth-14,Height);
end;
with JumpingGroupBox do begin
SetBounds(8,SrcPathGroupBox.Top+SrcPathGroupBox.Height+7,
SrcPathGroupBox.Width,105);
end;
with AdjustTopLineDueToCommentCheckBox do begin
SetBounds(5,6,Parent.ClientWidth-10,Height);
end;
with JumpCenteredCheckBox do begin
SetBounds(AdjustTopLineDueToCommentCheckBox.Left,
AdjustTopLineDueToCommentCheckBox.Top+2
+AdjustTopLineDueToCommentCheckBox.Height,
AdjustTopLineDueToCommentCheckBox.Width,Height);
end;
with CursorBeyondEOLCheckBox do begin
SetBounds(JumpCenteredCheckBox.Left,
JumpCenteredCheckBox.Top+JumpCenteredCheckBox.Height+2,
JumpCenteredCheckBox.Width,Height);
end;
end;
procedure TCodeToolsOptsDlg.ResizeCodeCreationPage;
begin
with ClassPartInsertPolicyRadioGroup do begin
SetBounds(8,6,(Self.ClientWidth div 2)-12,70);
end;
with MixMethodsAndPropertiesCheckBox do begin
SetBounds(ClassPartInsertPolicyRadioGroup.Left,
ClassPartInsertPolicyRadioGroup.Top
+ClassPartInsertPolicyRadioGroup.Height+5,
ClassPartInsertPolicyRadioGroup.Width,Height);
end;
with MethodInsertPolicyRadioGroup do begin
SetBounds(ClassPartInsertPolicyRadioGroup.Left,
MixMethodsAndPropertiesCheckBox.Top
+MixMethodsAndPropertiesCheckBox.Height+10,
ClassPartInsertPolicyRadioGroup.Width,
100);
end;
with ForwardProcsInsertPolicyRadioGroup do begin
SetBounds(ClassPartInsertPolicyRadioGroup.Left
+ClassPartInsertPolicyRadioGroup.Width+8,
ClassPartInsertPolicyRadioGroup.Top,
ClassPartInsertPolicyRadioGroup.Width,100);
end;
with ForwardProcsKeepOrderCheckBox do begin
SetBounds(ForwardProcsInsertPolicyRadioGroup.Left,
ForwardProcsInsertPolicyRadioGroup.Top
+ForwardProcsInsertPolicyRadioGroup.Height+5,
ForwardProcsInsertPolicyRadioGroup.Width,Height);
end;
with ClassHeaderCommentsCheckBox do begin
SetBounds(ForwardProcsKeepOrderCheckBox.Left,
ForwardProcsKeepOrderCheckBox.Top
+ForwardProcsKeepOrderCheckBox.Height+5,
ForwardProcsKeepOrderCheckBox.Width,Height);
end;
with PropertyCompletionGroupBox do begin
SetBounds(ClassPartInsertPolicyRadioGroup.Left,
MethodInsertPolicyRadioGroup.Top+MethodInsertPolicyRadioGroup.Height+7,
Self.ClientWidth-20,125);
end;
with PropertyCompletionCheckBox do begin
SetBounds(6,5,200,Height);
end;
with PropertyReadIdentPrefixLabel do begin
SetBounds(PropertyCompletionCheckBox.Left,
PropertyCompletionCheckBox.Top+PropertyCompletionCheckBox.Height+5,
100,Height);
end;
with PropertyReadIdentPrefixEdit do begin
SetBounds(130,PropertyReadIdentPrefixLabel.Top,80,Height);
end;
with PropertyWriteIdentPrefixLabel do begin
SetBounds(6,PropertyReadIdentPrefixLabel.Top
+PropertyReadIdentPrefixLabel.Height+5,
PropertyReadIdentPrefixLabel.Width,Height);
end;
with PropertyWriteIdentPrefixEdit do begin
SetBounds(PropertyReadIdentPrefixEdit.Left,
PropertyWriteIdentPrefixLabel.Top,80,Height);
end;
with PropertyStoredIdentPostfixLabel do begin
SetBounds(6,PropertyWriteIdentPrefixLabel.Top
+PropertyWriteIdentPrefixLabel.Height+5,
PropertyReadIdentPrefixLabel.Width,Height);
end;
with PropertyStoredIdentPostfixEdit do begin
SetBounds(PropertyReadIdentPrefixEdit.Left,
PropertyStoredIdentPostfixLabel.Top,80,Height);
end;
with PrivateVariablePrefixLabel do begin
SetBounds((PropertyCompletionGroupBox.ClientWidth-20) div 2,
PropertyReadIdentPrefixLabel.Top,120,Height);
end;
with PrivateVariablePrefixEdit do begin
SetBounds(PrivateVariablePrefixLabel.Left+150,PrivateVariablePrefixLabel.Top,
80,Height);
end;
with SetPropertyVariablenameLabel do begin
SetBounds(PrivateVariablePrefixLabel.Left,
PrivateVariablePrefixLabel.Top+PrivateVariablePrefixLabel.Height+5,
120,Height);
end;
with SetPropertyVariablenameEdit do begin
SetBounds(PrivateVariablePrefixEdit.Left,
PrivateVariablePrefixLabel.Top+PrivateVariablePrefixLabel.Height+5,
80,Height);
end;
end;
procedure TCodeToolsOptsDlg.ResizeWordsPage;
begin
with KeyWordPolicyRadioGroup do begin
SetBounds(8,6,(Self.ClientWidth div 2)-12,120);
end;
with IdentifierPolicyRadioGroup do begin
SetBounds(KeyWordPolicyRadioGroup.Left+KeyWordPolicyRadioGroup.Width+8,
KeyWordPolicyRadioGroup.Top,
KeyWordPolicyRadioGroup.Width,KeyWordPolicyRadioGroup.Height);
end;
end;
procedure TCodeToolsOptsDlg.ResizeLineSplittingPage;
begin
with LineLengthLabel do begin
SetBounds(8,7,Canvas.TextWidth(dlgMaxLineLength),Height);
end;
with LineLengthEdit do begin
Left:=LineLengthLabel.Left+LineLengthLabel.Width+5;
Top:=LineLengthLabel.Top-2;
Width:=50;
end;
with DoNotSplitLineInFrontGroupBox do begin
SetBounds(6,LineLengthLabel.Top+LineLengthLabel.Height+7,
(Self.ClientWidth-24) div 2,150);
end;
with DoNotSplitLineAfterGroupBox do begin
SetBounds(DoNotSplitLineInFrontGroupBox.Left,
DoNotSplitLineInFrontGroupBox.Top+DoNotSplitLineInFrontGroupBox.Height+7,
DoNotSplitLineInFrontGroupBox.Width,
DoNotSplitLineInFrontGroupBox.Height);
end;
with SplitPreviewGroupBox do begin
Left:=DoNotSplitLineInFrontGroupBox.Left
+DoNotSplitLineInFrontGroupBox.Width+8;
Top:=LineLengthLabel.Top;
Width:=Self.ClientWidth-10-Left;
Height:=Self.ClientHeight-92-Top;
end;
with SplitPreviewSynEdit do begin
SetBounds(2,2,Parent.ClientWidth-8,Parent.ClientHeight-25);
end;
with DoNotSplitLineInFrontGroupBox do
Width:=(Self.ClientWidth-24) div 2;
end;
procedure TCodeToolsOptsDlg.ResizeSpacePage;
begin
with DoInsertSpaceInFrontGroupBox do begin
SetBounds(6,6,
(Self.ClientWidth-24) div 2,150);
end;
with DoInsertSpaceAfterGroupBox do begin
SetBounds(DoInsertSpaceInFrontGroupBox.Left
+DoInsertSpaceInFrontGroupBox.Width+8,
DoInsertSpaceInFrontGroupBox.Top,
DoInsertSpaceInFrontGroupBox.Width,
DoInsertSpaceInFrontGroupBox.Height);
end;
with SpacePreviewGroupBox do begin
Left:=DoInsertSpaceInFrontGroupBox.Left;
Top:=DoInsertSpaceInFrontGroupBox.Top+DoInsertSpaceInFrontGroupBox.Height+7;
Width:=Self.ClientWidth-10-Left;
Height:=Self.ClientHeight-92-Top;
end;
with SpacePreviewSynEdit do begin
SetBounds(2,2,Parent.ClientWidth-8,Parent.ClientHeight-25);
end;
end;
procedure TCodeToolsOptsDlg.CodeToolsOptsDlgResize(Sender: TObject);
begin
with NoteBook do begin
SetBounds(0,0,Self.ClientWidth,
Self.ClientHeight-50);
end;
ResizeGeneralPage;
ResizeCodeCreationPage;
ResizeWordsPage;
ResizeLineSplittingPage;
ResizeSpacePage;
with CancelButton do begin
Width:=70;
Height:=23;
Left:=Self.ClientWidth-Width-15;
Top:=Self.ClientHeight-Height-15;
end;
with OkButton do begin
Width:=CancelButton.Width;
Height:=CancelButton.Height;
Left:=CancelButton.Left-15-Width;
Top:=CancelButton.Top;
end;
with DoInsertSpaceInFrontGroupBox do
Width:=(Self.ClientWidth-24) div 2;
end;
procedure TCodeToolsOptsDlg.CreateAtomCheckBoxes(ParentGroupBox: TGroupBox;
@ -1591,14 +1027,47 @@ begin
end;
end;
procedure TCodeToolsOptsDlg.CancelButtonClick(Sender: TObject);
procedure TCodeToolsOptsDlg.FormResize(Sender: TObject);
begin
ModalResult:=mrCancel;
ResizeLineSplittingPage;
ResizeSpacePage;
end;
procedure TCodeToolsOptsDlg.OkButtonClick(Sender: TObject);
procedure TCodeToolsOptsDlg.FormCreate(Sender: TObject);
begin
ModalResult:=mrOk;
// inherited Create(Sender);
// if LazarusResources.Find(ClassName)=nil then begin
IDEDialogLayoutList.ApplyLayout(Self,485,435);
Caption:=dlgCodeToolsOpts;
with NoteBook do begin
Pages[0]:=lisMenuInsertGeneral;
Pages[1]:=dlgCodeCreation;
Pages[2]:=dlgWordsPolicies;
Pages[3]:=dlgLineSplitting;
Pages[4]:=dlgSpaceNotCosmos;
Pages[5]:=dlgIdentifierCompletion;
PageIndex:=0;
end;
SetupGeneralPage(0);
SetupCodeCreationPage(1);
SetupWordsPage(2);
SetupLineSplittingPage(3);
SetupSpacePage(4);
SetupIdentifierCompletionPage(5);
with CancelButton do
Caption:=dlgCancel;
CancelControl:=CancelButton;
with OkButton do begin
Caption:=lisCodeToolsOptsOk;
end;
// end;
BeautifyCodeOptions:=TBeautifyCodeOptions.Create;
// FormResize(nil);
UpdateExamples(Self);
end;
procedure TCodeToolsOptsDlg.ReadSettings(Options: TCodeToolsOptions);
@ -1883,5 +1352,8 @@ begin
end;
end;
initialization
{$I codetoolsoptions.lrs}
end.