ide: code creation frame: fix reading and writing CodeToolsOptions

git-svn-id: trunk@17208 -
2025-04-21 14:39:27 +02:00 · 2008-11-04 04:37:56 +00:00 · 2008-11-04 04:37:56 +00:00 · b7075d613f
commit b7075d613f
parent 5ffabda417
6 changed files with 279 additions and 254 deletions
--- a/ide/codetoolsoptions.lfm
+++ b/ide/codetoolsoptions.lfm
@ -24,7 +24,7 @@ object CodeToolsOptsDlg: TCodeToolsOptsDlg
    Width = 560
    Align = alClient
    BorderSpacing.Bottom = 6
-    PageIndex = 2
+    PageIndex = 1
    TabOrder = 0
    object GeneralPage: TPage
      AnchorSideTop.Control = CodeCreationPage
@ -529,6 +529,7 @@ object CodeToolsOptsDlg: TCodeToolsOptsDlg
        ParentFont = False
        TabOrder = 3
        BookMarkOptions.Xoffset = -18
+        BookMarkOptions.OnChange = nil
        Gutter.Visible = False
        Keystrokes = <        
          item
@ -854,6 +855,7 @@ object CodeToolsOptsDlg: TCodeToolsOptsDlg
        Lines.Strings = (
          'SplitPreviewSynEdit'
        )
+        SelectedColor.OnChange = nil
      end
    end
    object SpaceNotCosmosPage: TPage
@ -926,6 +928,7 @@ object CodeToolsOptsDlg: TCodeToolsOptsDlg
        ParentFont = False
        TabOrder = 2
        BookMarkOptions.Xoffset = -18
+        BookMarkOptions.OnChange = nil
        Gutter.Visible = False
        Keystrokes = <        
          item
@ -1251,6 +1254,7 @@ object CodeToolsOptsDlg: TCodeToolsOptsDlg
        Lines.Strings = (
          'SpacePreviewSynEdit'
        )
+        SelectedColor.OnChange = nil
      end
    end
    object IdentifierCompletionPage: TPage
