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

ide: code creation frame: fix reading and writing CodeToolsOptions

Browse Source 
git-svn-id: trunk@17208 -
This commit is contained in:
paul 2008-11-04 04:37:56 +00:00
parent 5ffabda417
commit b7075d613f
6 changed files with 279 additions and 254 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/codetoolsoptions.lfm
View File

@ -24,7 +24,7 @@ object CodeToolsOptsDlg: TCodeToolsOptsDlg
Width = 560 Width = 560
Align = alClient Align = alClient
BorderSpacing.Bottom = 6 BorderSpacing.Bottom = 6
PageIndex = 2 PageIndex = 1
TabOrder = 0 TabOrder = 0
object GeneralPage: TPage object GeneralPage: TPage
AnchorSideTop.Control = CodeCreationPage AnchorSideTop.Control = CodeCreationPage
@ -529,6 +529,7 @@ object CodeToolsOptsDlg: TCodeToolsOptsDlg
ParentFont = False ParentFont = False
TabOrder = 3 TabOrder = 3
BookMarkOptions.Xoffset = -18 BookMarkOptions.Xoffset = -18
BookMarkOptions.OnChange = nil
Gutter.Visible = False Gutter.Visible = False
Keystrokes = < Keystrokes = <
item item
@ -854,6 +855,7 @@ object CodeToolsOptsDlg: TCodeToolsOptsDlg
Lines.Strings = ( Lines.Strings = (
'SplitPreviewSynEdit' 'SplitPreviewSynEdit'
) )
SelectedColor.OnChange = nil
end end
end end
object SpaceNotCosmosPage: TPage object SpaceNotCosmosPage: TPage
@ -926,6 +928,7 @@ object CodeToolsOptsDlg: TCodeToolsOptsDlg
ParentFont = False ParentFont = False
TabOrder = 2 TabOrder = 2
BookMarkOptions.Xoffset = -18 BookMarkOptions.Xoffset = -18
BookMarkOptions.OnChange = nil
Gutter.Visible = False Gutter.Visible = False
Keystrokes = < Keystrokes = <
item item
@ -1251,6 +1254,7 @@ object CodeToolsOptsDlg: TCodeToolsOptsDlg
Lines.Strings = ( Lines.Strings = (
'SpacePreviewSynEdit' 'SpacePreviewSynEdit'
) )
SelectedColor.OnChange = nil
end end
end end
object IdentifierCompletionPage: TPage object IdentifierCompletionPage: TPage

260
ide/codetoolsoptions.lrs
View File

