You've already forked lazarus-ccr
Specifiying property type : better name of the combobox items
compilation fix git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@978 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
@ -733,6 +733,7 @@ var
|
||||
sym : TPasElement;
|
||||
moduleList, decList : TList;
|
||||
mdl : TPasModule;
|
||||
locExtName : string;
|
||||
begin
|
||||
moduleList := AContainer.Package.Modules;
|
||||
for i := 0 to Pred(moduleList.Count) do begin
|
||||
@ -740,14 +741,24 @@ begin
|
||||
decList := mdl.InterfaceSection.Declarations;
|
||||
for j := 0 to Pred(decList.Count) do begin
|
||||
sym := TPasElement(decList[j]);
|
||||
if sym.InheritsFrom(TPasType) and ( not sym.InheritsFrom(TPasNativeSimpleContentClassType) ) then begin
|
||||
if sym.InheritsFrom(TPasType) {and ( not sym.InheritsFrom(TPasNativeSimpleContentClassType) )} then begin
|
||||
if ( ALs.IndexOfObject(sym) = -1 ) then begin
|
||||
if sym.InheritsFrom(TPasNativeSpecialSimpleType) or
|
||||
sym.InheritsFrom(TPasNativeSpecialSimpleContentClassType)
|
||||
then begin
|
||||
ALs.AddObject(sym.Name,sym);
|
||||
//ALs.AddObject(sym.Name,sym);
|
||||
locExtName := AContainer.GetExternalName(sym);
|
||||
if ( sym.Name = locExtName ) then
|
||||
ALs.AddObject(sym.Name,sym)
|
||||
else
|
||||
ALs.AddObject(Format('%s - ( %s )',[sym.Name,AContainer.GetExternalName(sym)]),sym);
|
||||
end else begin
|
||||
ALs.AddObject(AContainer.GetExternalName(sym),sym);
|
||||
//ALs.AddObject(AContainer.GetExternalName(sym),sym);
|
||||
locExtName := AContainer.GetExternalName(sym);
|
||||
if ( sym.Name = locExtName ) then
|
||||
ALs.AddObject(AContainer.GetExternalName(sym),sym)
|
||||
else
|
||||
ALs.AddObject(Format('%s - ( %s )',[AContainer.GetExternalName(sym),sym.Name]),sym);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
@ -40,24 +40,24 @@
|
||||
</Unit0>
|
||||
<Unit1>
|
||||
<Filename Value="uwsttypelibraryedit.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="fWstTypeLibraryEdit"/>
|
||||
<HasResources Value="True"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="uwsttypelibraryedit"/>
|
||||
</Unit1>
|
||||
<Unit2>
|
||||
<Filename Value="uabout.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="fAbout"/>
|
||||
<HasResources Value="True"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<UnitName Value="uabout"/>
|
||||
</Unit2>
|
||||
<Unit3>
|
||||
<Filename Value="ufenumedit.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="fEnumEdit"/>
|
||||
<HasResources Value="True"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="ufEnumedit"/>
|
||||
</Unit3>
|
||||
@ -78,30 +78,30 @@
|
||||
</Unit6>
|
||||
<Unit7>
|
||||
<Filename Value="ufclassedit.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="fClassEdit"/>
|
||||
<HasResources Value="True"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="ufclassedit"/>
|
||||
</Unit7>
|
||||
<Unit8>
|
||||
<Filename Value="ufpropedit.pas"/>
|
||||
<ComponentName Value="fPropEdit"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="fPropEdit"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="ufpropedit"/>
|
||||
</Unit8>
|
||||
<Unit9>
|
||||
<Filename Value="uinterfaceedit.pas"/>
|
||||
<ComponentName Value="fInterfaceEdit"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="fInterfaceEdit"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="uinterfaceedit"/>
|
||||
</Unit9>
|
||||
<Unit10>
|
||||
<Filename Value="udm.pas"/>
|
||||
<ComponentName Value="DM"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="DM"/>
|
||||
<ResourceBaseClass Value="DataModule"/>
|
||||
<UnitName Value="udm"/>
|
||||
</Unit10>
|
||||
@ -117,8 +117,8 @@
|
||||
</Unit12>
|
||||
<Unit13>
|
||||
<Filename Value="uprocedit.pas"/>
|
||||
<ComponentName Value="fProcEdit"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="fProcEdit"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="uprocedit"/>
|
||||
</Unit13>
|
||||
@ -129,50 +129,50 @@
|
||||
</Unit14>
|
||||
<Unit15>
|
||||
<Filename Value="uargedit.pas"/>
|
||||
<ComponentName Value="fArgEdit"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="fArgEdit"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="uargedit"/>
|
||||
</Unit15>
|
||||
<Unit16>
|
||||
<Filename Value="umoduleedit.pas"/>
|
||||
<ComponentName Value="fModuleEdit"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="fModuleEdit"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="umoduleedit"/>
|
||||
</Unit16>
|
||||
<Unit17>
|
||||
<Filename Value="ubindingedit.pas"/>
|
||||
<ComponentName Value="fBindingEdit"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="fBindingEdit"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="ubindingedit"/>
|
||||
</Unit17>
|
||||
<Unit18>
|
||||
<Filename Value="ufrmsaveoption.pas"/>
|
||||
<ComponentName Value="frmSaveOptions"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="frmSaveOptions"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="ufrmsaveoption"/>
|
||||
</Unit18>
|
||||
<Unit19>
|
||||
<Filename Value="ufarrayedit.pas"/>
|
||||
<ComponentName Value="fArrayEdit"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="fArrayEdit"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="ufarrayedit"/>
|
||||
</Unit19>
|
||||
<Unit20>
|
||||
<Filename Value="uftypealiasedit.pas"/>
|
||||
<ComponentName Value="fTypeAliasEdit"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="fTypeAliasEdit"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="uftypealiasedit"/>
|
||||
</Unit20>
|
||||
<Unit21>
|
||||
<Filename Value="ufrecordedit.pas"/>
|
||||
<ComponentName Value="fRecordEdit"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="fRecordEdit"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="ufrecordedit"/>
|
||||
</Unit21>
|
||||
|
||||
@ -12,8 +12,9 @@ object fInterfaceEdit: TfInterfaceEdit
|
||||
ClientWidth = 531
|
||||
OnCreate = FormCreate
|
||||
Position = poDesktopCenter
|
||||
LCLVersion = '0.9.25'
|
||||
LCLVersion = '0.9.29'
|
||||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Height = 50
|
||||
Top = 514
|
||||
Width = 531
|
||||
@ -46,7 +47,9 @@ object fInterfaceEdit: TfInterfaceEdit
|
||||
end
|
||||
end
|
||||
object PC: TPageControl
|
||||
Left = 0
|
||||
Height = 514
|
||||
Top = 0
|
||||
Width = 531
|
||||
ActivePage = TabSheet1
|
||||
Align = alClient
|
||||
@ -66,7 +69,7 @@ object fInterfaceEdit: TfInterfaceEdit
|
||||
end
|
||||
object edtName: TEdit
|
||||
Left = 60
|
||||
Height = 23
|
||||
Height = 21
|
||||
Top = 26
|
||||
Width = 443
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
@ -83,7 +86,9 @@ object fInterfaceEdit: TfInterfaceEdit
|
||||
ClientWidth = 480
|
||||
TabOrder = 1
|
||||
object trvMethods: TTreeView
|
||||
Left = 0
|
||||
Height = 350
|
||||
Top = 0
|
||||
Width = 480
|
||||
Align = alClient
|
||||
DefaultItemHeight = 15
|
||||
@ -135,30 +140,25 @@ object fInterfaceEdit: TfInterfaceEdit
|
||||
top = 200
|
||||
object actOK: TAction
|
||||
Caption = 'OK'
|
||||
DisableIfNoHandler = True
|
||||
OnExecute = actOKExecute
|
||||
OnUpdate = actOKUpdate
|
||||
end
|
||||
object actNewMethod: TAction
|
||||
Caption = 'New operation'
|
||||
DisableIfNoHandler = True
|
||||
OnExecute = actNewMethodExecute
|
||||
end
|
||||
object actUpdateOperation: TAction
|
||||
Caption = 'Edit Operation'
|
||||
DisableIfNoHandler = True
|
||||
OnExecute = actUpdateOperationExecute
|
||||
OnUpdate = actUpdateOperationUpdate
|
||||
end
|
||||
object actDeleteOperation: TAction
|
||||
Caption = 'Delete Operation'
|
||||
DisableIfNoHandler = True
|
||||
OnExecute = actDeleteOperationExecute
|
||||
OnUpdate = actUpdateOperationUpdate
|
||||
end
|
||||
object actBindingEdit: TAction
|
||||
Caption = 'Edit Binding'
|
||||
DisableIfNoHandler = True
|
||||
OnExecute = actBindingEditExecute
|
||||
OnUpdate = actBindingEditUpdate
|
||||
end
|
||||
|
||||
@ -1,57 +1,54 @@
|
||||
{ Ceci est un fichier ressource g�n�r� automatiquement par Lazarus }
|
||||
|
||||
LazarusResources.Add('TfInterfaceEdit','FORMDATA',[
|
||||
'TPF0'#15'TfInterfaceEdit'#14'fInterfaceEdit'#4'Left'#3'i'#1#6'Height'#3'4'#2
|
||||
+#3'Top'#3'%'#1#5'Width'#3#19#2#18'HorzScrollBar.Page'#3#18#2#18'VertScrollBa'
|
||||
+'r.Page'#3'3'#2#13'ActiveControl'#7#7'Button1'#11'BorderStyle'#7#13'bsSizeTo'
|
||||
+'olWin'#7'Caption'#6#14'fInterfaceEdit'#12'ClientHeight'#3'4'#2#11'ClientWid'
|
||||
+'th'#3#19#2#8'OnCreate'#7#10'FormCreate'#8'Position'#7#15'poDesktopCenter'#10
|
||||
+'LCLVersion'#6#6'0.9.25'#0#6'TPanel'#6'Panel1'#6'Height'#2'2'#3'Top'#3#2#2#5
|
||||
+'Width'#3#19#2#5'Align'#7#8'alBottom'#12'ClientHeight'#2'2'#11'ClientWidth'#3
|
||||
+#19#2#8'TabOrder'#2#0#0#7'TButton'#7'Button1'#4'Left'#3#180#1#6'Height'#2#25
|
||||
+#3'Top'#2#10#5'Width'#2'K'#7'Anchors'#11#5'akTop'#7'akRight'#0#25'BorderSpac'
|
||||
+'ing.InnerBorder'#2#4#6'Cancel'#9#7'Caption'#6#6'Cancel'#11'ModalResult'#2#2
|
||||
+#8'TabOrder'#2#0#0#0#7'TButton'#7'Button2'#4'Left'#3'Z'#1#6'Height'#2#25#3'T'
|
||||
+'op'#2#10#5'Width'#2'K'#6'Action'#7#5'actOK'#7'Anchors'#11#5'akTop'#7'akRigh'
|
||||
+'t'#0#25'BorderSpacing.InnerBorder'#2#4#7'Default'#9#8'TabOrder'#2#1#0#0#0#12
|
||||
+'TPageControl'#2'PC'#6'Height'#3#2#2#5'Width'#3#19#2#10'ActivePage'#7#9'TabS'
|
||||
+'heet1'#5'Align'#7#8'alClient'#8'TabIndex'#2#0#8'TabOrder'#2#1#0#9'TTabSheet'
|
||||
+#9'TabSheet1'#7'Caption'#6#20'Interface definition'#12'ClientHeight'#3#232#1
|
||||
+#11'ClientWidth'#3#11#2#0#6'TLabel'#6'Label1'#4'Left'#2#20#6'Height'#2#14#3
|
||||
+'Top'#2#26#5'Width'#2#28#7'Caption'#6#4'Name'#11'ParentColor'#8#0#0#5'TEdit'
|
||||
+#7'edtName'#4'Left'#2'<'#6'Height'#2#23#3'Top'#2#26#5'Width'#3#187#1#7'Ancho'
|
||||
+'rs'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'TabOrder'#2#0#0#0#9'TGroupBox'#9'G'
|
||||
+'roupBox1'#4'Left'#2#20#6'Height'#3'p'#1#3'Top'#2'J'#5'Width'#3#228#1#7'Anch'
|
||||
+'ors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#7'Caption'#6#11' Metho'
|
||||
+'ds '#12'ClientHeight'#3'^'#1#11'ClientWidth'#3#224#1#8'TabOrder'#2#1#0#9'T'
|
||||
+'TreeView'#10'trvMethods'#6'Height'#3'^'#1#5'Width'#3#224#1#5'Align'#7#8'alC'
|
||||
+'lient'#17'DefaultItemHeight'#2#15#9'PopupMenu'#7#10'PopupMenu1'#8'TabOrder'
|
||||
+#2#0#0#0#0#7'TButton'#7'Button3'#4'Left'#2#20#6'Height'#2#25#3'Top'#3#194#1#5
|
||||
+'Width'#2'c'#6'Action'#7#12'actNewMethod'#25'BorderSpacing.InnerBorder'#2#4#8
|
||||
+'TabOrder'#2#2#0#0#7'TButton'#7'Button4'#4'Left'#3#132#0#6'Height'#2#25#3'To'
|
||||
+'p'#3#194#1#5'Width'#2'k'#6'Action'#7#18'actUpdateOperation'#25'BorderSpacin'
|
||||
+'g.InnerBorder'#2#4#8'TabOrder'#2#3#0#0#7'TButton'#7'Button5'#4'Left'#3#252#0
|
||||
+#6'Height'#2#25#3'Top'#3#194#1#5'Width'#2'h'#6'Action'#7#18'actDeleteOperati'
|
||||
+'on'#25'BorderSpacing.InnerBorder'#2#4#8'TabOrder'#2#4#0#0#7'TButton'#7'Butt'
|
||||
+'on6'#4'Left'#3#140#1#6'Height'#2#25#3'Top'#3#194#1#5'Width'#2'k'#6'Action'#7
|
||||
+#14'actBindingEdit'#7'Anchors'#11#5'akTop'#7'akRight'#0#25'BorderSpacing.Inn'
|
||||
+'erBorder'#2#4#8'TabOrder'#2#5#0#0#0#0#11'TActionList'#2'AL'#4'left'#3#130#0
|
||||
+#3'top'#3#200#0#0#7'TAction'#5'actOK'#7'Caption'#6#2'OK'#18'DisableIfNoHandl'
|
||||
+'er'#9#9'OnExecute'#7#12'actOKExecute'#8'OnUpdate'#7#11'actOKUpdate'#0#0#7'T'
|
||||
+'Action'#12'actNewMethod'#7'Caption'#6#13'New operation'#18'DisableIfNoHandl'
|
||||
+'er'#9#9'OnExecute'#7#19'actNewMethodExecute'#0#0#7'TAction'#18'actUpdateOpe'
|
||||
+'ration'#7'Caption'#6#14'Edit Operation'#18'DisableIfNoHandler'#9#9'OnExecut'
|
||||
+'e'#7#25'actUpdateOperationExecute'#8'OnUpdate'#7#24'actUpdateOperationUpdat'
|
||||
+'e'#0#0#7'TAction'#18'actDeleteOperation'#7'Caption'#6#16'Delete Operation'
|
||||
+#18'DisableIfNoHandler'#9#9'OnExecute'#7#25'actDeleteOperationExecute'#8'OnU'
|
||||
+'pdate'#7#24'actUpdateOperationUpdate'#0#0#7'TAction'#14'actBindingEdit'#7'C'
|
||||
+'aption'#6#12'Edit Binding'#18'DisableIfNoHandler'#9#9'OnExecute'#7#21'actBi'
|
||||
+'ndingEditExecute'#8'OnUpdate'#7#20'actBindingEditUpdate'#0#0#0#10'TPopupMen'
|
||||
+'u'#10'PopupMenu1'#4'left'#2'T'#3'top'#3#233#0#0#9'TMenuItem'#9'MenuItem1'#6
|
||||
+'Action'#7#12'actNewMethod'#7'OnClick'#7#19'actNewMethodExecute'#0#0#9'TMenu'
|
||||
+'Item'#9'MenuItem2'#6'Action'#7#18'actUpdateOperation'#7'OnClick'#7#25'actUp'
|
||||
+'dateOperationExecute'#0#0#9'TMenuItem'#9'MenuItem3'#6'Action'#7#18'actDelet'
|
||||
+'eOperation'#7'OnClick'#7#25'actDeleteOperationExecute'#0#0#9'TMenuItem'#9'M'
|
||||
+'enuItem4'#7'Caption'#6#1'-'#0#0#9'TMenuItem'#9'MenuItem5'#6'Action'#7#14'ac'
|
||||
+'tBindingEdit'#7'OnClick'#7#21'actBindingEditExecute'#0#0#0#0
|
||||
+'LCLVersion'#6#6'0.9.29'#0#6'TPanel'#6'Panel1'#4'Left'#2#0#6'Height'#2'2'#3
|
||||
+'Top'#3#2#2#5'Width'#3#19#2#5'Align'#7#8'alBottom'#12'ClientHeight'#2'2'#11
|
||||
+'ClientWidth'#3#19#2#8'TabOrder'#2#0#0#7'TButton'#7'Button1'#4'Left'#3#180#1
|
||||
+#6'Height'#2#25#3'Top'#2#10#5'Width'#2'K'#7'Anchors'#11#5'akTop'#7'akRight'#0
|
||||
+#25'BorderSpacing.InnerBorder'#2#4#6'Cancel'#9#7'Caption'#6#6'Cancel'#11'Mod'
|
||||
+'alResult'#2#2#8'TabOrder'#2#0#0#0#7'TButton'#7'Button2'#4'Left'#3'Z'#1#6'He'
|
||||
+'ight'#2#25#3'Top'#2#10#5'Width'#2'K'#6'Action'#7#5'actOK'#7'Anchors'#11#5'a'
|
||||
+'kTop'#7'akRight'#0#25'BorderSpacing.InnerBorder'#2#4#7'Default'#9#8'TabOrde'
|
||||
+'r'#2#1#0#0#0#12'TPageControl'#2'PC'#4'Left'#2#0#6'Height'#3#2#2#3'Top'#2#0#5
|
||||
+'Width'#3#19#2#10'ActivePage'#7#9'TabSheet1'#5'Align'#7#8'alClient'#8'TabInd'
|
||||
+'ex'#2#0#8'TabOrder'#2#1#0#9'TTabSheet'#9'TabSheet1'#7'Caption'#6#20'Interfa'
|
||||
+'ce definition'#12'ClientHeight'#3#232#1#11'ClientWidth'#3#11#2#0#6'TLabel'#6
|
||||
+'Label1'#4'Left'#2#20#6'Height'#2#14#3'Top'#2#26#5'Width'#2#28#7'Caption'#6#4
|
||||
+'Name'#11'ParentColor'#8#0#0#5'TEdit'#7'edtName'#4'Left'#2'<'#6'Height'#2#21
|
||||
+#3'Top'#2#26#5'Width'#3#187#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8
|
||||
+'TabOrder'#2#0#0#0#9'TGroupBox'#9'GroupBox1'#4'Left'#2#20#6'Height'#3'p'#1#3
|
||||
+'Top'#2'J'#5'Width'#3#228#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'ak'
|
||||
+'Bottom'#0#7'Caption'#6#11' Methods '#12'ClientHeight'#3'^'#1#11'ClientWid'
|
||||
+'th'#3#224#1#8'TabOrder'#2#1#0#9'TTreeView'#10'trvMethods'#4'Left'#2#0#6'Hei'
|
||||
+'ght'#3'^'#1#3'Top'#2#0#5'Width'#3#224#1#5'Align'#7#8'alClient'#17'DefaultIt'
|
||||
+'emHeight'#2#15#9'PopupMenu'#7#10'PopupMenu1'#8'TabOrder'#2#0#0#0#0#7'TButto'
|
||||
+'n'#7'Button3'#4'Left'#2#20#6'Height'#2#25#3'Top'#3#194#1#5'Width'#2'c'#6'Ac'
|
||||
+'tion'#7#12'actNewMethod'#25'BorderSpacing.InnerBorder'#2#4#8'TabOrder'#2#2#0
|
||||
+#0#7'TButton'#7'Button4'#4'Left'#3#132#0#6'Height'#2#25#3'Top'#3#194#1#5'Wid'
|
||||
+'th'#2'k'#6'Action'#7#18'actUpdateOperation'#25'BorderSpacing.InnerBorder'#2
|
||||
+#4#8'TabOrder'#2#3#0#0#7'TButton'#7'Button5'#4'Left'#3#252#0#6'Height'#2#25#3
|
||||
+'Top'#3#194#1#5'Width'#2'h'#6'Action'#7#18'actDeleteOperation'#25'BorderSpac'
|
||||
+'ing.InnerBorder'#2#4#8'TabOrder'#2#4#0#0#7'TButton'#7'Button6'#4'Left'#3#140
|
||||
+#1#6'Height'#2#25#3'Top'#3#194#1#5'Width'#2'k'#6'Action'#7#14'actBindingEdit'
|
||||
+#7'Anchors'#11#5'akTop'#7'akRight'#0#25'BorderSpacing.InnerBorder'#2#4#8'Tab'
|
||||
+'Order'#2#5#0#0#0#0#11'TActionList'#2'AL'#4'left'#3#130#0#3'top'#3#200#0#0#7
|
||||
+'TAction'#5'actOK'#7'Caption'#6#2'OK'#9'OnExecute'#7#12'actOKExecute'#8'OnUp'
|
||||
+'date'#7#11'actOKUpdate'#0#0#7'TAction'#12'actNewMethod'#7'Caption'#6#13'New'
|
||||
+' operation'#9'OnExecute'#7#19'actNewMethodExecute'#0#0#7'TAction'#18'actUpd'
|
||||
+'ateOperation'#7'Caption'#6#14'Edit Operation'#9'OnExecute'#7#25'actUpdateOp'
|
||||
+'erationExecute'#8'OnUpdate'#7#24'actUpdateOperationUpdate'#0#0#7'TAction'#18
|
||||
+'actDeleteOperation'#7'Caption'#6#16'Delete Operation'#9'OnExecute'#7#25'act'
|
||||
+'DeleteOperationExecute'#8'OnUpdate'#7#24'actUpdateOperationUpdate'#0#0#7'TA'
|
||||
+'ction'#14'actBindingEdit'#7'Caption'#6#12'Edit Binding'#9'OnExecute'#7#21'a'
|
||||
+'ctBindingEditExecute'#8'OnUpdate'#7#20'actBindingEditUpdate'#0#0#0#10'TPopu'
|
||||
+'pMenu'#10'PopupMenu1'#4'left'#2'T'#3'top'#3#233#0#0#9'TMenuItem'#9'MenuItem'
|
||||
+'1'#6'Action'#7#12'actNewMethod'#7'OnClick'#7#19'actNewMethodExecute'#0#0#9
|
||||
+'TMenuItem'#9'MenuItem2'#6'Action'#7#18'actUpdateOperation'#7'OnClick'#7#25
|
||||
+'actUpdateOperationExecute'#0#0#9'TMenuItem'#9'MenuItem3'#6'Action'#7#18'act'
|
||||
+'DeleteOperation'#7'OnClick'#7#25'actDeleteOperationExecute'#0#0#9'TMenuItem'
|
||||
+#9'MenuItem4'#7'Caption'#6#1'-'#0#0#9'TMenuItem'#9'MenuItem5'#6'Action'#7#14
|
||||
+'actBindingEdit'#7'OnClick'#7#21'actBindingEditExecute'#0#0#0#0
|
||||
]);
|
||||
|
||||
@ -99,7 +99,7 @@ var
|
||||
begin
|
||||
node := trvMethods.Selected;
|
||||
locObj := TPasProcedure(node.Data);
|
||||
edit_helper.UpdateObject(locObj,FSymbolTable);
|
||||
edit_helper.UpdateObject(TPasElement(locObj),FSymbolTable);
|
||||
trvMethods.BeginUpdate();
|
||||
try
|
||||
newNode := FindPainter(locObj).Paint(FSymbolTable,locObj,node.Parent);
|
||||
@ -171,7 +171,7 @@ var
|
||||
begin
|
||||
node := trvMethods.Selected;
|
||||
locObj := TwstBinding(node.Data);
|
||||
edit_helper.UpdateObject(locObj,FSymbolTable);
|
||||
edit_helper.UpdateObject(TPasElement(locObj),FSymbolTable);
|
||||
trvMethods.BeginUpdate();
|
||||
try
|
||||
newNode := FindPainter(locObj).Paint(FSymbolTable,locObj,node.Parent);
|
||||
|
||||
@ -9,9 +9,11 @@ object fProcEdit: TfProcEdit
|
||||
ClientHeight = 543
|
||||
ClientWidth = 522
|
||||
Position = poMainFormCenter
|
||||
LCLVersion = '0.9.26.2'
|
||||
LCLVersion = '0.9.29'
|
||||
object PageControl1: TPageControl
|
||||
Left = 0
|
||||
Height = 493
|
||||
Top = 0
|
||||
Width = 522
|
||||
ActivePage = TabSheet1
|
||||
Align = alClient
|
||||
@ -31,7 +33,7 @@ object fProcEdit: TfProcEdit
|
||||
end
|
||||
object edtName: TEdit
|
||||
Left = 112
|
||||
Height = 23
|
||||
Height = 21
|
||||
Top = 26
|
||||
Width = 388
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
@ -49,7 +51,9 @@ object fProcEdit: TfProcEdit
|
||||
ClientWidth = 485
|
||||
TabOrder = 3
|
||||
object edtParams: TListView
|
||||
Left = 0
|
||||
Height = 286
|
||||
Top = 0
|
||||
Width = 485
|
||||
Align = alClient
|
||||
Columns = <
|
||||
@ -76,7 +80,7 @@ object fProcEdit: TfProcEdit
|
||||
Left = 12
|
||||
Height = 17
|
||||
Top = 74
|
||||
Width = 94
|
||||
Width = 97
|
||||
Caption = 'Function returns'
|
||||
OnClick = edtFunctionClick
|
||||
OnEditingDone = edtFunctionEditingDone
|
||||
@ -125,6 +129,7 @@ object fProcEdit: TfProcEdit
|
||||
end
|
||||
end
|
||||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Height = 50
|
||||
Top = 493
|
||||
Width = 522
|
||||
@ -161,24 +166,20 @@ object fProcEdit: TfProcEdit
|
||||
top = 241
|
||||
object actOk: TAction
|
||||
Caption = 'OK'
|
||||
DisableIfNoHandler = True
|
||||
OnExecute = actOkExecute
|
||||
OnUpdate = actOkUpdate
|
||||
end
|
||||
object actNewArg: TAction
|
||||
Caption = 'New Argument'
|
||||
DisableIfNoHandler = True
|
||||
OnExecute = actNewArgExecute
|
||||
end
|
||||
object actUpdateArgument: TAction
|
||||
Caption = 'Edit Argument'
|
||||
DisableIfNoHandler = True
|
||||
OnExecute = actUpdateArgumentExecute
|
||||
OnUpdate = actUpdateArgumentUpdate
|
||||
end
|
||||
object actDeleteArgument: TAction
|
||||
Caption = 'Delete Argument'
|
||||
DisableIfNoHandler = True
|
||||
OnExecute = actDeleteArgumentExecute
|
||||
OnUpdate = actUpdateArgumentUpdate
|
||||
end
|
||||
|
||||
@ -4,51 +4,50 @@ LazarusResources.Add('TfProcEdit','FORMDATA',[
|
||||
'TPF0'#10'TfProcEdit'#9'fProcEdit'#4'Left'#3'"'#1#6'Height'#3#31#2#3'Top'#2'v'
|
||||
+#5'Width'#3#10#2#13'ActiveControl'#7#7'edtName'#11'BorderStyle'#7#13'bsSizeT'
|
||||
+'oolWin'#7'Caption'#6#9'fProcEdit'#12'ClientHeight'#3#31#2#11'ClientWidth'#3
|
||||
+#10#2#8'Position'#7#16'poMainFormCenter'#10'LCLVersion'#6#8'0.9.26.2'#0#12'T'
|
||||
+'PageControl'#12'PageControl1'#6'Height'#3#237#1#5'Width'#3#10#2#10'ActivePa'
|
||||
+'ge'#7#9'TabSheet1'#5'Align'#7#8'alClient'#8'TabIndex'#2#0#8'TabOrder'#2#0#0
|
||||
+#9'TTabSheet'#9'TabSheet1'#7'Caption'#6#10'&Operation'#12'ClientHeight'#3#211
|
||||
+#1#11'ClientWidth'#3#2#2#0#6'TLabel'#6'Label1'#4'Left'#2#12#6'Height'#2#14#3
|
||||
+'Top'#2#26#5'Width'#2#28#7'Caption'#6#4'Name'#11'ParentColor'#8#0#0#5'TEdit'
|
||||
+#7'edtName'#4'Left'#2'p'#6'Height'#2#23#3'Top'#2#26#5'Width'#3#132#1#7'Ancho'
|
||||
+'rs'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'TabOrder'#2#0#4'Text'#6#7'edtName'
|
||||
+#0#0#9'TGroupBox'#9'GroupBox1'#4'Left'#2#11#6'Height'#3'0'#1#3'Top'#2'r'#5'W'
|
||||
+'idth'#3#233#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#7'C'
|
||||
+'aption'#6#15' Parametters '#12'ClientHeight'#3#30#1#11'ClientWidth'#3#229
|
||||
+#1#8'TabOrder'#2#3#0#9'TListView'#9'edtParams'#6'Height'#3#30#1#5'Width'#3
|
||||
+#229#1#5'Align'#7#8'alClient'#7'Columns'#14#1#7'Caption'#6#4'Name'#5'Width'#3
|
||||
+#180#0#0#1#7'Caption'#6#4'Type'#5'Width'#3#190#0#0#1#7'Caption'#6#8'Modifier'
|
||||
+#5'Width'#2'<'#0#1#0#0#9'RowSelect'#9#8'TabOrder'#2#0#9'ViewStyle'#7#8'vsRep'
|
||||
+'ort'#0#0#0#9'TCheckBox'#11'edtFunction'#4'Left'#2#12#6'Height'#2#17#3'Top'#2
|
||||
+'J'#5'Width'#2'^'#7'Caption'#6#16'Function returns'#7'OnClick'#7#16'edtFunct'
|
||||
+'ionClick'#13'OnEditingDone'#7#22'edtFunctionEditingDone'#8'TabOrder'#2#1#0#0
|
||||
+#9'TComboBox'#13'edtResultType'#4'Left'#2'p'#6'Height'#2#21#3'Top'#2'J'#5'Wi'
|
||||
+'dth'#3#132#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#10'ItemHeight'#2
|
||||
+#13#5'Style'#7#14'csDropDownList'#8'TabOrder'#2#2#0#0#7'TButton'#7'Button3'#4
|
||||
+'Left'#2#12#6'Height'#2#25#3'Top'#3#173#1#5'Width'#2'l'#6'Action'#7#9'actNew'
|
||||
+'Arg'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#25'BorderSpacing.InnerBorder'#2#4
|
||||
+#8'TabOrder'#2#4#0#0#7'TButton'#7'Button4'#4'Left'#3#132#0#6'Height'#2#25#3
|
||||
+'Top'#3#173#1#5'Width'#2'l'#6'Action'#7#17'actUpdateArgument'#7'Anchors'#11#6
|
||||
+'akLeft'#8'akBottom'#0#25'BorderSpacing.InnerBorder'#2#4#8'TabOrder'#2#5#0#0
|
||||
+#7'TButton'#7'Button5'#4'Left'#3#248#0#6'Height'#2#25#3'Top'#3#173#1#5'Width'
|
||||
+#2'l'#6'Action'#7#17'actDeleteArgument'#7'Anchors'#11#6'akLeft'#8'akBottom'#0
|
||||
+#25'BorderSpacing.InnerBorder'#2#4#8'TabOrder'#2#6#0#0#0#0#6'TPanel'#6'Panel'
|
||||
+'1'#6'Height'#2'2'#3'Top'#3#237#1#5'Width'#3#10#2#5'Align'#7#8'alBottom'#12
|
||||
+'ClientHeight'#2'2'#11'ClientWidth'#3#10#2#8'TabOrder'#2#1#0#7'TButton'#7'Bu'
|
||||
+'tton1'#4'Left'#3'X'#1#6'Height'#2#25#3'Top'#2#11#5'Width'#2'K'#6'Action'#7#5
|
||||
+'actOk'#7'Anchors'#11#5'akTop'#7'akRight'#0#25'BorderSpacing.InnerBorder'#2#4
|
||||
+#7'Default'#9#8'TabOrder'#2#0#0#0#7'TButton'#7'Button2'#4'Left'#3#176#1#6'He'
|
||||
+'ight'#2#25#3'Top'#2#11#5'Width'#2'K'#7'Anchors'#11#5'akTop'#7'akRight'#0#25
|
||||
+'BorderSpacing.InnerBorder'#2#4#6'Cancel'#9#7'Caption'#6#6'Cancel'#11'ModalR'
|
||||
+'esult'#2#2#8'TabOrder'#2#1#0#0#0#11'TActionList'#2'AL'#4'left'#3#198#0#3'to'
|
||||
+'p'#3#241#0#0#7'TAction'#5'actOk'#7'Caption'#6#2'OK'#18'DisableIfNoHandler'#9
|
||||
+#9'OnExecute'#7#12'actOkExecute'#8'OnUpdate'#7#11'actOkUpdate'#0#0#7'TAction'
|
||||
+#9'actNewArg'#7'Caption'#6#12'New Argument'#18'DisableIfNoHandler'#9#9'OnExe'
|
||||
+'cute'#7#16'actNewArgExecute'#0#0#7'TAction'#17'actUpdateArgument'#7'Caption'
|
||||
+#6#13'Edit Argument'#18'DisableIfNoHandler'#9#9'OnExecute'#7#24'actUpdateArg'
|
||||
+'umentExecute'#8'OnUpdate'#7#23'actUpdateArgumentUpdate'#0#0#7'TAction'#17'a'
|
||||
+'ctDeleteArgument'#7'Caption'#6#15'Delete Argument'#18'DisableIfNoHandler'#9
|
||||
+#9'OnExecute'#7#24'actDeleteArgumentExecute'#8'OnUpdate'#7#23'actUpdateArgum'
|
||||
+'entUpdate'#0#0#0#10'TPopupMenu'#10'PopupMenu1'#4'left'#2'S'#3'top'#3#217#0#0
|
||||
+#0#0
|
||||
+#10#2#8'Position'#7#16'poMainFormCenter'#10'LCLVersion'#6#6'0.9.29'#0#12'TPa'
|
||||
+'geControl'#12'PageControl1'#4'Left'#2#0#6'Height'#3#237#1#3'Top'#2#0#5'Widt'
|
||||
+'h'#3#10#2#10'ActivePage'#7#9'TabSheet1'#5'Align'#7#8'alClient'#8'TabIndex'#2
|
||||
+#0#8'TabOrder'#2#0#0#9'TTabSheet'#9'TabSheet1'#7'Caption'#6#10'&Operation'#12
|
||||
+'ClientHeight'#3#211#1#11'ClientWidth'#3#2#2#0#6'TLabel'#6'Label1'#4'Left'#2
|
||||
+#12#6'Height'#2#14#3'Top'#2#26#5'Width'#2#28#7'Caption'#6#4'Name'#11'ParentC'
|
||||
+'olor'#8#0#0#5'TEdit'#7'edtName'#4'Left'#2'p'#6'Height'#2#21#3'Top'#2#26#5'W'
|
||||
+'idth'#3#132#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'TabOrder'#2#0
|
||||
+#4'Text'#6#7'edtName'#0#0#9'TGroupBox'#9'GroupBox1'#4'Left'#2#11#6'Height'#3
|
||||
+'0'#1#3'Top'#2'r'#5'Width'#3#233#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRigh'
|
||||
+'t'#8'akBottom'#0#7'Caption'#6#15' Parametters '#12'ClientHeight'#3#30#1#11
|
||||
+'ClientWidth'#3#229#1#8'TabOrder'#2#3#0#9'TListView'#9'edtParams'#4'Left'#2#0
|
||||
+#6'Height'#3#30#1#3'Top'#2#0#5'Width'#3#229#1#5'Align'#7#8'alClient'#7'Colum'
|
||||
+'ns'#14#1#7'Caption'#6#4'Name'#5'Width'#3#180#0#0#1#7'Caption'#6#4'Type'#5'W'
|
||||
+'idth'#3#190#0#0#1#7'Caption'#6#8'Modifier'#5'Width'#2'<'#0#1#0#0#9'RowSelec'
|
||||
+'t'#9#8'TabOrder'#2#0#9'ViewStyle'#7#8'vsReport'#0#0#0#9'TCheckBox'#11'edtFu'
|
||||
+'nction'#4'Left'#2#12#6'Height'#2#17#3'Top'#2'J'#5'Width'#2'a'#7'Caption'#6
|
||||
+#16'Function returns'#7'OnClick'#7#16'edtFunctionClick'#13'OnEditingDone'#7
|
||||
+#22'edtFunctionEditingDone'#8'TabOrder'#2#1#0#0#9'TComboBox'#13'edtResultTyp'
|
||||
+'e'#4'Left'#2'p'#6'Height'#2#21#3'Top'#2'J'#5'Width'#3#132#1#7'Anchors'#11#5
|
||||
+'akTop'#6'akLeft'#7'akRight'#0#10'ItemHeight'#2#13#5'Style'#7#14'csDropDownL'
|
||||
+'ist'#8'TabOrder'#2#2#0#0#7'TButton'#7'Button3'#4'Left'#2#12#6'Height'#2#25#3
|
||||
+'Top'#3#173#1#5'Width'#2'l'#6'Action'#7#9'actNewArg'#7'Anchors'#11#6'akLeft'
|
||||
+#8'akBottom'#0#25'BorderSpacing.InnerBorder'#2#4#8'TabOrder'#2#4#0#0#7'TButt'
|
||||
+'on'#7'Button4'#4'Left'#3#132#0#6'Height'#2#25#3'Top'#3#173#1#5'Width'#2'l'#6
|
||||
+'Action'#7#17'actUpdateArgument'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#25'Bo'
|
||||
+'rderSpacing.InnerBorder'#2#4#8'TabOrder'#2#5#0#0#7'TButton'#7'Button5'#4'Le'
|
||||
+'ft'#3#248#0#6'Height'#2#25#3'Top'#3#173#1#5'Width'#2'l'#6'Action'#7#17'actD'
|
||||
+'eleteArgument'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#25'BorderSpacing.Inner'
|
||||
+'Border'#2#4#8'TabOrder'#2#6#0#0#0#0#6'TPanel'#6'Panel1'#4'Left'#2#0#6'Heigh'
|
||||
+'t'#2'2'#3'Top'#3#237#1#5'Width'#3#10#2#5'Align'#7#8'alBottom'#12'ClientHeig'
|
||||
+'ht'#2'2'#11'ClientWidth'#3#10#2#8'TabOrder'#2#1#0#7'TButton'#7'Button1'#4'L'
|
||||
+'eft'#3'X'#1#6'Height'#2#25#3'Top'#2#11#5'Width'#2'K'#6'Action'#7#5'actOk'#7
|
||||
+'Anchors'#11#5'akTop'#7'akRight'#0#25'BorderSpacing.InnerBorder'#2#4#7'Defau'
|
||||
+'lt'#9#8'TabOrder'#2#0#0#0#7'TButton'#7'Button2'#4'Left'#3#176#1#6'Height'#2
|
||||
+#25#3'Top'#2#11#5'Width'#2'K'#7'Anchors'#11#5'akTop'#7'akRight'#0#25'BorderS'
|
||||
+'pacing.InnerBorder'#2#4#6'Cancel'#9#7'Caption'#6#6'Cancel'#11'ModalResult'#2
|
||||
+#2#8'TabOrder'#2#1#0#0#0#11'TActionList'#2'AL'#4'left'#3#198#0#3'top'#3#241#0
|
||||
+#0#7'TAction'#5'actOk'#7'Caption'#6#2'OK'#9'OnExecute'#7#12'actOkExecute'#8
|
||||
+'OnUpdate'#7#11'actOkUpdate'#0#0#7'TAction'#9'actNewArg'#7'Caption'#6#12'New'
|
||||
+' Argument'#9'OnExecute'#7#16'actNewArgExecute'#0#0#7'TAction'#17'actUpdateA'
|
||||
+'rgument'#7'Caption'#6#13'Edit Argument'#9'OnExecute'#7#24'actUpdateArgument'
|
||||
+'Execute'#8'OnUpdate'#7#23'actUpdateArgumentUpdate'#0#0#7'TAction'#17'actDel'
|
||||
+'eteArgument'#7'Caption'#6#15'Delete Argument'#9'OnExecute'#7#24'actDeleteAr'
|
||||
+'gumentExecute'#8'OnUpdate'#7#23'actUpdateArgumentUpdate'#0#0#0#10'TPopupMen'
|
||||
+'u'#10'PopupMenu1'#4'left'#2'S'#3'top'#3#217#0#0#0#0
|
||||
]);
|
||||
|
||||
@ -151,7 +151,7 @@ begin
|
||||
itm := edtParams.ItemFocused;
|
||||
if Assigned(itm) then begin
|
||||
prp := TPasArgument(itm.Data);
|
||||
if edit_helper.UpdateObject(prp,FSymbolTable) then begin
|
||||
if edit_helper.UpdateObject(TPasElement(prp),FSymbolTable) then begin
|
||||
itm.Free();
|
||||
LoadArgument(prp);
|
||||
end;
|
||||
|
||||
Reference in New Issue
Block a user