--- a/ide/codetoolsoptions.lrs
+++ b/ide/codetoolsoptions.lrs
@ -10,7 +10,7 @@ LazarusResources.Add('TCodeToolsOptsDlg','FORMDATA',[
  +#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'
  +#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'
  +'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
@ -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
  +#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'
-  +'offset'#2#238#14'Gutter.Visible'#8#10'Keystrokes'#14#1#7'Command'#2#3#8'Sho'
-  +'rtCut'#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'S'
-  +'hortCut'#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'S'
-  +'hortCut'#3'%@'#0#1#7'Command'#2'i'#8'ShortCut'#3'%`'#0#1#7'Command'#2#2#8'S'
-  +'hortCut'#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'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'ShortCut'#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'ShortCut'#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'Comman'
-  +'d'#3'['#2#8'ShortCut'#3'. '#0#1#7'Command'#3#245#1#8'ShortCut'#2#8#0#1#7'Co'
-  +'mmand'#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'Short'
-  +'Cut'#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'Comm'
-  +'and'#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'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'ShortC'
-  +'ut'#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'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'Comman'
-  +'d'#3'1'#1#8'ShortCut'#3'4@'#0#1#7'Command'#3'2'#1#8'ShortCut'#3'5@'#0#1#7'C'
-  +'ommand'#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'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'ShortCu'
-  +'t'#3'3`'#0#1#7'Command'#3'c'#1#8'ShortCut'#3'4`'#0#1#7'Command'#3'd'#1#8'Sh'
-  +'ortCut'#3'5`'#0#1#7'Command'#3'e'#1#8'ShortCut'#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'Comma'
-  ,'nd'#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'SplitPrev'
-  +'iewSynEdit'#0#0#0#0#5'TPage'#18'SpaceNotCosmosPage'#7'Caption'#6#18'SpaceNo'
-  +'tCosmosPage'#11'ClientWidth'#3','#2#12'ClientHeight'#3'o'#1#0#6'TLabel'#17
-  +'SpacePreviewLabel'#22'AnchorSideLeft.Control'#7#18'SpaceNotCosmosPage'#21'A'
-  +'nchorSideTop.Control'#7#28'DoInsertSpaceInFrontGroupBox'#18'AnchorSideTop.S'
-  +'ide'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#20#3'Top'#3#162#0#5'Width'#2'{'
-  +#18'BorderSpacing.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
-  +'DoInsertSpaceInFrontGroupBox'#22'AnchorSideLeft.Control'#7#18'SpaceNotCosmo'
-  +'sPage'#21'AnchorSideTop.Control'#7#18'SpaceNotCosmosPage'#4'Left'#2#6#6'Hei'
-  +'ght'#3#150#0#3'Top'#2#6#5'Width'#3#10#1#20'BorderSpacing.Around'#2#6#7'Capt'
-  +'ion'#6#28'DoInsertSpaceInFrontGroupBox'#8'TabOrder'#2#0#7'OnClick'#7#14'Upd'
-  +'ateExamples'#0#0#9'TGroupBox'#26'DoInsertSpaceAfterGroupBox'#22'AnchorSideL'
-  +'eft.Control'#7#28'DoInsertSpaceInFrontGroupBox'#19'AnchorSideLeft.Side'#7#9
-  +'asrBottom'#21'AnchorSideTop.Control'#7#18'SpaceNotCosmosPage'#23'AnchorSide'
-  +'Right.Control'#7#18'SpaceNotCosmosPage'#20'AnchorSideRight.Side'#7#9'asrBot'
-  +'tom'#4'Left'#3#22#1#6'Height'#3#150#0#3'Top'#2#6#5'Width'#3#16#1#7'Anchors'
-  +#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Around'#2#6#7'Caption'#6
-  +#26'DoInsertSpaceAfterGroupBox'#8'TabOrder'#2#1#7'OnClick'#7#14'UpdateExampl'
-  +'es'#0#0#8'TSynEdit'#19'SpacePreviewSynEdit'#22'AnchorSideLeft.Control'#7#18
-  +'SpaceNotCosmosPage'#21'AnchorSideTop.Control'#7#17'SpacePreviewLabel'#18'An'
-  +'chorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#18'SpaceNotC'
-  +'osmosPage'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSideBottom.Cont'
-  +'rol'#7#18'SpaceNotCosmosPage'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Le'
-  +'ft'#2#6#6'Height'#3#179#0#3'Top'#3#182#0#5'Width'#3' '#2#18'BorderSpacing.L'
-  +'eft'#2#6#19'BorderSpacing.Right'#2#6#20'BorderSpacing.Bottom'#2#6#7'Anchors'
-  +#11#5'akTop'#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'fqNon'
-  +'Antialiased'#11'ParentColor'#8#10'ParentFont'#8#8'TabOrder'#2#2#23'BookMark'
-  +'Options.Xoffset'#2#238#14'Gutter.Visible'#8#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'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'ShortCut'#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'ShortCut'#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'Comman'
-  +'d'#3'['#2#8'ShortCut'#3'. '#0#1#7'Command'#3#245#1#8'ShortCut'#2#8#0#1#7'Co'
-  +'mmand'#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'Short'
-  +'Cut'#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'Comm'
-  +'and'#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'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'ShortC'
-  +'ut'#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'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'Comman'
-  +'d'#3'1'#1#8'ShortCut'#3'4@'#0#1#7'Command'#3'2'#1#8'ShortCut'#3'5@'#0#1#7'C'
-  +'ommand'#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'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'ShortCu'
-  +'t'#3'3`'#0#1#7'Command'#3'c'#1#8'ShortCut'#3'4`'#0#1#7'Command'#3'd'#1#8'Sh'
-  +'ortCut'#3'5`'#0#1#7'Command'#3'e'#1#8'ShortCut'#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'Comma'
-  +'nd'#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'SpacePrev'
-  +'iewSynEdit'#0#0#0#0#5'TPage'#24'IdentifierCompletionPage'#7'Caption'#6#24'I'
-  +'dentifierCompletionPage'#11'ClientWidth'#3','#2#12'ClientHeight'#3'o'#1#0#9
-  +'TCheckBox'#22'ICAddSemicolonCheckBox'#22'AnchorSideLeft.Control'#7#24'Ident'
-  +'ifierCompletionPage'#21'AnchorSideTop.Control'#7#24'IdentifierCompletionPag'
-  +'e'#4'Left'#2#6#6'Height'#2#22#3'Top'#2#6#5'Width'#3#190#0#20'BorderSpacing.'
-  +'Around'#2#6#7'Caption'#6#22'ICAddSemicolonCheckBox'#8'TabOrder'#2#0#0#0#9'T'
-  +'CheckBox'#27'ICAddAssignOperatorCheckBox'#22'AnchorSideLeft.Control'#7#24'I'
-  +'dentifierCompletionPage'#21'AnchorSideTop.Control'#7#22'ICAddSemicolonCheck'
-  +'Box'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#23#3'Top'
-  +#2'"'#5'Width'#2'Z'#20'BorderSpacing.Around'#2#6#7'Caption'#6#27'ICAddAssign'
-  +'OperatorCheckBox'#8'TabOrder'#2#1#0#0#0#0#12'TButtonPanel'#11'ButtonPanel'#4
-  +'Left'#2#6#6'Height'#2'('#3'Top'#3#139#1#5'Width'#3'$'#2#5'Align'#7#8'alBott'
-  +'om'#8'AutoSize'#9#8'TabOrder'#2#1#11'ShowButtons'#11#4'pbOK'#8'pbCancel'#6
-  +'pbHelp'#0#0#0#0
+  +'offset'#2#238#24'BookMarkOptions.OnChange'#13#14'Gutter.Visible'#8#10'Keyst'
+  +'rokes'#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'ShortCu'
+  +'t'#2'('#0#1#7'Command'#2'h'#8'ShortCut'#3'( '#0#1#7'Command'#3#212#0#8'Shor'
+  +'tCut'#3'(@'#0#1#7'Command'#2#1#8'ShortCut'#2'%'#0#1#7'Command'#2'e'#8'Short'
+  +'Cut'#3'% '#0#1#7'Command'#2#5#8'ShortCut'#3'%@'#0#1#7'Command'#2'i'#8'Short'
+  +'Cut'#3'%`'#0#1#7'Command'#2#2#8'ShortCut'#2''''#0#1#7'Command'#2'f'#8'Short'
+  +'Cut'#3''' '#0#1#7'Command'#2#6#8'ShortCut'#3'''@'#0#1#7'Command'#2'j'#8'Sho'
+  +'rtCut'#3'''`'#0#1#7'Command'#2#10#8'ShortCut'#2'"'#0#1#7'Command'#2'n'#8'Sh'
+  +'ortCut'#3'" '#0#1#7'Command'#2#14#8'ShortCut'#3'"@'#0#1#7'Command'#2'r'#8'S'
+  +'hortCut'#3'"`'#0#1#7'Command'#2#9#8'ShortCut'#2'!'#0#1#7'Command'#2'm'#8'Sh'
+  +'ortCut'#3'! '#0#1#7'Command'#2#13#8'ShortCut'#3'!@'#0#1#7'Command'#2'q'#8'S'
+  +'hortCut'#3'!`'#0#1#7'Command'#2#7#8'ShortCut'#2'$'#0#1#7'Command'#2'k'#8'Sh'
+  +'ortCut'#3'$ '#0#1#7'Command'#2#15#8'ShortCut'#3'$@'#0#1#7'Command'#2's'#8'S'
+  +'hortCut'#3'$`'#0#1#7'Command'#2#8#8'ShortCut'#2'#'#0#1#7'Command'#2'l'#8'Sh'
+  +'ortCut'#3'# '#0#1#7'Command'#2#16#8'ShortCut'#3'#@'#0#1#7'Command'#2't'#8'S'
+  +'hortCut'#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'o'#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#20#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#16#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#179#0#3'Top'#3#182#0#5'Width'#3' '#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'#10'Font.Pitch'#7#7'fpFixed'#12'Font.Quality'#7#16'fqNonAntialias'
+  +'ed'#11'ParentColor'#8#10'ParentFont'#8#8'TabOrder'#2#2#23'BookMarkOptions.X'
+  +'offset'#2#238#24'BookMarkOptions.OnChange'#13#14'Gutter.Visible'#8#10'Keyst'
+  +'rokes'#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'ShortCu'
+  +'t'#2'('#0#1#7'Command'#2'h'#8'ShortCut'#3'( '#0#1#7'Command'#3#212#0#8'Shor'
+  +'tCut'#3'(@'#0#1#7'Command'#2#1#8'ShortCut'#2'%'#0#1#7'Command'#2'e'#8'Short'
+  +'Cut'#3'% '#0#1#7'Command'#2#5#8'ShortCut'#3'%@'#0#1#7'Command'#2'i'#8'Short'
+  +'Cut'#3'%`'#0#1#7'Command'#2#2#8'ShortCut'#2''''#0#1#7'Command'#2'f'#8'Short'
+  +'Cut'#3''' '#0#1#7'Command'#2#6#8'ShortCut'#3'''@'#0#1#7'Command'#2'j'#8'Sho'
+  +'rtCut'#3'''`'#0#1#7'Command'#2#10#8'ShortCut'#2'"'#0#1#7'Command'#2'n'#8'Sh'
+  +'ortCut'#3'" '#0#1#7'Command'#2#14#8'ShortCut'#3'"@'#0#1#7'Command'#2'r'#8'S'
+  +'hortCut'#3'"`'#0#1#7'Command'#2#9#8'ShortCut'#2'!'#0#1#7'Command'#2'm'#8'Sh'
+  +'ortCut'#3'! '#0#1#7'Command'#2#13#8'ShortCut'#3'!@'#0#1#7'Command'#2'q'#8'S'
+  +'hortCut'#3'!`'#0#1#7'Command'#2#7#8'ShortCut'#2'$'#0#1#7'Command'#2'k'#8'Sh'
+  +'ortCut'#3'$ '#0#1#7'Command'#2#15#8'ShortCut'#3'$@'#0#1#7'Command'#2's'#8'S'
+  +'hortCut'#3'$`'#0#1#7'Command'#2#8#8'ShortCut'#2'#'#0#1#7'Command'#2'l'#8'Sh'
+  +'ortCut'#3'# '#0#1#7'Command'#2#16#8'ShortCut'#3'#@'#0#1#7'Command'#2't'#8'S'
+  +'hortCut'#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'SpacePreviewSynEdit'#0#22'SelectedColor.OnChan'
+  +'ge'#13#0#0#0#5'TPage'#24'IdentifierCompletionPage'#7'Caption'#6#24'Identifi'
+  +'erCompletionPage'#11'ClientWidth'#3','#2#12'ClientHeight'#3'o'#1#0#9'TCheck'
+  +'Box'#22'ICAddSemicolonCheckBox'#22'AnchorSideLeft.Control'#7#24'IdentifierC'
+  +'ompletionPage'#21'AnchorSideTop.Control'#7#24'IdentifierCompletionPage'#4'L'
+  +'eft'#2#6#6'Height'#2#22#3'Top'#2#6#5'Width'#3#190#0#20'BorderSpacing.Around'
+  +#2#6#7'Caption'#6#22'ICAddSemicolonCheckBox'#8'TabOrder'#2#0#0#0#9'TCheckBox'
+  +#27'ICAddAssignOperatorCheckBox'#22'AnchorSideLeft.Control'#7#24'IdentifierC'
+  +'ompletionPage'#21'AnchorSideTop.Control'#7#22'ICAddSemicolonCheckBox'#18'An'
+  +'chorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#23#3'Top'#2'"'#5'W'
+  +'idth'#2'Z'#20'BorderSpacing.Around'#2#6#7'Caption'#6#27'ICAddAssignOperator'
+  +'CheckBox'#8'TabOrder'#2#1#0#0#0#0#12'TButtonPanel'#11'ButtonPanel'#4'Left'#2
+  +#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
 ]);