@ -10,7 +10,7 @@ LazarusResources.Add('TCodeToolsOptsDlg','FORMDATA',[
+#6#6'0.9.27'#0#9'TNotebook'#8'Notebook'#22'AnchorSideLeft.Control'#7#5'Owner' +#6#6'0.9.27'#0#9'TNotebook'#8'Notebook'#22'AnchorSideLeft.Control'#7#5'Owner'
+#21'AnchorSideTop.Control'#7#5'Owner'#23'AnchorSideRight.Control'#7#5'Owner' +#21'AnchorSideTop.Control'#7#5'Owner'#23'AnchorSideRight.Control'#7#5'Owner'
+#20'AnchorSideRight.Side'#7#9'asrBottom'#6'Height'#3#133#1#5'Width'#3'0'#2#5 +#20'AnchorSideRight.Side'#7#9'asrBottom'#6'Height'#3#133#1#5'Width'#3'0'#2#5
+'Align'#7#8'alClient'#20'BorderSpacing.Bottom'#2#6#9'PageIndex'#2#2#8'TabOrd' +'Align'#7#8'alClient'#20'BorderSpacing.Bottom'#2#6#9'PageIndex'#2#1#8'TabOrd'
+'er'#2#0#0#5'TPage'#11'GeneralPage'#21'AnchorSideTop.Control'#7#16'CodeCreat' +'er'#2#0#0#5'TPage'#11'GeneralPage'#21'AnchorSideTop.Control'#7#16'CodeCreat'
+'ionPage'#7'Caption'#6#11'GeneralPage'#11'ClientWidth'#3'('#2#12'ClientHeigh' +'ionPage'#7'Caption'#6#11'GeneralPage'#11'ClientWidth'#3'('#2#12'ClientHeigh'
+'t'#3'k'#1#0#9'TGroupBox'#15'SrcPathGroupBox'#22'AnchorSideLeft.Control'#7#11 +'t'#3'k'#1#0#9'TGroupBox'#15'SrcPathGroupBox'#22'AnchorSideLeft.Control'#7#11
@ -217,132 +217,134 @@ LazarusResources.Add('TCodeToolsOptsDlg','FORMDATA',[
+'Top'#6'akLeft'#7'akRight'#8'akBottom'#0#11'Font.Height'#2#240#9'Font.Name'#6 +'Top'#6'akLeft'#7'akRight'#8'akBottom'#0#11'Font.Height'#2#240#9'Font.Name'#6
+#7'courier'#10'Font.Pitch'#7#7'fpFixed'#12'Font.Quality'#7#16'fqNonAntialias' +#7'courier'#10'Font.Pitch'#7#7'fpFixed'#12'Font.Quality'#7#16'fqNonAntialias'
+'ed'#11'ParentColor'#8#10'ParentFont'#8#8'TabOrder'#2#3#23'BookMarkOptions.X' +'ed'#11'ParentColor'#8#10'ParentFont'#8#8'TabOrder'#2#3#23'BookMarkOptions.X'
+'offset'#2#238#14'Gutter.Visible'#8#10'Keystrokes'#14#1#7'Command'#2#3#8'Sho' +'offset'#2#238#24'BookMarkOptions.OnChange'#13#14'Gutter.Visible'#8#10'Keyst'
+'rtCut'#2'&'#0#1#7'Command'#2'g'#8'ShortCut'#3'& '#0#1#7'Command'#3#211#0#8 +'rokes'#14#1#7'Command'#2#3#8'ShortCut'#2'&'#0#1#7'Command'#2'g'#8'ShortCut'
+'ShortCut'#3'&@'#0#1#7'Command'#2#4#8'ShortCut'#2'('#0#1#7'Command'#2'h'#8'S' +#3'& '#0#1#7'Command'#3#211#0#8'ShortCut'#3'&@'#0#1#7'Command'#2#4#8'ShortCu'
+'hortCut'#3'( '#0#1#7'Command'#3#212#0#8'ShortCut'#3'(@'#0#1#7'Command'#2#1#8 +'t'#2'('#0#1#7'Command'#2'h'#8'ShortCut'#3'( '#0#1#7'Command'#3#212#0#8'Shor'
+'ShortCut'#2'%'#0#1#7'Command'#2'e'#8'ShortCut'#3'% '#0#1#7'Command'#2#5#8'S' +'tCut'#3'(@'#0#1#7'Command'#2#1#8'ShortCut'#2'%'#0#1#7'Command'#2'e'#8'Short'
+'hortCut'#3'%@'#0#1#7'Command'#2'i'#8'ShortCut'#3'%`'#0#1#7'Command'#2#2#8'S' +'Cut'#3'% '#0#1#7'Command'#2#5#8'ShortCut'#3'%@'#0#1#7'Command'#2'i'#8'Short'
+'hortCut'#2''''#0#1#7'Command'#2'f'#8'ShortCut'#3''' '#0#1#7'Command'#2#6#8 +'Cut'#3'%`'#0#1#7'Command'#2#2#8'ShortCut'#2''''#0#1#7'Command'#2'f'#8'Short'
+'ShortCut'#3'''@'#0#1#7'Command'#2'j'#8'ShortCut'#3'''`'#0#1#7'Command'#2#10 +'Cut'#3''' '#0#1#7'Command'#2#6#8'ShortCut'#3'''@'#0#1#7'Command'#2'j'#8'Sho'
+#8'ShortCut'#2'"'#0#1#7'Command'#2'n'#8'ShortCut'#3'" '#0#1#7'Command'#2#14#8 +'rtCut'#3'''`'#0#1#7'Command'#2#10#8'ShortCut'#2'"'#0#1#7'Command'#2'n'#8'Sh'
+'ShortCut'#3'"@'#0#1#7'Command'#2'r'#8'ShortCut'#3'"`'#0#1#7'Command'#2#9#8 +'ortCut'#3'" '#0#1#7'Command'#2#14#8'ShortCut'#3'"@'#0#1#7'Command'#2'r'#8'S'
+'ShortCut'#2'!'#0#1#7'Command'#2'm'#8'ShortCut'#3'! '#0#1#7'Command'#2#13#8 +'hortCut'#3'"`'#0#1#7'Command'#2#9#8'ShortCut'#2'!'#0#1#7'Command'#2'm'#8'Sh'
+'ShortCut'#3'!@'#0#1#7'Command'#2'q'#8'ShortCut'#3'!`'#0#1#7'Command'#2#7#8 +'ortCut'#3'! '#0#1#7'Command'#2#13#8'ShortCut'#3'!@'#0#1#7'Command'#2'q'#8'S'
+'ShortCut'#2'$'#0#1#7'Command'#2'k'#8'ShortCut'#3'$ '#0#1#7'Command'#2#15#8 +'hortCut'#3'!`'#0#1#7'Command'#2#7#8'ShortCut'#2'$'#0#1#7'Command'#2'k'#8'Sh'
+'ShortCut'#3'$@'#0#1#7'Command'#2's'#8'ShortCut'#3'$`'#0#1#7'Command'#2#8#8 +'ortCut'#3'$ '#0#1#7'Command'#2#15#8'ShortCut'#3'$@'#0#1#7'Command'#2's'#8'S'
+'ShortCut'#2'#'#0#1#7'Command'#2'l'#8'ShortCut'#3'# '#0#1#7'Command'#2#16#8 +'hortCut'#3'$`'#0#1#7'Command'#2#8#8'ShortCut'#2'#'#0#1#7'Command'#2'l'#8'Sh'
+'ShortCut'#3'#@'#0#1#7'Command'#2't'#8'ShortCut'#3'#`'#0#1#7'Command'#3#223#0 +'ortCut'#3'# '#0#1#7'Command'#2#16#8'ShortCut'#3'#@'#0#1#7'Command'#2't'#8'S'
+#8'ShortCut'#2'-'#0#1#7'Command'#3#201#0#8'ShortCut'#3'-@'#0#1#7'Command'#3 +'hortCut'#3'#`'#0#1#7'Command'#3#223#0#8'ShortCut'#2'-'#0#1#7'Command'#3#201
+'\'#2#8'ShortCut'#3'- '#0#1#7'Command'#3#246#1#8'ShortCut'#2'.'#0#1#7'Comman' +#0#8'ShortCut'#3'-@'#0#1#7'Command'#3'\'#2#8'ShortCut'#3'- '#0#1#7'Command'#3
+'d'#3'['#2#8'ShortCut'#3'. '#0#1#7'Command'#3#245#1#8'ShortCut'#2#8#0#1#7'Co' +#246#1#8'ShortCut'#2'.'#0#1#7'Command'#3'['#2#8'ShortCut'#3'. '#0#1#7'Comman'
+'mmand'#3#245#1#8'ShortCut'#3#8' '#0#1#7'Command'#3#248#1#8'ShortCut'#3#8'@' +'d'#3#245#1#8'ShortCut'#2#8#0#1#7'Command'#3#245#1#8'ShortCut'#3#8' '#0#1#7
+#0#1#7'Command'#3'Y'#2#8'ShortCut'#4#8#128#0#0#0#1#7'Command'#3'Z'#2#8'Short' +'Command'#3#248#1#8'ShortCut'#3#8'@'#0#1#7'Command'#3'Y'#2#8'ShortCut'#4#8
+'Cut'#4#8#160#0#0#0#1#7'Command'#3#253#1#8'ShortCut'#2#13#0#1#7'Command'#3 +#128#0#0#0#1#7'Command'#3'Z'#2#8'ShortCut'#4#8#160#0#0#0#1#7'Command'#3#253#1
+#199#0#8'ShortCut'#3'A@'#0#1#7'Command'#3#201#0#8'ShortCut'#3'C@'#0#1#7'Comm' +#8'ShortCut'#2#13#0#1#7'Command'#3#199#0#8'ShortCut'#3'A@'#0#1#7'Command'#3
+'and'#3'b'#2#8'ShortCut'#3'I`'#0#1#7'Command'#3#253#1#8'ShortCut'#3'M@'#0#1#7 +#201#0#8'ShortCut'#3'C@'#0#1#7'Command'#3'b'#2#8'ShortCut'#3'I`'#0#1#7'Comma'
+'Command'#3#254#1#8'ShortCut'#3'N@'#0#1#7'Command'#3#247#1#8'ShortCut'#3'T@' +'nd'#3#253#1#8'ShortCut'#3'M@'#0#1#7'Command'#3#254#1#8'ShortCut'#3'N@'#0#1#7
+#0#1#7'Command'#3'c'#2#8'ShortCut'#3'U`'#0#1#7'Command'#3'\'#2#8'ShortCut'#3 +'Command'#3#247#1#8'ShortCut'#3'T@'#0#1#7'Command'#3'c'#2#8'ShortCut'#3'U`'#0
+'V@'#0#1#7'Command'#3'['#2#8'ShortCut'#3'X@'#0#1#7'Command'#3#251#1#8'ShortC' +#1#7'Command'#3'\'#2#8'ShortCut'#3'V@'#0#1#7'Command'#3'['#2#8'ShortCut'#3'X'
+'ut'#3'Y@'#0#1#7'Command'#3#250#1#8'ShortCut'#3'Y`'#0#1#7'Command'#3'Y'#2#8 +'@'#0#1#7'Command'#3#251#1#8'ShortCut'#3'Y@'#0#1#7'Command'#3#250#1#8'ShortC'
+'ShortCut'#3'Z@'#0#1#7'Command'#3'Z'#2#8'ShortCut'#3'Z`'#0#1#7'Command'#3'-' +'ut'#3'Y`'#0#1#7'Command'#3'Y'#2#8'ShortCut'#3'Z@'#0#1#7'Command'#3'Z'#2#8'S'
+#1#8'ShortCut'#3'0@'#0#1#7'Command'#3'.'#1#8'ShortCut'#3'1@'#0#1#7'Command'#3 +'hortCut'#3'Z`'#0#1#7'Command'#3'-'#1#8'ShortCut'#3'0@'#0#1#7'Command'#3'.'#1
+'/'#1#8'ShortCut'#3'2@'#0#1#7'Command'#3'0'#1#8'ShortCut'#3'3@'#0#1#7'Comman' +#8'ShortCut'#3'1@'#0#1#7'Command'#3'/'#1#8'ShortCut'#3'2@'#0#1#7'Command'#3
+'d'#3'1'#1#8'ShortCut'#3'4@'#0#1#7'Command'#3'2'#1#8'ShortCut'#3'5@'#0#1#7'C' +'0'#1#8'ShortCut'#3'3@'#0#1#7'Command'#3'1'#1#8'ShortCut'#3'4@'#0#1#7'Comman'
+'ommand'#3'3'#1#8'ShortCut'#3'6@'#0#1#7'Command'#3'4'#1#8'ShortCut'#3'7@'#0#1 +'d'#3'2'#1#8'ShortCut'#3'5@'#0#1#7'Command'#3'3'#1#8'ShortCut'#3'6@'#0#1#7'C'
+#7'Command'#3'5'#1#8'ShortCut'#3'8@'#0#1#7'Command'#3'6'#1#8'ShortCut'#3'9@' +'ommand'#3'4'#1#8'ShortCut'#3'7@'#0#1#7'Command'#3'5'#1#8'ShortCut'#3'8@'#0#1
+#0#1#7'Command'#3'_'#1#8'ShortCut'#3'0`'#0#1#7'Command'#3'`'#1#8'ShortCut'#3 +#7'Command'#3'6'#1#8'ShortCut'#3'9@'#0#1#7'Command'#3'_'#1#8'ShortCut'#3'0`'
+'1`'#0#1#7'Command'#3'a'#1#8'ShortCut'#3'2`'#0#1#7'Command'#3'b'#1#8'ShortCu' +#0#1#7'Command'#3'`'#1#8'ShortCut'#3'1`'#0#1#7'Command'#3'a'#1#8'ShortCut'#3
+'t'#3'3`'#0#1#7'Command'#3'c'#1#8'ShortCut'#3'4`'#0#1#7'Command'#3'd'#1#8'Sh' +'2`'#0#1#7'Command'#3'b'#1#8'ShortCut'#3'3`'#0#1#7'Command'#3'c'#1#8'ShortCu'
+'ortCut'#3'5`'#0#1#7'Command'#3'e'#1#8'ShortCut'#3'6`'#0#1#7'Command'#3'f'#1 +'t'#3'4`'#0#1#7'Command'#3'd'#1#8'ShortCut'#3'5`'#0#1#7'Command'#3'e'#1#8'Sh'
+#8'ShortCut'#3'7`'#0#1#7'Command'#3'g'#1#8'ShortCut'#3'8`'#0#1#7'Command'#3 +'ortCut'#3'6`'#0#1#7'Command'#3'f'#1#8'ShortCut'#3'7`'#0#1#7'Command'#3'g'#1
+'h'#1#8'ShortCut'#3'9`'#0#1#7'Command'#3#231#0#8'ShortCut'#3'N`'#0#1#7'Comma' +#8'ShortCut'#3'8`'#0#1#7'Command'#3'h'#1#8'ShortCut'#3'9`'#0#1#7'Command'#3
,'nd'#3#232#0#8'ShortCut'#3'C`'#0#1#7'Command'#3#233#0#8'ShortCut'#3'L`'#0#1#7 ,#231#0#8'ShortCut'#3'N`'#0#1#7'Command'#3#232#0#8'ShortCut'#3'C`'#0#1#7'Comm'
+'Command'#3'd'#2#8'ShortCut'#2#9#0#1#7'Command'#3'e'#2#8'ShortCut'#3#9' '#0#1 +'and'#3#233#0#8'ShortCut'#3'L`'#0#1#7'Command'#3'd'#2#8'ShortCut'#2#9#0#1#7
+#7'Command'#3#250#0#8'ShortCut'#3'B`'#0#0#13'Lines.Strings'#1#6#19'SplitPrev' +'Command'#3'e'#2#8'ShortCut'#3#9' '#0#1#7'Command'#3#250#0#8'ShortCut'#3'B`'
+'iewSynEdit'#0#0#0#0#5'TPage'#18'SpaceNotCosmosPage'#7'Caption'#6#18'SpaceNo' +#0#0#13'Lines.Strings'#1#6#19'SplitPreviewSynEdit'#0#22'SelectedColor.OnChan'
+'tCosmosPage'#11'ClientWidth'#3','#2#12'ClientHeight'#3'o'#1#0#6'TLabel'#17 +'ge'#13#0#0#0#5'TPage'#18'SpaceNotCosmosPage'#7'Caption'#6#18'SpaceNotCosmos'
+'SpacePreviewLabel'#22'AnchorSideLeft.Control'#7#18'SpaceNotCosmosPage'#21'A' +'Page'#11'ClientWidth'#3','#2#12'ClientHeight'#3'o'#1#0#6'TLabel'#17'SpacePr'
+'nchorSideTop.Control'#7#28'DoInsertSpaceInFrontGroupBox'#18'AnchorSideTop.S' +'eviewLabel'#22'AnchorSideLeft.Control'#7#18'SpaceNotCosmosPage'#21'AnchorSi'
+'ide'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#20#3'Top'#3#162#0#5'Width'#2'{' +'deTop.Control'#7#28'DoInsertSpaceInFrontGroupBox'#18'AnchorSideTop.Side'#7#9
+#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#6#19'BorderSpacing.Right' +'asrBottom'#4'Left'#2#6#6'Height'#2#20#3'Top'#3#162#0#5'Width'#2'{'#18'Borde'
+#2#6#7'Caption'#6#17'SpacePreviewLabel'#11'ParentColor'#8#0#0#9'TGroupBox'#28 +'rSpacing.Left'#2#6#17'BorderSpacing.Top'#2#6#19'BorderSpacing.Right'#2#6#7
+'DoInsertSpaceInFrontGroupBox'#22'AnchorSideLeft.Control'#7#18'SpaceNotCosmo' +'Caption'#6#17'SpacePreviewLabel'#11'ParentColor'#8#0#0#9'TGroupBox'#28'DoIn'
+'sPage'#21'AnchorSideTop.Control'#7#18'SpaceNotCosmosPage'#4'Left'#2#6#6'Hei' +'sertSpaceInFrontGroupBox'#22'AnchorSideLeft.Control'#7#18'SpaceNotCosmosPag'
+'ght'#3#150#0#3'Top'#2#6#5'Width'#3#10#1#20'BorderSpacing.Around'#2#6#7'Capt' +'e'#21'AnchorSideTop.Control'#7#18'SpaceNotCosmosPage'#4'Left'#2#6#6'Height'
+'ion'#6#28'DoInsertSpaceInFrontGroupBox'#8'TabOrder'#2#0#7'OnClick'#7#14'Upd' +#3#150#0#3'Top'#2#6#5'Width'#3#10#1#20'BorderSpacing.Around'#2#6#7'Caption'#6
+'ateExamples'#0#0#9'TGroupBox'#26'DoInsertSpaceAfterGroupBox'#22'AnchorSideL' +#28'DoInsertSpaceInFrontGroupBox'#8'TabOrder'#2#0#7'OnClick'#7#14'UpdateExam'
+'eft.Control'#7#28'DoInsertSpaceInFrontGroupBox'#19'AnchorSideLeft.Side'#7#9 +'ples'#0#0#9'TGroupBox'#26'DoInsertSpaceAfterGroupBox'#22'AnchorSideLeft.Con'
+'asrBottom'#21'AnchorSideTop.Control'#7#18'SpaceNotCosmosPage'#23'AnchorSide' +'trol'#7#28'DoInsertSpaceInFrontGroupBox'#19'AnchorSideLeft.Side'#7#9'asrBot'
+'Right.Control'#7#18'SpaceNotCosmosPage'#20'AnchorSideRight.Side'#7#9'asrBot' +'tom'#21'AnchorSideTop.Control'#7#18'SpaceNotCosmosPage'#23'AnchorSideRight.'
+'tom'#4'Left'#3#22#1#6'Height'#3#150#0#3'Top'#2#6#5'Width'#3#16#1#7'Anchors' +'Control'#7#18'SpaceNotCosmosPage'#20'AnchorSideRight.Side'#7#9'asrBottom'#4
+#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Around'#2#6#7'Caption'#6 +'Left'#3#22#1#6'Height'#3#150#0#3'Top'#2#6#5'Width'#3#16#1#7'Anchors'#11#5'a'
+#26'DoInsertSpaceAfterGroupBox'#8'TabOrder'#2#1#7'OnClick'#7#14'UpdateExampl' +'kTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#26'D'
+'es'#0#0#8'TSynEdit'#19'SpacePreviewSynEdit'#22'AnchorSideLeft.Control'#7#18 +'oInsertSpaceAfterGroupBox'#8'TabOrder'#2#1#7'OnClick'#7#14'UpdateExamples'#0
+'SpaceNotCosmosPage'#21'AnchorSideTop.Control'#7#17'SpacePreviewLabel'#18'An' +#0#8'TSynEdit'#19'SpacePreviewSynEdit'#22'AnchorSideLeft.Control'#7#18'Space'
+'chorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#18'SpaceNotC' +'NotCosmosPage'#21'AnchorSideTop.Control'#7#17'SpacePreviewLabel'#18'AnchorS'
+'osmosPage'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSideBottom.Cont' +'ideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#18'SpaceNotCosmos'
+'rol'#7#18'SpaceNotCosmosPage'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Le' +'Page'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7
+'ft'#2#6#6'Height'#3#179#0#3'Top'#3#182#0#5'Width'#3' '#2#18'BorderSpacing.L' +#18'SpaceNotCosmosPage'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#2#6
+'eft'#2#6#19'BorderSpacing.Right'#2#6#20'BorderSpacing.Bottom'#2#6#7'Anchors' +#6'Height'#3#179#0#3'Top'#3#182#0#5'Width'#3' '#2#18'BorderSpacing.Left'#2#6
+#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#11'Font.Height'#2#240#9'Font' +#19'BorderSpacing.Right'#2#6#20'BorderSpacing.Bottom'#2#6#7'Anchors'#11#5'ak'
+'.Name'#6#7'courier'#10'Font.Pitch'#7#7'fpFixed'#12'Font.Quality'#7#16'fqNon' +'Top'#6'akLeft'#7'akRight'#8'akBottom'#0#11'Font.Height'#2#240#9'Font.Name'#6
+'Antialiased'#11'ParentColor'#8#10'ParentFont'#8#8'TabOrder'#2#2#23'BookMark' +#7'courier'#10'Font.Pitch'#7#7'fpFixed'#12'Font.Quality'#7#16'fqNonAntialias'
+'Options.Xoffset'#2#238#14'Gutter.Visible'#8#10'Keystrokes'#14#1#7'Command'#2 +'ed'#11'ParentColor'#8#10'ParentFont'#8#8'TabOrder'#2#2#23'BookMarkOptions.X'
+#3#8'ShortCut'#2'&'#0#1#7'Command'#2'g'#8'ShortCut'#3'& '#0#1#7'Command'#3 +'offset'#2#238#24'BookMarkOptions.OnChange'#13#14'Gutter.Visible'#8#10'Keyst'
+#211#0#8'ShortCut'#3'&@'#0#1#7'Command'#2#4#8'ShortCut'#2'('#0#1#7'Command'#2 +'rokes'#14#1#7'Command'#2#3#8'ShortCut'#2'&'#0#1#7'Command'#2'g'#8'ShortCut'
+'h'#8'ShortCut'#3'( '#0#1#7'Command'#3#212#0#8'ShortCut'#3'(@'#0#1#7'Command' +#3'& '#0#1#7'Command'#3#211#0#8'ShortCut'#3'&@'#0#1#7'Command'#2#4#8'ShortCu'
+#2#1#8'ShortCut'#2'%'#0#1#7'Command'#2'e'#8'ShortCut'#3'% '#0#1#7'Command'#2 +'t'#2'('#0#1#7'Command'#2'h'#8'ShortCut'#3'( '#0#1#7'Command'#3#212#0#8'Shor'
+#5#8'ShortCut'#3'%@'#0#1#7'Command'#2'i'#8'ShortCut'#3'%`'#0#1#7'Command'#2#2 +'tCut'#3'(@'#0#1#7'Command'#2#1#8'ShortCut'#2'%'#0#1#7'Command'#2'e'#8'Short'
+#8'ShortCut'#2''''#0#1#7'Command'#2'f'#8'ShortCut'#3''' '#0#1#7'Command'#2#6 +'Cut'#3'% '#0#1#7'Command'#2#5#8'ShortCut'#3'%@'#0#1#7'Command'#2'i'#8'Short'
+#8'ShortCut'#3'''@'#0#1#7'Command'#2'j'#8'ShortCut'#3'''`'#0#1#7'Command'#2 +'Cut'#3'%`'#0#1#7'Command'#2#2#8'ShortCut'#2''''#0#1#7'Command'#2'f'#8'Short'
+#10#8'ShortCut'#2'"'#0#1#7'Command'#2'n'#8'ShortCut'#3'" '#0#1#7'Command'#2 +'Cut'#3''' '#0#1#7'Command'#2#6#8'ShortCut'#3'''@'#0#1#7'Command'#2'j'#8'Sho'
+#14#8'ShortCut'#3'"@'#0#1#7'Command'#2'r'#8'ShortCut'#3'"`'#0#1#7'Command'#2 +'rtCut'#3'''`'#0#1#7'Command'#2#10#8'ShortCut'#2'"'#0#1#7'Command'#2'n'#8'Sh'
+#9#8'ShortCut'#2'!'#0#1#7'Command'#2'm'#8'ShortCut'#3'! '#0#1#7'Command'#2#13 +'ortCut'#3'" '#0#1#7'Command'#2#14#8'ShortCut'#3'"@'#0#1#7'Command'#2'r'#8'S'
+#8'ShortCut'#3'!@'#0#1#7'Command'#2'q'#8'ShortCut'#3'!`'#0#1#7'Command'#2#7#8 +'hortCut'#3'"`'#0#1#7'Command'#2#9#8'ShortCut'#2'!'#0#1#7'Command'#2'm'#8'Sh'
+'ShortCut'#2'$'#0#1#7'Command'#2'k'#8'ShortCut'#3'$ '#0#1#7'Command'#2#15#8 +'ortCut'#3'! '#0#1#7'Command'#2#13#8'ShortCut'#3'!@'#0#1#7'Command'#2'q'#8'S'
+'ShortCut'#3'$@'#0#1#7'Command'#2's'#8'ShortCut'#3'$`'#0#1#7'Command'#2#8#8 +'hortCut'#3'!`'#0#1#7'Command'#2#7#8'ShortCut'#2'$'#0#1#7'Command'#2'k'#8'Sh'
+'ShortCut'#2'#'#0#1#7'Command'#2'l'#8'ShortCut'#3'# '#0#1#7'Command'#2#16#8 +'ortCut'#3'$ '#0#1#7'Command'#2#15#8'ShortCut'#3'$@'#0#1#7'Command'#2's'#8'S'
+'ShortCut'#3'#@'#0#1#7'Command'#2't'#8'ShortCut'#3'#`'#0#1#7'Command'#3#223#0 +'hortCut'#3'$`'#0#1#7'Command'#2#8#8'ShortCut'#2'#'#0#1#7'Command'#2'l'#8'Sh'
+#8'ShortCut'#2'-'#0#1#7'Command'#3#201#0#8'ShortCut'#3'-@'#0#1#7'Command'#3 +'ortCut'#3'# '#0#1#7'Command'#2#16#8'ShortCut'#3'#@'#0#1#7'Command'#2't'#8'S'
+'\'#2#8'ShortCut'#3'- '#0#1#7'Command'#3#246#1#8'ShortCut'#2'.'#0#1#7'Comman' +'hortCut'#3'#`'#0#1#7'Command'#3#223#0#8'ShortCut'#2'-'#0#1#7'Command'#3#201
+'d'#3'['#2#8'ShortCut'#3'. '#0#1#7'Command'#3#245#1#8'ShortCut'#2#8#0#1#7'Co' +#0#8'ShortCut'#3'-@'#0#1#7'Command'#3'\'#2#8'ShortCut'#3'- '#0#1#7'Command'#3
+'mmand'#3#245#1#8'ShortCut'#3#8' '#0#1#7'Command'#3#248#1#8'ShortCut'#3#8'@' +#246#1#8'ShortCut'#2'.'#0#1#7'Command'#3'['#2#8'ShortCut'#3'. '#0#1#7'Comman'
+#0#1#7'Command'#3'Y'#2#8'ShortCut'#4#8#128#0#0#0#1#7'Command'#3'Z'#2#8'Short' +'d'#3#245#1#8'ShortCut'#2#8#0#1#7'Command'#3#245#1#8'ShortCut'#3#8' '#0#1#7
+'Cut'#4#8#160#0#0#0#1#7'Command'#3#253#1#8'ShortCut'#2#13#0#1#7'Command'#3 +'Command'#3#248#1#8'ShortCut'#3#8'@'#0#1#7'Command'#3'Y'#2#8'ShortCut'#4#8
+#199#0#8'ShortCut'#3'A@'#0#1#7'Command'#3#201#0#8'ShortCut'#3'C@'#0#1#7'Comm' +#128#0#0#0#1#7'Command'#3'Z'#2#8'ShortCut'#4#8#160#0#0#0#1#7'Command'#3#253#1
+'and'#3'b'#2#8'ShortCut'#3'I`'#0#1#7'Command'#3#253#1#8'ShortCut'#3'M@'#0#1#7 +#8'ShortCut'#2#13#0#1#7'Command'#3#199#0#8'ShortCut'#3'A@'#0#1#7'Command'#3
+'Command'#3#254#1#8'ShortCut'#3'N@'#0#1#7'Command'#3#247#1#8'ShortCut'#3'T@' +#201#0#8'ShortCut'#3'C@'#0#1#7'Command'#3'b'#2#8'ShortCut'#3'I`'#0#1#7'Comma'
+#0#1#7'Command'#3'c'#2#8'ShortCut'#3'U`'#0#1#7'Command'#3'\'#2#8'ShortCut'#3 +'nd'#3#253#1#8'ShortCut'#3'M@'#0#1#7'Command'#3#254#1#8'ShortCut'#3'N@'#0#1#7
+'V@'#0#1#7'Command'#3'['#2#8'ShortCut'#3'X@'#0#1#7'Command'#3#251#1#8'ShortC' +'Command'#3#247#1#8'ShortCut'#3'T@'#0#1#7'Command'#3'c'#2#8'ShortCut'#3'U`'#0
+'ut'#3'Y@'#0#1#7'Command'#3#250#1#8'ShortCut'#3'Y`'#0#1#7'Command'#3'Y'#2#8 +#1#7'Command'#3'\'#2#8'ShortCut'#3'V@'#0#1#7'Command'#3'['#2#8'ShortCut'#3'X'
+'ShortCut'#3'Z@'#0#1#7'Command'#3'Z'#2#8'ShortCut'#3'Z`'#0#1#7'Command'#3'-' +'@'#0#1#7'Command'#3#251#1#8'ShortCut'#3'Y@'#0#1#7'Command'#3#250#1#8'ShortC'
+#1#8'ShortCut'#3'0@'#0#1#7'Command'#3'.'#1#8'ShortCut'#3'1@'#0#1#7'Command'#3 +'ut'#3'Y`'#0#1#7'Command'#3'Y'#2#8'ShortCut'#3'Z@'#0#1#7'Command'#3'Z'#2#8'S'
+'/'#1#8'ShortCut'#3'2@'#0#1#7'Command'#3'0'#1#8'ShortCut'#3'3@'#0#1#7'Comman' +'hortCut'#3'Z`'#0#1#7'Command'#3'-'#1#8'ShortCut'#3'0@'#0#1#7'Command'#3'.'#1
+'d'#3'1'#1#8'ShortCut'#3'4@'#0#1#7'Command'#3'2'#1#8'ShortCut'#3'5@'#0#1#7'C' +#8'ShortCut'#3'1@'#0#1#7'Command'#3'/'#1#8'ShortCut'#3'2@'#0#1#7'Command'#3
+'ommand'#3'3'#1#8'ShortCut'#3'6@'#0#1#7'Command'#3'4'#1#8'ShortCut'#3'7@'#0#1 +'0'#1#8'ShortCut'#3'3@'#0#1#7'Command'#3'1'#1#8'ShortCut'#3'4@'#0#1#7'Comman'
,#7'Command'#3'5'#1#8'ShortCut'#3'8@'#0#1#7'Command'#3'6'#1#8'ShortCut'#3'9@' ,'d'#3'2'#1#8'ShortCut'#3'5@'#0#1#7'Command'#3'3'#1#8'ShortCut'#3'6@'#0#1#7'C'
+#0#1#7'Command'#3'_'#1#8'ShortCut'#3'0`'#0#1#7'Command'#3'`'#1#8'ShortCut'#3 +'ommand'#3'4'#1#8'ShortCut'#3'7@'#0#1#7'Command'#3'5'#1#8'ShortCut'#3'8@'#0#1
+'1`'#0#1#7'Command'#3'a'#1#8'ShortCut'#3'2`'#0#1#7'Command'#3'b'#1#8'ShortCu' +#7'Command'#3'6'#1#8'ShortCut'#3'9@'#0#1#7'Command'#3'_'#1#8'ShortCut'#3'0`'
+'t'#3'3`'#0#1#7'Command'#3'c'#1#8'ShortCut'#3'4`'#0#1#7'Command'#3'd'#1#8'Sh' +#0#1#7'Command'#3'`'#1#8'ShortCut'#3'1`'#0#1#7'Command'#3'a'#1#8'ShortCut'#3
+'ortCut'#3'5`'#0#1#7'Command'#3'e'#1#8'ShortCut'#3'6`'#0#1#7'Command'#3'f'#1 +'2`'#0#1#7'Command'#3'b'#1#8'ShortCut'#3'3`'#0#1#7'Command'#3'c'#1#8'ShortCu'
+#8'ShortCut'#3'7`'#0#1#7'Command'#3'g'#1#8'ShortCut'#3'8`'#0#1#7'Command'#3 +'t'#3'4`'#0#1#7'Command'#3'd'#1#8'ShortCut'#3'5`'#0#1#7'Command'#3'e'#1#8'Sh'
+'h'#1#8'ShortCut'#3'9`'#0#1#7'Command'#3#231#0#8'ShortCut'#3'N`'#0#1#7'Comma' +'ortCut'#3'6`'#0#1#7'Command'#3'f'#1#8'ShortCut'#3'7`'#0#1#7'Command'#3'g'#1
+'nd'#3#232#0#8'ShortCut'#3'C`'#0#1#7'Command'#3#233#0#8'ShortCut'#3'L`'#0#1#7 +#8'ShortCut'#3'8`'#0#1#7'Command'#3'h'#1#8'ShortCut'#3'9`'#0#1#7'Command'#3
+'Command'#3'd'#2#8'ShortCut'#2#9#0#1#7'Command'#3'e'#2#8'ShortCut'#3#9' '#0#1 +#231#0#8'ShortCut'#3'N`'#0#1#7'Command'#3#232#0#8'ShortCut'#3'C`'#0#1#7'Comm'
+#7'Command'#3#250#0#8'ShortCut'#3'B`'#0#0#13'Lines.Strings'#1#6#19'SpacePrev' +'and'#3#233#0#8'ShortCut'#3'L`'#0#1#7'Command'#3'd'#2#8'ShortCut'#2#9#0#1#7
+'iewSynEdit'#0#0#0#0#5'TPage'#24'IdentifierCompletionPage'#7'Caption'#6#24'I' +'Command'#3'e'#2#8'ShortCut'#3#9' '#0#1#7'Command'#3#250#0#8'ShortCut'#3'B`'
+'dentifierCompletionPage'#11'ClientWidth'#3','#2#12'ClientHeight'#3'o'#1#0#9 +#0#0#13'Lines.Strings'#1#6#19'SpacePreviewSynEdit'#0#22'SelectedColor.OnChan'
+'TCheckBox'#22'ICAddSemicolonCheckBox'#22'AnchorSideLeft.Control'#7#24'Ident' +'ge'#13#0#0#0#5'TPage'#24'IdentifierCompletionPage'#7'Caption'#6#24'Identifi'
+'ifierCompletionPage'#21'AnchorSideTop.Control'#7#24'IdentifierCompletionPag' +'erCompletionPage'#11'ClientWidth'#3','#2#12'ClientHeight'#3'o'#1#0#9'TCheck'
+'e'#4'Left'#2#6#6'Height'#2#22#3'Top'#2#6#5'Width'#3#190#0#20'BorderSpacing.' +'Box'#22'ICAddSemicolonCheckBox'#22'AnchorSideLeft.Control'#7#24'IdentifierC'
+'Around'#2#6#7'Caption'#6#22'ICAddSemicolonCheckBox'#8'TabOrder'#2#0#0#0#9'T' +'ompletionPage'#21'AnchorSideTop.Control'#7#24'IdentifierCompletionPage'#4'L'
+'CheckBox'#27'ICAddAssignOperatorCheckBox'#22'AnchorSideLeft.Control'#7#24'I' +'eft'#2#6#6'Height'#2#22#3'Top'#2#6#5'Width'#3#190#0#20'BorderSpacing.Around'
+'dentifierCompletionPage'#21'AnchorSideTop.Control'#7#22'ICAddSemicolonCheck' +#2#6#7'Caption'#6#22'ICAddSemicolonCheckBox'#8'TabOrder'#2#0#0#0#9'TCheckBox'
+'Box'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#23#3'Top' +#27'ICAddAssignOperatorCheckBox'#22'AnchorSideLeft.Control'#7#24'IdentifierC'
+#2'"'#5'Width'#2'Z'#20'BorderSpacing.Around'#2#6#7'Caption'#6#27'ICAddAssign' +'ompletionPage'#21'AnchorSideTop.Control'#7#22'ICAddSemicolonCheckBox'#18'An'
+'OperatorCheckBox'#8'TabOrder'#2#1#0#0#0#0#12'TButtonPanel'#11'ButtonPanel'#4 +'chorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#23#3'Top'#2'"'#5'W'
+'Left'#2#6#6'Height'#2'('#3'Top'#3#139#1#5'Width'#3'$'#2#5'Align'#7#8'alBott' +'idth'#2'Z'#20'BorderSpacing.Around'#2#6#7'Caption'#6#27'ICAddAssignOperator'
+'om'#8'AutoSize'#9#8'TabOrder'#2#1#11'ShowButtons'#11#4'pbOK'#8'pbCancel'#6 +'CheckBox'#8'TabOrder'#2#1#0#0#0#0#12'TButtonPanel'#11'ButtonPanel'#4'Left'#2
+'pbHelp'#0#0#0#0 +#6#6'Height'#2'('#3'Top'#3#139#1#5'Width'#3'$'#2#5'Align'#7#8'alBottom'#8'Au'
+'toSize'#9#8'TabOrder'#2#1#11'ShowButtons'#11#4'pbOK'#8'pbCancel'#6'pbHelp'#0
+#0#0#0
]); ]);

