IDE: class completion options: improved layout

git-svn-id: trunk@22296 -
This commit is contained in:
mattias 2009-10-26 19:59:06 +00:00
parent 027ebef2f6
commit 241ebb3899
3 changed files with 210 additions and 222 deletions

View File

@ -1,8 +1,8 @@
inherited CodetoolsClassCompletionOptionsFrame: TCodetoolsClassCompletionOptionsFrame inherited CodetoolsClassCompletionOptionsFrame: TCodetoolsClassCompletionOptionsFrame
Height = 377 Height = 455
Width = 572 Width = 572
ClientHeight = 373 ClientHeight = 455
ClientWidth = 568 ClientWidth = 572
TabOrder = 0 TabOrder = 0
Visible = False Visible = False
DesignLeft = 334 DesignLeft = 334
@ -36,7 +36,7 @@ inherited CodetoolsClassCompletionOptionsFrame: TCodetoolsClassCompletionOptions
Left = 260 Left = 260
Height = 100 Height = 100
Top = 0 Top = 0
Width = 308 Width = 312
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoFill = True AutoFill = True
BorderSpacing.Left = 6 BorderSpacing.Left = 6
@ -82,80 +82,16 @@ inherited CodetoolsClassCompletionOptionsFrame: TCodetoolsClassCompletionOptions
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 0 Left = 0
Height = 193 Height = 194
Top = 173 Top = 173
Width = 568 Width = 572
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'PropertyCompletionGroupBox' Caption = 'PropertyCompletionGroupBox'
ClientHeight = 174 ClientHeight = 175
ClientWidth = 564 ClientWidth = 568
TabOrder = 4 TabOrder = 4
object PropertyReadIdentPrefixLabel: TLabel
AnchorSideTop.Control = PropertyReadIdentPrefixEdit
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = PropertyReadIdentPrefixEdit
Left = -27
Height = 18
Top = 32
Width = 187
Anchors = [akTop, akRight]
BorderSpacing.Right = 6
Caption = 'PropertyReadIdentPrefixLabel'
ParentColor = False
end
object PropertyWriteIdentPrefixLabel: TLabel
AnchorSideTop.Control = PropertyWriteIdentPrefixEdit
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = PropertyWriteIdentPrefixEdit
Left = -27
Height = 18
Top = 59
Width = 187
Anchors = [akTop, akRight]
BorderSpacing.Right = 6
Caption = 'PropertyWriteIdentPrefixLabel'
ParentColor = False
end
object PropertyStoredIdentPostfixLabel: TLabel
AnchorSideTop.Control = PropertyStoredIdentPostfixEdit
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = PropertyStoredIdentPostfixEdit
Left = -46
Height = 18
Top = 86
Width = 206
Anchors = [akTop, akRight]
BorderSpacing.Right = 6
Caption = 'PropertyStoredIdentPostfixLabel'
ParentColor = False
end
object PrivateVariablePrefixLabel: TLabel
AnchorSideTop.Control = PrivateVariablePrefixEdit
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = PrivateVariablePrefixEdit
Left = -5
Height = 18
Top = 113
Width = 165
Anchors = [akTop, akRight]
BorderSpacing.Right = 6
Caption = 'PrivateVariablePrefixLabel'
ParentColor = False
end
object SetPropertyVariablenameLabel: TLabel
AnchorSideTop.Control = SetPropertyVariablenameEdit
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = SetPropertyVariablenameEdit
Left = -39
Height = 18
Top = 140
Width = 199
Anchors = [akTop, akRight]
BorderSpacing.Right = 6
Caption = 'SetPropertyVariablenameLabel'
ParentColor = False
end
object PropertyCompletionCheckBox: TCheckBox object PropertyCompletionCheckBox: TCheckBox
AnchorSideLeft.Control = PropertyCompletionGroupBox AnchorSideLeft.Control = PropertyCompletionGroupBox
AnchorSideTop.Control = PropertyCompletionGroupBox AnchorSideTop.Control = PropertyCompletionGroupBox
@ -167,76 +103,135 @@ inherited CodetoolsClassCompletionOptionsFrame: TCodetoolsClassCompletionOptions
Caption = 'PropertyCompletionCheckBox' Caption = 'PropertyCompletionCheckBox'
TabOrder = 0 TabOrder = 0
end end
object PropertyReadIdentPrefixEdit: TEdit object PropPrefixesPanel: TPanel
AnchorSideLeft.Control = PropertyCompletionGroupBox
AnchorSideTop.Control = PropertyCompletionCheckBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = PropertyCompletionGroupBox
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 166 Left = 6
Height = 27 Height = 135
Top = 28 Top = 34
Width = 80 Width = 556
Anchors = [akTop, akLeft, akRight]
AutoSize = True AutoSize = True
BorderSpacing.Around = 6
BevelOuter = bvNone
ChildSizing.Layout = cclTopToBottomThenLeftToRight
ChildSizing.ControlsPerLine = 5
ClientHeight = 135
ClientWidth = 556
TabOrder = 1 TabOrder = 1
Text = 'PropertyReadIdentPrefixEdit' object SetPropertyVariablenameLabel: TLabel
end AnchorSideTop.Side = asrCenter
object PropertyWriteIdentPrefixEdit: TEdit Left = 7
AnchorSideLeft.Control = PropertyReadIdentPrefixEdit Height = 18
AnchorSideTop.Control = PropertyReadIdentPrefixEdit Top = 4
AnchorSideTop.Side = asrBottom Width = 199
AnchorSideRight.Control = PropertyReadIdentPrefixEdit BorderSpacing.Right = 6
AnchorSideRight.Side = asrBottom BorderSpacing.CellAlignHorizontal = ccaRightBottom
Left = 166 BorderSpacing.CellAlignVertical = ccaCenter
Height = 27 Caption = 'SetPropertyVariablenameLabel'
Top = 55 ParentColor = False
Width = 80 end
Anchors = [akTop, akLeft, akRight] object PrivateVariablePrefixLabel: TLabel
AutoSize = True AnchorSideTop.Side = asrCenter
TabOrder = 2 Left = 41
Text = 'PropertyWriteIdentPrefixEdit' Height = 18
end Top = 31
object PropertyStoredIdentPostfixEdit: TEdit Width = 165
AnchorSideLeft.Control = PropertyReadIdentPrefixEdit BorderSpacing.Right = 6
AnchorSideTop.Control = PropertyWriteIdentPrefixEdit BorderSpacing.CellAlignHorizontal = ccaRightBottom
AnchorSideTop.Side = asrBottom BorderSpacing.CellAlignVertical = ccaCenter
AnchorSideRight.Control = PropertyReadIdentPrefixEdit Caption = 'PrivateVariablePrefixLabel'
AnchorSideRight.Side = asrBottom ParentColor = False
Left = 166 end
Height = 27 object PropertyStoredIdentPostfixLabel: TLabel
Top = 82 AnchorSideTop.Side = asrCenter
Width = 80 Left = 0
Anchors = [akTop, akLeft, akRight] Height = 18
AutoSize = True Top = 58
TabOrder = 3 Width = 206
Text = 'PropertyStoredIdentPostfixEdit' BorderSpacing.Right = 6
end BorderSpacing.CellAlignHorizontal = ccaRightBottom
object PrivateVariablePrefixEdit: TEdit BorderSpacing.CellAlignVertical = ccaCenter
AnchorSideLeft.Control = PropertyReadIdentPrefixEdit Caption = 'PropertyStoredIdentPostfixLabel'
AnchorSideTop.Control = PropertyStoredIdentPostfixEdit ParentColor = False
AnchorSideTop.Side = asrBottom end
AnchorSideRight.Control = PropertyReadIdentPrefixEdit object PropertyWriteIdentPrefixLabel: TLabel
AnchorSideRight.Side = asrBottom AnchorSideTop.Side = asrCenter
Left = 166 Left = 19
Height = 27 Height = 18
Top = 109 Top = 85
Width = 80 Width = 187
Anchors = [akTop, akLeft, akRight] BorderSpacing.Right = 6
AutoSize = True BorderSpacing.CellAlignHorizontal = ccaRightBottom
TabOrder = 4 BorderSpacing.CellAlignVertical = ccaCenter
Text = 'PrivateVariablePrefixEdit' Caption = 'PropertyWriteIdentPrefixLabel'
end ParentColor = False
object SetPropertyVariablenameEdit: TEdit end
AnchorSideLeft.Control = PropertyReadIdentPrefixEdit object PropertyReadIdentPrefixLabel: TLabel
AnchorSideTop.Control = PrivateVariablePrefixEdit AnchorSideTop.Side = asrCenter
AnchorSideTop.Side = asrBottom Left = 19
AnchorSideRight.Control = PropertyReadIdentPrefixEdit Height = 18
AnchorSideRight.Side = asrBottom Top = 112
Left = 166 Width = 187
Height = 27 BorderSpacing.Right = 6
Top = 136 BorderSpacing.CellAlignHorizontal = ccaRightBottom
Width = 80 BorderSpacing.CellAlignVertical = ccaCenter
Anchors = [akTop, akLeft, akRight] Caption = 'PropertyReadIdentPrefixLabel'
AutoSize = True ParentColor = False
TabOrder = 5 end
Text = 'SetPropertyVariablenameEdit' object SetPropertyVariablenameEdit: TEdit
AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom
Left = 212
Height = 27
Top = 0
Width = 80
TabOrder = 0
Text = 'SetPropertyVariablenameEdit'
end
object PrivateVariablePrefixEdit: TEdit
AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom
Left = 212
Height = 27
Top = 27
Width = 80
TabOrder = 1
Text = 'PrivateVariablePrefixEdit'
end
object PropertyStoredIdentPostfixEdit: TEdit
AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom
Left = 212
Height = 27
Top = 54
Width = 80
TabOrder = 2
Text = 'PropertyStoredIdentPostfixEdit'
end
object PropertyWriteIdentPrefixEdit: TEdit
AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom
Left = 212
Height = 27
Top = 81
Width = 80
TabOrder = 3
Text = 'PropertyWriteIdentPrefixEdit'
end
object PropertyReadIdentPrefixEdit: TEdit
AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom
Left = 212
Height = 27
Top = 108
Width = 80
TabOrder = 4
Text = 'PropertyReadIdentPrefixEdit'
end
end end
end end
end end