--- a/ide/codetoolsoptions.pas
+++ b/ide/codetoolsoptions.pas
@ -271,7 +271,7 @@ function ShowCodeToolsOptions(Options: TCodeToolsOptions;
                        const OnGetSynEditSettings: TNotifyEvent): TModalResult;
 function GetTranslatedAtomTypes(a: TAtomType): string;
 function TranslatedAtomToType(const s: string): TAtomType;
-
+function ReadIdentifier(const s, DefaultIdent: string): string;

 implementation

@ -363,8 +363,7 @@ begin
  Result:=true;
 end;

-function ReadIdentifier(
-  const s, DefaultIdent: string): string;
+function ReadIdentifier(const s, DefaultIdent: string): string;
 begin
  if IsIdentifier(s) then
    Result:=s
--- a/ide/frames/options_codetools_codecreation.lfm
+++ b/ide/frames/options_codetools_codecreation.lfm
@ -1,13 +1,13 @@
-object CodetoolsCodeCreationOptionsFrame: TCodetoolsCodeCreationOptionsFrame
+inherited CodetoolsCodeCreationOptionsFrame: TCodetoolsCodeCreationOptionsFrame
  Height = 377
  Width = 572
  ClientHeight = 377
  ClientWidth = 572
  TabOrder = 0
  Visible = False