5
ide/codetoolsoptions.pas
View File

@ -271,7 +271,7 @@ function ShowCodeToolsOptions(Options: TCodeToolsOptions;
const OnGetSynEditSettings: TNotifyEvent): TModalResult; const OnGetSynEditSettings: TNotifyEvent): TModalResult;
function GetTranslatedAtomTypes(a: TAtomType): string; function GetTranslatedAtomTypes(a: TAtomType): string;
function TranslatedAtomToType(const s: string): TAtomType; function TranslatedAtomToType(const s: string): TAtomType;
function ReadIdentifier(const s, DefaultIdent: string): string;
implementation implementation
@ -363,8 +363,7 @@ begin
Result:=true; Result:=true;
end; end;
function ReadIdentifier( function ReadIdentifier(const s, DefaultIdent: string): string;
const s, DefaultIdent: string): string;
begin begin
if IsIdentifier(s) then if IsIdentifier(s) then
Result:=s Result:=s

20
ide/frames/options_codetools_codecreation.lfm
View File

@ -1,13 +1,13 @@
object CodetoolsCodeCreationOptionsFrame: TCodetoolsCodeCreationOptionsFrame inherited CodetoolsCodeCreationOptionsFrame: TCodetoolsCodeCreationOptionsFrame
Height = 377 Height = 377
Width = 572 Width = 572
ClientHeight = 377 ClientHeight = 377
ClientWidth = 572 ClientWidth = 572
TabOrder = 0 TabOrder = 0
Visible = False Visible = False
DesignLeft = 404 DesignLeft = 44
DesignTop = 209 DesignTop = 58
object ClassPartInsertPolicyRadioGroup: TRadioGroup object ClassPartInsertPolicyRadioGroup: TRadioGroup[0]
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner AnchorSideTop.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
@ -25,7 +25,7 @@ object CodetoolsCodeCreationOptionsFrame: TCodetoolsCodeCreationOptionsFrame
ChildSizing.ControlsPerLine = 1 ChildSizing.ControlsPerLine = 1
TabOrder = 0 TabOrder = 0
end end
object MethodInsertPolicyRadioGroup: TRadioGroup object MethodInsertPolicyRadioGroup: TRadioGroup[1]
AnchorSideLeft.Control = ClassPartInsertPolicyRadioGroup AnchorSideLeft.Control = ClassPartInsertPolicyRadioGroup
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Owner AnchorSideTop.Control = Owner
@ -48,7 +48,7 @@ object CodetoolsCodeCreationOptionsFrame: TCodetoolsCodeCreationOptionsFrame
ChildSizing.ControlsPerLine = 1 ChildSizing.ControlsPerLine = 1
TabOrder = 1 TabOrder = 1
end end
object MixMethodsAndPropertiesCheckBox: TCheckBox object MixMethodsAndPropertiesCheckBox: TCheckBox[2]
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = ClassPartInsertPolicyRadioGroup AnchorSideTop.Control = ClassPartInsertPolicyRadioGroup
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
@ -59,7 +59,7 @@ object CodetoolsCodeCreationOptionsFrame: TCodetoolsCodeCreationOptionsFrame
Caption = 'MixMethodsAndPropertiesCheckBox' Caption = 'MixMethodsAndPropertiesCheckBox'
TabOrder = 2 TabOrder = 2
end end
object ForwardProcsInsertPolicyRadioGroup: TRadioGroup object ForwardProcsInsertPolicyRadioGroup: TRadioGroup[3]
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = MixMethodsAndPropertiesCheckBox AnchorSideTop.Control = MixMethodsAndPropertiesCheckBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
@ -82,7 +82,7 @@ object CodetoolsCodeCreationOptionsFrame: TCodetoolsCodeCreationOptionsFrame
ChildSizing.ControlsPerLine = 1 ChildSizing.ControlsPerLine = 1
TabOrder = 3 TabOrder = 3
end end
object ForwardProcsKeepOrderCheckBox: TCheckBox object ForwardProcsKeepOrderCheckBox: TCheckBox[4]
AnchorSideLeft.Control = ForwardProcsInsertPolicyRadioGroup AnchorSideLeft.Control = ForwardProcsInsertPolicyRadioGroup
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = ForwardProcsInsertPolicyRadioGroup AnchorSideTop.Control = ForwardProcsInsertPolicyRadioGroup
@ -94,7 +94,7 @@ object CodetoolsCodeCreationOptionsFrame: TCodetoolsCodeCreationOptionsFrame
Caption = 'ForwardProcsKeepOrderCheckBox' Caption = 'ForwardProcsKeepOrderCheckBox'
TabOrder = 4 TabOrder = 4
end end
object ClassHeaderCommentsCheckBox: TCheckBox object ClassHeaderCommentsCheckBox: TCheckBox[5]
AnchorSideLeft.Control = ForwardProcsInsertPolicyRadioGroup AnchorSideLeft.Control = ForwardProcsInsertPolicyRadioGroup
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = ForwardProcsKeepOrderCheckBox AnchorSideTop.Control = ForwardProcsKeepOrderCheckBox
@ -107,7 +107,7 @@ object CodetoolsCodeCreationOptionsFrame: TCodetoolsCodeCreationOptionsFrame
Caption = 'ClassHeaderCommentsCheckBox' Caption = 'ClassHeaderCommentsCheckBox'
TabOrder = 5 TabOrder = 5
end end
object PropertyCompletionGroupBox: TGroupBox object PropertyCompletionGroupBox: TGroupBox[6]
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = ForwardProcsInsertPolicyRadioGroup AnchorSideTop.Control = ForwardProcsInsertPolicyRadioGroup
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom

