pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Add "Clone" functionality to Editor

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1260 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2010-07-19 11:00:35 +00:00
parent a37f60260f
commit 7f8f0aade3
14 changed files with 1298 additions and 1223 deletions
Download Patch File Download Diff File Expand all files Collapse all files

187
wst/trunk/type_lib_edtr/edit_helper.pas
View File

@ -22,13 +22,13 @@ uses
type type
TEditType = ( etCreate, etUpdate, etDelete ); TEditType = ( etCreate, etUpdate, etDelete, etClone );
{ TObjectUpdater } { TObjectUpdater }
TObjectUpdater = class TObjectUpdater = class
public public
class function CanHandle(AObject : TObject):Boolean;virtual; class function CanHandle(AObject : TObject; const AEditAction : TEditType):Boolean;virtual;
class function UpdateObject( class function UpdateObject(
var AObject : TPasElement; var AObject : TPasElement;
ASymbolTable : TwstPasTreeContainer ASymbolTable : TwstPasTreeContainer
@ -37,6 +37,10 @@ type
AObject : TPasElement; AObject : TPasElement;
ASymbolTable : TwstPasTreeContainer ASymbolTable : TwstPasTreeContainer
);virtual; );virtual;
class function CloneObject(
AObject : TPasElement;
ASymbolTable : TwstPasTreeContainer
) : TPasElement;virtual; abstract;
end; end;
TObjectUpdaterClass = class of TObjectUpdater; TObjectUpdaterClass = class of TObjectUpdater;
@ -57,7 +61,12 @@ type
function HasEditor(AObject : TPasElement):Boolean; function HasEditor(AObject : TObject; const AEditAction : TEditType):Boolean; overload;
function HasEditor(
AObject : TObject;
const AEditAction : TEditType;
out AHandler : TObjectUpdaterClass
): Boolean; overload;
function UpdateObject( function UpdateObject(
var AObject : TPasElement; var AObject : TPasElement;
ASymbolTable : TwstPasTreeContainer ASymbolTable : TwstPasTreeContainer
@ -87,12 +96,12 @@ type
private private
FList : TClassList; FList : TClassList;
private private
function FindHanlderIndex(AObj : TObject):Integer; function FindHanlderIndex(AObj : TObject; const AEditAction : TEditType):Integer;
public public
constructor Create(); constructor Create();
destructor Destroy();override; destructor Destroy();override;
procedure RegisterHandler(AHandlerClass : TObjectUpdaterClass); procedure RegisterHandler(AHandlerClass : TObjectUpdaterClass);
function FindHandler(AObj : TObject; out AHandler : TObjectUpdaterClass) : Boolean; function FindHandler(AObj : TObject; const AEditAction : TEditType; out AHandler : TObjectUpdaterClass) : Boolean;
end; end;
var UpdaterRegistryInst : TUpdaterRegistry; var UpdaterRegistryInst : TUpdaterRegistry;
@ -110,11 +119,20 @@ begin
end; end;
end; end;
function HasEditor(AObject: TPasElement): Boolean; function HasEditor(
AObject : TObject;
const AEditAction : TEditType;
out AHandler : TObjectUpdaterClass
): Boolean;
begin
Result := UpdaterRegistryInst.FindHandler(AObject,AEditAction,AHandler) and AHandler.CanHandle(AObject,AEditAction);
end;
function HasEditor(AObject : TObject; const AEditAction : TEditType): Boolean;
var var
h : TObjectUpdaterClass; h : TObjectUpdaterClass;
begin begin
Result := UpdaterRegistryInst.FindHandler(AObject,h); Result := HasEditor(AObject,AEditAction,h);
end; end;
function UpdateObject( function UpdateObject(
@ -124,7 +142,7 @@ function UpdateObject(
var var
h : TObjectUpdaterClass; h : TObjectUpdaterClass;
begin begin
if not UpdaterRegistryInst.FindHandler(AObject,h) then begin if not UpdaterRegistryInst.FindHandler(AObject,etUpdate,h) then begin
raise Exception.Create('No handler found.'); raise Exception.Create('No handler found.');
end; end;
Result := h.UpdateObject(AObject,ASymbolTable); Result := h.UpdateObject(AObject,ASymbolTable);
@ -137,7 +155,7 @@ procedure DeleteObject(
var var
h : TObjectUpdaterClass; h : TObjectUpdaterClass;
begin begin
if not UpdaterRegistryInst.FindHandler(AObject,h) then begin if not UpdaterRegistryInst.FindHandler(AObject,etDelete,h) then begin
raise Exception.Create('No handler found.'); raise Exception.Create('No handler found.');
end; end;
h.DeleteObject(AObject,ASymbolTable); h.DeleteObject(AObject,ASymbolTable);
@ -148,7 +166,7 @@ type
TEnumUpdater = class(TObjectUpdater) TEnumUpdater = class(TObjectUpdater)
public public
class function CanHandle(AObject : TObject):Boolean;override; class function CanHandle(AObject : TObject; const AEditAction : TEditType):Boolean;override;
class function UpdateObject( class function UpdateObject(
var AObject : TPasElement; var AObject : TPasElement;
ASymbolTable : TwstPasTreeContainer ASymbolTable : TwstPasTreeContainer
@ -159,18 +177,22 @@ type
TClassUpdater = class(TObjectUpdater) TClassUpdater = class(TObjectUpdater)
public public
class function CanHandle(AObject : TObject):Boolean;override; class function CanHandle(AObject : TObject; const AEditAction : TEditType):Boolean;override;
class function UpdateObject( class function UpdateObject(
var AObject : TPasElement; var AObject : TPasElement;
ASymbolTable : TwstPasTreeContainer ASymbolTable : TwstPasTreeContainer
):Boolean;override; ):Boolean;override;
class function CloneObject(
AObject : TPasElement;
ASymbolTable : TwstPasTreeContainer
) : TPasElement; override;
end; end;
{ TRecordUpdater } { TRecordUpdater }
TRecordUpdater = class(TObjectUpdater) TRecordUpdater = class(TObjectUpdater)
public public
class function CanHandle(AObject : TObject):Boolean;override; class function CanHandle(AObject : TObject; const AEditAction : TEditType):Boolean;override;
class function UpdateObject( class function UpdateObject(
var AObject : TPasElement; var AObject : TPasElement;
ASymbolTable : TwstPasTreeContainer ASymbolTable : TwstPasTreeContainer
@ -181,7 +203,7 @@ type
TTypeAliasUpdater = class(TObjectUpdater) TTypeAliasUpdater = class(TObjectUpdater)
public public
class function CanHandle(AObject : TObject):Boolean;override; class function CanHandle(AObject : TObject; const AEditAction : TEditType):Boolean;override;
class function UpdateObject( class function UpdateObject(
var AObject : TPasElement; var AObject : TPasElement;
ASymbolTable : TwstPasTreeContainer ASymbolTable : TwstPasTreeContainer
@ -192,7 +214,7 @@ type
TArrayUpdater = class(TObjectUpdater) TArrayUpdater = class(TObjectUpdater)
public public
class function CanHandle(AObject : TObject):Boolean;override; class function CanHandle(AObject : TObject; const AEditAction : TEditType):Boolean;override;
class function UpdateObject( class function UpdateObject(
var AObject : TPasElement; var AObject : TPasElement;
ASymbolTable : TwstPasTreeContainer ASymbolTable : TwstPasTreeContainer
@ -203,7 +225,7 @@ type
TInterfaceUpdater = class(TObjectUpdater) TInterfaceUpdater = class(TObjectUpdater)
public public
class function CanHandle(AObject : TObject):Boolean;override; class function CanHandle(AObject : TObject; const AEditAction : TEditType):Boolean;override;
class function UpdateObject( class function UpdateObject(
var AObject : TPasElement; var AObject : TPasElement;
ASymbolTable : TwstPasTreeContainer ASymbolTable : TwstPasTreeContainer
@ -214,7 +236,7 @@ type
TMethodUpdater = class(TObjectUpdater) TMethodUpdater = class(TObjectUpdater)
public public
class function CanHandle(AObject : TObject):Boolean;override; class function CanHandle(AObject : TObject; const AEditAction : TEditType):Boolean;override;
class function UpdateObject( class function UpdateObject(
var AObject : TPasElement; var AObject : TPasElement;
ASymbolTable : TwstPasTreeContainer ASymbolTable : TwstPasTreeContainer
@ -225,7 +247,7 @@ type
TArgumentUpdater = class(TObjectUpdater) TArgumentUpdater = class(TObjectUpdater)
public public
class function CanHandle(AObject : TObject):Boolean;override; class function CanHandle(AObject : TObject; const AEditAction : TEditType):Boolean;override;
class function UpdateObject( class function UpdateObject(
var AObject : TPasElement; var AObject : TPasElement;
ASymbolTable : TwstPasTreeContainer ASymbolTable : TwstPasTreeContainer
@ -236,7 +258,7 @@ type
TModuleUpdater = class(TObjectUpdater) TModuleUpdater = class(TObjectUpdater)
public public
class function CanHandle(AObject : TObject):Boolean;override; class function CanHandle(AObject : TObject; const AEditAction : TEditType):Boolean;override;
class function UpdateObject( class function UpdateObject(
var AObject : TPasElement; var AObject : TPasElement;
ASymbolTable : TwstPasTreeContainer ASymbolTable : TwstPasTreeContainer
@ -247,7 +269,7 @@ type
TBindingUpdater = class(TObjectUpdater) TBindingUpdater = class(TObjectUpdater)
public public
class function CanHandle(AObject : TObject):Boolean;override; class function CanHandle(AObject : TObject; const AEditAction : TEditType):Boolean;override;
class function UpdateObject( class function UpdateObject(
var AObject : TPasElement; var AObject : TPasElement;
ASymbolTable : TwstPasTreeContainer ASymbolTable : TwstPasTreeContainer
@ -256,9 +278,9 @@ type
{ TRecordUpdater } { TRecordUpdater }
class function TRecordUpdater.CanHandle(AObject : TObject) : Boolean; class function TRecordUpdater.CanHandle(AObject : TObject; const AEditAction : TEditType) : Boolean;
begin begin
Result := ( inherited CanHandle(AObject) ) and AObject.InheritsFrom(TPasRecordType) ; Result := ( inherited CanHandle(AObject,AEditAction) ) and AObject.InheritsFrom(TPasRecordType) ;
end; end;
class function TRecordUpdater.UpdateObject( class function TRecordUpdater.UpdateObject(
@ -281,9 +303,9 @@ end;
{ TTypeAliasUpdater } { TTypeAliasUpdater }
class function TTypeAliasUpdater.CanHandle(AObject : TObject) : Boolean; class function TTypeAliasUpdater.CanHandle(AObject : TObject; const AEditAction : TEditType) : Boolean;
begin begin
Result := ( inherited CanHandle(AObject) ) and AObject.InheritsFrom(TPasAliasType); Result := ( inherited CanHandle(AObject,AEditAction) ) and AObject.InheritsFrom(TPasAliasType);
end; end;
class function TTypeAliasUpdater.UpdateObject( class function TTypeAliasUpdater.UpdateObject(
@ -306,9 +328,9 @@ end;
{ TArrayUpdater } { TArrayUpdater }
class function TArrayUpdater.CanHandle(AObject : TObject) : Boolean; class function TArrayUpdater.CanHandle(AObject : TObject; const AEditAction : TEditType) : Boolean;
begin begin
Result := ( inherited CanHandle(AObject) ) and AObject.InheritsFrom(TPasArrayType); Result := ( inherited CanHandle(AObject,AEditAction) ) and AObject.InheritsFrom(TPasArrayType);
end; end;
class function TArrayUpdater.UpdateObject( class function TArrayUpdater.UpdateObject(
@ -331,9 +353,9 @@ end;
{ TBindingUpdater } { TBindingUpdater }
class function TBindingUpdater.CanHandle(AObject: TObject): Boolean; class function TBindingUpdater.CanHandle(AObject : TObject; const AEditAction : TEditType): Boolean;
begin begin
Result := ( inherited CanHandle(AObject) ) and AObject.InheritsFrom(TwstBinding); Result := ( inherited CanHandle(AObject,AEditAction) ) and AObject.InheritsFrom(TwstBinding);
end; end;
class function TBindingUpdater.UpdateObject( class function TBindingUpdater.UpdateObject(
@ -356,9 +378,9 @@ end;
{ TModuleUpdater } { TModuleUpdater }
class function TModuleUpdater.CanHandle(AObject: TObject): Boolean; class function TModuleUpdater.CanHandle(AObject : TObject; const AEditAction : TEditType): Boolean;
begin begin
Result := ( inherited CanHandle(AObject) ) and AObject.InheritsFrom(TPasModule); Result := ( inherited CanHandle(AObject,AEditAction) ) and AObject.InheritsFrom(TPasModule);
end; end;
class function TModuleUpdater.UpdateObject( class function TModuleUpdater.UpdateObject(
@ -381,9 +403,9 @@ end;
{ TArgumentUpdater } { TArgumentUpdater }
class function TArgumentUpdater.CanHandle(AObject: TObject): Boolean; class function TArgumentUpdater.CanHandle(AObject : TObject; const AEditAction : TEditType): Boolean;
begin begin
Result := ( inherited CanHandle(AObject) ) and AObject.InheritsFrom(TPasArgument); Result := ( inherited CanHandle(AObject,AEditAction) ) and AObject.InheritsFrom(TPasArgument);
end; end;
class function TArgumentUpdater.UpdateObject( class function TArgumentUpdater.UpdateObject(
@ -406,9 +428,9 @@ end;
{ TMethodUpdater } { TMethodUpdater }
class function TMethodUpdater.CanHandle(AObject: TObject): Boolean; class function TMethodUpdater.CanHandle(AObject : TObject; const AEditAction : TEditType): Boolean;
begin begin
Result := ( inherited CanHandle(AObject) ) and AObject.InheritsFrom(TPasProcedure); Result := ( inherited CanHandle(AObject,AEditAction) ) and AObject.InheritsFrom(TPasProcedure);
end; end;
class function TMethodUpdater.UpdateObject( class function TMethodUpdater.UpdateObject(
@ -431,9 +453,9 @@ end;
{ TInterfaceUpdater } { TInterfaceUpdater }
class function TInterfaceUpdater.CanHandle(AObject: TObject): Boolean; class function TInterfaceUpdater.CanHandle(AObject : TObject; const AEditAction : TEditType): Boolean;
begin begin
Result := ( inherited CanHandle(AObject) ) and Result := ( inherited CanHandle(AObject,AEditAction) ) and
( AObject.InheritsFrom(TPasClassType) and ( TPasClassType(AObject).ObjKind = okInterface ) ); ( AObject.InheritsFrom(TPasClassType) and ( TPasClassType(AObject).ObjKind = okInterface ) );
end; end;
@ -457,9 +479,9 @@ end;
{ TClassUpdater } { TClassUpdater }
class function TClassUpdater.CanHandle(AObject: TObject): Boolean; class function TClassUpdater.CanHandle(AObject : TObject; const AEditAction : TEditType): Boolean;
begin begin
Result := ( inherited CanHandle(AObject) ) and Result := ( AObject <> nil ) and
( AObject.InheritsFrom(TPasClassType) and ( TPasClassType(AObject).ObjKind = okClass ) ); ( AObject.InheritsFrom(TPasClassType) and ( TPasClassType(AObject).ObjKind = okClass ) );
end; end;
@ -481,14 +503,87 @@ begin
end; end;
end; end;
class function TClassUpdater.CloneObject(
AObject : TPasElement;
ASymbolTable : TwstPasTreeContainer
) : TPasElement;
function MakeNewName(const ABase : string) : string;
var
k : Integer;
begin
k := 1;
while True do begin
Result := Format('%s_%d',[ABase,k]);
if ( ASymbolTable.FindElement(Result) = nil ) then
Break;
Inc(k);
end;
end;
procedure CloneProperties(ASource, ADest : TPasClassType);
var
ls : TList;
k : Integer;
locSource, locDest : TPasProperty;
begin
ls := ASource.Members;
if ( ls.Count > 0 ) then begin
for k := 0 to Pred(ls.Count) do begin
if TObject(ls[k]).InheritsFrom(TPasProperty) then begin
locSource := TPasProperty(ls[k]);
locDest := TPasProperty(ASymbolTable.CreateElement(TPasProperty,locSource.Name,ADest,visPublished,'',0));
ADest.Members.Add(locDest);
if ( locSource.VarType <> nil ) then begin
locDest.VarType := locSource.VarType;
locDest.VarType.AddRef();
locDest.StoredAccessorName := locSource.StoredAccessorName;
locDest.ReadAccessorName := locSource.ReadAccessorName;
locDest.WriteAccessorName := locSource.WriteAccessorName;
ASymbolTable.RegisterExternalAlias(locDest,ASymbolTable.GetExternalName(locSource));
ASymbolTable.SetPropertyAsAttribute(locDest,ASymbolTable.IsAttributeProperty(locSource));
end;
end;
end;
end;
end;
var
locSource, locRes : TPasClassType;
locNewName : string;
begin
locSource := AObject as TPasClassType;
locNewName := MakeNewName(locSource.Name);
locRes := TPasClassType(
ASymbolTable.CreateElement(
TPTreeElement(locSource.ClassType), locNewName,
ASymbolTable.CurrentModule.InterfaceSection,visDefault,'',0)
);
try
locRes.ObjKind := okClass;
ASymbolTable.CurrentModule.InterfaceSection.Declarations.Add(locRes);
ASymbolTable.CurrentModule.InterfaceSection.Types.Add(locRes);
ASymbolTable.CurrentModule.InterfaceSection.Classes.Add(locRes);
if ( locSource.AncestorType <> nil ) then begin
locRes.AncestorType := locSource.AncestorType;
locRes.AncestorType.AddRef();
end;
CloneProperties(locSource,locRes);
except
locRes.Free();
raise;
end;
Result := locRes;
end;
{ TUpdaterRegistry } { TUpdaterRegistry }
function TUpdaterRegistry.FindHanlderIndex(AObj : TObject): Integer; function TUpdaterRegistry.FindHanlderIndex(AObj : TObject; const AEditAction : TEditType): Integer;
var var
i : Integer; i : Integer;
begin begin
for i := 0 to Pred(FList.Count) do begin for i := 0 to Pred(FList.Count) do begin
if TObjectUpdaterClass(FList[i]).CanHandle(AObj) then begin if TObjectUpdaterClass(FList[i]).CanHandle(AObj,AEditAction) then begin
Result := i; Result := i;
Exit; Exit;
end; end;
@ -516,13 +611,14 @@ end;
function TUpdaterRegistry.FindHandler( function TUpdaterRegistry.FindHandler(
AObj : TObject; AObj : TObject;
const AEditAction : TEditType;
out AHandler : TObjectUpdaterClass out AHandler : TObjectUpdaterClass
): Boolean; ): Boolean;
var var
i : Integer; i : Integer;
begin begin
AHandler := nil; AHandler := nil;
i := FindHanlderIndex(AObj); i := FindHanlderIndex(AObj,AEditAction);
Result := ( i >= 0 ); Result := ( i >= 0 );
if Result then begin if Result then begin
AHandler := TObjectUpdaterClass(FList[i]); AHandler := TObjectUpdaterClass(FList[i]);
@ -531,9 +627,9 @@ end;
{ TEnumUpdater } { TEnumUpdater }
class function TEnumUpdater.CanHandle(AObject: TObject): Boolean; class function TEnumUpdater.CanHandle(AObject : TObject; const AEditAction : TEditType): Boolean;
begin begin
Result := ( inherited CanHandle(AObject) ) and AObject.InheritsFrom(TPasEnumType); Result := ( inherited CanHandle(AObject,AEditAction) ) and AObject.InheritsFrom(TPasEnumType);
end; end;
class function TEnumUpdater.UpdateObject( class function TEnumUpdater.UpdateObject(
@ -656,9 +752,12 @@ end;
{ TObjectUpdater } { TObjectUpdater }
class function TObjectUpdater.CanHandle(AObject: TObject): Boolean; class function TObjectUpdater.CanHandle(
AObject : TObject;
const AEditAction : TEditType
) : Boolean;
begin begin
Result := Assigned(AObject); Result := Assigned(AObject) and ( AEditAction <> etClone );
end; end;
class procedure TObjectUpdater.DeleteObject ( class procedure TObjectUpdater.DeleteObject (

7
wst/trunk/type_lib_edtr/typ_lib_edtr.lpi
View File

@ -12,7 +12,7 @@
<TargetFileExt Value=".exe"/> <TargetFileExt Value=".exe"/>
</General> </General>
<VersionInfo> <VersionInfo>
<ProjectVersion Value=""/> <StringTable Comments="" CompanyName="" FileDescription="" FileVersion="0.0.0.0" InternalName="" LegalCopyright="" LegalTrademarks="" OriginalFilename="" ProductName="" ProductVersion="0.0.0.0"/>
</VersionInfo> </VersionInfo>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>
@ -207,7 +207,7 @@
</Parsing> </Parsing>
<Linking> <Linking>
<Debugging> <Debugging>
<GenerateDebugInfo Value="True"/> <UseLineInfoUnit Value="False"/>
<StripSymbols Value="True"/> <StripSymbols Value="True"/>
</Debugging> </Debugging>
<LinkSmart Value="True"/> <LinkSmart Value="True"/>
@ -218,6 +218,9 @@
</Options> </Options>
</Linking> </Linking>
<Other> <Other>
<CompilerMessages>
<UseMsgFile Value="True"/>
</CompilerMessages>
<CustomOptions Value="-dWST_HANDLE_DOC <CustomOptions Value="-dWST_HANDLE_DOC
"/> "/>
<CompilerPath Value="$(CompPath)"/> <CompilerPath Value="$(CompPath)"/>

13
wst/trunk/type_lib_edtr/uargedit.lfm
View File

@ -1,16 +1,16 @@
object fArgEdit: TfArgEdit object fArgEdit: TfArgEdit
Left = 755 Left = 809
Height = 393 Height = 393
Top = 180 Top = 203
Width = 400 Width = 400
ActiveControl = Button1
BorderStyle = bsSizeToolWin BorderStyle = bsSizeToolWin
Caption = 'fArgEdit' Caption = 'fArgEdit'
ClientHeight = 393 ClientHeight = 393
ClientWidth = 400 ClientWidth = 400
Position = poMainFormCenter Position = poMainFormCenter
LCLVersion = '0.9.26.2' LCLVersion = '0.9.29'
object Panel1: TPanel object Panel1: TPanel
Left = 0
Height = 50 Height = 50
Top = 343 Top = 343
Width = 400 Width = 400
@ -43,7 +43,9 @@ object fArgEdit: TfArgEdit
end end
end end
object PageControl1: TPageControl object PageControl1: TPageControl
Left = 0
Height = 343 Height = 343
Top = 0
Width = 400 Width = 400
ActivePage = TabSheet1 ActivePage = TabSheet1
Align = alClient Align = alClient
@ -71,7 +73,7 @@ object fArgEdit: TfArgEdit
end end
object edtName: TEdit object edtName: TEdit
Left = 20 Left = 20
Height = 23 Height = 21
Top = 47 Top = 47
Width = 352 Width = 352
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
@ -122,7 +124,6 @@ object fArgEdit: TfArgEdit
top = 213 top = 213
object actOK: TAction object actOK: TAction
Caption = 'OK' Caption = 'OK'
DisableIfNoHandler = True
OnExecute = actOKExecute OnExecute = actOKExecute
OnUpdate = actOKUpdate OnUpdate = actOKUpdate
end end

49
wst/trunk/type_lib_edtr/uargedit.lrs
View File

@ -1,28 +1,28 @@
{ Ceci est un fichier ressource généré automatiquement par Lazarus } { This is an automatically generated lazarus resource file }
LazarusResources.Add('TfArgEdit','FORMDATA',[ LazarusResources.Add('TfArgEdit','FORMDATA',[
'TPF0'#9'TfArgEdit'#8'fArgEdit'#4'Left'#3#243#2#6'Height'#3#137#1#3'Top'#3#180 'TPF0'#9'TfArgEdit'#8'fArgEdit'#4'Left'#3')'#3#6'Height'#3#137#1#3'Top'#3#203
+#0#5'Width'#3#144#1#13'ActiveControl'#7#7'Button1'#11'BorderStyle'#7#13'bsSi' +#0#5'Width'#3#144#1#11'BorderStyle'#7#13'bsSizeToolWin'#7'Caption'#6#8'fArgE'
+'zeToolWin'#7'Caption'#6#8'fArgEdit'#12'ClientHeight'#3#137#1#11'ClientWidth' +'dit'#12'ClientHeight'#3#137#1#11'ClientWidth'#3#144#1#8'Position'#7#16'poMa'
+#3#144#1#8'Position'#7#16'poMainFormCenter'#10'LCLVersion'#6#8'0.9.26.2'#0#6 +'inFormCenter'#10'LCLVersion'#6#6'0.9.29'#0#6'TPanel'#6'Panel1'#4'Left'#2#0#6
+'TPanel'#6'Panel1'#6'Height'#2'2'#3'Top'#3'W'#1#5'Width'#3#144#1#5'Align'#7#8 +'Height'#2'2'#3'Top'#3'W'#1#5'Width'#3#144#1#5'Align'#7#8'alBottom'#12'Clien'
+'alBottom'#12'ClientHeight'#2'2'#11'ClientWidth'#3#144#1#8'TabOrder'#2#0#0#7 +'tHeight'#2'2'#11'ClientWidth'#3#144#1#8'TabOrder'#2#0#0#7'TButton'#7'Button'
+'TButton'#7'Button1'#4'Left'#3#224#0#6'Height'#2#25#3'Top'#2#11#5'Width'#2'K' +'1'#4'Left'#3#224#0#6'Height'#2#25#3'Top'#2#11#5'Width'#2'K'#6'Action'#7#5'a'
+#6'Action'#7#5'actOK'#7'Anchors'#11#5'akTop'#7'akRight'#0#25'BorderSpacing.I' +'ctOK'#7'Anchors'#11#5'akTop'#7'akRight'#0#25'BorderSpacing.InnerBorder'#2#4
+'nnerBorder'#2#4#7'Default'#9#8'TabOrder'#2#0#0#0#7'TButton'#7'Button2'#4'Le' +#7'Default'#9#8'TabOrder'#2#0#0#0#7'TButton'#7'Button2'#4'Left'#3'8'#1#6'Hei'
+'ft'#3'8'#1#6'Height'#2#25#3'Top'#2#10#5'Width'#2'K'#7'Anchors'#11#5'akTop'#7 +'ght'#2#25#3'Top'#2#10#5'Width'#2'K'#7'Anchors'#11#5'akTop'#7'akRight'#0#25
+'akRight'#0#25'BorderSpacing.InnerBorder'#2#4#6'Cancel'#9#7'Caption'#6#6'Can' +'BorderSpacing.InnerBorder'#2#4#6'Cancel'#9#7'Caption'#6#6'Cancel'#11'ModalR'
+'cel'#11'ModalResult'#2#2#8'TabOrder'#2#1#0#0#0#12'TPageControl'#12'PageCont' +'esult'#2#2#8'TabOrder'#2#1#0#0#0#12'TPageControl'#12'PageControl1'#4'Left'#2
+'rol1'#6'Height'#3'W'#1#5'Width'#3#144#1#10'ActivePage'#7#9'TabSheet1'#5'Ali' +#0#6'Height'#3'W'#1#3'Top'#2#0#5'Width'#3#144#1#10'ActivePage'#7#9'TabSheet1'
+'gn'#7#8'alClient'#8'TabIndex'#2#0#8'TabOrder'#2#1#0#9'TTabSheet'#9'TabSheet' +#5'Align'#7#8'alClient'#8'TabIndex'#2#0#8'TabOrder'#2#1#0#9'TTabSheet'#9'Tab'
+'1'#7'Caption'#6#8'Argument'#12'ClientHeight'#3'='#1#11'ClientWidth'#3#136#1 +'Sheet1'#7'Caption'#6#8'Argument'#12'ClientHeight'#3'='#1#11'ClientWidth'#3
+#0#6'TLabel'#6'Label1'#4'Left'#2#20#6'Height'#2#14#3'Top'#2#26#5'Width'#2#28 +#136#1#0#6'TLabel'#6'Label1'#4'Left'#2#20#6'Height'#2#14#3'Top'#2#26#5'Width'
+#7'Caption'#6#4'Name'#11'ParentColor'#8#0#0#6'TLabel'#6'Label2'#4'Left'#2#20 +#2#28#7'Caption'#6#4'Name'#11'ParentColor'#8#0#0#6'TLabel'#6'Label2'#4'Left'
+#6'Height'#2#14#3'Top'#2'_'#5'Width'#2#25#7'Caption'#6#4'Type'#11'ParentColo' +#2#20#6'Height'#2#14#3'Top'#2'_'#5'Width'#2#25#7'Caption'#6#4'Type'#11'Paren'
+'r'#8#0#0#5'TEdit'#7'edtName'#4'Left'#2#20#6'Height'#2#23#3'Top'#2'/'#5'Widt' +'tColor'#8#0#0#5'TEdit'#7'edtName'#4'Left'#2#20#6'Height'#2#21#3'Top'#2'/'#5
+'h'#3'`'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'TabOrder'#2#0#4'T' +'Width'#3'`'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'TabOrder'#2#0
+'ext'#6#7'edtName'#0#0#9'TComboBox'#7'edtType'#4'Left'#2#20#6'Height'#2#21#3 +#4'Text'#6#7'edtName'#0#0#9'TComboBox'#7'edtType'#4'Left'#2#20#6'Height'#2#21
+'Top'#2'r'#5'Width'#3'`'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#10 +#3'Top'#2'r'#5'Width'#3'`'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#10
+'ItemHeight'#2#13#5'Style'#7#14'csDropDownList'#8'TabOrder'#2#1#0#0#11'TRadi' +'ItemHeight'#2#13#5'Style'#7#14'csDropDownList'#8'TabOrder'#2#1#0#0#11'TRadi'
+'oGroup'#11'edtModifier'#4'Left'#2#20#6'Height'#3#133#0#3'Top'#3#157#0#5'Wid' +'oGroup'#11'edtModifier'#4'Left'#2#20#6'Height'#3#133#0#3'Top'#3#157#0#5'Wid'
+'th'#3'`'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#8'Auto' +'th'#3'`'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#8'Auto'
@ -35,6 +35,5 @@ LazarusResources.Add('TfArgEdit','FORMDATA',[
+'eight'#2's'#11'ClientWidth'#3'\'#1#7'Columns'#2#2#13'Items.Strings'#1#6#7'D' +'eight'#2's'#11'ClientWidth'#3'\'#1#7'Columns'#2#2#13'Items.Strings'#1#6#7'D'
+'efault'#6#5'Const'#6#3'Var'#6#3'Out'#0#8'TabOrder'#2#2#0#0#0#0#11'TActionLi' +'efault'#6#5'Const'#6#3'Var'#6#3'Out'#0#8'TabOrder'#2#2#0#0#0#0#11'TActionLi'
+'st'#2'AL'#4'left'#3#152#0#3'top'#3#213#0#0#7'TAction'#5'actOK'#7'Caption'#6 +'st'#2'AL'#4'left'#3#152#0#3'top'#3#213#0#0#7'TAction'#5'actOK'#7'Caption'#6
+#2'OK'#18'DisableIfNoHandler'#9#9'OnExecute'#7#12'actOKExecute'#8'OnUpdate'#7 +#2'OK'#9'OnExecute'#7#12'actOKExecute'#8'OnUpdate'#7#11'actOKUpdate'#0#0#0#0
+#11'actOKUpdate'#0#0#0#0
]); ]);

176
wst/trunk/type_lib_edtr/ufclassedit.lfm
View File

@ -1,19 +1,18 @@
object fClassEdit: TfClassEdit object fClassEdit: TfClassEdit
Left = 536 Left = 640
Height = 547 Height = 556
Top = 127 Top = 167
Width = 552 Width = 552
ActiveControl = PC
BorderStyle = bsSizeToolWin BorderStyle = bsSizeToolWin
Caption = 'fClassEdit' Caption = 'fClassEdit'
ClientHeight = 547 ClientHeight = 556
ClientWidth = 552 ClientWidth = 552
Position = poDesktopCenter Position = poDesktopCenter
LCLVersion = '0.9.29' LCLVersion = '0.9.29'
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Height = 50 Height = 50
Top = 497 Top = 506
Width = 552 Width = 552
Align = alBottom Align = alBottom
ClientHeight = 50 ClientHeight = 50
@ -54,7 +53,7 @@ object fClassEdit: TfClassEdit
end end
object PC: TPageControl object PC: TPageControl
Left = 0 Left = 0
Height = 497 Height = 506
Top = 0 Top = 0
Width = 552 Width = 552
ActivePage = TabSheet1 ActivePage = TabSheet1
@ -65,7 +64,7 @@ object fClassEdit: TfClassEdit
OnPageChanged = PCChange OnPageChanged = PCChange
object TabSheet1: TTabSheet object TabSheet1: TTabSheet
Caption = 'Compound Object' Caption = 'Compound Object'
ClientHeight = 471 ClientHeight = 480
ClientWidth = 544 ClientWidth = 544
object Label1: TLabel object Label1: TLabel
Left = 4 Left = 4
@ -93,26 +92,25 @@ object fClassEdit: TfClassEdit
end end
object GroupBox1: TGroupBox object GroupBox1: TGroupBox
Left = 4 Left = 4
Height = 312 Height = 305
Top = 98 Top = 98
Width = 529 Width = 529
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
Caption = ' Properties ' Caption = ' Properties '
ClientHeight = 294 ClientHeight = 287
ClientWidth = 525 ClientWidth = 525
TabOrder = 2 TabOrder = 2
object edtProp: TListView object edtProp: TListView
Left = 0 Left = 0
Height = 294 Height = 287
Top = 0 Top = 0
Width = 525 Width = 525
Align = alClient Align = alClient
BorderWidth = 2 BorderWidth = 2
Columns = < Columns = <
item item
AutoSize = True
Caption = 'Name' Caption = 'Name'
Width = 210 Width = 200
end end
item item
Caption = 'Type' Caption = 'Type'
@ -133,7 +131,7 @@ object fClassEdit: TfClassEdit
object Button3: TButton object Button3: TButton
Left = 4 Left = 4
Height = 25 Height = 25
Top = 421 Top = 413
Width = 100 Width = 100
Action = actPropAdd Action = actPropAdd
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
@ -143,7 +141,7 @@ object fClassEdit: TfClassEdit
object Button4: TButton object Button4: TButton
Left = 116 Left = 116
Height = 25 Height = 25
Top = 421 Top = 413
Width = 100 Width = 100
Action = actPropEdit Action = actPropEdit
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
@ -153,7 +151,7 @@ object fClassEdit: TfClassEdit
object Button5: TButton object Button5: TButton
Left = 228 Left = 228
Height = 25 Height = 25
Top = 421 Top = 413
Width = 100 Width = 100
Action = actPropDelete Action = actPropDelete
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
@ -173,7 +171,7 @@ object fClassEdit: TfClassEdit
object Button7: TButton object Button7: TButton
Left = 372 Left = 372
Height = 25 Height = 25
Top = 421 Top = 413
Width = 70 Width = 70
Action = actMoveUp Action = actMoveUp
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]
@ -183,19 +181,37 @@ object fClassEdit: TfClassEdit
object Button8: TButton object Button8: TButton
Left = 452 Left = 452
Height = 25 Height = 25
Top = 421 Top = 413
Width = 70 Width = 70
Action = actMoveDown Action = actMoveDown
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]
BorderSpacing.InnerBorder = 4 BorderSpacing.InnerBorder = 4
TabOrder = 7 TabOrder = 7
end end
object Button9: TButton
Left = 372
Height = 25
Top = 442
Width = 70
Action = actMoveFirst
Anchors = [akRight, akBottom]
TabOrder = 8
end
object Button10: TButton
Left = 452
Height = 25
Top = 442
Width = 70
Action = actMoveLast
Anchors = [akRight, akBottom]
TabOrder = 9
end
end end
object tsSourceXSD: TTabSheet object tsSourceXSD: TTabSheet
Caption = 'XSD' Caption = 'XSD'
ClientHeight = 471 ClientHeight = 471
ClientWidth = 544 ClientWidth = 544
object edtSourceXSD: TSynEdit inline edtSourceXSD: TSynEdit
Left = 12 Left = 12
Height = 432 Height = 432
Top = 18 Top = 18
@ -209,7 +225,6 @@ object fClassEdit: TfClassEdit
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
BookMarkOptions.Xoffset = 42 BookMarkOptions.Xoffset = 42
BookMarkOptions.OnChange = nil
Gutter.Width = 67 Gutter.Width = 67
Gutter.MouseActions = < Gutter.MouseActions = <
item item
@ -681,113 +696,6 @@ object fClassEdit: TfClassEdit
end> end>
ReadOnly = True ReadOnly = True
BracketHighlightStyle = sbhsBoth BracketHighlightStyle = sbhsBoth
object TSynGutterPartList
object TSynGutterMarks
Width = 23
end
object TSynGutterLineNumber
Width = 27
MouseActions = <>
MarkupInfo.Background = clBtnFace
MarkupInfo.Foreground = clNone
DigitCount = 2
ShowOnlyLineNumbersMultiplesOf = 1
ZeroStart = False
LeadingZeros = False
end
object TSynGutterChanges
Width = 4
ModifiedColor = 59900
SavedColor = clGreen
end
object TSynGutterSeparator
Width = 2
end
object TSynGutterCodeFolding
MouseActions = <
item
Shift = []
ShiftMask = []
Button = mbRight
ClickCount = ccSingle
ClickDir = cdUp
Command = 16
MoveCaret = False
Option = 0
Priority = 0
end
item
Shift = []
ShiftMask = [ssShift]
Button = mbMiddle
ClickCount = ccAny
ClickDir = cdDown
Command = 14
MoveCaret = False
Option = 0
Priority = 0
end
item
Shift = [ssShift]
ShiftMask = [ssShift]
Button = mbMiddle
ClickCount = ccAny
ClickDir = cdDown
Command = 14
MoveCaret = False
Option = 1
Priority = 0
end
item
Shift = []
ShiftMask = []
Button = mbLeft
ClickCount = ccAny
ClickDir = cdDown
Command = 0
MoveCaret = False
Option = 0
Priority = 0
end>
MarkupInfo.Background = clNone
MarkupInfo.Foreground = clGray
MouseActionsExpanded = <
item
Shift = []
ShiftMask = []
Button = mbLeft
ClickCount = ccAny
ClickDir = cdDown
Command = 14
MoveCaret = False
Option = 0
Priority = 0
end>
MouseActionsCollapsed = <
item
Shift = [ssCtrl]
ShiftMask = [ssCtrl]
Button = mbLeft
ClickCount = ccAny
ClickDir = cdDown
Command = 15
MoveCaret = False
Option = 0
Priority = 0
end
item
Shift = []
ShiftMask = [ssCtrl]
Button = mbLeft
ClickCount = ccAny
ClickDir = cdDown
Command = 15
MoveCaret = False
Option = 1
Priority = 0
end>
end
end
end end
end end
object tsDependencies: TTabSheet object tsDependencies: TTabSheet
@ -824,8 +732,8 @@ object fClassEdit: TfClassEdit
end end
end end
object ActionList1: TActionList object ActionList1: TActionList
left = 232 left = 248
top = 200 top = 232
object actOK: TAction object actOK: TAction
Caption = 'OK' Caption = 'OK'
OnExecute = actOKExecute OnExecute = actOKExecute
@ -860,6 +768,16 @@ object fClassEdit: TfClassEdit
OnExecute = actMoveDownExecute OnExecute = actMoveDownExecute
OnUpdate = actMoveDownUpdate OnUpdate = actMoveDownUpdate
end end
object actMoveFirst: TAction
Caption = 'Move First'
OnExecute = actMoveFirstExecute
OnUpdate = actMoveUpUpdate
end
object actMoveLast: TAction
Caption = 'Move Last'
OnExecute = actMoveLastExecute
OnUpdate = actMoveDownUpdate
end
end end
object PopupMenu1: TPopupMenu object PopupMenu1: TPopupMenu
left = 105 left = 105

372
wst/trunk/type_lib_edtr/ufclassedit.lrs
View File

@ -1,199 +1,181 @@
LazarusResources.Add('TfClassEdit','FORMDATA',[ LazarusResources.Add('TfClassEdit','FORMDATA',[
'TPF0'#11'TfClassEdit'#10'fClassEdit'#4'Left'#3#24#2#6'Height'#3'#'#2#3'Top'#2 'TPF0'#11'TfClassEdit'#10'fClassEdit'#4'Left'#3#128#2#6'Height'#3','#2#3'Top'
+#127#5'Width'#3'('#2#13'ActiveControl'#7#2'PC'#11'BorderStyle'#7#13'bsSizeTo' +#3#167#0#5'Width'#3'('#2#11'BorderStyle'#7#13'bsSizeToolWin'#7'Caption'#6#10
+'olWin'#7'Caption'#6#10'fClassEdit'#12'ClientHeight'#3'#'#2#11'ClientWidth'#3 +'fClassEdit'#12'ClientHeight'#3','#2#11'ClientWidth'#3'('#2#8'Position'#7#15
+'('#2#8'Position'#7#15'poDesktopCenter'#10'LCLVersion'#6#6'0.9.29'#0#6'TPane' +'poDesktopCenter'#10'LCLVersion'#6#6'0.9.29'#0#6'TPanel'#6'Panel1'#4'Left'#2
+'l'#6'Panel1'#4'Left'#2#0#6'Height'#2'2'#3'Top'#3#241#1#5'Width'#3'('#2#5'Al' +#0#6'Height'#2'2'#3'Top'#3#250#1#5'Width'#3'('#2#5'Align'#7#8'alBottom'#12'C'
+'ign'#7#8'alBottom'#12'ClientHeight'#2'2'#11'ClientWidth'#3'('#2#8'TabOrder' +'lientHeight'#2'2'#11'ClientWidth'#3'('#2#8'TabOrder'#2#0#0#7'TButton'#7'But'
+#2#0#0#7'TButton'#7'Button1'#4'Left'#3'w'#1#6'Height'#2#25#3'Top'#2#10#5'Wid' +'ton1'#4'Left'#3'w'#1#6'Height'#2#25#3'Top'#2#10#5'Width'#2'K'#7'Anchors'#11
+'th'#2'K'#7'Anchors'#11#5'akTop'#7'akRight'#0#25'BorderSpacing.InnerBorder'#2 +#5'akTop'#7'akRight'#0#25'BorderSpacing.InnerBorder'#2#4#6'Cancel'#9#7'Capti'
+#4#6'Cancel'#9#7'Caption'#6#6'Cancel'#11'ModalResult'#2#2#8'TabOrder'#2#1#0#0 +'on'#6#6'Cancel'#11'ModalResult'#2#2#8'TabOrder'#2#1#0#0#7'TButton'#7'Button'
+#7'TButton'#7'Button2'#4'Left'#3#31#1#6'Height'#2#25#3'Top'#2#10#5'Width'#2 +'2'#4'Left'#3#31#1#6'Height'#2#25#3'Top'#2#10#5'Width'#2'K'#6'Action'#7#5'ac'
+'K'#6'Action'#7#5'actOK'#7'Anchors'#11#5'akTop'#7'akRight'#0#25'BorderSpacin' +'tOK'#7'Anchors'#11#5'akTop'#7'akRight'#0#25'BorderSpacing.InnerBorder'#2#4#7
+'g.InnerBorder'#2#4#7'Default'#9#8'TabOrder'#2#0#0#0#7'TButton'#7'Button6'#4 +'Default'#9#8'TabOrder'#2#0#0#0#7'TButton'#7'Button6'#4'Left'#3#207#1#6'Heig'
+'Left'#3#207#1#6'Height'#2#25#3'Top'#2#10#5'Width'#2'K'#6'Action'#7#8'actApp' +'ht'#2#25#3'Top'#2#10#5'Width'#2'K'#6'Action'#7#8'actApply'#7'Anchors'#11#5
+'ly'#7'Anchors'#11#5'akTop'#7'akRight'#0#8'TabOrder'#2#2#0#0#0#12'TPageContr' +'akTop'#7'akRight'#0#8'TabOrder'#2#2#0#0#0#12'TPageControl'#2'PC'#4'Left'#2#0
+'ol'#2'PC'#4'Left'#2#0#6'Height'#3#241#1#3'Top'#2#0#5'Width'#3'('#2#10'Activ' +#6'Height'#3#250#1#3'Top'#2#0#5'Width'#3'('#2#10'ActivePage'#7#9'TabSheet1'#5
+'ePage'#7#9'TabSheet1'#5'Align'#7#8'alClient'#8'TabIndex'#2#0#8'TabOrder'#2#1 +'Align'#7#8'alClient'#8'TabIndex'#2#0#8'TabOrder'#2#1#8'OnChange'#7#8'PCChan'
+#8'OnChange'#7#8'PCChange'#13'OnPageChanged'#7#8'PCChange'#0#9'TTabSheet'#9 +'ge'#13'OnPageChanged'#7#8'PCChange'#0#9'TTabSheet'#9'TabSheet1'#7'Caption'#6
+'TabSheet1'#7'Caption'#6#15'Compound Object'#12'ClientHeight'#3#215#1#11'Cli' +#15'Compound Object'#12'ClientHeight'#3#224#1#11'ClientWidth'#3' '#2#0#6'TLa'
+'entWidth'#3' '#2#0#6'TLabel'#6'Label1'#4'Left'#2#4#6'Height'#2#14#3'Top'#2 +'bel'#6'Label1'#4'Left'#2#4#6'Height'#2#14#3'Top'#2#18#5'Width'#2#28#7'Capti'
+#18#5'Width'#2#28#7'Caption'#6#4'Name'#11'ParentColor'#8#0#0#6'TLabel'#6'Lab' +'on'#6#4'Name'#11'ParentColor'#8#0#0#6'TLabel'#6'Label2'#4'Left'#2#4#6'Heigh'
+'el2'#4'Left'#2#4#6'Height'#2#14#3'Top'#2';'#5'Width'#2'C'#7'Caption'#6#14'I' +'t'#2#14#3'Top'#2';'#5'Width'#2'C'#7'Caption'#6#14'Inheritts from'#11'Parent'
+'nheritts from'#11'ParentColor'#8#0#0#5'TEdit'#7'edtName'#4'Left'#2'\'#6'Hei' +'Color'#8#0#0#5'TEdit'#7'edtName'#4'Left'#2'\'#6'Height'#2#21#3'Top'#2#18#5
+'ght'#2#21#3'Top'#2#18#5'Width'#3#184#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'a' +'Width'#3#184#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'TabOrder'#2#0
+'kRight'#0#8'TabOrder'#2#0#0#0#9'TGroupBox'#9'GroupBox1'#4'Left'#2#4#6'Heigh' +#0#0#9'TGroupBox'#9'GroupBox1'#4'Left'#2#4#6'Height'#3'1'#1#3'Top'#2'b'#5'Wi'
+'t'#3'8'#1#3'Top'#2'b'#5'Width'#3#17#2#7'Anchors'#11#5'akTop'#6'akLeft'#7'ak' +'dth'#3#17#2#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#7'Cap'
+'Right'#8'akBottom'#0#7'Caption'#6#14' Properties '#12'ClientHeight'#3'&'#1 +'tion'#6#14' Properties '#12'ClientHeight'#3#31#1#11'ClientWidth'#3#13#2#8
+#11'ClientWidth'#3#13#2#8'TabOrder'#2#2#0#9'TListView'#7'edtProp'#4'Left'#2#0 +'TabOrder'#2#2#0#9'TListView'#7'edtProp'#4'Left'#2#0#6'Height'#3#31#1#3'Top'
+#6'Height'#3'&'#1#3'Top'#2#0#5'Width'#3#13#2#5'Align'#7#8'alClient'#11'Borde' +#2#0#5'Width'#3#13#2#5'Align'#7#8'alClient'#11'BorderWidth'#2#2#7'Columns'#14
+'rWidth'#2#2#7'Columns'#14#1#8'AutoSize'#9#7'Caption'#6#4'Name'#5'Width'#3 +#1#7'Caption'#6#4'Name'#5'Width'#3#200#0#0#1#7'Caption'#6#4'Type'#5'Width'#3
+#210#0#0#1#7'Caption'#6#4'Type'#5'Width'#3#200#0#0#1#7'Caption'#6#9'Attribut' +#200#0#0#1#7'Caption'#6#9'Attribute'#5'Width'#2'<'#0#0#13'HideSelection'#8#9
+'e'#5'Width'#2'<'#0#0#13'HideSelection'#8#9'PopupMenu'#7#10'PopupMenu1'#9'Ro' +'PopupMenu'#7#10'PopupMenu1'#9'RowSelect'#9#8'TabOrder'#2#0#9'ViewStyle'#7#8
+'wSelect'#9#8'TabOrder'#2#0#9'ViewStyle'#7#8'vsReport'#10'OnDblClick'#7#15'e' +'vsReport'#10'OnDblClick'#7#15'edtPropDblClick'#0#0#0#7'TButton'#7'Button3'#4
+'dtPropDblClick'#0#0#0#7'TButton'#7'Button3'#4'Left'#2#4#6'Height'#2#25#3'To' +'Left'#2#4#6'Height'#2#25#3'Top'#3#157#1#5'Width'#2'd'#6'Action'#7#10'actPro'
+'p'#3#165#1#5'Width'#2'd'#6'Action'#7#10'actPropAdd'#7'Anchors'#11#6'akLeft' +'pAdd'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#25'BorderSpacing.InnerBorder'#2
+#8'akBottom'#0#25'BorderSpacing.InnerBorder'#2#4#8'TabOrder'#2#3#0#0#7'TButt' +#4#8'TabOrder'#2#3#0#0#7'TButton'#7'Button4'#4'Left'#2't'#6'Height'#2#25#3'T'
+'on'#7'Button4'#4'Left'#2't'#6'Height'#2#25#3'Top'#3#165#1#5'Width'#2'd'#6'A' +'op'#3#157#1#5'Width'#2'd'#6'Action'#7#11'actPropEdit'#7'Anchors'#11#6'akLef'
+'ction'#7#11'actPropEdit'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#25'BorderSpa' +'t'#8'akBottom'#0#25'BorderSpacing.InnerBorder'#2#4#8'TabOrder'#2#4#0#0#7'TB'
+'cing.InnerBorder'#2#4#8'TabOrder'#2#4#0#0#7'TButton'#7'Button5'#4'Left'#3 +'utton'#7'Button5'#4'Left'#3#228#0#6'Height'#2#25#3'Top'#3#157#1#5'Width'#2
+#228#0#6'Height'#2#25#3'Top'#3#165#1#5'Width'#2'd'#6'Action'#7#13'actPropDel' +'d'#6'Action'#7#13'actPropDelete'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#25'B'
+'ete'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#25'BorderSpacing.InnerBorder'#2#4 +'orderSpacing.InnerBorder'#2#4#8'TabOrder'#2#5#0#0#9'TComboBox'#9'edtParent'
+#8'TabOrder'#2#5#0#0#9'TComboBox'#9'edtParent'#4'Left'#2'\'#6'Height'#2#21#3 +#4'Left'#2'\'#6'Height'#2#21#3'Top'#2':'#5'Width'#3#184#1#7'Anchors'#11#5'ak'
+'Top'#2':'#5'Width'#3#184#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#10 +'Top'#6'akLeft'#7'akRight'#0#10'ItemHeight'#2#13#5'Style'#7#14'csDropDownLis'
+'ItemHeight'#2#13#5'Style'#7#14'csDropDownList'#8'TabOrder'#2#1#0#0#7'TButto' +'t'#8'TabOrder'#2#1#0#0#7'TButton'#7'Button7'#4'Left'#3't'#1#6'Height'#2#25#3
+'n'#7'Button7'#4'Left'#3't'#1#6'Height'#2#25#3'Top'#3#165#1#5'Width'#2'F'#6 +'Top'#3#157#1#5'Width'#2'F'#6'Action'#7#9'actMoveUp'#7'Anchors'#11#7'akRight'
+'Action'#7#9'actMoveUp'#7'Anchors'#11#7'akRight'#8'akBottom'#0#25'BorderSpac' +#8'akBottom'#0#25'BorderSpacing.InnerBorder'#2#4#8'TabOrder'#2#6#0#0#7'TButt'
+'ing.InnerBorder'#2#4#8'TabOrder'#2#6#0#0#7'TButton'#7'Button8'#4'Left'#3#196 +'on'#7'Button8'#4'Left'#3#196#1#6'Height'#2#25#3'Top'#3#157#1#5'Width'#2'F'#6
+#1#6'Height'#2#25#3'Top'#3#165#1#5'Width'#2'F'#6'Action'#7#11'actMoveDown'#7 +'Action'#7#11'actMoveDown'#7'Anchors'#11#7'akRight'#8'akBottom'#0#25'BorderS'
+'Anchors'#11#7'akRight'#8'akBottom'#0#25'BorderSpacing.InnerBorder'#2#4#8'Ta' +'pacing.InnerBorder'#2#4#8'TabOrder'#2#7#0#0#7'TButton'#7'Button9'#4'Left'#3
+'bOrder'#2#7#0#0#0#9'TTabSheet'#11'tsSourceXSD'#7'Caption'#6#3'XSD'#12'Clien' +'t'#1#6'Height'#2#25#3'Top'#3#186#1#5'Width'#2'F'#6'Action'#7#12'actMoveFirs'
+'tHeight'#3#215#1#11'ClientWidth'#3' '#2#0#8'TSynEdit'#12'edtSourceXSD'#4'Le' +'t'#7'Anchors'#11#7'akRight'#8'akBottom'#0#8'TabOrder'#2#8#0#0#7'TButton'#8
+'ft'#2#12#6'Height'#3#176#1#3'Top'#2#18#5'Width'#3#2#2#7'Anchors'#11#5'akTop' +'Button10'#4'Left'#3#196#1#6'Height'#2#25#3'Top'#3#186#1#5'Width'#2'F'#6'Act'
+#6'akLeft'#7'akRight'#8'akBottom'#0#11'Font.Height'#2#236#9'Font.Name'#6#7'c' +'ion'#7#11'actMoveLast'#7'Anchors'#11#7'akRight'#8'akBottom'#0#8'TabOrder'#2
+'ourier'#10'Font.Pitch'#7#7'fpFixed'#12'Font.Quality'#7#16'fqNonAntialiased' +#9#0#0#0#9'TTabSheet'#11'tsSourceXSD'#7'Caption'#6#3'XSD'#12'ClientHeight'#3
+#11'ParentColor'#8#10'ParentFont'#8#8'TabOrder'#2#0#23'BookMarkOptions.Xoffs' +#215#1#11'ClientWidth'#3' '#2#0#244#8'TSynEdit'#12'edtSourceXSD'#4'Left'#2#12
+'et'#2'*'#24'BookMarkOptions.OnChange'#13#12'Gutter.Width'#2'C'#19'Gutter.Mo' +#6'Height'#3#176#1#3'Top'#2#18#5'Width'#3#2#2#7'Anchors'#11#5'akTop'#6'akLef'
+'useActions'#14#1#5'Shift'#11#0#9'ShiftMask'#11#0#6'Button'#7#6'mbLeft'#10'C' +'t'#7'akRight'#8'akBottom'#0#11'Font.Height'#2#236#9'Font.Name'#6#7'courier'
+'lickCount'#7#5'ccAny'#8'ClickDir'#7#6'cdDown'#7'Command'#2#13#9'MoveCaret'#8 +#10'Font.Pitch'#7#7'fpFixed'#12'Font.Quality'#7#16'fqNonAntialiased'#11'Pare'
+#6'Option'#2#0#8'Priority'#2#0#0#1#5'Shift'#11#0#9'ShiftMask'#11#0#6'Button' +'ntColor'#8#10'ParentFont'#8#8'TabOrder'#2#0#23'BookMarkOptions.Xoffset'#2'*'
+#7#7'mbRight'#10'ClickCount'#7#8'ccSingle'#8'ClickDir'#7#4'cdUp'#7'Command'#2 +#12'Gutter.Width'#2'C'#19'Gutter.MouseActions'#14#1#5'Shift'#11#0#9'ShiftMas'
+#12#9'MoveCaret'#8#6'Option'#2#0#8'Priority'#2#0#0#0#11'Highlighter'#7#10'Sy' +'k'#11#0#6'Button'#7#6'mbLeft'#10'ClickCount'#7#5'ccAny'#8'ClickDir'#7#6'cdD'
+'nXMLSyn1'#10'Keystrokes'#14#1#7'Command'#7#4'ecUp'#8'ShortCut'#2'&'#0#1#7'C' +'own'#7'Command'#2#13#9'MoveCaret'#8#6'Option'#2#0#8'Priority'#2#0#0#1#5'Shi'
+'ommand'#7#7'ecSelUp'#8'ShortCut'#3'& '#0#1#7'Command'#7#10'ecScrollUp'#8'Sh' +'ft'#11#0#9'ShiftMask'#11#0#6'Button'#7#7'mbRight'#10'ClickCount'#7#8'ccSing'
+'ortCut'#3'&@'#0#1#7'Command'#7#6'ecDown'#8'ShortCut'#2'('#0#1#7'Command'#7#9 +'le'#8'ClickDir'#7#4'cdUp'#7'Command'#2#12#9'MoveCaret'#8#6'Option'#2#0#8'Pr'
+'ecSelDown'#8'ShortCut'#3'( '#0#1#7'Command'#7#12'ecScrollDown'#8'ShortCut'#3 +'iority'#2#0#0#0#11'Highlighter'#7#10'SynXMLSyn1'#10'Keystrokes'#14#1#7'Comm'
,'(@'#0#1#7'Command'#7#6'ecLeft'#8'ShortCut'#2'%'#0#1#7'Command'#7#9'ecSelLef' ,'and'#7#4'ecUp'#8'ShortCut'#2'&'#0#1#7'Command'#7#7'ecSelUp'#8'ShortCut'#3'&'
+'t'#8'ShortCut'#3'% '#0#1#7'Command'#7#10'ecWordLeft'#8'ShortCut'#3'%@'#0#1#7 +' '#0#1#7'Command'#7#10'ecScrollUp'#8'ShortCut'#3'&@'#0#1#7'Command'#7#6'ecD'
+'Command'#7#13'ecSelWordLeft'#8'ShortCut'#3'%`'#0#1#7'Command'#7#7'ecRight'#8 +'own'#8'ShortCut'#2'('#0#1#7'Command'#7#9'ecSelDown'#8'ShortCut'#3'( '#0#1#7
+'ShortCut'#2''''#0#1#7'Command'#7#10'ecSelRight'#8'ShortCut'#3''' '#0#1#7'Co' +'Command'#7#12'ecScrollDown'#8'ShortCut'#3'(@'#0#1#7'Command'#7#6'ecLeft'#8
+'mmand'#7#11'ecWordRight'#8'ShortCut'#3'''@'#0#1#7'Command'#7#14'ecSelWordRi' +'ShortCut'#2'%'#0#1#7'Command'#7#9'ecSelLeft'#8'ShortCut'#3'% '#0#1#7'Comman'
+'ght'#8'ShortCut'#3'''`'#0#1#7'Command'#7#10'ecPageDown'#8'ShortCut'#2'"'#0#1 +'d'#7#10'ecWordLeft'#8'ShortCut'#3'%@'#0#1#7'Command'#7#13'ecSelWordLeft'#8
+#7'Command'#7#13'ecSelPageDown'#8'ShortCut'#3'" '#0#1#7'Command'#7#12'ecPage' +'ShortCut'#3'%`'#0#1#7'Command'#7#7'ecRight'#8'ShortCut'#2''''#0#1#7'Command'
+'Bottom'#8'ShortCut'#3'"@'#0#1#7'Command'#7#15'ecSelPageBottom'#8'ShortCut'#3 +#7#10'ecSelRight'#8'ShortCut'#3''' '#0#1#7'Command'#7#11'ecWordRight'#8'Shor'
+'"`'#0#1#7'Command'#7#8'ecPageUp'#8'ShortCut'#2'!'#0#1#7'Command'#7#11'ecSel' +'tCut'#3'''@'#0#1#7'Command'#7#14'ecSelWordRight'#8'ShortCut'#3'''`'#0#1#7'C'
+'PageUp'#8'ShortCut'#3'! '#0#1#7'Command'#7#9'ecPageTop'#8'ShortCut'#3'!@'#0 +'ommand'#7#10'ecPageDown'#8'ShortCut'#2'"'#0#1#7'Command'#7#13'ecSelPageDown'
+#1#7'Command'#7#12'ecSelPageTop'#8'ShortCut'#3'!`'#0#1#7'Command'#7#11'ecLin' +#8'ShortCut'#3'" '#0#1#7'Command'#7#12'ecPageBottom'#8'ShortCut'#3'"@'#0#1#7
+'eStart'#8'ShortCut'#2'$'#0#1#7'Command'#7#14'ecSelLineStart'#8'ShortCut'#3 +'Command'#7#15'ecSelPageBottom'#8'ShortCut'#3'"`'#0#1#7'Command'#7#8'ecPageU'
+'$ '#0#1#7'Command'#7#11'ecEditorTop'#8'ShortCut'#3'$@'#0#1#7'Command'#7#14 +'p'#8'ShortCut'#2'!'#0#1#7'Command'#7#11'ecSelPageUp'#8'ShortCut'#3'! '#0#1#7
+'ecSelEditorTop'#8'ShortCut'#3'$`'#0#1#7'Command'#7#9'ecLineEnd'#8'ShortCut' +'Command'#7#9'ecPageTop'#8'ShortCut'#3'!@'#0#1#7'Command'#7#12'ecSelPageTop'
+#2'#'#0#1#7'Command'#7#12'ecSelLineEnd'#8'ShortCut'#3'# '#0#1#7'Command'#7#14 +#8'ShortCut'#3'!`'#0#1#7'Command'#7#11'ecLineStart'#8'ShortCut'#2'$'#0#1#7'C'
+'ecEditorBottom'#8'ShortCut'#3'#@'#0#1#7'Command'#7#17'ecSelEditorBottom'#8 +'ommand'#7#14'ecSelLineStart'#8'ShortCut'#3'$ '#0#1#7'Command'#7#11'ecEditor'
+'ShortCut'#3'#`'#0#1#7'Command'#7#12'ecToggleMode'#8'ShortCut'#2'-'#0#1#7'Co' +'Top'#8'ShortCut'#3'$@'#0#1#7'Command'#7#14'ecSelEditorTop'#8'ShortCut'#3'$`'
+'mmand'#7#6'ecCopy'#8'ShortCut'#3'-@'#0#1#7'Command'#7#7'ecPaste'#8'ShortCut' +#0#1#7'Command'#7#9'ecLineEnd'#8'ShortCut'#2'#'#0#1#7'Command'#7#12'ecSelLin'
+#3'- '#0#1#7'Command'#7#12'ecDeleteChar'#8'ShortCut'#2'.'#0#1#7'Command'#7#5 +'eEnd'#8'ShortCut'#3'# '#0#1#7'Command'#7#14'ecEditorBottom'#8'ShortCut'#3'#'
+'ecCut'#8'ShortCut'#3'. '#0#1#7'Command'#7#16'ecDeleteLastChar'#8'ShortCut'#2 +'@'#0#1#7'Command'#7#17'ecSelEditorBottom'#8'ShortCut'#3'#`'#0#1#7'Command'#7
+#8#0#1#7'Command'#7#16'ecDeleteLastChar'#8'ShortCut'#3#8' '#0#1#7'Command'#7 +#12'ecToggleMode'#8'ShortCut'#2'-'#0#1#7'Command'#7#6'ecCopy'#8'ShortCut'#3
+#16'ecDeleteLastWord'#8'ShortCut'#3#8'@'#0#1#7'Command'#7#6'ecUndo'#8'ShortC' +'-@'#0#1#7'Command'#7#7'ecPaste'#8'ShortCut'#3'- '#0#1#7'Command'#7#12'ecDel'
+'ut'#4#8#128#0#0#0#1#7'Command'#7#6'ecRedo'#8'ShortCut'#4#8#160#0#0#0#1#7'Co' +'eteChar'#8'ShortCut'#2'.'#0#1#7'Command'#7#5'ecCut'#8'ShortCut'#3'. '#0#1#7
+'mmand'#7#11'ecLineBreak'#8'ShortCut'#2#13#0#1#7'Command'#7#11'ecSelectAll'#8 +'Command'#7#16'ecDeleteLastChar'#8'ShortCut'#2#8#0#1#7'Command'#7#16'ecDelet'
+'ShortCut'#3'A@'#0#1#7'Command'#7#6'ecCopy'#8'ShortCut'#3'C@'#0#1#7'Command' +'eLastChar'#8'ShortCut'#3#8' '#0#1#7'Command'#7#16'ecDeleteLastWord'#8'Short'
+#7#13'ecBlockIndent'#8'ShortCut'#3'I`'#0#1#7'Command'#7#11'ecLineBreak'#8'Sh' +'Cut'#3#8'@'#0#1#7'Command'#7#6'ecUndo'#8'ShortCut'#4#8#128#0#0#0#1#7'Comman'
+'ortCut'#3'M@'#0#1#7'Command'#7#12'ecInsertLine'#8'ShortCut'#3'N@'#0#1#7'Com' +'d'#7#6'ecRedo'#8'ShortCut'#4#8#160#0#0#0#1#7'Command'#7#11'ecLineBreak'#8'S'
+'mand'#7#12'ecDeleteWord'#8'ShortCut'#3'T@'#0#1#7'Command'#7#15'ecBlockUnind' +'hortCut'#2#13#0#1#7'Command'#7#11'ecSelectAll'#8'ShortCut'#3'A@'#0#1#7'Comm'
+'ent'#8'ShortCut'#3'U`'#0#1#7'Command'#7#7'ecPaste'#8'ShortCut'#3'V@'#0#1#7 +'and'#7#6'ecCopy'#8'ShortCut'#3'C@'#0#1#7'Command'#7#13'ecBlockIndent'#8'Sho'
+'Command'#7#5'ecCut'#8'ShortCut'#3'X@'#0#1#7'Command'#7#12'ecDeleteLine'#8'S' +'rtCut'#3'I`'#0#1#7'Command'#7#11'ecLineBreak'#8'ShortCut'#3'M@'#0#1#7'Comma'
+'hortCut'#3'Y@'#0#1#7'Command'#7#11'ecDeleteEOL'#8'ShortCut'#3'Y`'#0#1#7'Com' +'nd'#7#12'ecInsertLine'#8'ShortCut'#3'N@'#0#1#7'Command'#7#12'ecDeleteWord'#8
+'mand'#7#6'ecUndo'#8'ShortCut'#3'Z@'#0#1#7'Command'#7#6'ecRedo'#8'ShortCut'#3 +'ShortCut'#3'T@'#0#1#7'Command'#7#15'ecBlockUnindent'#8'ShortCut'#3'U`'#0#1#7
+'Z`'#0#1#7'Command'#7#13'ecGotoMarker0'#8'ShortCut'#3'0@'#0#1#7'Command'#7#13 +'Command'#7#7'ecPaste'#8'ShortCut'#3'V@'#0#1#7'Command'#7#5'ecCut'#8'ShortCu'
+'ecGotoMarker1'#8'ShortCut'#3'1@'#0#1#7'Command'#7#13'ecGotoMarker2'#8'Short' +'t'#3'X@'#0#1#7'Command'#7#12'ecDeleteLine'#8'ShortCut'#3'Y@'#0#1#7'Command'
+'Cut'#3'2@'#0#1#7'Command'#7#13'ecGotoMarker3'#8'ShortCut'#3'3@'#0#1#7'Comma' +#7#11'ecDeleteEOL'#8'ShortCut'#3'Y`'#0#1#7'Command'#7#6'ecUndo'#8'ShortCut'#3
+'nd'#7#13'ecGotoMarker4'#8'ShortCut'#3'4@'#0#1#7'Command'#7#13'ecGotoMarker5' +'Z@'#0#1#7'Command'#7#6'ecRedo'#8'ShortCut'#3'Z`'#0#1#7'Command'#7#13'ecGoto'
+#8'ShortCut'#3'5@'#0#1#7'Command'#7#13'ecGotoMarker6'#8'ShortCut'#3'6@'#0#1#7 +'Marker0'#8'ShortCut'#3'0@'#0#1#7'Command'#7#13'ecGotoMarker1'#8'ShortCut'#3
+'Command'#7#13'ecGotoMarker7'#8'ShortCut'#3'7@'#0#1#7'Command'#7#13'ecGotoMa' +'1@'#0#1#7'Command'#7#13'ecGotoMarker2'#8'ShortCut'#3'2@'#0#1#7'Command'#7#13
+'rker8'#8'ShortCut'#3'8@'#0#1#7'Command'#7#13'ecGotoMarker9'#8'ShortCut'#3'9' +'ecGotoMarker3'#8'ShortCut'#3'3@'#0#1#7'Command'#7#13'ecGotoMarker4'#8'Short'
+'@'#0#1#7'Command'#7#12'ecSetMarker0'#8'ShortCut'#3'0`'#0#1#7'Command'#7#12 +'Cut'#3'4@'#0#1#7'Command'#7#13'ecGotoMarker5'#8'ShortCut'#3'5@'#0#1#7'Comma'
+'ecSetMarker1'#8'ShortCut'#3'1`'#0#1#7'Command'#7#12'ecSetMarker2'#8'ShortCu' +'nd'#7#13'ecGotoMarker6'#8'ShortCut'#3'6@'#0#1#7'Command'#7#13'ecGotoMarker7'
+'t'#3'2`'#0#1#7'Command'#7#12'ecSetMarker3'#8'ShortCut'#3'3`'#0#1#7'Command' +#8'ShortCut'#3'7@'#0#1#7'Command'#7#13'ecGotoMarker8'#8'ShortCut'#3'8@'#0#1#7
+#7#12'ecSetMarker4'#8'ShortCut'#3'4`'#0#1#7'Command'#7#12'ecSetMarker5'#8'Sh' +'Command'#7#13'ecGotoMarker9'#8'ShortCut'#3'9@'#0#1#7'Command'#7#12'ecSetMar'
+'ortCut'#3'5`'#0#1#7'Command'#7#12'ecSetMarker6'#8'ShortCut'#3'6`'#0#1#7'Com' +'ker0'#8'ShortCut'#3'0`'#0#1#7'Command'#7#12'ecSetMarker1'#8'ShortCut'#3'1`'
+'mand'#7#12'ecSetMarker7'#8'ShortCut'#3'7`'#0#1#7'Command'#7#12'ecSetMarker8' +#0#1#7'Command'#7#12'ecSetMarker2'#8'ShortCut'#3'2`'#0#1#7'Command'#7#12'ecS'
+#8'ShortCut'#3'8`'#0#1#7'Command'#7#12'ecSetMarker9'#8'ShortCut'#3'9`'#0#1#7 +'etMarker3'#8'ShortCut'#3'3`'#0#1#7'Command'#7#12'ecSetMarker4'#8'ShortCut'#3
+'Command'#7#14'ecNormalSelect'#8'ShortCut'#3'N`'#0#1#7'Command'#7#14'ecColum' +'4`'#0#1#7'Command'#7#12'ecSetMarker5'#8'ShortCut'#3'5`'#0#1#7'Command'#7#12
+'nSelect'#8'ShortCut'#3'C`'#0#1#7'Command'#7#12'ecLineSelect'#8'ShortCut'#3 +'ecSetMarker6'#8'ShortCut'#3'6`'#0#1#7'Command'#7#12'ecSetMarker7'#8'ShortCu'
+'L`'#0#1#7'Command'#7#5'ecTab'#8'ShortCut'#2#9#0#1#7'Command'#7#10'ecShiftTa' +'t'#3'7`'#0#1#7'Command'#7#12'ecSetMarker8'#8'ShortCut'#3'8`'#0#1#7'Command'
+'b'#8'ShortCut'#3#9' '#0#1#7'Command'#7#14'ecMatchBracket'#8'ShortCut'#3'B`' +#7#12'ecSetMarker9'#8'ShortCut'#3'9`'#0#1#7'Command'#7#14'ecNormalSelect'#8
+#0#0#12'MouseActions'#14#1#5'Shift'#11#0#9'ShiftMask'#11#7'ssShift'#5'ssAlt' +'ShortCut'#3'N`'#0#1#7'Command'#7#14'ecColumnSelect'#8'ShortCut'#3'C`'#0#1#7
+#0#6'Button'#7#6'mbLeft'#10'ClickCount'#7#8'ccSingle'#8'ClickDir'#7#6'cdDown' +'Command'#7#12'ecLineSelect'#8'ShortCut'#3'L`'#0#1#7'Command'#7#5'ecTab'#8'S'
+#7'Command'#2#1#9'MoveCaret'#9#6'Option'#2#0#8'Priority'#2#0#0#1#5'Shift'#11 +'hortCut'#2#9#0#1#7'Command'#7#10'ecShiftTab'#8'ShortCut'#3#9' '#0#1#7'Comma'
+#7'ssShift'#0#9'ShiftMask'#11#7'ssShift'#5'ssAlt'#0#6'Button'#7#6'mbLeft'#10 +'nd'#7#14'ecMatchBracket'#8'ShortCut'#3'B`'#0#0#12'MouseActions'#14#1#5'Shif'
+'ClickCount'#7#8'ccSingle'#8'ClickDir'#7#6'cdDown'#7'Command'#2#1#9'MoveCare' +'t'#11#0#9'ShiftMask'#11#7'ssShift'#5'ssAlt'#0#6'Button'#7#6'mbLeft'#10'Clic'
+'t'#9#6'Option'#2#1#8'Priority'#2#0#0#1#5'Shift'#11#5'ssAlt'#0#9'ShiftMask' +'kCount'#7#8'ccSingle'#8'ClickDir'#7#6'cdDown'#7'Command'#2#1#9'MoveCaret'#9
+#11#7'ssShift'#5'ssAlt'#0#6'Button'#7#6'mbLeft'#10'ClickCount'#7#8'ccSingle' +#6'Option'#2#0#8'Priority'#2#0#0#1#5'Shift'#11#7'ssShift'#0#9'ShiftMask'#11#7
+#8'ClickDir'#7#6'cdDown'#7'Command'#2#3#9'MoveCaret'#9#6'Option'#2#0#8'Prior' +'ssShift'#5'ssAlt'#0#6'Button'#7#6'mbLeft'#10'ClickCount'#7#8'ccSingle'#8'Cl'
+'ity'#2#0#0#1#5'Shift'#11#7'ssShift'#5'ssAlt'#0#9'ShiftMask'#11#7'ssShift'#5 +'ickDir'#7#6'cdDown'#7'Command'#2#1#9'MoveCaret'#9#6'Option'#2#1#8'Priority'
+'ssAlt'#0#6'Button'#7#6'mbLeft'#10'ClickCount'#7#8'ccSingle'#8'ClickDir'#7#6 +#2#0#0#1#5'Shift'#11#5'ssAlt'#0#9'ShiftMask'#11#7'ssShift'#5'ssAlt'#0#6'Butt'
+'cdDown'#7'Command'#2#3#9'MoveCaret'#9#6'Option'#2#1#8'Priority'#2#0#0#1#5'S' +'on'#7#6'mbLeft'#10'ClickCount'#7#8'ccSingle'#8'ClickDir'#7#6'cdDown'#7'Comm'
+'hift'#11#0#9'ShiftMask'#11#0#6'Button'#7#7'mbRight'#10'ClickCount'#7#8'ccSi' +'and'#2#3#9'MoveCaret'#9#6'Option'#2#0#8'Priority'#2#0#0#1#5'Shift'#11#7'ssS'
+'ngle'#8'ClickDir'#7#4'cdUp'#7'Command'#2#12#9'MoveCaret'#8#6'Option'#2#0#8 +'hift'#5'ssAlt'#0#9'ShiftMask'#11#7'ssShift'#5'ssAlt'#0#6'Button'#7#6'mbLeft'
+'Priority'#2#0#0#1#5'Shift'#11#0#9'ShiftMask'#11#0#6'Button'#7#6'mbLeft'#10 +#10'ClickCount'#7#8'ccSingle'#8'ClickDir'#7#6'cdDown'#7'Command'#2#3#9'MoveC'
,'ClickCount'#7#8'ccDouble'#8'ClickDir'#7#6'cdDown'#7'Command'#2#6#9'MoveCare' ,'aret'#9#6'Option'#2#1#8'Priority'#2#0#0#1#5'Shift'#11#0#9'ShiftMask'#11#0#6
+'t'#9#6'Option'#2#0#8'Priority'#2#0#0#1#5'Shift'#11#0#9'ShiftMask'#11#0#6'Bu' +'Button'#7#7'mbRight'#10'ClickCount'#7#8'ccSingle'#8'ClickDir'#7#4'cdUp'#7'C'
+'tton'#7#6'mbLeft'#10'ClickCount'#7#8'ccTriple'#8'ClickDir'#7#6'cdDown'#7'Co' +'ommand'#2#12#9'MoveCaret'#8#6'Option'#2#0#8'Priority'#2#0#0#1#5'Shift'#11#0
+'mmand'#2#7#9'MoveCaret'#9#6'Option'#2#0#8'Priority'#2#0#0#1#5'Shift'#11#0#9 +#9'ShiftMask'#11#0#6'Button'#7#6'mbLeft'#10'ClickCount'#7#8'ccDouble'#8'Clic'
+'ShiftMask'#11#0#6'Button'#7#6'mbLeft'#10'ClickCount'#7#6'ccQuad'#8'ClickDir' +'kDir'#7#6'cdDown'#7'Command'#2#6#9'MoveCaret'#9#6'Option'#2#0#8'Priority'#2
+#7#6'cdDown'#7'Command'#2#8#9'MoveCaret'#9#6'Option'#2#0#8'Priority'#2#0#0#1 +#0#0#1#5'Shift'#11#0#9'ShiftMask'#11#0#6'Button'#7#6'mbLeft'#10'ClickCount'#7
+#5'Shift'#11#0#9'ShiftMask'#11#0#6'Button'#7#8'mbMiddle'#10'ClickCount'#7#8 +#8'ccTriple'#8'ClickDir'#7#6'cdDown'#7'Command'#2#7#9'MoveCaret'#9#6'Option'
+'ccSingle'#8'ClickDir'#7#6'cdDown'#7'Command'#2#10#9'MoveCaret'#9#6'Option'#2 +#2#0#8'Priority'#2#0#0#1#5'Shift'#11#0#9'ShiftMask'#11#0#6'Button'#7#6'mbLef'
+#0#8'Priority'#2#0#0#1#5'Shift'#11#6'ssCtrl'#0#9'ShiftMask'#11#7'ssShift'#5 +'t'#10'ClickCount'#7#6'ccQuad'#8'ClickDir'#7#6'cdDown'#7'Command'#2#8#9'Move'
+'ssAlt'#6'ssCtrl'#0#6'Button'#7#6'mbLeft'#10'ClickCount'#7#8'ccSingle'#8'Cli' +'Caret'#9#6'Option'#2#0#8'Priority'#2#0#0#1#5'Shift'#11#0#9'ShiftMask'#11#0#6
+'ckDir'#7#4'cdUp'#7'Command'#2#11#9'MoveCaret'#8#6'Option'#2#0#8'Priority'#2 +'Button'#7#8'mbMiddle'#10'ClickCount'#7#8'ccSingle'#8'ClickDir'#7#6'cdDown'#7
+#0#0#0#15'MouseSelActions'#14#1#5'Shift'#11#0#9'ShiftMask'#11#0#6'Button'#7#6 +'Command'#2#10#9'MoveCaret'#9#6'Option'#2#0#8'Priority'#2#0#0#1#5'Shift'#11#6
+'mbLeft'#10'ClickCount'#7#8'ccSingle'#8'ClickDir'#7#6'cdDown'#7'Command'#2#9 +'ssCtrl'#0#9'ShiftMask'#11#7'ssShift'#5'ssAlt'#6'ssCtrl'#0#6'Button'#7#6'mbL'
+#9'MoveCaret'#8#6'Option'#2#0#8'Priority'#2#0#0#0#8'ReadOnly'#9#21'BracketHi' +'eft'#10'ClickCount'#7#8'ccSingle'#8'ClickDir'#7#4'cdUp'#7'Command'#2#11#9'M'
+'ghlightStyle'#7#8'sbhsBoth'#0#18'TSynGutterPartList'#0#0#15'TSynGutterMarks' +'oveCaret'#8#6'Option'#2#0#8'Priority'#2#0#0#0#15'MouseSelActions'#14#1#5'Sh'
+#0#5'Width'#2#23#0#0#20'TSynGutterLineNumber'#0#5'Width'#2#27#12'MouseAction' +'ift'#11#0#9'ShiftMask'#11#0#6'Button'#7#6'mbLeft'#10'ClickCount'#7#8'ccSing'
+'s'#14#0#21'MarkupInfo.Background'#7#9'clBtnFace'#21'MarkupInfo.Foreground'#7 +'le'#8'ClickDir'#7#6'cdDown'#7'Command'#2#9#9'MoveCaret'#8#6'Option'#2#0#8'P'
+#6'clNone'#10'DigitCount'#2#2#30'ShowOnlyLineNumbersMultiplesOf'#2#1#9'ZeroS' +'riority'#2#0#0#0#8'ReadOnly'#9#21'BracketHighlightStyle'#7#8'sbhsBoth'#0#0#0
+'tart'#8#12'LeadingZeros'#8#0#0#17'TSynGutterChanges'#0#5'Width'#2#4#13'Modi' +#9'TTabSheet'#14'tsDependencies'#7'Caption'#6#7'Used by'#12'ClientHeight'#3
+'fiedColor'#4#252#233#0#0#10'SavedColor'#7#7'clGreen'#0#0#19'TSynGutterSepar' +#215#1#11'ClientWidth'#3' '#2#0#9'TTreeView'#12'tvDependency'#4'Left'#2#20#6
+'ator'#0#5'Width'#2#2#0#0#21'TSynGutterCodeFolding'#0#12'MouseActions'#14#1#5 +'Height'#3#177#1#3'Top'#2#18#5'Width'#3#242#1#7'Anchors'#11#5'akTop'#6'akLef'
+'Shift'#11#0#9'ShiftMask'#11#0#6'Button'#7#7'mbRight'#10'ClickCount'#7#8'ccS' +'t'#7'akRight'#8'akBottom'#0#17'DefaultItemHeight'#2#15#8'ReadOnly'#9#16'Rig'
+'ingle'#8'ClickDir'#7#4'cdUp'#7'Command'#2#16#9'MoveCaret'#8#6'Option'#2#0#8 +'htClickSelect'#9#8'TabOrder'#2#0#7'Options'#11#17'tvoAutoItemHeight'#16'tvo'
+'Priority'#2#0#0#1#5'Shift'#11#0#9'ShiftMask'#11#7'ssShift'#0#6'Button'#7#8 +'HideSelection'#21'tvoKeepCollapsedNodes'#11'tvoReadOnly'#19'tvoRightClickSe'
+'mbMiddle'#10'ClickCount'#7#5'ccAny'#8'ClickDir'#7#6'cdDown'#7'Command'#2#14 +'lect'#14'tvoShowButtons'#12'tvoShowLines'#11'tvoShowRoot'#11'tvoToolTips'#0
+#9'MoveCaret'#8#6'Option'#2#0#8'Priority'#2#0#0#1#5'Shift'#11#7'ssShift'#0#9 +#0#0#0#9'TTabSheet'#15'tsDocumentation'#7'Caption'#6#13'Documentation'#12'Cl'
+'ShiftMask'#11#7'ssShift'#0#6'Button'#7#8'mbMiddle'#10'ClickCount'#7#5'ccAny' +'ientHeight'#3#215#1#11'ClientWidth'#3' '#2#0#5'TMemo'#16'edtDocumentation'#4
+#8'ClickDir'#7#6'cdDown'#7'Command'#2#14#9'MoveCaret'#8#6'Option'#2#1#8'Prio' +'Left'#2#12#6'Height'#3#178#1#3'Top'#2#18#5'Width'#3#2#2#7'Anchors'#11#5'akT'
+'rity'#2#0#0#1#5'Shift'#11#0#9'ShiftMask'#11#0#6'Button'#7#6'mbLeft'#10'Clic' +'op'#6'akLeft'#7'akRight'#8'akBottom'#0#10'ScrollBars'#7#10'ssAutoBoth'#8'Ta'
+'kCount'#7#5'ccAny'#8'ClickDir'#7#6'cdDown'#7'Command'#2#0#9'MoveCaret'#8#6 +'bOrder'#2#0#8'WordWrap'#8#0#0#0#0#11'TActionList'#11'ActionList1'#4'left'#3
+'Option'#2#0#8'Priority'#2#0#0#0#21'MarkupInfo.Background'#7#6'clNone'#21'Ma' +#248#0#3'top'#3#232#0#0#7'TAction'#5'actOK'#7'Caption'#6#2'OK'#9'OnExecute'#7
+'rkupInfo.Foreground'#7#6'clGray'#20'MouseActionsExpanded'#14#1#5'Shift'#11#0 +#12'actOKExecute'#8'OnUpdate'#7#11'actOKUpdate'#0#0#7'TAction'#10'actPropAdd'
+#9'ShiftMask'#11#0#6'Button'#7#6'mbLeft'#10'ClickCount'#7#5'ccAny'#8'ClickDi' +#7'Caption'#6#12'New Property'#9'OnExecute'#7#17'actPropAddExecute'#0#0#7'TA'
+'r'#7#6'cdDown'#7'Command'#2#14#9'MoveCaret'#8#6'Option'#2#0#8'Priority'#2#0 +'ction'#11'actPropEdit'#7'Caption'#6#13'Edit Property'#9'OnExecute'#7#18'act'
+#0#0#21'MouseActionsCollapsed'#14#1#5'Shift'#11#6'ssCtrl'#0#9'ShiftMask'#11#6 +'PropEditExecute'#8'OnUpdate'#7#17'actPropEditUpdate'#0#0#7'TAction'#13'actP'
+'ssCtrl'#0#6'Button'#7#6'mbLeft'#10'ClickCount'#7#5'ccAny'#8'ClickDir'#7#6'c' +'ropDelete'#7'Caption'#6#15'Delete Property'#9'OnExecute'#7#20'actPropDelete'
+'dDown'#7'Command'#2#15#9'MoveCaret'#8#6'Option'#2#0#8'Priority'#2#0#0#1#5'S' +'Execute'#8'OnUpdate'#7#17'actPropEditUpdate'#0#0#7'TAction'#8'actApply'#7'C'
+'hift'#11#0#9'ShiftMask'#11#6'ssCtrl'#0#6'Button'#7#6'mbLeft'#10'ClickCount' +'aption'#6#5'Apply'#9'OnExecute'#7#15'actApplyExecute'#8'OnUpdate'#7#11'actO'
+#7#5'ccAny'#8'ClickDir'#7#6'cdDown'#7'Command'#2#15#9'MoveCaret'#8#6'Option' +'KUpdate'#0#0#7'TAction'#9'actMoveUp'#7'Caption'#6#7'Move Up'#9'OnExecute'#7
+#2#1#8'Priority'#2#0#0#0#0#0#0#0#0#9'TTabSheet'#14'tsDependencies'#7'Caption' +#16'actMoveUpExecute'#8'OnUpdate'#7#15'actMoveUpUpdate'#0#0#7'TAction'#11'ac'
+#6#7'Used by'#12'ClientHeight'#3#215#1#11'ClientWidth'#3' '#2#0#9'TTreeView' +'tMoveDown'#7'Caption'#6#9'Move Down'#9'OnExecute'#7#18'actMoveDownExecute'#8
+#12'tvDependency'#4'Left'#2#20#6'Height'#3#177#1#3'Top'#2#18#5'Width'#3#242#1 +'OnUpdate'#7#17'actMoveDownUpdate'#0#0#7'TAction'#12'actMoveFirst'#7'Caption'
+#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#17'DefaultItemHei' +#6#10'Move First'#9'OnExecute'#7#19'actMoveFirstExecute'#8'OnUpdate'#7#15'ac'
+'ght'#2#15#8'ReadOnly'#9#16'RightClickSelect'#9#8'TabOrder'#2#0#7'Options'#11 +'tMoveUpUpdate'#0#0#7'TAction'#11'actMoveLast'#7'Caption'#6#9'Move Last'#9'O'
+#17'tvoAutoItemHeight'#16'tvoHideSelection'#21'tvoKeepCollapsedNodes'#11'tvo' +'nExecute'#7#18'actMoveLastExecute'#8'OnUpdate'#7#17'actMoveDownUpdate'#0#0#0
+'ReadOnly'#19'tvoRightClickSelect'#14'tvoShowButtons'#12'tvoShowLines'#11'tv' +#10'TPopupMenu'#10'PopupMenu1'#4'left'#2'i'#3'top'#3#186#0#0#9'TMenuItem'#9
+'oShowRoot'#11'tvoToolTips'#0#0#0#0#9'TTabSheet'#15'tsDocumentation'#7'Capti' +'MenuItem1'#6'Action'#7#10'actPropAdd'#7'OnClick'#7#17'actPropAddExecute'#0#0
+'on'#6#13'Documentation'#12'ClientHeight'#3#215#1#11'ClientWidth'#3' '#2#0#5 +#9'TMenuItem'#9'MenuItem2'#6'Action'#7#11'actPropEdit'#7'OnClick'#7#18'actPr'
+'TMemo'#16'edtDocumentation'#4'Left'#2#12#6'Height'#3#178#1#3'Top'#2#18#5'Wi' +'opEditExecute'#0#0#9'TMenuItem'#9'MenuItem3'#6'Action'#7#13'actPropDelete'#7
+'dth'#3#2#2#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#10'Scr'
+'ollBars'#7#10'ssAutoBoth'#8'TabOrder'#2#0#8'WordWrap'#8#0#0#0#0#11'TActionL'
+'ist'#11'ActionList1'#4'left'#3#232#0#3'top'#3#200#0#0#7'TAction'#5'actOK'#7
+'Caption'#6#2'OK'#9'OnExecute'#7#12'actOKExecute'#8'OnUpdate'#7#11'actOKUpda'
+'te'#0#0#7'TAction'#10'actPropAdd'#7'Caption'#6#12'New Property'#9'OnExecute'
+#7#17'actPropAddExecute'#0#0#7'TAction'#11'actPropEdit'#7'Caption'#6#13'Edit'
+' Property'#9'OnExecute'#7#18'actPropEditExecute'#8'OnUpdate'#7#17'actPropEd'
+'itUpdate'#0#0#7'TAction'#13'actPropDelete'#7'Caption'#6#15'Delete Property'
+#9'OnExecute'#7#20'actPropDeleteExecute'#8'OnUpdate'#7#17'actPropEditUpdate'
+#0#0#7'TAction'#8'actApply'#7'Caption'#6#5'Apply'#9'OnExecute'#7#15'actApply'
+'Execute'#8'OnUpdate'#7#11'actOKUpdate'#0#0#7'TAction'#9'actMoveUp'#7'Captio'
+'n'#6#7'Move Up'#9'OnExecute'#7#16'actMoveUpExecute'#8'OnUpdate'#7#15'actMov'
+'eUpUpdate'#0#0#7'TAction'#11'actMoveDown'#7'Caption'#6#9'Move Down'#9'OnExe'
+'cute'#7#18'actMoveDownExecute'#8'OnUpdate'#7#17'actMoveDownUpdate'#0#0#0#10
+'TPopupMenu'#10'PopupMenu1'#4'left'#2'i'#3'top'#3#186#0#0#9'TMenuItem'#9'Men'
,'uItem1'#6'Action'#7#10'actPropAdd'#7'OnClick'#7#17'actPropAddExecute'#0#0#9
+'TMenuItem'#9'MenuItem2'#6'Action'#7#11'actPropEdit'#7'OnClick'#7#18'actProp'
+'EditExecute'#0#0#9'TMenuItem'#9'MenuItem3'#6'Action'#7#13'actPropDelete'#7
+'OnClick'#7#20'actPropDeleteExecute'#0#0#9'TMenuItem'#9'MenuItem4'#7'Caption' +'OnClick'#7#20'actPropDeleteExecute'#0#0#9'TMenuItem'#9'MenuItem4'#7'Caption'
+#6#1'-'#0#0#9'TMenuItem'#9'MenuItem5'#6'Action'#7#9'actMoveUp'#7'OnClick'#7 +#6#1'-'#0#0#9'TMenuItem'#9'MenuItem5'#6'Action'#7#9'actMoveUp'#7'OnClick'#7
+#16'actMoveUpExecute'#0#0#9'TMenuItem'#9'MenuItem6'#6'Action'#7#11'actMoveDo' +#16'actMoveUpExecute'#0#0#9'TMenuItem'#9'MenuItem6'#6'Action'#7#11'actMoveDo'

16
wst/trunk/type_lib_edtr/ufclassedit.pas
View File

@ -28,6 +28,8 @@ type
TfClassEdit = class(TForm) TfClassEdit = class(TForm)
actApply : TAction; actApply : TAction;
actMoveFirst : TAction;
actMoveLast : TAction;
actMoveDown: TAction; actMoveDown: TAction;
actMoveUp: TAction; actMoveUp: TAction;
actPropDelete: TAction; actPropDelete: TAction;
@ -37,6 +39,7 @@ type
actOK: TAction; actOK: TAction;
actOK1: TAction; actOK1: TAction;
Button1: TButton; Button1: TButton;
Button10 : TButton;
Button2: TButton; Button2: TButton;
Button3: TButton; Button3: TButton;
Button4: TButton; Button4: TButton;
@ -44,6 +47,7 @@ type
Button6 : TButton; Button6 : TButton;
Button7: TButton; Button7: TButton;
Button8: TButton; Button8: TButton;
Button9 : TButton;
edtParent: TComboBox; edtParent: TComboBox;
edtName: TEdit; edtName: TEdit;
GroupBox1: TGroupBox; GroupBox1: TGroupBox;
@ -70,6 +74,8 @@ type
procedure actApplyExecute(Sender : TObject); procedure actApplyExecute(Sender : TObject);
procedure actMoveDownExecute(Sender: TObject); procedure actMoveDownExecute(Sender: TObject);
procedure actMoveDownUpdate(Sender: TObject); procedure actMoveDownUpdate(Sender: TObject);
procedure actMoveFirstExecute(Sender : TObject);
procedure actMoveLastExecute(Sender : TObject);
procedure actMoveUpExecute(Sender: TObject); procedure actMoveUpExecute(Sender: TObject);
procedure actMoveUpUpdate(Sender: TObject); procedure actMoveUpUpdate(Sender: TObject);
procedure actOKExecute(Sender: TObject); procedure actOKExecute(Sender: TObject);
@ -155,6 +161,16 @@ begin
TAction(Sender).Enabled := Assigned(edtProp.ItemFocused) and ( edtProp.ItemFocused.Index < Pred(edtProp.Items.Count) ); TAction(Sender).Enabled := Assigned(edtProp.ItemFocused) and ( edtProp.ItemFocused.Index < Pred(edtProp.Items.Count) );
end; end;
procedure TfClassEdit.actMoveFirstExecute(Sender : TObject);
begin
MovePropertyItem(TPasProperty(edtProp.ItemFocused.Data),0);
end;
procedure TfClassEdit.actMoveLastExecute(Sender : TObject);
begin
MovePropertyItem(TPasProperty(edtProp.ItemFocused.Data),(edtProp.Items.Count - 1));
end;
procedure TfClassEdit.actMoveUpExecute(Sender: TObject); procedure TfClassEdit.actMoveUpExecute(Sender: TObject);
begin begin
MovePropertyItem(TPasProperty(edtProp.ItemFocused.Data),(edtProp.ItemFocused.Index - 1)); MovePropertyItem(TPasProperty(edtProp.ItemFocused.Data),(edtProp.ItemFocused.Index - 1));

7
wst/trunk/type_lib_edtr/ufpropedit.lfm
View File

@ -1,18 +1,17 @@
object fPropEdit: TfPropEdit object fPropEdit: TfPropEdit
Left = 832 Left = 977
Height = 326 Height = 326
Top = 106 Top = 144
Width = 324 Width = 324
HorzScrollBar.Page = 323 HorzScrollBar.Page = 323
VertScrollBar.Page = 325 VertScrollBar.Page = 325
ActiveControl = edtName
BorderIcons = [biSystemMenu] BorderIcons = [biSystemMenu]
BorderStyle = bsDialog BorderStyle = bsDialog
Caption = 'fPropEdit' Caption = 'fPropEdit'
ClientHeight = 326 ClientHeight = 326
ClientWidth = 324 ClientWidth = 324
Position = poDesktopCenter Position = poDesktopCenter
LCLVersion = '0.9.28' LCLVersion = '0.9.29'
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Height = 50 Height = 50

62
wst/trunk/type_lib_edtr/ufpropedit.lrs
View File

@ -1,34 +1,34 @@
{ Ceci est un fichier ressource g�n�r� automatiquement par Lazarus } { This is an automatically generated lazarus resource file }
LazarusResources.Add('TfPropEdit','FORMDATA',[ LazarusResources.Add('TfPropEdit','FORMDATA',[
'TPF0'#10'TfPropEdit'#9'fPropEdit'#4'Left'#3'@'#3#6'Height'#3'F'#1#3'Top'#2'j' 'TPF0'#10'TfPropEdit'#9'fPropEdit'#4'Left'#3#209#3#6'Height'#3'F'#1#3'Top'#3
+#5'Width'#3'D'#1#18'HorzScrollBar.Page'#3'C'#1#18'VertScrollBar.Page'#3'E'#1 +#144#0#5'Width'#3'D'#1#18'HorzScrollBar.Page'#3'C'#1#18'VertScrollBar.Page'#3
+#13'ActiveControl'#7#7'edtName'#11'BorderIcons'#11#12'biSystemMenu'#0#11'Bor' +'E'#1#11'BorderIcons'#11#12'biSystemMenu'#0#11'BorderStyle'#7#8'bsDialog'#7
+'derStyle'#7#8'bsDialog'#7'Caption'#6#9'fPropEdit'#12'ClientHeight'#3'F'#1#11 +'Caption'#6#9'fPropEdit'#12'ClientHeight'#3'F'#1#11'ClientWidth'#3'D'#1#8'Po'
+'ClientWidth'#3'D'#1#8'Position'#7#15'poDesktopCenter'#10'LCLVersion'#6#6'0.' +'sition'#7#15'poDesktopCenter'#10'LCLVersion'#6#6'0.9.29'#0#6'TPanel'#6'Pane'
+'9.28'#0#6'TPanel'#6'Panel1'#4'Left'#2#0#6'Height'#2'2'#3'Top'#3#20#1#5'Widt' +'l1'#4'Left'#2#0#6'Height'#2'2'#3'Top'#3#20#1#5'Width'#3'D'#1#5'Align'#7#8'a'
+'h'#3'D'#1#5'Align'#7#8'alBottom'#12'ClientHeight'#2'2'#11'ClientWidth'#3'D' +'lBottom'#12'ClientHeight'#2'2'#11'ClientWidth'#3'D'#1#8'TabOrder'#2#0#0#7'T'
+#1#8'TabOrder'#2#0#0#7'TButton'#7'Button1'#4'Left'#3#236#0#6'Height'#2#25#3 +'Button'#7'Button1'#4'Left'#3#236#0#6'Height'#2#25#3'Top'#2#10#5'Width'#2'K'
+'Top'#2#10#5'Width'#2'K'#7'Anchors'#11#5'akTop'#7'akRight'#0#25'BorderSpacin' +#7'Anchors'#11#5'akTop'#7'akRight'#0#25'BorderSpacing.InnerBorder'#2#4#6'Can'
+'g.InnerBorder'#2#4#6'Cancel'#9#7'Caption'#6#6'Cancel'#11'ModalResult'#2#2#8 +'cel'#9#7'Caption'#6#6'Cancel'#11'ModalResult'#2#2#8'TabOrder'#2#0#0#0#7'TBu'
+'TabOrder'#2#0#0#0#7'TButton'#7'Button2'#4'Left'#3#146#0#6'Height'#2#25#3'To' +'tton'#7'Button2'#4'Left'#3#146#0#6'Height'#2#25#3'Top'#2#10#5'Width'#2'K'#6
+'p'#2#10#5'Width'#2'K'#6'Action'#7#5'actOK'#7'Anchors'#11#5'akTop'#7'akRight' +'Action'#7#5'actOK'#7'Anchors'#11#5'akTop'#7'akRight'#0#25'BorderSpacing.Inn'
+#0#25'BorderSpacing.InnerBorder'#2#4#7'Default'#9#8'TabOrder'#2#1#0#0#0#12'T' +'erBorder'#2#4#7'Default'#9#8'TabOrder'#2#1#0#0#0#12'TPageControl'#12'PageCo'
+'PageControl'#12'PageControl1'#4'Left'#2#0#6'Height'#3#20#1#3'Top'#2#0#5'Wid' +'ntrol1'#4'Left'#2#0#6'Height'#3#20#1#3'Top'#2#0#5'Width'#3'D'#1#10'ActivePa'
+'th'#3'D'#1#10'ActivePage'#7#9'TabSheet1'#5'Align'#7#8'alClient'#8'TabIndex' +'ge'#7#9'TabSheet1'#5'Align'#7#8'alClient'#8'TabIndex'#2#0#8'TabOrder'#2#1#0
+#2#0#8'TabOrder'#2#1#0#9'TTabSheet'#9'TabSheet1'#7'Caption'#6#8'Property'#12 +#9'TTabSheet'#9'TabSheet1'#7'Caption'#6#8'Property'#12'ClientHeight'#3#250#0
+'ClientHeight'#3#250#0#11'ClientWidth'#3'<'#1#0#6'TLabel'#6'Label1'#4'Left'#2 +#11'ClientWidth'#3'<'#1#0#6'TLabel'#6'Label1'#4'Left'#2#20#6'Height'#2#14#3
+#20#6'Height'#2#14#3'Top'#2#24#5'Width'#2#28#7'Caption'#6#4'Name'#11'ParentC' +'Top'#2#24#5'Width'#2#28#7'Caption'#6#4'Name'#11'ParentColor'#8#0#0#6'TLabel'
+'olor'#8#0#0#6'TLabel'#6'Label2'#4'Left'#2#20#6'Height'#2#14#3'Top'#2'b'#5'W' +#6'Label2'#4'Left'#2#20#6'Height'#2#14#3'Top'#2'b'#5'Width'#2#25#7'Caption'#6
+'idth'#2#25#7'Caption'#6#4'Type'#11'ParentColor'#8#0#0#5'TEdit'#7'edtName'#4 +#4'Type'#11'ParentColor'#8#0#0#5'TEdit'#7'edtName'#4'Left'#2#20#6'Height'#2
+'Left'#2#20#6'Height'#2#21#3'Top'#2'*'#5'Width'#3#16#1#8'TabOrder'#2#0#0#0#9 +#21#3'Top'#2'*'#5'Width'#3#16#1#8'TabOrder'#2#0#0#0#9'TComboBox'#7'edtType'#4
+'TComboBox'#7'edtType'#4'Left'#2#20#6'Height'#2#21#3'Top'#2't'#5'Width'#3#16 +'Left'#2#20#6'Height'#2#21#3'Top'#2't'#5'Width'#3#16#1#10'ItemHeight'#2#13#5
+#1#10'ItemHeight'#2#13#5'Style'#7#14'csDropDownList'#8'TabOrder'#2#1#0#0#9'T' +'Style'#7#14'csDropDownList'#8'TabOrder'#2#1#0#0#9'TCheckBox'#12'edtAttribut'
+'CheckBox'#12'edtAttribute'#4'Left'#2#20#6'Height'#2#17#3'Top'#3#170#0#5'Wid' +'e'#4'Left'#2#20#6'Height'#2#17#3'Top'#3#170#0#5'Width'#2'j'#7'Caption'#6#18
+'th'#2'j'#7'Caption'#6#18'Attribute Property'#8'TabOrder'#2#2#0#0#9'TCheckBo' +'Attribute Property'#8'TabOrder'#2#2#0#0#9'TCheckBox'#11'edtOptional'#4'Left'
+'x'#11'edtOptional'#4'Left'#2#20#6'Height'#2#17#3'Top'#3#218#0#5'Width'#2'g' +#2#20#6'Height'#2#17#3'Top'#3#218#0#5'Width'#2'g'#7'Caption'#6#17'Optional p'
+#7'Caption'#6#17'Optional property'#10'Font.Style'#11#8'fsItalic'#0#10'Paren' +'roperty'#10'Font.Style'#11#8'fsItalic'#0#10'ParentFont'#8#8'TabOrder'#2#3#0
+'tFont'#8#8'TabOrder'#2#3#0#0#0#0#11'TActionList'#11'ActionList1'#4'left'#2 +#0#0#0#11'TActionList'#11'ActionList1'#4'left'#2'h'#3'top'#2'h'#0#7'TAction'
+'h'#3'top'#2'h'#0#7'TAction'#5'actOK'#7'Caption'#6#2'OK'#9'OnExecute'#7#12'a' +#5'actOK'#7'Caption'#6#2'OK'#9'OnExecute'#7#12'actOKExecute'#8'OnUpdate'#7#11
+'ctOKExecute'#8'OnUpdate'#7#11'actOKUpdate'#0#0#0#0 +'actOKUpdate'#0#0#0#0
]); ]);

6
wst/trunk/type_lib_edtr/uprocedit.lfm
View File

@ -1,9 +1,8 @@
object fProcEdit: TfProcEdit object fProcEdit: TfProcEdit
Left = 290 Left = 329
Height = 543 Height = 543
Top = 118 Top = 143
Width = 522 Width = 522
ActiveControl = edtName
BorderStyle = bsSizeToolWin BorderStyle = bsSizeToolWin
Caption = 'fProcEdit' Caption = 'fProcEdit'
ClientHeight = 543 ClientHeight = 543
@ -71,6 +70,7 @@ object fProcEdit: TfProcEdit
end end
item item
end> end>
ItemIndex = -1
RowSelect = True RowSelect = True
TabOrder = 0 TabOrder = 0
ViewStyle = vsReport ViewStyle = vsReport

100
wst/trunk/type_lib_edtr/uprocedit.lrs
View File

@ -1,53 +1,53 @@
{ Ceci est un fichier ressource généré automatiquement par Lazarus } { This is an automatically generated lazarus resource file }
LazarusResources.Add('TfProcEdit','FORMDATA',[ LazarusResources.Add('TfProcEdit','FORMDATA',[
'TPF0'#10'TfProcEdit'#9'fProcEdit'#4'Left'#3'"'#1#6'Height'#3#31#2#3'Top'#2'v' 'TPF0'#10'TfProcEdit'#9'fProcEdit'#4'Left'#3'I'#1#6'Height'#3#31#2#3'Top'#3
+#5'Width'#3#10#2#13'ActiveControl'#7#7'edtName'#11'BorderStyle'#7#13'bsSizeT' +#143#0#5'Width'#3#10#2#11'BorderStyle'#7#13'bsSizeToolWin'#7'Caption'#6#9'fP'
+'oolWin'#7'Caption'#6#9'fProcEdit'#12'ClientHeight'#3#31#2#11'ClientWidth'#3 +'rocEdit'#12'ClientHeight'#3#31#2#11'ClientWidth'#3#10#2#8'Position'#7#16'po'
+#10#2#8'Position'#7#16'poMainFormCenter'#10'LCLVersion'#6#6'0.9.29'#0#12'TPa' +'MainFormCenter'#10'LCLVersion'#6#6'0.9.29'#0#12'TPageControl'#12'PageContro'
+'geControl'#12'PageControl1'#4'Left'#2#0#6'Height'#3#237#1#3'Top'#2#0#5'Widt' +'l1'#4'Left'#2#0#6'Height'#3#237#1#3'Top'#2#0#5'Width'#3#10#2#10'ActivePage'
+'h'#3#10#2#10'ActivePage'#7#9'TabSheet1'#5'Align'#7#8'alClient'#8'TabIndex'#2 +#7#9'TabSheet1'#5'Align'#7#8'alClient'#8'TabIndex'#2#0#8'TabOrder'#2#0#0#9'T'
+#0#8'TabOrder'#2#0#0#9'TTabSheet'#9'TabSheet1'#7'Caption'#6#10'&Operation'#12 +'TabSheet'#9'TabSheet1'#7'Caption'#6#10'&Operation'#12'ClientHeight'#3#211#1
+'ClientHeight'#3#211#1#11'ClientWidth'#3#2#2#0#6'TLabel'#6'Label1'#4'Left'#2 +#11'ClientWidth'#3#2#2#0#6'TLabel'#6'Label1'#4'Left'#2#12#6'Height'#2#14#3'T'
+#12#6'Height'#2#14#3'Top'#2#26#5'Width'#2#28#7'Caption'#6#4'Name'#11'ParentC' +'op'#2#26#5'Width'#2#28#7'Caption'#6#4'Name'#11'ParentColor'#8#0#0#5'TEdit'#7
+'olor'#8#0#0#5'TEdit'#7'edtName'#4'Left'#2'p'#6'Height'#2#21#3'Top'#2#26#5'W' +'edtName'#4'Left'#2'p'#6'Height'#2#21#3'Top'#2#26#5'Width'#3#132#1#7'Anchors'
+'idth'#3#132#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'TabOrder'#2#0 +#11#5'akTop'#6'akLeft'#7'akRight'#0#8'TabOrder'#2#0#4'Text'#6#7'edtName'#0#0
+#4'Text'#6#7'edtName'#0#0#9'TGroupBox'#9'GroupBox1'#4'Left'#2#11#6'Height'#3 +#9'TGroupBox'#9'GroupBox1'#4'Left'#2#11#6'Height'#3'0'#1#3'Top'#2'r'#5'Width'
+'0'#1#3'Top'#2'r'#5'Width'#3#233#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRigh' +#3#233#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#7'Caption'
+'t'#8'akBottom'#0#7'Caption'#6#15' Parametters '#12'ClientHeight'#3#30#1#11 +#6#15' Parametters '#12'ClientHeight'#3#30#1#11'ClientWidth'#3#229#1#8'Tab'
+'ClientWidth'#3#229#1#8'TabOrder'#2#3#0#9'TListView'#9'edtParams'#4'Left'#2#0 +'Order'#2#3#0#9'TListView'#9'edtParams'#4'Left'#2#0#6'Height'#3#30#1#3'Top'#2
+#6'Height'#3#30#1#3'Top'#2#0#5'Width'#3#229#1#5'Align'#7#8'alClient'#7'Colum' +#0#5'Width'#3#229#1#5'Align'#7#8'alClient'#7'Columns'#14#1#7'Caption'#6#4'Na'
+'ns'#14#1#7'Caption'#6#4'Name'#5'Width'#3#180#0#0#1#7'Caption'#6#4'Type'#5'W' +'me'#5'Width'#3#180#0#0#1#7'Caption'#6#4'Type'#5'Width'#3#190#0#0#1#7'Captio'
+'idth'#3#190#0#0#1#7'Caption'#6#8'Modifier'#5'Width'#2'<'#0#1#0#0#9'RowSelec' +'n'#6#8'Modifier'#5'Width'#2'<'#0#1#0#0#9'ItemIndex'#2#255#9'RowSelect'#9#8
+'t'#9#8'TabOrder'#2#0#9'ViewStyle'#7#8'vsReport'#0#0#0#9'TCheckBox'#11'edtFu' +'TabOrder'#2#0#9'ViewStyle'#7#8'vsReport'#0#0#0#9'TCheckBox'#11'edtFunction'
+'nction'#4'Left'#2#12#6'Height'#2#17#3'Top'#2'J'#5'Width'#2'a'#7'Caption'#6 +#4'Left'#2#12#6'Height'#2#17#3'Top'#2'J'#5'Width'#2'a'#7'Caption'#6#16'Funct'
+#16'Function returns'#7'OnClick'#7#16'edtFunctionClick'#13'OnEditingDone'#7 +'ion returns'#7'OnClick'#7#16'edtFunctionClick'#13'OnEditingDone'#7#22'edtFu'
+#22'edtFunctionEditingDone'#8'TabOrder'#2#1#0#0#9'TComboBox'#13'edtResultTyp' +'nctionEditingDone'#8'TabOrder'#2#1#0#0#9'TComboBox'#13'edtResultType'#4'Lef'
+'e'#4'Left'#2'p'#6'Height'#2#21#3'Top'#2'J'#5'Width'#3#132#1#7'Anchors'#11#5 +'t'#2'p'#6'Height'#2#21#3'Top'#2'J'#5'Width'#3#132#1#7'Anchors'#11#5'akTop'#6
+'akTop'#6'akLeft'#7'akRight'#0#10'ItemHeight'#2#13#5'Style'#7#14'csDropDownL' +'akLeft'#7'akRight'#0#10'ItemHeight'#2#13#5'Style'#7#14'csDropDownList'#8'Ta'
+'ist'#8'TabOrder'#2#2#0#0#7'TButton'#7'Button3'#4'Left'#2#12#6'Height'#2#25#3 +'bOrder'#2#2#0#0#7'TButton'#7'Button3'#4'Left'#2#12#6'Height'#2#25#3'Top'#3
+'Top'#3#173#1#5'Width'#2'l'#6'Action'#7#9'actNewArg'#7'Anchors'#11#6'akLeft' +#173#1#5'Width'#2'l'#6'Action'#7#9'actNewArg'#7'Anchors'#11#6'akLeft'#8'akBo'
+#8'akBottom'#0#25'BorderSpacing.InnerBorder'#2#4#8'TabOrder'#2#4#0#0#7'TButt' +'ttom'#0#25'BorderSpacing.InnerBorder'#2#4#8'TabOrder'#2#4#0#0#7'TButton'#7
+'on'#7'Button4'#4'Left'#3#132#0#6'Height'#2#25#3'Top'#3#173#1#5'Width'#2'l'#6 +'Button4'#4'Left'#3#132#0#6'Height'#2#25#3'Top'#3#173#1#5'Width'#2'l'#6'Acti'
+'Action'#7#17'actUpdateArgument'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#25'Bo' +'on'#7#17'actUpdateArgument'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#25'Border'
+'rderSpacing.InnerBorder'#2#4#8'TabOrder'#2#5#0#0#7'TButton'#7'Button5'#4'Le' +'Spacing.InnerBorder'#2#4#8'TabOrder'#2#5#0#0#7'TButton'#7'Button5'#4'Left'#3
+'ft'#3#248#0#6'Height'#2#25#3'Top'#3#173#1#5'Width'#2'l'#6'Action'#7#17'actD' +#248#0#6'Height'#2#25#3'Top'#3#173#1#5'Width'#2'l'#6'Action'#7#17'actDeleteA'
+'eleteArgument'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#25'BorderSpacing.Inner' +'rgument'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#25'BorderSpacing.InnerBorder'
+'Border'#2#4#8'TabOrder'#2#6#0#0#0#0#6'TPanel'#6'Panel1'#4'Left'#2#0#6'Heigh' +#2#4#8'TabOrder'#2#6#0#0#0#0#6'TPanel'#6'Panel1'#4'Left'#2#0#6'Height'#2'2'#3
+'t'#2'2'#3'Top'#3#237#1#5'Width'#3#10#2#5'Align'#7#8'alBottom'#12'ClientHeig' +'Top'#3#237#1#5'Width'#3#10#2#5'Align'#7#8'alBottom'#12'ClientHeight'#2'2'#11
+'ht'#2'2'#11'ClientWidth'#3#10#2#8'TabOrder'#2#1#0#7'TButton'#7'Button1'#4'L' +'ClientWidth'#3#10#2#8'TabOrder'#2#1#0#7'TButton'#7'Button1'#4'Left'#3'X'#1#6
+'eft'#3'X'#1#6'Height'#2#25#3'Top'#2#11#5'Width'#2'K'#6'Action'#7#5'actOk'#7 +'Height'#2#25#3'Top'#2#11#5'Width'#2'K'#6'Action'#7#5'actOk'#7'Anchors'#11#5
+'Anchors'#11#5'akTop'#7'akRight'#0#25'BorderSpacing.InnerBorder'#2#4#7'Defau' +'akTop'#7'akRight'#0#25'BorderSpacing.InnerBorder'#2#4#7'Default'#9#8'TabOrd'
+'lt'#9#8'TabOrder'#2#0#0#0#7'TButton'#7'Button2'#4'Left'#3#176#1#6'Height'#2 +'er'#2#0#0#0#7'TButton'#7'Button2'#4'Left'#3#176#1#6'Height'#2#25#3'Top'#2#11
+#25#3'Top'#2#11#5'Width'#2'K'#7'Anchors'#11#5'akTop'#7'akRight'#0#25'BorderS' +#5'Width'#2'K'#7'Anchors'#11#5'akTop'#7'akRight'#0#25'BorderSpacing.InnerBor'
+'pacing.InnerBorder'#2#4#6'Cancel'#9#7'Caption'#6#6'Cancel'#11'ModalResult'#2 +'der'#2#4#6'Cancel'#9#7'Caption'#6#6'Cancel'#11'ModalResult'#2#2#8'TabOrder'
+#2#8'TabOrder'#2#1#0#0#0#11'TActionList'#2'AL'#4'left'#3#198#0#3'top'#3#241#0 +#2#1#0#0#0#11'TActionList'#2'AL'#4'left'#3#198#0#3'top'#3#241#0#0#7'TAction'
+#0#7'TAction'#5'actOk'#7'Caption'#6#2'OK'#9'OnExecute'#7#12'actOkExecute'#8 +#5'actOk'#7'Caption'#6#2'OK'#9'OnExecute'#7#12'actOkExecute'#8'OnUpdate'#7#11
+'OnUpdate'#7#11'actOkUpdate'#0#0#7'TAction'#9'actNewArg'#7'Caption'#6#12'New' +'actOkUpdate'#0#0#7'TAction'#9'actNewArg'#7'Caption'#6#12'New Argument'#9'On'
+' Argument'#9'OnExecute'#7#16'actNewArgExecute'#0#0#7'TAction'#17'actUpdateA' +'Execute'#7#16'actNewArgExecute'#0#0#7'TAction'#17'actUpdateArgument'#7'Capt'
+'rgument'#7'Caption'#6#13'Edit Argument'#9'OnExecute'#7#24'actUpdateArgument' +'ion'#6#13'Edit Argument'#9'OnExecute'#7#24'actUpdateArgumentExecute'#8'OnUp'
+'Execute'#8'OnUpdate'#7#23'actUpdateArgumentUpdate'#0#0#7'TAction'#17'actDel' +'date'#7#23'actUpdateArgumentUpdate'#0#0#7'TAction'#17'actDeleteArgument'#7
+'eteArgument'#7'Caption'#6#15'Delete Argument'#9'OnExecute'#7#24'actDeleteAr' +'Caption'#6#15'Delete Argument'#9'OnExecute'#7#24'actDeleteArgumentExecute'#8
+'gumentExecute'#8'OnUpdate'#7#23'actUpdateArgumentUpdate'#0#0#0#10'TPopupMen' +'OnUpdate'#7#23'actUpdateArgumentUpdate'#0#0#0#10'TPopupMenu'#10'PopupMenu1'
+'u'#10'PopupMenu1'#4'left'#2'S'#3'top'#3#217#0#0#0#0 +#4'left'#2'S'#3'top'#3#217#0#0#0#0
]); ]);

28
wst/trunk/type_lib_edtr/uwsttypelibraryedit.lfm
View File

@ -1,9 +1,8 @@
object fWstTypeLibraryEdit: TfWstTypeLibraryEdit object fWstTypeLibraryEdit: TfWstTypeLibraryEdit
Left = 158 Left = 209
Height = 644 Height = 644
Top = 112 Top = 105
Width = 833 Width = 833
ActiveControl = trvSchema
Caption = '[Web Services Toolkit ] Type Library Editor' Caption = '[Web Services Toolkit ] Type Library Editor'
ClientHeight = 624 ClientHeight = 624
ClientWidth = 833 ClientWidth = 833
@ -11,7 +10,7 @@ object fWstTypeLibraryEdit: TfWstTypeLibraryEdit
OnClose = FormClose OnClose = FormClose
OnShow = FormShow OnShow = FormShow
Position = poDesktopCenter Position = poDesktopCenter
LCLVersion = '0.9.28' LCLVersion = '0.9.29'
object SB: TStatusBar object SB: TStatusBar
Left = 0 Left = 0
Height = 23 Height = 23
@ -85,7 +84,6 @@ object fWstTypeLibraryEdit: TfWstTypeLibraryEdit
PopupMenu = PopupMenu2 PopupMenu = PopupMenu2
TabOrder = 0 TabOrder = 0
BookMarkOptions.Xoffset = 56 BookMarkOptions.Xoffset = 56
BookMarkOptions.OnChange = nil
Gutter.Width = 57 Gutter.Width = 57
Gutter.MouseActions = < Gutter.MouseActions = <
item item
@ -687,7 +685,6 @@ object fWstTypeLibraryEdit: TfWstTypeLibraryEdit
PopupMenu = PopupMenu2 PopupMenu = PopupMenu2
TabOrder = 0 TabOrder = 0
BookMarkOptions.Xoffset = 34 BookMarkOptions.Xoffset = 34
BookMarkOptions.OnChange = nil
Gutter.Width = 57 Gutter.Width = 57
Gutter.MouseActions = < Gutter.MouseActions = <
item item
@ -1289,7 +1286,6 @@ object fWstTypeLibraryEdit: TfWstTypeLibraryEdit
PopupMenu = PopupMenu2 PopupMenu = PopupMenu2
TabOrder = 0 TabOrder = 0
BookMarkOptions.Xoffset = 56 BookMarkOptions.Xoffset = 56
BookMarkOptions.OnChange = nil
Gutter.Width = 57 Gutter.Width = 57
Gutter.MouseActions = < Gutter.MouseActions = <
item item
@ -1891,7 +1887,6 @@ object fWstTypeLibraryEdit: TfWstTypeLibraryEdit
PopupMenu = PopupMenu2 PopupMenu = PopupMenu2
TabOrder = 0 TabOrder = 0
BookMarkOptions.Xoffset = 56 BookMarkOptions.Xoffset = 56
BookMarkOptions.OnChange = nil
Gutter.Width = 57 Gutter.Width = 57
Gutter.MouseActions = < Gutter.MouseActions = <
item item
@ -2493,7 +2488,6 @@ object fWstTypeLibraryEdit: TfWstTypeLibraryEdit
PopupMenu = PopupMenu2 PopupMenu = PopupMenu2
TabOrder = 0 TabOrder = 0
BookMarkOptions.Xoffset = 56 BookMarkOptions.Xoffset = 56
BookMarkOptions.OnChange = nil
Gutter.Width = 57 Gutter.Width = 57
Gutter.MouseActions = < Gutter.MouseActions = <
item item
@ -3137,7 +3131,6 @@ object fWstTypeLibraryEdit: TfWstTypeLibraryEdit
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
BookMarkOptions.Xoffset = -18 BookMarkOptions.Xoffset = -18
BookMarkOptions.OnChange = nil
Gutter.Visible = False Gutter.Visible = False
Gutter.Width = 0 Gutter.Width = 0
Gutter.MouseActions = < Gutter.MouseActions = <
@ -3849,6 +3842,10 @@ object fWstTypeLibraryEdit: TfWstTypeLibraryEdit
object MenuItem12: TMenuItem object MenuItem12: TMenuItem
Caption = '-' Caption = '-'
end end
object MenuItem55: TMenuItem
Action = actClone
OnClick = actCloneExecute
end
object MenuItem13: TMenuItem object MenuItem13: TMenuItem
Action = actUpdateObject Action = actUpdateObject
Caption = 'Update Object' Caption = 'Update Object'
@ -3940,7 +3937,7 @@ object fWstTypeLibraryEdit: TfWstTypeLibraryEdit
Caption = 'Delete' Caption = 'Delete'
Enabled = False Enabled = False
OnExecute = actDeleteExecute OnExecute = actDeleteExecute
OnUpdate = actUpdateObjectUpdate OnUpdate = actDeleteUpdate
end end
object actArrayCreate: TAction object actArrayCreate: TAction
Caption = 'Create Array' Caption = 'Create Array'
@ -3972,6 +3969,11 @@ object fWstTypeLibraryEdit: TfWstTypeLibraryEdit
Caption = 'Save as XSD file ...' Caption = 'Save as XSD file ...'
OnExecute = actSaveXSDExecute OnExecute = actSaveXSDExecute
end end
object actClone: TAction
Caption = 'Clone'
OnExecute = actCloneExecute
OnUpdate = actCloneUpdate
end
end end
object OD: TOpenDialog object OD: TOpenDialog
Filter = 'WDSL files(*.WSDL)|*.wsdl|Pascal file (*.pas)|*.pas|XSD files ( *.xsd )|*.xsd' Filter = 'WDSL files(*.WSDL)|*.wsdl|Pascal file (*.pas)|*.pas|XSD files ( *.xsd )|*.xsd'
@ -4054,6 +4056,10 @@ object fWstTypeLibraryEdit: TfWstTypeLibraryEdit
object MenuItem22: TMenuItem object MenuItem22: TMenuItem
Caption = '-' Caption = '-'
end end
object MenuItem54: TMenuItem
Action = actClone
OnClick = actCloneExecute
end
object MenuItem9: TMenuItem object MenuItem9: TMenuItem
Action = actUpdateObject Action = actUpdateObject
OnClick = actUpdateObjectExecute OnClick = actUpdateObjectExecute

1435
wst/trunk/type_lib_edtr/uwsttypelibraryedit.lrs
View File

File diff suppressed because it is too large Load Diff

57
wst/trunk/type_lib_edtr/uwsttypelibraryedit.pas
View File

@ -41,6 +41,7 @@ type
actDelete : TAction; actDelete : TAction;
actArrayCreate : TAction; actArrayCreate : TAction;
actEditSearch : TAction; actEditSearch : TAction;
actClone : TAction;
actSaveXSD : TAction; actSaveXSD : TAction;
actTreeSearch : TAction; actTreeSearch : TAction;
actRecordCreate : TAction; actRecordCreate : TAction;
@ -100,6 +101,8 @@ type
MenuItem51 : TMenuItem; MenuItem51 : TMenuItem;
MenuItem52 : TMenuItem; MenuItem52 : TMenuItem;
MenuItem53 : TMenuItem; MenuItem53 : TMenuItem;
MenuItem54 : TMenuItem;
MenuItem55 : TMenuItem;
MenuItem6: TMenuItem; MenuItem6: TMenuItem;
MenuItem7 : TMenuItem; MenuItem7 : TMenuItem;
MenuItem8: TMenuItem; MenuItem8: TMenuItem;
@ -141,8 +144,11 @@ type
trvSchema: TTreeView; trvSchema: TTreeView;
procedure actAboutExecute(Sender: TObject); procedure actAboutExecute(Sender: TObject);
procedure actArrayCreateExecute(Sender : TObject); procedure actArrayCreateExecute(Sender : TObject);
procedure actCloneExecute(Sender : TObject);
procedure actCloneUpdate(Sender : TObject);
procedure actCompoundCreateExecute(Sender: TObject); procedure actCompoundCreateExecute(Sender: TObject);
procedure actDeleteExecute (Sender : TObject ); procedure actDeleteExecute (Sender : TObject );
procedure actDeleteUpdate(Sender : TObject);
procedure actEnumCreateExecute(Sender: TObject); procedure actEnumCreateExecute(Sender: TObject);
procedure actEnumCreateUpdate(Sender : TObject); procedure actEnumCreateUpdate(Sender : TObject);
procedure actExitExecute(Sender: TObject); procedure actExitExecute(Sender: TObject);
@ -613,7 +619,7 @@ begin
nd := trvSchema.Selected; nd := trvSchema.Selected;
if Assigned(nd) and Assigned(nd.Data) then begin if Assigned(nd) and Assigned(nd.Data) then begin
o := TPasElement(nd.Data); o := TPasElement(nd.Data);
if HasEditor(o) and UpdateObject(o,FSymbolTable) then begin if HasEditor(o,etUpdate) and UpdateObject(o,FSymbolTable) then begin
nd_1 := nd; nd_1 := nd;
locTypeNode := GetTypeNode(); locTypeNode := GetTypeNode();
trvSchema.BeginUpdate(); trvSchema.BeginUpdate();
@ -633,7 +639,7 @@ begin
TAction(Sender).Enabled := TAction(Sender).Enabled :=
Assigned(trvSchema.Selected) and Assigned(trvSchema.Selected) and
Assigned(trvSchema.Selected.Data) and Assigned(trvSchema.Selected.Data) and
HasEditor(TPasElement(trvSchema.Selected.Data)); HasEditor(TPasElement(trvSchema.Selected.Data),etUpdate);
end; end;
procedure TfWstTypeLibraryEdit.FDFind(Sender : TObject); procedure TfWstTypeLibraryEdit.FDFind(Sender : TObject);
@ -827,6 +833,43 @@ begin
end; end;
end; end;
procedure TfWstTypeLibraryEdit.actCloneExecute(Sender : TObject);
var
o : TPasElement;
nd, nd_1 : TTreeNode;
locHandler : TObjectUpdaterClass;
locNewItem : TPasElement;
begin
nd := trvSchema.Selected;
if Assigned(nd) and Assigned(nd.Data) then begin
o := TPasElement(nd.Data);
if HasEditor(o,etClone,locHandler) then begin
locNewItem := locHandler.CloneObject(o,FSymbolTable);
if ( locNewItem <> nil ) then begin
trvSchema.BeginUpdate();
try
nd_1 := FindPainter(locNewItem).Paint(FSymbolTable,locNewItem,GetTypeNode());
if ( nd_1 <> nil ) then begin
nd_1.Expand(True);
trvSchema.Selected := nd_1;
trvSchema.MakeSelectionVisible();
end;
finally
trvSchema.EndUpdate();
end;
end;
end;
end;
end;
procedure TfWstTypeLibraryEdit.actCloneUpdate(Sender : TObject);
begin
TAction(Sender).Enabled :=
Assigned(trvSchema.Selected) and
Assigned(trvSchema.Selected.Data) and
HasEditor(TPasElement(trvSchema.Selected.Data),etClone);
end;
procedure TfWstTypeLibraryEdit.actCompoundCreateExecute(Sender: TObject); procedure TfWstTypeLibraryEdit.actCompoundCreateExecute(Sender: TObject);
var var
e : TPasClassType; e : TPasClassType;
@ -845,7 +888,7 @@ begin
nd := trvSchema.Selected; nd := trvSchema.Selected;
if Assigned(nd) and Assigned(nd.Data) then begin if Assigned(nd) and Assigned(nd.Data) then begin
o := TPasElement(nd.Data); o := TPasElement(nd.Data);
if HasEditor(o) then begin if HasEditor(o,etDelete) then begin
if ( MessageDlg(Format('Delete this object "%s" ?',[o.Name]),mtConfirmation,mbYesNo,0) = mrYes ) then begin if ( MessageDlg(Format('Delete this object "%s" ?',[o.Name]),mtConfirmation,mbYesNo,0) = mrYes ) then begin
DeleteObject(o,FSymbolTable); DeleteObject(o,FSymbolTable);
trvSchema.BeginUpdate(); trvSchema.BeginUpdate();
@ -859,6 +902,14 @@ begin
end; end;
end; end;
procedure TfWstTypeLibraryEdit.actDeleteUpdate(Sender : TObject);
begin
TAction(Sender).Enabled :=
Assigned(trvSchema.Selected) and
Assigned(trvSchema.Selected.Data) and
HasEditor(TPasElement(trvSchema.Selected.Data),etDelete);
end;
procedure TfWstTypeLibraryEdit.actEnumCreateExecute(Sender: TObject); procedure TfWstTypeLibraryEdit.actEnumCreateExecute(Sender: TObject);
var var
e : TPasEnumType; e : TPasEnumType;