-  DesignLeft = 404
-  DesignTop = 209
-  object ClassPartInsertPolicyRadioGroup: TRadioGroup
+  DesignLeft = 44
+  DesignTop = 58
+  object ClassPartInsertPolicyRadioGroup: TRadioGroup[0]
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = Owner
    AnchorSideRight.Side = asrBottom
@ -25,7 +25,7 @@ object CodetoolsCodeCreationOptionsFrame: TCodetoolsCodeCreationOptionsFrame
    ChildSizing.ControlsPerLine = 1
    TabOrder = 0
  end
-  object MethodInsertPolicyRadioGroup: TRadioGroup
+  object MethodInsertPolicyRadioGroup: TRadioGroup[1]
    AnchorSideLeft.Control = ClassPartInsertPolicyRadioGroup
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = Owner
@ -48,7 +48,7 @@ object CodetoolsCodeCreationOptionsFrame: TCodetoolsCodeCreationOptionsFrame
    ChildSizing.ControlsPerLine = 1
    TabOrder = 1
  end
-  object MixMethodsAndPropertiesCheckBox: TCheckBox
+  object MixMethodsAndPropertiesCheckBox: TCheckBox[2]
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = ClassPartInsertPolicyRadioGroup
    AnchorSideTop.Side = asrBottom