223
ide/frames/options_codetools_codecreation.lrs
View File

@ -1,117 +1,118 @@
{ This is an automatically generated lazarus resource file } { This is an automatically generated lazarus resource file }
LazarusResources.Add('TCodetoolsCodeCreationOptionsFrame','FORMDATA',[ LazarusResources.Add('TCodetoolsCodeCreationOptionsFrame','FORMDATA',[
'TPF0"TCodetoolsCodeCreationOptionsFrame!CodetoolsCodeCreationOptionsFrame'#6 'TPF0'#241'"TCodetoolsCodeCreationOptionsFrame!CodetoolsCodeCreationOptionsFr'
+'Height'#3'y'#1#5'Width'#3'<'#2#12'ClientHeight'#3'y'#1#11'ClientWidth'#3'<' +'ame'#6'Height'#3'y'#1#5'Width'#3'<'#2#12'ClientHeight'#3'y'#1#11'ClientWidt'
+#2#8'TabOrder'#2#0#7'Visible'#8#10'DesignLeft'#3#148#1#9'DesignTop'#3#209#0#0 +'h'#3'<'#2#8'TabOrder'#2#0#7'Visible'#8#10'DesignLeft'#2','#9'DesignTop'#2':'
+#11'TRadioGroup'#31'ClassPartInsertPolicyRadioGroup'#22'AnchorSideLeft.Contr' +#0#242#2#0#11'TRadioGroup'#31'ClassPartInsertPolicyRadioGroup'#22'AnchorSide'
+'ol'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#20'AnchorSideRight.Side' +'Left.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#20'AnchorSide'
+#7#9'asrBottom'#6'Height'#2'd'#5'Width'#3#254#0#8'AutoFill'#9#7'Caption'#6#31 +'Right.Side'#7#9'asrBottom'#6'Height'#2'd'#5'Width'#3#254#0#8'AutoFill'#9#7
+'ClassPartInsertPolicyRadioGroup'#28'ChildSizing.LeftRightSpacing'#2#6#28'Ch' +'Caption'#6#31'ClassPartInsertPolicyRadioGroup'#28'ChildSizing.LeftRightSpac'
+'ildSizing.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsH' +'ing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizon'
+'omogenousChildResize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenousChi' +'tal'#7#24'crsHomogenousChildResize'#27'ChildSizing.EnlargeVertical'#7#24'cr'
+'ldResize'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSiz' +'sHomogenousChildResize'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChild'
+'ing.ShrinkVertical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclLef' +'s'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChilds'#18'ChildSizing.Layou'
+'tToRightThenTopToBottom'#27'ChildSizing.ControlsPerLine'#2#1#8'TabOrder'#2#0 +'t'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSizing.ControlsPerLine'#2#1#8
+#0#0#11'TRadioGroup'#28'MethodInsertPolicyRadioGroup'#22'AnchorSideLeft.Cont' +'TabOrder'#2#0#0#0#242#2#1#11'TRadioGroup'#28'MethodInsertPolicyRadioGroup'
+'rol'#7#31'ClassPartInsertPolicyRadioGroup'#19'AnchorSideLeft.Side'#7#9'asrB' +#22'AnchorSideLeft.Control'#7#31'ClassPartInsertPolicyRadioGroup'#19'AnchorS'
+'ottom'#21'AnchorSideTop.Control'#7#5'Owner'#23'AnchorSideRight.Control'#7#5 +'ideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#5'Owner'#23'Anchor'
+'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#4#1#6'Height'#2'd' +'SideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Lef'
+#5'Width'#3'8'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'AutoFill'#9 +'t'#3#4#1#6'Height'#2'd'#5'Width'#3'8'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7
+#18'BorderSpacing.Left'#2#6#7'Caption'#6#28'MethodInsertPolicyRadioGroup'#28 +'akRight'#0#8'AutoFill'#9#18'BorderSpacing.Left'#2#6#7'Caption'#6#28'MethodI'
+'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'C' +'nsertPolicyRadioGroup'#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing.'
+'hildSizing.EnlargeHorizontal'#7#24'crsHomogenousChildResize'#27'ChildSizing' +'TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsHomogenousC'
+'.EnlargeVertical'#7#24'crsHomogenousChildResize'#28'ChildSizing.ShrinkHoriz' +'hildResize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenousChildResize'
+'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' +#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSizing.Shrink'
+'Vertical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclLeftToRightTh' +'Vertical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclLeftToRightTh'
+'enTopToBottom'#27'ChildSizing.ControlsPerLine'#2#1#8'TabOrder'#2#3#0#0#9'TC' +'enTopToBottom'#27'ChildSizing.ControlsPerLine'#2#1#8'TabOrder'#2#1#0#0#242#2
+'heckBox'#29'ForwardProcsKeepOrderCheckBox'#22'AnchorSideLeft.Control'#7'"Fo' +#2#9'TCheckBox'#31'MixMethodsAndPropertiesCheckBox'#22'AnchorSideLeft.Contro'
+'rwardProcsInsertPolicyRadioGroup'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21 +'l'#7#5'Owner'#21'AnchorSideTop.Control'#7#31'ClassPartInsertPolicyRadioGrou'
+'AnchorSideTop.Control'#7'"ForwardProcsInsertPolicyRadioGroup'#4'Left'#3#4#1 +'p'#18'AnchorSideTop.Side'#7#9'asrBottom'#6'Height'#2#19#3'Top'#2'j'#5'Width'
+#6'Height'#2#19#3'Top'#3#143#0#5'Width'#3#191#0#20'BorderSpacing.Around'#2#6 +#3#198#0#17'BorderSpacing.Top'#2#6#7'Caption'#6#31'MixMethodsAndPropertiesCh'
+#7'Caption'#6#29'ForwardProcsKeepOrderCheckBox'#8'TabOrder'#2#4#0#0#9'TCheck' +'eckBox'#8'TabOrder'#2#2#0#0#242#2#3#11'TRadioGroup"ForwardProcsInsertPolicy'
+'Box'#27'ClassHeaderCommentsCheckBox'#22'AnchorSideLeft.Control'#7'"ForwardP' +'RadioGroup'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'
+'rocsInsertPolicyRadioGroup'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'Ancho' +#7#31'MixMethodsAndPropertiesCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'
+'rSideTop.Control'#7#29'ForwardProcsKeepOrderCheckBox'#18'AnchorSideTop.Side' +#23'AnchorSideRight.Control'#7#31'ClassPartInsertPolicyRadioGroup'#20'Anchor'
+#7#9'asrBottom'#4'Left'#3#4#1#6'Height'#2#19#3'Top'#3#168#0#5'Width'#3#183#0 +'SideRight.Side'#7#9'asrBottom'#6'Height'#2'd'#3'Top'#3#137#0#5'Width'#3#254
+#20'BorderSpacing.Around'#2#6#7'Caption'#6#27'ClassHeaderCommentsCheckBox'#8 +#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'AutoFill'#9#17'BorderSpac'
+'TabOrder'#2#5#0#0#9'TGroupBox'#26'PropertyCompletionGroupBox'#22'AnchorSide' +'ing.Top'#2#12#7'Caption'#6'"ForwardProcsInsertPolicyRadioGroup'#28'ChildSiz'
+'Left.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7'"ForwardProcsInsertPol' +'ing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'ChildSizi'
+'icyRadioGroup'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Con' +'ng.EnlargeHorizontal'#7#24'crsHomogenousChildResize'#27'ChildSizing.Enlarge'
+'trol'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#21'AnchorSideBotto' +'Vertical'#7#24'crsHomogenousChildResize'#28'ChildSizing.ShrinkHorizontal'#7
+'m.Side'#7#9'asrBottom'#6'Height'#2'{'#3'Top'#3#243#0#5'Width'#3'<'#2#7'Anch' +#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChilds'#18'C'
+'ors'#11#5'akTop'#6'akLeft'#7'akRight'#0#17'BorderSpacing.Top'#2#6#7'Caption' +'hildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSizing.Contr'
+#6#26'PropertyCompletionGroupBox'#12'ClientHeight'#2'i'#11'ClientWidth'#3'8' +'olsPerLine'#2#1#8'TabOrder'#2#3#0#0#242#2#4#9'TCheckBox'#29'ForwardProcsKee'
+#2#8'TabOrder'#2#6#0#6'TLabel'#28'PropertyReadIdentPrefixLabel'#21'AnchorSid' +'pOrderCheckBox'#22'AnchorSideLeft.Control'#7'"ForwardProcsInsertPolicyRadio'
+'eTop.Control'#7#27'PropertyReadIdentPrefixEdit'#18'AnchorSideTop.Side'#7#9 +'Group'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7'"'
+'asrCenter'#23'AnchorSideRight.Control'#7#27'PropertyReadIdentPrefixEdit'#4 +'ForwardProcsInsertPolicyRadioGroup'#4'Left'#3#4#1#6'Height'#2#19#3'Top'#3
+'Left'#2#243#6'Height'#2#14#3'Top'#2'#'#5'Width'#3#147#0#7'Anchors'#11#5'akT' +#143#0#5'Width'#3#191#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#29'Forward'
+'op'#7'akRight'#0#19'BorderSpacing.Right'#2#6#7'Caption'#6#28'PropertyReadId' +'ProcsKeepOrderCheckBox'#8'TabOrder'#2#4#0#0#242#2#5#9'TCheckBox'#27'ClassHe'
+'entPrefixLabel'#11'ParentColor'#8#0#0#6'TLabel'#29'PropertyWriteIdentPrefix' +'aderCommentsCheckBox'#22'AnchorSideLeft.Control'#7'"ForwardProcsInsertPolic'
+'Label'#21'AnchorSideTop.Control'#7#28'PropertyWriteIdentPrefixEdit'#18'Anch' +'yRadioGroup'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Contro'
,'orSideTop.Side'#7#9'asrCenter'#23'AnchorSideRight.Control'#7#28'PropertyWri' +'l'#7#29'ForwardProcsKeepOrderCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'
+'teIdentPrefixEdit'#4'Left'#2#242#6'Height'#2#14#3'Top'#2':'#5'Width'#3#148#0 +#4'Left'#3#4#1#6'Height'#2#19#3'Top'#3#168#0#5'Width'#3#183#0#20'BorderSpaci'
+#7'Anchors'#11#5'akTop'#7'akRight'#0#19'BorderSpacing.Right'#2#6#7'Caption'#6 +'ng.Around'#2#6#7'Caption'#6#27'ClassHeaderCommentsCheckBox'#8'TabOrder'#2#5
+#29'PropertyWriteIdentPrefixLabel'#11'ParentColor'#8#0#0#6'TLabel'#31'Proper' +#0#0#242#2#6#9'TGroupBox'#26'PropertyCompletionGroupBox'#22'AnchorSideLeft.C'
+'tyStoredIdentPostfixLabel'#21'AnchorSideTop.Control'#7#30'PropertyStoredIde' +'ontrol'#7#5'Owner'#21'AnchorSideTop.Control'#7'"ForwardProcsInsertPolicyRad'
+'ntPostfixEdit'#18'AnchorSideTop.Side'#7#9'asrCenter'#23'AnchorSideRight.Con' +'ioGroup'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7
+'trol'#7#30'PropertyStoredIdentPostfixEdit'#4'Left'#2#231#6'Height'#2#14#3'T' +#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#21'AnchorSideBottom.Side'#7
+'op'#2'Q'#5'Width'#3#159#0#7'Anchors'#11#5'akTop'#7'akRight'#0#19'BorderSpac' +#9'asrBottom'#6'Height'#2'{'#3'Top'#3#243#0#5'Width'#3'<'#2#7'Anchors'#11#5
+'ing.Right'#2#6#7'Caption'#6#31'PropertyStoredIdentPostfixLabel'#11'ParentCo' +'akTop'#6'akLeft'#7'akRight'#0#17'BorderSpacing.Top'#2#6#7'Caption'#6#26'Pro'
+'lor'#8#0#0#6'TLabel'#26'PrivateVariablePrefixLabel'#21'AnchorSideTop.Contro' +'pertyCompletionGroupBox'#12'ClientHeight'#2'i'#11'ClientWidth'#3'8'#2#8'Tab'
+'l'#7#25'PrivateVariablePrefixEdit'#18'AnchorSideTop.Side'#7#9'asrCenter'#23 +'Order'#2#6#0#6'TLabel'#28'PropertyReadIdentPrefixLabel'#21'AnchorSideTop.Co'
+'AnchorSideRight.Control'#7#25'PrivateVariablePrefixEdit'#4'Left'#3'^'#1#6'H' +'ntrol'#7#27'PropertyReadIdentPrefixEdit'#18'AnchorSideTop.Side'#7#9'asrCent'
+'eight'#2#14#3'Top'#2'#'#5'Width'#2'~'#7'Anchors'#11#5'akTop'#7'akRight'#0#19 +'er'#23'AnchorSideRight.Control'#7#27'PropertyReadIdentPrefixEdit'#4'Left'#2
+'BorderSpacing.Right'#2#6#7'Caption'#6#26'PrivateVariablePrefixLabel'#11'Par' +#243#6'Height'#2#14#3'Top'#2'#'#5'Width'#3#147#0#7'Anchors'#11#5'akTop'#7'ak'
+'entColor'#8#0#0#6'TLabel'#28'SetPropertyVariablenameLabel'#21'AnchorSideTop' +'Right'#0#19'BorderSpacing.Right'#2#6#7'Caption'#6#28'PropertyReadIdentPrefi'
+'.Control'#7#27'SetPropertyVariablenameEdit'#18'AnchorSideTop.Side'#7#9'asrC' +'xLabel'#11'ParentColor'#8#0#0#6'TLabel'#29'PropertyWriteIdentPrefixLabel'#21
+'enter'#23'AnchorSideRight.Control'#7#27'SetPropertyVariablenameEdit'#4'Left' ,'AnchorSideTop.Control'#7#28'PropertyWriteIdentPrefixEdit'#18'AnchorSideTop.'
+#3'H'#1#6'Height'#2#14#3'Top'#2':'#5'Width'#3#148#0#7'Anchors'#11#5'akTop'#7 +'Side'#7#9'asrCenter'#23'AnchorSideRight.Control'#7#28'PropertyWriteIdentPre'
+'akRight'#0#19'BorderSpacing.Right'#2#6#7'Caption'#6#28'SetPropertyVariablen' +'fixEdit'#4'Left'#2#242#6'Height'#2#14#3'Top'#2':'#5'Width'#3#148#0#7'Anchor'
+'ameLabel'#11'ParentColor'#8#0#0#9'TCheckBox'#26'PropertyCompletionCheckBox' +'s'#11#5'akTop'#7'akRight'#0#19'BorderSpacing.Right'#2#6#7'Caption'#6#29'Pro'
+#22'AnchorSideLeft.Control'#7#26'PropertyCompletionGroupBox'#21'AnchorSideTo' +'pertyWriteIdentPrefixLabel'#11'ParentColor'#8#0#0#6'TLabel'#31'PropertyStor'
+'p.Control'#7#26'PropertyCompletionGroupBox'#4'Left'#2#6#6'Height'#2#19#3'To' +'edIdentPostfixLabel'#21'AnchorSideTop.Control'#7#30'PropertyStoredIdentPost'
+'p'#2#6#5'Width'#3#168#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#26'Proper' +'fixEdit'#18'AnchorSideTop.Side'#7#9'asrCenter'#23'AnchorSideRight.Control'#7
+'tyCompletionCheckBox'#8'TabOrder'#2#0#0#0#5'TEdit'#27'PropertyReadIdentPref' +#30'PropertyStoredIdentPostfixEdit'#4'Left'#2#231#6'Height'#2#14#3'Top'#2'Q'
+'ixEdit'#22'AnchorSideLeft.Control'#7#28'PropertyWriteIdentPrefixEdit'#18'An' +#5'Width'#3#159#0#7'Anchors'#11#5'akTop'#7'akRight'#0#19'BorderSpacing.Right'
+'chorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#28'PropertyW' +#2#6#7'Caption'#6#31'PropertyStoredIdentPostfixLabel'#11'ParentColor'#8#0#0#6
+'riteIdentPrefixEdit'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#140#0 +'TLabel'#26'PrivateVariablePrefixLabel'#21'AnchorSideTop.Control'#7#25'Priva'
+#6'Height'#2#23#3'Top'#2#31#5'Width'#2'P'#7'Anchors'#11#5'akTop'#6'akLeft'#7 +'teVariablePrefixEdit'#18'AnchorSideTop.Side'#7#9'asrCenter'#23'AnchorSideRi'
+'akRight'#0#8'TabOrder'#2#1#4'Text'#6#27'PropertyReadIdentPrefixEdit'#0#0#5 +'ght.Control'#7#25'PrivateVariablePrefixEdit'#4'Left'#3'^'#1#6'Height'#2#14#3
+'TEdit'#28'PropertyWriteIdentPrefixEdit'#21'AnchorSideTop.Control'#7#27'Prop' +'Top'#2'#'#5'Width'#2'~'#7'Anchors'#11#5'akTop'#7'akRight'#0#19'BorderSpacin'
+'ertyReadIdentPrefixEdit'#18'AnchorSideTop.Side'#7#9'asrBottom'#20'AnchorSid' +'g.Right'#2#6#7'Caption'#6#26'PrivateVariablePrefixLabel'#11'ParentColor'#8#0
+'eRight.Side'#7#9'asrBottom'#4'Left'#3#140#0#6'Height'#2#23#3'Top'#2'6'#5'Wi' +#0#6'TLabel'#28'SetPropertyVariablenameLabel'#21'AnchorSideTop.Control'#7#27
+'dth'#2'P'#8'TabOrder'#2#2#4'Text'#6#28'PropertyWriteIdentPrefixEdit'#0#0#5 +'SetPropertyVariablenameEdit'#18'AnchorSideTop.Side'#7#9'asrCenter'#23'Ancho'
+'TEdit'#30'PropertyStoredIdentPostfixEdit'#21'AnchorSideTop.Control'#7#28'Pr' +'rSideRight.Control'#7#27'SetPropertyVariablenameEdit'#4'Left'#3'H'#1#6'Heig'
+'opertyWriteIdentPrefixEdit'#18'AnchorSideTop.Side'#7#9'asrBottom'#20'Anchor' +'ht'#2#14#3'Top'#2':'#5'Width'#3#148#0#7'Anchors'#11#5'akTop'#7'akRight'#0#19
+'SideRight.Side'#7#9'asrBottom'#4'Left'#3#140#0#6'Height'#2#23#3'Top'#2'M'#5 +'BorderSpacing.Right'#2#6#7'Caption'#6#28'SetPropertyVariablenameLabel'#11'P'
+'Width'#2'P'#8'TabOrder'#2#3#4'Text'#6#30'PropertyStoredIdentPostfixEdit'#0#0 +'arentColor'#8#0#0#9'TCheckBox'#26'PropertyCompletionCheckBox'#22'AnchorSide'
+#5'TEdit'#25'PrivateVariablePrefixEdit'#21'AnchorSideTop.Control'#7#27'Prope' +'Left.Control'#7#26'PropertyCompletionGroupBox'#21'AnchorSideTop.Control'#7
+'rtyReadIdentPrefixEdit'#18'AnchorSideTop.Side'#7#9'asrCenter'#23'AnchorSide' +#26'PropertyCompletionGroupBox'#4'Left'#2#6#6'Height'#2#19#3'Top'#2#6#5'Widt'
+'Right.Control'#7#26'PropertyCompletionGroupBox'#20'AnchorSideRight.Side'#7#9 +'h'#3#168#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#26'PropertyCompletionC'
+'asrBottom'#4'Left'#3#226#1#6'Height'#2#23#3'Top'#2#31#5'Width'#2'P'#7'Ancho' +'heckBox'#8'TabOrder'#2#0#0#0#5'TEdit'#27'PropertyReadIdentPrefixEdit'#22'An'
+'rs'#11#5'akTop'#7'akRight'#0#19'BorderSpacing.Right'#2#6#8'TabOrder'#2#4#4 +'chorSideLeft.Control'#7#28'PropertyWriteIdentPrefixEdit'#18'AnchorSideTop.S'
+'Text'#6#25'PrivateVariablePrefixEdit'#0#0#5'TEdit'#27'SetPropertyVariablena' +'ide'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#28'PropertyWriteIdentPref'
+'meEdit'#21'AnchorSideTop.Control'#7#28'PropertyWriteIdentPrefixEdit'#18'Anc' +'ixEdit'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#140#0#6'Height'#2
+'horSideTop.Side'#7#9'asrCenter'#23'AnchorSideRight.Control'#7#26'PropertyCo' +#23#3'Top'#2#31#5'Width'#2'P'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8
+'mpletionGroupBox'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#226#1#6 +'TabOrder'#2#1#4'Text'#6#27'PropertyReadIdentPrefixEdit'#0#0#5'TEdit'#28'Pro'
+'Height'#2#23#3'Top'#2'6'#5'Width'#2'P'#7'Anchors'#11#5'akTop'#7'akRight'#0 +'pertyWriteIdentPrefixEdit'#21'AnchorSideTop.Control'#7#27'PropertyReadIdent'
+#19'BorderSpacing.Right'#2#6#8'TabOrder'#2#5#4'Text'#6#27'SetPropertyVariabl' +'PrefixEdit'#18'AnchorSideTop.Side'#7#9'asrBottom'#20'AnchorSideRight.Side'#7
+'enameEdit'#0#0#0#0 +#9'asrBottom'#4'Left'#3#140#0#6'Height'#2#23#3'Top'#2'6'#5'Width'#2'P'#8'Tab'
+'Order'#2#2#4'Text'#6#28'PropertyWriteIdentPrefixEdit'#0#0#5'TEdit'#30'Prope'
+'rtyStoredIdentPostfixEdit'#21'AnchorSideTop.Control'#7#28'PropertyWriteIden'
+'tPrefixEdit'#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'T'
+'abOrder'#2#3#4'Text'#6#30'PropertyStoredIdentPostfixEdit'#0#0#5'TEdit'#25'P'
+'rivateVariablePrefixEdit'#21'AnchorSideTop.Control'#7#27'PropertyReadIdentP'
+'refixEdit'#18'AnchorSideTop.Side'#7#9'asrCenter'#23'AnchorSideRight.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'Anchors'#11#5'akTo'
+'p'#7'akRight'#0#19'BorderSpacing.Right'#2#6#8'TabOrder'#2#4#4'Text'#6#25'Pr'
+'ivateVariablePrefixEdit'#0#0#5'TEdit'#27'SetPropertyVariablenameEdit'#21'An'
+'chorSideTop.Control'#7#28'PropertyWriteIdentPrefixEdit'#18'AnchorSideTop.Si'
+'de'#7#9'asrCenter'#23'AnchorSideRight.Control'#7#26'PropertyCompletionGroup'
+'Box'#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'BorderSpac'
+'ing.Right'#2#6#8'TabOrder'#2#5#4'Text'#6#27'SetPropertyVariablenameEdit'#0#0
+#0#0
]); ]);