View File

@ -2,27 +2,27 @@
LazarusResources.Add('TCodetoolsClassCompletionOptionsFrame','FORMDATA',[ LazarusResources.Add('TCodetoolsClassCompletionOptionsFrame','FORMDATA',[
'TPF0'#241'%TCodetoolsClassCompletionOptionsFrame$CodetoolsClassCompletionOpt' 'TPF0'#241'%TCodetoolsClassCompletionOptionsFrame$CodetoolsClassCompletionOpt'
+'ionsFrame'#6'Height'#3'y'#1#5'Width'#3'<'#2#12'ClientHeight'#3'u'#1#11'Clie' +'ionsFrame'#6'Height'#3#199#1#5'Width'#3'<'#2#12'ClientHeight'#3#199#1#11'Cl'
+'ntWidth'#3'8'#2#8'TabOrder'#2#0#7'Visible'#8#10'DesignLeft'#3'N'#1#9'Design' +'ientWidth'#3'<'#2#8'TabOrder'#2#0#7'Visible'#8#10'DesignLeft'#3'N'#1#9'Desi'
+'Top'#3'3'#1#0#242#2#0#11'TRadioGroup'#31'ClassPartInsertPolicyRadioGroup'#22 +'gnTop'#3'3'#1#0#242#2#0#11'TRadioGroup'#31'ClassPartInsertPolicyRadioGroup'
+'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#20 +#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'
+'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#0#6'Height'#2'd'#3'Top'#2#0#5 +#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#0#6'Height'#2'd'#3'Top'#2
+'Width'#3#254#0#8'AutoFill'#9#7'Caption'#6#31'ClassPartInsertPolicyRadioGrou' +#0#5'Width'#3#254#0#8'AutoFill'#9#7'Caption'#6#31'ClassPartInsertPolicyRadio'
+'p'#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6 +'Group'#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'
+#29'ChildSizing.EnlargeHorizontal'#7#24'crsHomogenousChildResize'#27'ChildSi' +#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsHomogenousChildResize'#27'Chi'
+'zing.EnlargeVertical'#7#24'crsHomogenousChildResize'#28'ChildSizing.ShrinkH' +'ldSizing.EnlargeVertical'#7#24'crsHomogenousChildResize'#28'ChildSizing.Shr'
+'orizontal'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14'crsScal' +'inkHorizontal'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14'crs'
+'eChilds'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'Chil' +'ScaleChilds'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27
+'dSizing.ControlsPerLine'#2#1#8'TabOrder'#2#0#0#0#242#2#1#11'TRadioGroup'#28 +'ChildSizing.ControlsPerLine'#2#1#8'TabOrder'#2#0#0#0#242#2#1#11'TRadioGroup'
+'MethodInsertPolicyRadioGroup'#22'AnchorSideLeft.Control'#7#31'ClassPartInse' +#28'MethodInsertPolicyRadioGroup'#22'AnchorSideLeft.Control'#7#31'ClassPartI'
+'rtPolicyRadioGroup'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop' +'nsertPolicyRadioGroup'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSide'
+'.Control'#7#5'Owner'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRi' +'Top.Control'#7#5'Owner'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSid'
+'ght.Side'#7#9'asrBottom'#4'Left'#3#4#1#6'Height'#2'd'#3'Top'#2#0#5'Width'#3 +'eRight.Side'#7#9'asrBottom'#4'Left'#3#4#1#6'Height'#2'd'#3'Top'#2#0#5'Width'
+'4'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'AutoFill'#9#18'BorderS' +#3'8'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'AutoFill'#9#18'Borde'
+'pacing.Left'#2#6#7'Caption'#6#28'MethodInsertPolicyRadioGroup'#28'ChildSizi' +'rSpacing.Left'#2#6#7'Caption'#6#28'MethodInsertPolicyRadioGroup'#28'ChildSi'
+'ng.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'ChildSizin' +'zing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'ChildSiz'
+'g.EnlargeHorizontal'#7#24'crsHomogenousChildResize'#27'ChildSizing.EnlargeV' +'ing.EnlargeHorizontal'#7#24'crsHomogenousChildResize'#27'ChildSizing.Enlarg'
+'ertical'#7#24'crsHomogenousChildResize'#28'ChildSizing.ShrinkHorizontal'#7 +'eVertical'#7#24'crsHomogenousChildResize'#28'ChildSizing.ShrinkHorizontal'#7
+#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChilds'#18'C' +#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChilds'#18'C'
+'hildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSizing.Contr' +'hildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSizing.Contr'
+'olsPerLine'#2#1#8'TabOrder'#2#1#0#0#242#2#2#9'TCheckBox'#31'MixMethodsAndPr' +'olsPerLine'#2#1#8'TabOrder'#2#1#0#0#242#2#2#9'TCheckBox'#31'MixMethodsAndPr'
@ -38,67 +38,59 @@ LazarusResources.Add('TCodetoolsClassCompletionOptionsFrame','FORMDATA',[
+#26'PropertyCompletionGroupBox'#22'AnchorSideLeft.Control'#7#5'Owner'#18'Anc' +#26'PropertyCompletionGroupBox'#22'AnchorSideLeft.Control'#7#5'Owner'#18'Anc'
+'horSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20'A' +'horSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20'A'
+'nchorSideRight.Side'#7#9'asrBottom'#21'AnchorSideBottom.Side'#7#9'asrBottom' +'nchorSideRight.Side'#7#9'asrBottom'#21'AnchorSideBottom.Side'#7#9'asrBottom'
+#4'Left'#2#0#6'Height'#3#193#0#3'Top'#3#173#0#5'Width'#3'8'#2#7'Anchors'#11#5 +#4'Left'#2#0#6'Height'#3#194#0#3'Top'#3#173#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' +'akTop'#6'akLeft'#7'akRight'#0#8'AutoSize'#9#17'BorderSpacing.Top'#2#6#7'Cap'
+'pertyCompletionGroupBox'#12'ClientHeight'#3#174#0#11'ClientWidth'#3'4'#2#8 +'tion'#6#26'PropertyCompletionGroupBox'#12'ClientHeight'#3#175#0#11'ClientWi'
+'TabOrder'#2#4#0#6'TLabel'#28'PropertyReadIdentPrefixLabel'#21'AnchorSideTop' +'dth'#3'8'#2#8'TabOrder'#2#4#0#9'TCheckBox'#26'PropertyCompletionCheckBox'#22
+'.Control'#7#27'PropertyReadIdentPrefixEdit'#18'AnchorSideTop.Side'#7#9'asrC' +'AnchorSideLeft.Control'#7#26'PropertyCompletionGroupBox'#21'AnchorSideTop.C'
+'enter'#23'AnchorSideRight.Control'#7#27'PropertyReadIdentPrefixEdit'#4'Left' +'ontrol'#7#26'PropertyCompletionGroupBox'#4'Left'#2#6#6'Height'#2#22#3'Top'#2
+#2#229#6'Height'#2#18#3'Top'#2' '#5'Width'#3#187#0#7'Anchors'#11#5'akTop'#7 +#6#5'Width'#3#214#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#26'PropertyCom'
+'akRight'#0#19'BorderSpacing.Right'#2#6#7'Caption'#6#28'PropertyReadIdentPre' +'pletionCheckBox'#8'TabOrder'#2#0#0#0#6'TPanel'#17'PropPrefixesPanel'#22'Anc'
+'fixLabel'#11'ParentColor'#8#0#0#6'TLabel'#29'PropertyWriteIdentPrefixLabel' +'horSideLeft.Control'#7#26'PropertyCompletionGroupBox'#21'AnchorSideTop.Cont'
+#21'AnchorSideTop.Control'#7#28'PropertyWriteIdentPrefixEdit'#18'AnchorSideT' +'rol'#7#26'PropertyCompletionCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'
+'op.Side'#7#9'asrCenter'#23'AnchorSideRight.Control'#7#28'PropertyWriteIdent' +#23'AnchorSideRight.Control'#7#26'PropertyCompletionGroupBox'#20'AnchorSideR'
+'PrefixEdit'#4'Left'#2#229#6'Height'#2#18#3'Top'#2';'#5'Width'#3#187#0#7'Anc' +'ight.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#3#135#0#3'Top'#2'"'#5'Width'
+'hors'#11#5'akTop'#7'akRight'#0#19'BorderSpacing.Right'#2#6#7'Caption'#6#29 +#3','#2#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'AutoSize'#9#20'Borde'
+'PropertyWriteIdentPrefixLabel'#11'ParentColor'#8#0#0#6'TLabel'#31'PropertyS' +'rSpacing.Around'#2#6#10'BevelOuter'#7#6'bvNone'#18'ChildSizing.Layout'#7#29
+'toredIdentPostfixLabel'#21'AnchorSideTop.Control'#7#30'PropertyStoredIdentP' +'cclTopToBottomThenLeftToRight'#27'ChildSizing.ControlsPerLine'#2#5#12'Clien'
+'ostfixEdit'#18'AnchorSideTop.Side'#7#9'asrCenter'#23'AnchorSideRight.Contro' +'tHeight'#3#135#0#11'ClientWidth'#3','#2#8'TabOrder'#2#1#0#6'TLabel'#28'SetP'
+'l'#7#30'PropertyStoredIdentPostfixEdit'#4'Left'#2#210#6'Height'#2#18#3'Top' +'ropertyVariablenameLabel'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#7
+#2'V'#5'Width'#3#206#0#7'Anchors'#11#5'akTop'#7'akRight'#0#19'BorderSpacing.' +#6'Height'#2#18#3'Top'#2#4#5'Width'#3#199#0#19'BorderSpacing.Right'#2#6'!Bor'
+'Right'#2#6#7'Caption'#6#31'PropertyStoredIdentPostfixLabel'#11'ParentColor' +'derSpacing.CellAlignHorizontal'#7#14'ccaRightBottom'#31'BorderSpacing.CellA'
+#8#0#0#6'TLabel'#26'PrivateVariablePrefixLabel'#21'AnchorSideTop.Control'#7 +'lignVertical'#7#9'ccaCenter'#7'Caption'#6#28'SetPropertyVariablenameLabel'
+#25'PrivateVariablePrefixEdit'#18'AnchorSideTop.Side'#7#9'asrCenter'#23'Anch' +#11'ParentColor'#8#0#0#6'TLabel'#26'PrivateVariablePrefixLabel'#18'AnchorSid'
+'orSideRight.Control'#7#25'PrivateVariablePrefixEdit'#4'Left'#2#251#6'Height' +'eTop.Side'#7#9'asrCenter'#4'Left'#2')'#6'Height'#2#18#3'Top'#2#31#5'Width'#3
+#2#18#3'Top'#2'q'#5'Width'#3#165#0#7'Anchors'#11#5'akTop'#7'akRight'#0#19'Bo' +#165#0#19'BorderSpacing.Right'#2#6'!BorderSpacing.CellAlignHorizontal'#7#14
+'rderSpacing.Right'#2#6#7'Caption'#6#26'PrivateVariablePrefixLabel'#11'Paren' +'ccaRightBottom'#31'BorderSpacing.CellAlignVertical'#7#9'ccaCenter'#7'Captio'
+'tColor'#8#0#0#6'TLabel'#28'SetPropertyVariablenameLabel'#21'AnchorSideTop.C' +'n'#6#26'PrivateVariablePrefixLabel'#11'ParentColor'#8#0#0#6'TLabel'#31'Prop'
+'ontrol'#7#27'SetPropertyVariablenameEdit'#18'AnchorSideTop.Side'#7#9'asrCen' +'ertyStoredIdentPostfixLabel'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2
+'ter'#23'AnchorSideRight.Control'#7#27'SetPropertyVariablenameEdit'#4'Left'#2 +#0#6'Height'#2#18#3'Top'#2':'#5'Width'#3#206#0#19'BorderSpacing.Right'#2#6'!'
,#217#6'Height'#2#18#3'Top'#3#140#0#5'Width'#3#199#0#7'Anchors'#11#5'akTop'#7 ,'BorderSpacing.CellAlignHorizontal'#7#14'ccaRightBottom'#31'BorderSpacing.Ce'
+'akRight'#0#19'BorderSpacing.Right'#2#6#7'Caption'#6#28'SetPropertyVariablen' +'llAlignVertical'#7#9'ccaCenter'#7'Caption'#6#31'PropertyStoredIdentPostfixL'
+'ameLabel'#11'ParentColor'#8#0#0#9'TCheckBox'#26'PropertyCompletionCheckBox' +'abel'#11'ParentColor'#8#0#0#6'TLabel'#29'PropertyWriteIdentPrefixLabel'#18
+#22'AnchorSideLeft.Control'#7#26'PropertyCompletionGroupBox'#21'AnchorSideTo' +'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#19#6'Height'#2#18#3'Top'#2'U'#5
+'p.Control'#7#26'PropertyCompletionGroupBox'#4'Left'#2#6#6'Height'#2#22#3'To' +'Width'#3#187#0#19'BorderSpacing.Right'#2#6'!BorderSpacing.CellAlignHorizont'
+'p'#2#6#5'Width'#3#214#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#26'Proper' +'al'#7#14'ccaRightBottom'#31'BorderSpacing.CellAlignVertical'#7#9'ccaCenter'
+'tyCompletionCheckBox'#8'TabOrder'#2#0#0#0#5'TEdit'#27'PropertyReadIdentPref' +#7'Caption'#6#29'PropertyWriteIdentPrefixLabel'#11'ParentColor'#8#0#0#6'TLab'
+'el'#28'PropertyReadIdentPrefixLabel'#18'AnchorSideTop.Side'#7#9'asrCenter'#4
+'Left'#2#19#6'Height'#2#18#3'Top'#2'p'#5'Width'#3#187#0#19'BorderSpacing.Rig'
+'ht'#2#6'!BorderSpacing.CellAlignHorizontal'#7#14'ccaRightBottom'#31'BorderS'
+'pacing.CellAlignVertical'#7#9'ccaCenter'#7'Caption'#6#28'PropertyReadIdentP'
+'refixLabel'#11'ParentColor'#8#0#0#5'TEdit'#27'SetPropertyVariablenameEdit'
+#18'AnchorSideTop.Side'#7#9'asrBottom'#20'AnchorSideRight.Side'#7#9'asrBotto'
+'m'#4'Left'#3#212#0#6'Height'#2#27#3'Top'#2#0#5'Width'#2'P'#8'TabOrder'#2#0#4
+'Text'#6#27'SetPropertyVariablenameEdit'#0#0#5'TEdit'#25'PrivateVariablePref'
+'ixEdit'#18'AnchorSideTop.Side'#7#9'asrBottom'#20'AnchorSideRight.Side'#7#9 +'ixEdit'#18'AnchorSideTop.Side'#7#9'asrBottom'#20'AnchorSideRight.Side'#7#9
+'asrBottom'#4'Left'#3#166#0#6'Height'#2#27#3'Top'#2#28#5'Width'#2'P'#8'AutoS' +'asrBottom'#4'Left'#3#212#0#6'Height'#2#27#3'Top'#2#27#5'Width'#2'P'#8'TabOr'
+'ize'#9#8'TabOrder'#2#1#4'Text'#6#27'PropertyReadIdentPrefixEdit'#0#0#5'TEdi' +'der'#2#1#4'Text'#6#25'PrivateVariablePrefixEdit'#0#0#5'TEdit'#30'PropertySt'
+'t'#28'PropertyWriteIdentPrefixEdit'#22'AnchorSideLeft.Control'#7#27'Propert' +'oredIdentPostfixEdit'#18'AnchorSideTop.Side'#7#9'asrBottom'#20'AnchorSideRi'
+'yReadIdentPrefixEdit'#21'AnchorSideTop.Control'#7#27'PropertyReadIdentPrefi' +'ght.Side'#7#9'asrBottom'#4'Left'#3#212#0#6'Height'#2#27#3'Top'#2'6'#5'Width'
+'xEdit'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7 +#2'P'#8'TabOrder'#2#2#4'Text'#6#30'PropertyStoredIdentPostfixEdit'#0#0#5'TEd'
+#27'PropertyReadIdentPrefixEdit'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'L' +'it'#28'PropertyWriteIdentPrefixEdit'#18'AnchorSideTop.Side'#7#9'asrBottom'
+'eft'#3#166#0#6'Height'#2#27#3'Top'#2'7'#5'Width'#2'P'#7'Anchors'#11#5'akTop' +#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#212#0#6'Height'#2#27#3'To'
+#6'akLeft'#7'akRight'#0#8'AutoSize'#9#8'TabOrder'#2#2#4'Text'#6#28'PropertyW' +'p'#2'Q'#5'Width'#2'P'#8'TabOrder'#2#3#4'Text'#6#28'PropertyWriteIdentPrefix'
+'riteIdentPrefixEdit'#0#0#5'TEdit'#30'PropertyStoredIdentPostfixEdit'#22'Anc' +'Edit'#0#0#5'TEdit'#27'PropertyReadIdentPrefixEdit'#18'AnchorSideTop.Side'#7
+'horSideLeft.Control'#7#27'PropertyReadIdentPrefixEdit'#21'AnchorSideTop.Con' +#9'asrBottom'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#212#0#6'Heig'
+'trol'#7#28'PropertyWriteIdentPrefixEdit'#18'AnchorSideTop.Side'#7#9'asrBott' +'ht'#2#27#3'Top'#2'l'#5'Width'#2'P'#8'TabOrder'#2#4#4'Text'#6#27'PropertyRea'
+'om'#23'AnchorSideRight.Control'#7#27'PropertyReadIdentPrefixEdit'#20'Anchor' +'dIdentPrefixEdit'#0#0#0#0#0
+'SideRight.Side'#7#9'asrBottom'#4'Left'#3#166#0#6'Height'#2#27#3'Top'#2'R'#5
+'Width'#2'P'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'AutoSize'#9#8'T'
+'abOrder'#2#3#4'Text'#6#30'PropertyStoredIdentPostfixEdit'#0#0#5'TEdit'#25'P'
+'rivateVariablePrefixEdit'#22'AnchorSideLeft.Control'#7#27'PropertyReadIdent'
+'PrefixEdit'#21'AnchorSideTop.Control'#7#30'PropertyStoredIdentPostfixEdit'
+#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#27'Prop'
+'ertyReadIdentPrefixEdit'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3
+#166#0#6'Height'#2#27#3'Top'#2'm'#5'Width'#2'P'#7'Anchors'#11#5'akTop'#6'akL'
+'eft'#7'akRight'#0#8'AutoSize'#9#8'TabOrder'#2#4#4'Text'#6#25'PrivateVariabl'
+'ePrefixEdit'#0#0#5'TEdit'#27'SetPropertyVariablenameEdit'#22'AnchorSideLeft'
+'.Control'#7#27'PropertyReadIdentPrefixEdit'#21'AnchorSideTop.Control'#7#25
+'PrivateVariablePrefixEdit'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorS'
+'ideRight.Control'#7#27'PropertyReadIdentPrefixEdit'#20'AnchorSideRight.Side'
+#7#9'asrBottom'#4'Left'#3#166#0#6'Height'#2#27#3'Top'#3#136#0#5'Width'#2'P'#7
+'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'AutoSize'#9#8'TabOrder'#2#5#4
+'Text'#6#27'SetPropertyVariablenameEdit'#0#0#0#0
]); ]);

View File

@ -37,6 +37,7 @@ type
ClassPartInsertPolicyRadioGroup: TRadioGroup; ClassPartInsertPolicyRadioGroup: TRadioGroup;
MethodInsertPolicyRadioGroup: TRadioGroup; MethodInsertPolicyRadioGroup: TRadioGroup;
MixMethodsAndPropertiesCheckBox: TCheckBox; MixMethodsAndPropertiesCheckBox: TCheckBox;
PropPrefixesPanel: TPanel;
PrivateVariablePrefixEdit: TEdit; PrivateVariablePrefixEdit: TEdit;
PrivateVariablePrefixLabel: TLabel; PrivateVariablePrefixLabel: TLabel;
PropertyCompletionCheckBox: TCheckBox; PropertyCompletionCheckBox: TCheckBox;