@ -59,7 +59,7 @@ object CodetoolsCodeCreationOptionsFrame: TCodetoolsCodeCreationOptionsFrame
    Caption = 'MixMethodsAndPropertiesCheckBox'
    TabOrder = 2
  end
-  object ForwardProcsInsertPolicyRadioGroup: TRadioGroup
+  object ForwardProcsInsertPolicyRadioGroup: TRadioGroup[3]
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = MixMethodsAndPropertiesCheckBox
    AnchorSideTop.Side = asrBottom
@ -82,7 +82,7 @@ object CodetoolsCodeCreationOptionsFrame: TCodetoolsCodeCreationOptionsFrame
    ChildSizing.ControlsPerLine = 1
    TabOrder = 3
  end
-  object ForwardProcsKeepOrderCheckBox: TCheckBox
+  object ForwardProcsKeepOrderCheckBox: TCheckBox[4]
    AnchorSideLeft.Control = ForwardProcsInsertPolicyRadioGroup
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = ForwardProcsInsertPolicyRadioGroup
@ -94,7 +94,7 @@ object CodetoolsCodeCreationOptionsFrame: TCodetoolsCodeCreationOptionsFrame
    Caption = 'ForwardProcsKeepOrderCheckBox'
    TabOrder = 4
  end
-  object ClassHeaderCommentsCheckBox: TCheckBox
+  object ClassHeaderCommentsCheckBox: TCheckBox[5]
    AnchorSideLeft.Control = ForwardProcsInsertPolicyRadioGroup
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = ForwardProcsKeepOrderCheckBox
@ -107,7 +107,7 @@ object CodetoolsCodeCreationOptionsFrame: TCodetoolsCodeCreationOptionsFrame
    Caption = 'ClassHeaderCommentsCheckBox'
    TabOrder = 5
  end
-  object PropertyCompletionGroupBox: TGroupBox
+  object PropertyCompletionGroupBox: TGroupBox[6]
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = ForwardProcsInsertPolicyRadioGroup
    AnchorSideTop.Side = asrBottom
--- a/ide/frames/options_codetools_codecreation.lrs
+++ b/ide/frames/options_codetools_codecreation.lrs
@ -1,117 +1,118 @@
 { This is an automatically generated lazarus resource file }

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

@ -195,6 +202,18 @@ begin
      1: MethodInsertPolicy := mipLast;
      2: MethodInsertPolicy := mipClassOrder;
    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;