19
ide/frames/options_codetools_codecreation.pas
View File

@ -169,6 +169,13 @@ begin
// mipClassOrder // mipClassOrder
MethodInsertPolicyRadioGroup.ItemIndex:=2; MethodInsertPolicyRadioGroup.ItemIndex:=2;
end; end;
PropertyCompletionCheckBox.Checked := CompleteProperties;
PropertyReadIdentPrefixEdit.Text := PropertyReadIdentPrefix;
PropertyWriteIdentPrefixEdit.Text := PropertyWriteIdentPrefix;
PropertyStoredIdentPostfixEdit.Text := PropertyStoredIdentPostfix;
PrivateVariablePrefixEdit.Text := PrivateVariablePrefix;
SetPropertyVariablenameEdit.Text := SetPropertyVariablename;
end; end;
end; end;
@ -195,6 +202,18 @@ begin
1: MethodInsertPolicy := mipLast; 1: MethodInsertPolicy := mipLast;
2: MethodInsertPolicy := mipClassOrder; 2: MethodInsertPolicy := mipClassOrder;
end; end;
CompleteProperties:=PropertyCompletionCheckBox.Checked;
PropertyReadIdentPrefix :=
ReadIdentifier(PropertyReadIdentPrefixEdit.Text,'Get');
PropertyWriteIdentPrefix :=
ReadIdentifier(PropertyWriteIdentPrefixEdit.Text,'Set');
PropertyStoredIdentPostfix :=
ReadIdentifier(PropertyStoredIdentPostfixEdit.Text,'IsStored');
PrivateVariablePrefix :=
ReadIdentifier(PrivateVariablePrefixEdit.Text,'F');
SetPropertyVariablename :=
ReadIdentifier(SetPropertyVariablenameEdit.Text,'AValue');
end; end;
end; end;