Document UpdateObject

Type Library Editor : type alias definition added. git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@222 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2007-07-22 17:09:02 +00:00
parent 0900785a6e
commit d27d04532d
18 changed files with 946 additions and 475 deletions
--- a/wst/trunk/doc/WebServiceToolKit.odt
+++ b/wst/trunk/doc/WebServiceToolKit.odt
--- a/wst/trunk/synapse_tcp_protocol.pas
+++ b/wst/trunk/synapse_tcp_protocol.pas
@ -45,6 +45,8 @@ Type
    FAddress : string;
    FPort : string;
    FDefaultTimeOut: Integer;
+  private
+    procedure Connect();
  public
    constructor Create();override;
    destructor Destroy();override;
@ -67,6 +69,26 @@ uses binary_streamer, Math;

 { TTCPTransport }

+procedure TTCPTransport.Connect();
+var
+  locReconnect : Boolean;
+begin
+  if ( FConnection.Socket = NOT(0) ) then begin
+    FConnection.Connect(Address,Port);
+  end else begin
+    locReconnect := False;
+    try
+      locReconnect := not FConnection.CanRead(0);
+    except
+      locReconnect := True;
+    end;
+    if locReconnect then begin
+      FConnection.CloseSocket();
+      FConnection.Connect(Address,Port);
+    end;
+  end;
+end;
+
 constructor TTCPTransport.Create();
 begin
  FPropMngr := TPublishedPropertyManager.Create(Self);
@ -109,8 +131,9 @@ begin
    buffStream.Position := 0;
    wrtr.WriteInt32S(buffStream.Size-4);

-    if ( FConnection.Socket = NOT(0) ) then
-      FConnection.Connect(Address,Port);
+    //if ( FConnection.Socket = NOT(0) ) then
+      //FConnection.Connect(Address,Port);
+    Connect();
    FConnection.SendBuffer(buffStream.Memory,buffStream.Size);

    bufferLen := 0;
--- a/wst/trunk/tests/SDMTabularService/test_prj.lpi
+++ b/wst/trunk/tests/SDMTabularService/test_prj.lpi
@ -172,24 +172,7 @@
        <UsageCount Value="10"/>
      </Unit16>
    </Units>
-    <JumpHistory Count="4" HistoryIndex="3">
-      <Position1>
-        <Filename Value="..\..\synapse_http_protocol.pas"/>
-        <Caret Line="176" Column="30" TopLine="142"/>
-      </Position1>
-      <Position2>
-        <Filename Value="..\..\synapse_http_protocol.pas"/>
-        <Caret Line="26" Column="4" TopLine="11"/>
-      </Position2>
-      <Position3>
-        <Filename Value="..\..\synapse_http_protocol.pas"/>
-        <Caret Line="13" Column="18" TopLine="13"/>
-      </Position3>
-      <Position4>
-        <Filename Value="test_prj.pas"/>
-        <Caret Line="8" Column="13" TopLine="1"/>
-      </Position4>
-    </JumpHistory>
+    <JumpHistory Count="0" HistoryIndex="-1"/>
  </ProjectOptions>
  <CompilerOptions>
    <Version Value="5"/>
@ -201,6 +184,12 @@
    <CodeGeneration>
      <Generate Value="Faster"/>
    </CodeGeneration>
+    <Linking>
+      <Debugging>
+        <UseLineInfoUnit Value="False"/>
+      </Debugging>
+      <LinkSmart Value="True"/>
+    </Linking>
    <Other>
      <CompilerPath Value="$(CompPath)"/>
    </Other>
--- a/wst/trunk/type_lib_edtr/edit_helper.pas
+++ b/wst/trunk/type_lib_edtr/edit_helper.pas
@ -52,6 +52,7 @@ type
    AOwner       : TPasProcedureType;
    ASymbolTable : TwstPasTreeContainer
  ) : TPasArgument;
+  function CreateAliasType(ASymbolTable : TwstPasTreeContainer) : TPasAliasType;



@ -74,7 +75,7 @@ type

 implementation
 uses Contnrs, Forms, ufEnumedit, ufclassedit, uinterfaceedit, uprocedit,
-     uargedit, umoduleedit, ubindingedit, ufarrayedit;
+     uargedit, umoduleedit, ubindingedit, ufarrayedit, uftypealiasedit;

 type

@ -163,6 +164,17 @@ type
    ):Boolean;override;
  end;

+  { TTypeAliasUpdater }
+
+  TTypeAliasUpdater = class(TObjectUpdater)
+  public
+    class function CanHandle(AObject : TObject):Boolean;override;
+    class function UpdateObject(
+      AObject : TPasElement;
+      ASymbolTable : TwstPasTreeContainer
+    ):Boolean;override;
+  end;
+  
  { TArrayUpdater }

  TArrayUpdater = class(TObjectUpdater)
@ -229,6 +241,30 @@ type
    ):Boolean;override;
  end;

+{ TTypeAliasUpdater }
+
+class function TTypeAliasUpdater.CanHandle(AObject : TObject) : Boolean;
+begin
+  Result := ( inherited CanHandle(AObject) ) and AObject.InheritsFrom(TPasAliasType);
+end;
+
+class function TTypeAliasUpdater.UpdateObject(
+  AObject : TPasElement;
+  ASymbolTable : TwstPasTreeContainer
+): Boolean;
+var
+  f : TfTypeAliasEdit;
+  e : TPasAliasType;
+begin
+  e := AObject as TPasAliasType;
+  f := TfTypeAliasEdit.Create(Application);
+  try
+    Result := f.UpdateObject(e,etUpdate,ASymbolTable);
+  finally
+    f.Release();
+  end;
+end;
+
 { TArrayUpdater }

 class function TArrayUpdater.CanHandle(AObject : TObject) : Boolean;
@ -542,6 +578,19 @@ begin
  end;
 end;

+function CreateAliasType(ASymbolTable : TwstPasTreeContainer) : TPasAliasType;
+var
+  f : TfTypeAliasEdit;
+begin
+  Result := nil;
+  f := TfTypeAliasEdit.Create(Application);
+  try
+    f.UpdateObject(Result,etCreate,ASymbolTable);
+  finally
+    f.Release();
+  end;
+end;
+
 { TObjectUpdater }

 class function TObjectUpdater.CanHandle(AObject: TObject): Boolean;
@ -666,6 +715,7 @@ initialization
  UpdaterRegistryInst.RegisterHandler(TModuleUpdater);
  UpdaterRegistryInst.RegisterHandler(TBindingUpdater);
  UpdaterRegistryInst.RegisterHandler(TArrayUpdater);
+  UpdaterRegistryInst.RegisterHandler(TTypeAliasUpdater);
  
 finalization
  FreeAndNil(UpdaterRegistryInst);
--- a/wst/trunk/type_lib_edtr/typ_lib_edtr.lpi
+++ b/wst/trunk/type_lib_edtr/typ_lib_edtr.lpi
@ -7,7 +7,7 @@
      <MainUnit Value="0"/>
      <IconPath Value="./"/>
      <TargetFileExt Value=".exe"/>
-      <ActiveEditorIndexAtStart Value="2"/>
+      <ActiveEditorIndexAtStart Value="4"/>
    </General>
    <VersionInfo>
      <ProjectVersion Value=""/>
@ -32,14 +32,14 @@
        <PackageName Value="LCL"/>
      </Item2>
    </RequiredPackages>
-    <Units Count="72">
+    <Units Count="75">
      <Unit0>
        <Filename Value="typ_lib_edtr.lpr"/>
        <IsPartOfProject Value="True"/>
-        <CursorPos X="1" Y="20"/>
+        <CursorPos X="1" Y="21"/>
        <TopLine Value="1"/>
-        <EditorIndex Value="2"/>
-        <UsageCount Value="198"/>
+        <EditorIndex Value="4"/>
+        <UsageCount Value="200"/>
        <Loaded Value="True"/>
      </Unit0>
      <Unit1>
@ -49,10 +49,10 @@
        <IsPartOfProject Value="True"/>
        <ResourceFilename Value="uwsttypelibraryedit.lrs"/>
        <UnitName Value="uwsttypelibraryedit"/>
-        <CursorPos X="40" Y="546"/>
-        <TopLine Value="535"/>
+        <CursorPos X="36" Y="792"/>
+        <TopLine Value="772"/>
        <EditorIndex Value="0"/>
-        <UsageCount Value="198"/>
+        <UsageCount Value="200"/>
        <Loaded Value="True"/>
      </Unit1>
      <Unit2>
@ -60,15 +60,15 @@
        <UnitName Value="parserdefs"/>
        <CursorPos X="1" Y="35"/>
        <TopLine Value="22"/>
-        <UsageCount Value="42"/>
+        <UsageCount Value="41"/>
      </Unit2>
      <Unit3>
        <Filename Value="..\ws_helper\wsdl2pas_imp.pas"/>
        <UnitName Value="wsdl2pas_imp"/>
        <CursorPos X="38" Y="805"/>
        <TopLine Value="792"/>
-        <EditorIndex Value="9"/>
-        <UsageCount Value="83"/>
+        <EditorIndex Value="12"/>
+        <UsageCount Value="88"/>
        <Bookmarks Count="1">
          <Item0 X="65" Y="750" ID="2"/>
        </Bookmarks>
@ -80,8 +80,8 @@
        <UnitName Value="wsdl_generator"/>
        <CursorPos X="45" Y="707"/>
        <TopLine Value="684"/>
-        <EditorIndex Value="13"/>
-        <UsageCount Value="198"/>
+        <EditorIndex Value="16"/>
+        <UsageCount Value="200"/>
        <Bookmarks Count="1">
          <Item0 X="49" Y="446" ID="1"/>
        </Bookmarks>
@ -94,9 +94,11 @@
        <IsPartOfProject Value="True"/>
        <ResourceFilename Value="uabout.lrs"/>
        <UnitName Value="uabout"/>
-        <CursorPos X="2" Y="12"/>
+        <CursorPos X="46" Y="22"/>
        <TopLine Value="1"/>
-        <UsageCount Value="198"/>
+        <EditorIndex Value="1"/>
+        <UsageCount Value="200"/>
+        <Loaded Value="True"/>
      </Unit5>
      <Unit6>
        <Filename Value="ufenumedit.pas"/>
@ -107,36 +109,36 @@
        <UnitName Value="ufEnumedit"/>
        <CursorPos X="27" Y="78"/>
        <TopLine Value="58"/>
-        <EditorIndex Value="10"/>
-        <UsageCount Value="198"/>
+        <EditorIndex Value="13"/>
+        <UsageCount Value="200"/>
        <Loaded Value="True"/>
      </Unit6>
      <Unit7>
        <Filename Value="view_helper.pas"/>
        <IsPartOfProject Value="True"/>
        <UnitName Value="view_helper"/>
-        <CursorPos X="1" Y="241"/>
-        <TopLine Value="234"/>
-        <EditorIndex Value="8"/>
-        <UsageCount Value="198"/>
+        <CursorPos X="3" Y="207"/>
+        <TopLine Value="193"/>
+        <EditorIndex Value="11"/>
+        <UsageCount Value="200"/>
        <Loaded Value="True"/>
      </Unit7>
      <Unit8>
        <Filename Value="..\ws_helper\source_utils.pas"/>
        <IsPartOfProject Value="True"/>
        <UnitName Value="source_utils"/>
-        <CursorPos X="18" Y="20"/>
-        <TopLine Value="1"/>
-        <UsageCount Value="198"/>
+        <CursorPos X="1" Y="1"/>
+        <TopLine Value="19"/>
+        <UsageCount Value="200"/>
      </Unit8>
      <Unit9>
        <Filename Value="edit_helper.pas"/>
        <IsPartOfProject Value="True"/>
        <UnitName Value="edit_helper"/>
-        <CursorPos X="15" Y="491"/>
-        <TopLine Value="484"/>
-        <EditorIndex Value="1"/>
-        <UsageCount Value="198"/>
+        <CursorPos X="16" Y="105"/>
+        <TopLine Value="98"/>
+        <EditorIndex Value="3"/>
+        <UsageCount Value="200"/>
        <Loaded Value="True"/>
      </Unit9>
      <Unit10>
@ -146,10 +148,10 @@
        <IsPartOfProject Value="True"/>
        <ResourceFilename Value="ufclassedit.lrs"/>
        <UnitName Value="ufclassedit"/>
-        <CursorPos X="1" Y="307"/>
-        <TopLine Value="294"/>
-        <EditorIndex Value="3"/>
-        <UsageCount Value="198"/>
+        <CursorPos X="1" Y="336"/>
+        <TopLine Value="299"/>
+        <EditorIndex Value="5"/>
+        <UsageCount Value="200"/>
        <Loaded Value="True"/>
      </Unit10>
      <Unit11>
@ -158,10 +160,10 @@
        <IsPartOfProject Value="True"/>
        <ResourceFilename Value="ufpropedit.lrs"/>
        <UnitName Value="ufpropedit"/>
-        <CursorPos X="33" Y="106"/>
-        <TopLine Value="92"/>
-        <EditorIndex Value="5"/>
-        <UsageCount Value="198"/>
+        <CursorPos X="1" Y="129"/>
+        <TopLine Value="118"/>
+        <EditorIndex Value="8"/>
+        <UsageCount Value="200"/>
        <Loaded Value="True"/>
      </Unit11>
      <Unit12>
@ -169,91 +171,91 @@
        <UnitName Value="ComCtrls"/>
        <CursorPos X="15" Y="1781"/>
        <TopLine Value="1768"/>
-        <UsageCount Value="1"/>
+        <UsageCount Value="10"/>
      </Unit12>
      <Unit13>
        <Filename Value="..\ws_helper\parserutils.pas"/>
        <UnitName Value="parserutils"/>
        <CursorPos X="17" Y="20"/>
        <TopLine Value="19"/>
-        <EditorIndex Value="4"/>
-        <UsageCount Value="70"/>
+        <EditorIndex Value="7"/>
+        <UsageCount Value="75"/>
        <Loaded Value="True"/>
      </Unit13>
      <Unit14>
        <Filename Value="..\..\..\..\lazarus23_213\fpc\2.1.3\source\rtl\i386\i386.inc"/>
        <CursorPos X="2" Y="1284"/>
        <TopLine Value="1263"/>
-        <UsageCount Value="8"/>
+        <UsageCount Value="7"/>
      </Unit14>
      <Unit15>
        <Filename Value="..\..\..\..\lazarus23_213\fpc\2.1.3\source\rtl\inc\except.inc"/>
        <CursorPos X="1" Y="223"/>
        <TopLine Value="209"/>
-        <UsageCount Value="8"/>
+        <UsageCount Value="7"/>
      </Unit15>
      <Unit16>
        <Filename Value="..\..\..\..\lazarus23_213\fpc\2.1.3\source\rtl\inc\objpas.inc"/>
        <CursorPos X="1" Y="152"/>
        <TopLine Value="138"/>
-        <UsageCount Value="10"/>
+        <UsageCount Value="9"/>
      </Unit16>
      <Unit17>
        <Filename Value="ufclassedit.lrs"/>
        <CursorPos X="39" Y="2"/>
        <TopLine Value="1"/>
-        <UsageCount Value="1"/>
+        <UsageCount Value="10"/>
      </Unit17>
      <Unit18>
        <Filename Value="..\..\..\..\lazarus23_213\fpc\2.1.3\source\rtl\inc\wstrings.inc"/>
        <CursorPos X="1" Y="317"/>
        <TopLine Value="303"/>
-        <UsageCount Value="1"/>
+        <UsageCount Value="10"/>
      </Unit18>
      <Unit19>
        <Filename Value="..\..\..\..\lazarus23_213\fpc\2.1.3\source\packages\fcl-xml\src\dom.pp"/>
        <UnitName Value="DOM"/>
        <CursorPos X="3" Y="2064"/>
        <TopLine Value="2041"/>
-        <UsageCount Value="1"/>
+        <UsageCount Value="10"/>
      </Unit19>
      <Unit20>
        <Filename Value="..\..\..\..\lazarus23_213\lcl\stdctrls.pp"/>
        <UnitName Value="StdCtrls"/>
        <CursorPos X="24" Y="362"/>
        <TopLine Value="348"/>
-        <UsageCount Value="0"/>
+        <UsageCount Value="9"/>
      </Unit20>
      <Unit21>
        <Filename Value="..\..\..\..\lazarus23_213\fpc\2.1.3\source\rtl\objpas\classes\classesh.inc"/>
        <CursorPos X="12" Y="64"/>
        <TopLine Value="49"/>
-        <UsageCount Value="0"/>
+        <UsageCount Value="9"/>
      </Unit21>
      <Unit22>
        <Filename Value="..\..\..\..\lazarus23_213\fpc\2.1.3\source\rtl\objpas\classes\stringl.inc"/>
        <CursorPos X="15" Y="1071"/>
        <TopLine Value="1056"/>
-        <UsageCount Value="0"/>
+        <UsageCount Value="9"/>
      </Unit22>
      <Unit23>
        <Filename Value="..\..\..\..\lazarus23_213\fpc\2.1.3\source\rtl\objpas\types.pp"/>
        <UnitName Value="types"/>
        <CursorPos X="6" Y="15"/>
        <TopLine Value="1"/>
-        <UsageCount Value="0"/>
+        <UsageCount Value="9"/>
      </Unit23>
      <Unit24>
        <Filename Value="..\..\..\..\lazarus23_213\fpc\2.1.3\source\rtl\objpas\sysutils\sysstrh.inc"/>
        <CursorPos X="10" Y="104"/>
        <TopLine Value="90"/>
-        <UsageCount Value="0"/>
+        <UsageCount Value="9"/>
      </Unit24>
      <Unit25>
        <Filename Value="..\..\..\..\lazarus23_213\fpc\2.1.3\source\rtl\objpas\sysutils\sysstr.inc"/>
        <CursorPos X="1" Y="689"/>
        <TopLine Value="686"/>
-        <UsageCount Value="0"/>
+        <UsageCount Value="9"/>
      </Unit25>
      <Unit26>
        <Filename Value="uinterfaceedit.pas"/>
@ -261,15 +263,17 @@
        <IsPartOfProject Value="True"/>
        <ResourceFilename Value="uinterfaceedit.lrs"/>
        <UnitName Value="uinterfaceedit"/>
-        <CursorPos X="2" Y="12"/>
-        <TopLine Value="1"/>
-        <UsageCount Value="162"/>
+        <CursorPos X="86" Y="277"/>
+        <TopLine Value="270"/>
+        <EditorIndex Value="2"/>
+        <UsageCount Value="172"/>
+        <Loaded Value="True"/>
      </Unit26>
      <Unit27>
        <Filename Value="uinterfaceedit.lfm"/>
        <CursorPos X="1" Y="1"/>
        <TopLine Value="1"/>
-        <UsageCount Value="0"/>
+        <UsageCount Value="9"/>
        <SyntaxHighlighter Value="LFM"/>
      </Unit27>
      <Unit28>
@ -280,13 +284,13 @@
        <UnitName Value="udm"/>
        <CursorPos X="15" Y="2"/>
        <TopLine Value="1"/>
-        <UsageCount Value="157"/>
+        <UsageCount Value="167"/>
      </Unit28>
      <Unit29>
        <Filename Value="..\..\..\..\lazarus23_213\lcl\include\treeview.inc"/>
        <CursorPos X="25" Y="68"/>
        <TopLine Value="61"/>
-        <UsageCount Value="5"/>
+        <UsageCount Value="4"/>
      </Unit29>
      <Unit30>
        <Filename Value="..\ws_helper\pascal_parser_intf.pas"/>
@ -294,8 +298,8 @@
        <UnitName Value="pascal_parser_intf"/>
        <CursorPos X="24" Y="13"/>
        <TopLine Value="1"/>
-        <EditorIndex Value="12"/>
-        <UsageCount Value="120"/>
+        <EditorIndex Value="15"/>
+        <UsageCount Value="130"/>
        <Loaded Value="True"/>
      </Unit30>
      <Unit31>
@ -304,14 +308,14 @@
        <UnitName Value="PParser"/>
        <CursorPos X="4" Y="2133"/>
        <TopLine Value="2127"/>
-        <UsageCount Value="120"/>
+        <UsageCount Value="130"/>
      </Unit31>
      <Unit32>
        <Filename Value="..\ws_helper\logger_intf.pas"/>
        <UnitName Value="logger_intf"/>
        <CursorPos X="2" Y="12"/>
        <TopLine Value="37"/>
-        <UsageCount Value="36"/>
+        <UsageCount Value="35"/>
      </Unit32>
      <Unit33>
        <Filename Value="..\ws_helper\pastree.pp"/>
@ -319,32 +323,32 @@
        <UnitName Value="PasTree"/>
        <CursorPos X="33" Y="332"/>
        <TopLine Value="315"/>
-        <UsageCount Value="120"/>
+        <UsageCount Value="130"/>
      </Unit33>
      <Unit34>
        <Filename Value="..\..\..\..\lazarus_23_215\lcl\include\treeview.inc"/>
        <CursorPos X="35" Y="71"/>
        <TopLine Value="58"/>
-        <UsageCount Value="4"/>
+        <UsageCount Value="3"/>
      </Unit34>
      <Unit35>
        <Filename Value="..\..\..\..\lazarus23_213\lcl\include\customcheckbox.inc"/>
        <CursorPos X="1" Y="120"/>
        <TopLine Value="108"/>
-        <UsageCount Value="5"/>
+        <UsageCount Value="4"/>
      </Unit35>
      <Unit36>
        <Filename Value="umain.lrs"/>
        <CursorPos X="1" Y="1"/>
        <TopLine Value="1"/>
-        <UsageCount Value="7"/>
+        <UsageCount Value="6"/>
      </Unit36>
      <Unit37>
        <Filename Value="..\wst_rtti_filter\rtti_filters.pas"/>
        <UnitName Value="rtti_filters"/>
        <CursorPos X="1" Y="236"/>
        <TopLine Value="219"/>
-        <UsageCount Value="26"/>
+        <UsageCount Value="25"/>
      </Unit37>
      <Unit38>
        <Filename Value="..\ws_helper\generator.pas"/>
@ -352,8 +356,8 @@
        <UnitName Value="generator"/>
        <CursorPos X="223" Y="1327"/>
        <TopLine Value="1318"/>
-        <EditorIndex Value="7"/>
-        <UsageCount Value="37"/>
+        <EditorIndex Value="10"/>
+        <UsageCount Value="47"/>
        <Loaded Value="True"/>
      </Unit38>
      <Unit39>
@ -361,49 +365,49 @@
        <UnitName Value="dom_cursors"/>
        <CursorPos X="1" Y="239"/>
        <TopLine Value="222"/>
-        <UsageCount Value="23"/>
+        <UsageCount Value="22"/>
      </Unit39>
      <Unit40>
        <Filename Value="..\ws_helper\command_line_parser.pas"/>
        <UnitName Value="command_line_parser"/>
        <CursorPos X="20" Y="31"/>
        <TopLine Value="17"/>
-        <UsageCount Value="21"/>
+        <UsageCount Value="20"/>
      </Unit40>
      <Unit41>
        <Filename Value="..\..\..\..\..\lazarus_23_215\lcl\forms.pp"/>
        <UnitName Value="Forms"/>
        <CursorPos X="44" Y="10"/>
        <TopLine Value="1"/>
-        <UsageCount Value="7"/>
+        <UsageCount Value="6"/>
      </Unit41>
      <Unit42>
        <Filename Value="..\ws_helper\pscanner.pp"/>
        <UnitName Value="PScanner"/>
        <CursorPos X="1" Y="1"/>
        <TopLine Value="322"/>
-        <UsageCount Value="10"/>
+        <UsageCount Value="9"/>
      </Unit42>
      <Unit43>
        <Filename Value="..\ws_helper\metadata_generator.pas"/>
        <UnitName Value="metadata_generator"/>
        <CursorPos X="11" Y="20"/>
        <TopLine Value="14"/>
-        <UsageCount Value="7"/>
+        <UsageCount Value="6"/>
      </Unit43>
      <Unit44>
        <Filename Value="..\ide\lazarus\wst_register.pas"/>
        <UnitName Value="wst_register"/>
        <CursorPos X="42" Y="6"/>
        <TopLine Value="1"/>
-        <UsageCount Value="11"/>
+        <UsageCount Value="10"/>
      </Unit44>
      <Unit45>
        <Filename Value="..\..\..\..\..\lazarus_23_215\ideintf\menuintf.pas"/>
        <UnitName Value="MenuIntf"/>
        <CursorPos X="53" Y="417"/>
        <TopLine Value="409"/>
-        <UsageCount Value="8"/>
+        <UsageCount Value="7"/>
      </Unit45>
      <Unit46>
        <Filename Value="..\ide\lazarus\wstimportdlg.pas"/>
@ -412,28 +416,28 @@
        <UnitName Value="wstimportdlg"/>
        <CursorPos X="29" Y="60"/>
        <TopLine Value="154"/>
-        <UsageCount Value="11"/>
+        <UsageCount Value="10"/>
      </Unit46>
      <Unit47>
        <Filename Value="..\..\..\..\..\lazarus_23_215\ideintf\lazideintf.pas"/>
        <UnitName Value="LazIDEIntf"/>
        <CursorPos X="33" Y="174"/>
        <TopLine Value="162"/>
-        <UsageCount Value="7"/>
+        <UsageCount Value="6"/>
      </Unit47>
      <Unit48>
        <Filename Value="..\..\..\..\..\lazarus_23_215\ideintf\projectintf.pas"/>
        <UnitName Value="ProjectIntf"/>
        <CursorPos X="3" Y="284"/>
        <TopLine Value="262"/>
-        <UsageCount Value="7"/>
+        <UsageCount Value="6"/>
      </Unit48>
      <Unit49>
        <Filename Value="..\..\..\..\..\lazarus_23_215\ideintf\idecommands.pas"/>
        <UnitName Value="IDECommands"/>
        <CursorPos X="47" Y="291"/>
        <TopLine Value="279"/>
-        <UsageCount Value="7"/>
+        <UsageCount Value="6"/>
      </Unit49>
      <Unit50>
        <Filename Value="uprocedit.pas"/>
@ -443,14 +447,14 @@
        <UnitName Value="uprocedit"/>
        <CursorPos X="2" Y="12"/>
        <TopLine Value="1"/>
-        <UsageCount Value="76"/>
+        <UsageCount Value="86"/>
      </Unit50>
      <Unit51>
        <Filename Value="..\..\..\..\..\lazarus_23_215XX\lcl\comctrls.pp"/>
        <UnitName Value="ComCtrls"/>
        <CursorPos X="4" Y="1660"/>
        <TopLine Value="1660"/>
-        <UsageCount Value="7"/>
+        <UsageCount Value="6"/>
      </Unit51>
      <Unit52>
        <Filename Value="common_gui_utils.pas"/>
@ -458,14 +462,14 @@
        <UnitName Value="common_gui_utils"/>
        <CursorPos X="2" Y="12"/>
        <TopLine Value="1"/>
-        <UsageCount Value="74"/>
+        <UsageCount Value="84"/>
      </Unit52>
      <Unit53>
        <Filename Value="..\..\..\..\..\DOCUME~1\ADMINI~1\LOCALS~1\Temp\DestBug.pas"/>
        <UnitName Value="DestBug"/>
        <CursorPos X="1" Y="1"/>
        <TopLine Value="1"/>
-        <UsageCount Value="7"/>
+        <UsageCount Value="6"/>
      </Unit53>
      <Unit54>
        <Filename Value="uargedit.pas"/>
@ -475,20 +479,20 @@
        <UnitName Value="uargedit"/>
        <CursorPos X="2" Y="12"/>
        <TopLine Value="1"/>
-        <UsageCount Value="67"/>
+        <UsageCount Value="77"/>
      </Unit54>
      <Unit55>
        <Filename Value="..\..\..\..\..\lazarus_23_215XX\lcl\interfaces\win32\win32wscontrols.pp"/>
        <UnitName Value="Win32WSControls"/>
        <CursorPos X="1" Y="226"/>
        <TopLine Value="212"/>
-        <UsageCount Value="8"/>
+        <UsageCount Value="7"/>
      </Unit55>
      <Unit56>
        <Filename Value="umain.lfm"/>
        <CursorPos X="19" Y="1822"/>
        <TopLine Value="1858"/>
-        <UsageCount Value="8"/>
+        <UsageCount Value="7"/>
        <SyntaxHighlighter Value="LFM"/>
      </Unit56>
      <Unit57>
@ -499,14 +503,14 @@
        <UnitName Value="umoduleedit"/>
        <CursorPos X="2" Y="12"/>
        <TopLine Value="1"/>
-        <UsageCount Value="59"/>
+        <UsageCount Value="69"/>
      </Unit57>
      <Unit58>
        <Filename Value="..\..\..\..\..\lazarus_23_215XX\lcl\stdctrls.pp"/>
        <UnitName Value="StdCtrls"/>
        <CursorPos X="3" Y="1020"/>
        <TopLine Value="1006"/>
-        <UsageCount Value="8"/>
+        <UsageCount Value="7"/>
      </Unit58>
      <Unit59>
        <Filename Value="ubindingedit.pas"/>
@ -516,38 +520,38 @@
        <UnitName Value="ubindingedit"/>
        <CursorPos X="2" Y="12"/>
        <TopLine Value="1"/>
-        <UsageCount Value="49"/>
+        <UsageCount Value="59"/>
      </Unit59>
      <Unit60>
        <Filename Value="..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\inc\objpash.inc"/>
        <CursorPos X="26" Y="158"/>
        <TopLine Value="135"/>
-        <UsageCount Value="9"/>
+        <UsageCount Value="8"/>
      </Unit60>
      <Unit61>
        <Filename Value="..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\inc\objpas.inc"/>
        <CursorPos X="11" Y="550"/>
        <TopLine Value="645"/>
-        <UsageCount Value="9"/>
+        <UsageCount Value="8"/>
      </Unit61>
      <Unit62>
        <Filename Value="..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\objpas\classes\classesh.inc"/>
        <CursorPos X="14" Y="248"/>
        <TopLine Value="226"/>
-        <UsageCount Value="9"/>
+        <UsageCount Value="8"/>
      </Unit62>
      <Unit63>
        <Filename Value="..\..\..\..\..\lazarus_23_215XX\fpc\source\rtl\objpas\classes\lists.inc"/>
        <CursorPos X="3" Y="408"/>
        <TopLine Value="406"/>
-        <UsageCount Value="9"/>
+        <UsageCount Value="8"/>
      </Unit63>
      <Unit64>
        <Filename Value="..\..\..\..\..\lazarus_23_215XX\fpc\source\packages\fcl-base\src\inc\contnrs.pp"/>
        <UnitName Value="contnrs"/>
        <CursorPos X="3" Y="701"/>
        <TopLine Value="698"/>
-        <UsageCount Value="9"/>
+        <UsageCount Value="8"/>
      </Unit64>
      <Unit65>
        <Filename Value="ufrmsaveoption.pas"/>
@ -557,42 +561,42 @@
        <UnitName Value="ufrmsaveoption"/>
        <CursorPos X="42" Y="64"/>
        <TopLine Value="42"/>
-        <UsageCount Value="45"/>
+        <UsageCount Value="55"/>
      </Unit65>
      <Unit66>
        <Filename Value="..\..\..\..\..\lazarus_23_215XX\lcl\dialogs.pp"/>
        <UnitName Value="Dialogs"/>
        <CursorPos X="3" Y="44"/>
        <TopLine Value="27"/>
-        <UsageCount Value="9"/>
+        <UsageCount Value="8"/>
      </Unit66>
      <Unit67>
        <Filename Value="..\..\..\..\..\lazarus_23_215XX\fpc\source\packages\fcl-xml\src\dom.pp"/>
        <UnitName Value="DOM"/>
        <CursorPos X="3" Y="1459"/>
        <TopLine Value="1455"/>
-        <UsageCount Value="9"/>
+        <UsageCount Value="8"/>
      </Unit67>
      <Unit68>
        <Filename Value="..\wst_rtti_filter\cursor_intf.pas"/>
        <UnitName Value="cursor_intf"/>
        <CursorPos X="2" Y="90"/>
        <TopLine Value="71"/>
-        <EditorIndex Value="11"/>
-        <UsageCount Value="16"/>
+        <EditorIndex Value="14"/>
+        <UsageCount Value="21"/>
        <Loaded Value="True"/>
      </Unit68>
      <Unit69>
        <Filename Value="..\..\..\..\..\lazarus_23_215XX\lcl\include\control.inc"/>
        <CursorPos X="1" Y="2403"/>
        <TopLine Value="2390"/>
-        <UsageCount Value="9"/>
+        <UsageCount Value="8"/>
      </Unit69>
      <Unit70>
        <Filename Value="..\..\..\..\..\lazarus_23_215XX\lcl\include\customform.inc"/>
        <CursorPos X="1" Y="1417"/>
        <TopLine Value="1398"/>
-        <UsageCount Value="9"/>
+        <UsageCount Value="8"/>
      </Unit70>
      <Unit71>
        <Filename Value="ufarrayedit.pas"/>
@ -602,44 +606,50 @@
        <UnitName Value="ufarrayedit"/>
        <CursorPos X="67" Y="117"/>
        <TopLine Value="95"/>
-        <EditorIndex Value="6"/>
-        <UsageCount Value="29"/>
+        <EditorIndex Value="9"/>
+        <UsageCount Value="39"/>
        <Loaded Value="True"/>
      </Unit71>
+      <Unit72>
+        <Filename Value="uftypealiasedit.pas"/>
+        <ComponentName Value="fTypeAliasEdit"/>
+        <IsPartOfProject Value="True"/>
+        <ResourceFilename Value="uftypealiasedit.lrs"/>
+        <UnitName Value="uftypealiasedit"/>
+        <CursorPos X="21" Y="1"/>
+        <TopLine Value="1"/>
+        <EditorIndex Value="6"/>
+        <UsageCount Value="30"/>
+        <Loaded Value="True"/>
+      </Unit72>
+      <Unit73>
+        <Filename Value="..\..\..\..\..\Documents and Settings\Administrateur\Bureau\ACER\n\AWSECommerceService.pas"/>
+        <UnitName Value="AWSECommerceService"/>
+        <CursorPos X="1" Y="1"/>
+        <TopLine Value="1"/>
+        <UsageCount Value="20"/>
+      </Unit73>
+      <Unit74>
+        <Filename Value="..\..\..\..\..\Documents and Settings\Administrateur\Bureau\ACER\n\AWSECommerceService_proxy.pas"/>
+        <UnitName Value="AWSECommerceService_proxy"/>
+        <CursorPos X="1" Y="1"/>
+        <TopLine Value="1"/>
+        <UsageCount Value="20"/>
+      </Unit74>
    </Units>
-    <JumpHistory Count="8" HistoryIndex="7">
+    <JumpHistory Count="3" HistoryIndex="2">
      <Position1>
-        <Filename Value="..\ws_helper\generator.pas"/>
-        <Caret Line="699" Column="64" TopLine="684"/>
+        <Filename Value="typ_lib_edtr.lpr"/>
+        <Caret Line="21" Column="1" TopLine="1"/>
      </Position1>
      <Position2>
-        <Filename Value="..\ws_helper\generator.pas"/>
-        <Caret Line="1" Column="1" TopLine="1"/>
+        <Filename Value="typ_lib_edtr.lpr"/>
+        <Caret Line="9" Column="17" TopLine="1"/>
      </Position2>
      <Position3>
-        <Filename Value="..\ws_helper\generator.pas"/>
-        <Caret Line="692" Column="27" TopLine="684"/>
+        <Filename Value="typ_lib_edtr.lpr"/>
+        <Caret Line="3" Column="15" TopLine="1"/>
      </Position3>
-      <Position4>
-        <Filename Value="..\ws_helper\generator.pas"/>
-        <Caret Line="1" Column="1" TopLine="1"/>
-      </Position4>
-      <Position5>
-        <Filename Value="typ_lib_edtr.lpr"/>
-        <Caret Line="5" Column="20" TopLine="1"/>
-      </Position5>
-      <Position6>
-        <Filename Value="typ_lib_edtr.lpr"/>
-        <Caret Line="15" Column="14" TopLine="1"/>
-      </Position6>
-      <Position7>
-        <Filename Value="typ_lib_edtr.lpr"/>
-        <Caret Line="14" Column="68" TopLine="1"/>
-      </Position7>
-      <Position8>
-        <Filename Value="typ_lib_edtr.lpr"/>
-        <Caret Line="20" Column="1" TopLine="1"/>
-      </Position8>
    </JumpHistory>
  </ProjectOptions>
  <CompilerOptions>
--- a/wst/trunk/type_lib_edtr/typ_lib_edtr.lpr
+++ b/wst/trunk/type_lib_edtr/typ_lib_edtr.lpr
@ -8,10 +8,11 @@ uses
  {$ENDIF}{$ENDIF}
  Interfaces, // this includes the LCL widgetset
  Forms
-  , uwsttypelibraryedit, view_helper, source_utils, uabout, ufEnumedit,
+  , uwsttypelibraryedit, view_helper, uabout, ufEnumedit,
  edit_helper, ufclassedit, wsdl_generator, ufpropedit, uinterfaceedit, udm,
  pascal_parser_intf, PasTree, PParser, uprocedit, common_gui_utils, uargedit,
-  umoduleedit, ubindingedit, ufrmsaveoption, ufarrayedit, generator;
+  umoduleedit, ubindingedit, ufrmsaveoption, ufarrayedit, generator,
+  uftypealiasedit;

 begin
  Application.Initialize;
--- a/wst/trunk/type_lib_edtr/uabout.lfm
+++ b/wst/trunk/type_lib_edtr/uabout.lfm
@ -24,7 +24,7 @@ object fAbout: TfAbout
  object Label2: TLabel
    Left = 93
    Height = 14
-    Top = 56
+    Top = 64
    Width = 108
    Caption = 'Type Library Editor'
    Font.Style = [fsBold, fsItalic]
--- a/wst/trunk/type_lib_edtr/uabout.lrs
+++ b/wst/trunk/type_lib_edtr/uabout.lrs
@ -8,7 +8,7 @@ LazarusResources.Add('TfAbout','FORMDATA',[
  +'lientWidth'#3'+'#1#8'Position'#7#15'poDesktopCenter'#0#6'TLabel'#6'Label1'#4
  +'Left'#2','#6'Height'#2#14#3'Top'#2#24#5'Width'#3#211#0#7'Caption'#6'$Web Se'
  +'rvices Toolkit for FPC/Lazarus'#10'Font.Style'#11#6'fsBold'#0#11'ParentColo'
-  +'r'#8#0#0#6'TLabel'#6'Label2'#4'Left'#2']'#6'Height'#2#14#3'Top'#2'8'#5'Widt'
+  +'r'#8#0#0#6'TLabel'#6'Label2'#4'Left'#2']'#6'Height'#2#14#3'Top'#2'@'#5'Widt'
  +'h'#2'l'#7'Caption'#6#19'Type Library Editor'#10'Font.Style'#11#6'fsBold'#8
  +'fsItalic'#0#11'ParentColor'#8#0#0#6'TLabel'#6'Label3'#4'Left'#2'1'#6'Height'
  +#2#14#3'Top'#2'p'#5'Width'#3#200#0#7'Caption'#6'$Copyright (c) 2007 Inoussa '
--- a/wst/trunk/type_lib_edtr/ufclassedit.lfm
+++ b/wst/trunk/type_lib_edtr/ufclassedit.lfm
@ -1,7 +1,7 @@
 object fClassEdit: TfClassEdit
-  Left = 702
+  Left = 358
  Height = 547
-  Top = 150
+  Top = 113
  Width = 518
  HorzScrollBar.Page = 517
  VertScrollBar.Page = 546
@ -146,8 +146,9 @@ object fClassEdit: TfClassEdit
      object edtParent: TComboBox
        Left = 92
        Height = 21
-        Top = 59
+        Top = 58
        Width = 406
+        Anchors = [akTop, akLeft, akRight]
        AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
        ItemHeight = 13
        MaxLength = 0
--- a/wst/trunk/type_lib_edtr/ufclassedit.lrs
+++ b/wst/trunk/type_lib_edtr/ufclassedit.lrs
@ -1,26 +1,26 @@
 { Ceci est un fichier ressource g�n�r� automatiquement par Lazarus }

 LazarusResources.Add('TfClassEdit','FORMDATA',[
-  'TPF0'#11'TfClassEdit'#10'fClassEdit'#4'Left'#3#190#2#6'Height'#3'#'#2#3'Top'
-  +#3#150#0#5'Width'#3#6#2#18'HorzScrollBar.Page'#3#5#2#18'VertScrollBar.Page'#3
-  +'"'#2#13'ActiveControl'#7#7'Button1'#11'BorderStyle'#7#13'bsSizeToolWin'#7'C'
-  +'aption'#6#10'fClassEdit'#12'ClientHeight'#3'#'#2#11'ClientWidth'#3#6#2#8'Po'
-  +'sition'#7#15'poDesktopCenter'#0#6'TPanel'#6'Panel1'#6'Height'#2'2'#3'Top'#3
-  +#241#1#5'Width'#3#6#2#5'Align'#7#8'alBottom'#12'ClientHeight'#2'2'#11'Client'
-  +'Width'#3#6#2#8'TabOrder'#2#0#0#7'TButton'#7'Button1'#4'Left'#3#174#1#6'Heig'
-  +'ht'#2#25#3'Top'#2#10#5'Width'#2'K'#7'Anchors'#11#5'akTop'#7'akRight'#0#25'B'
-  +'orderSpacing.InnerBorder'#2#4#6'Cancel'#9#7'Caption'#6#6'Cancel'#11'ModalRe'
-  +'sult'#2#2#8'TabOrder'#2#0#0#0#7'TButton'#7'Button2'#4'Left'#3'T'#1#6'Height'
-  +#2#25#3'Top'#2#10#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#1#0
-  +#0#0#12'TPageControl'#2'PC'#6'Height'#3#241#1#5'Width'#3#6#2#10'ActivePage'#7
-  +#9'TabSheet1'#5'Align'#7#8'alClient'#8'TabIndex'#2#0#8'TabOrder'#2#1#0#9'TTa'
-  +'bSheet'#9'TabSheet1'#7'Caption'#6#15'Compound Object'#12'ClientHeight'#3#215
-  +#1#11'ClientWidth'#3#254#1#0#6'TLabel'#6'Label1'#4'Left'#2#4#6'Height'#2#14#3
-  +'Top'#2#18#5'Width'#2#28#7'Caption'#6#4'Name'#11'ParentColor'#8#0#0#6'TLabel'
-  +#6'Label2'#4'Left'#2#4#6'Height'#2#14#3'Top'#2';'#5'Width'#2'C'#7'Caption'#6
-  +#14'Inheritts from'#11'ParentColor'#8#0#0#5'TEdit'#7'edtName'#4'Left'#2'\'#6
-  +'Height'#2#23#3'Top'#2#18#5'Width'#3#150#1#7'Anchors'#11#5'akTop'#6'akLeft'#7
+  'TPF0'#11'TfClassEdit'#10'fClassEdit'#4'Left'#3'f'#1#6'Height'#3'#'#2#3'Top'#2
+  +'q'#5'Width'#3#6#2#18'HorzScrollBar.Page'#3#5#2#18'VertScrollBar.Page'#3'"'#2
+  +#13'ActiveControl'#7#7'Button1'#11'BorderStyle'#7#13'bsSizeToolWin'#7'Captio'
+  +'n'#6#10'fClassEdit'#12'ClientHeight'#3'#'#2#11'ClientWidth'#3#6#2#8'Positio'
+  +'n'#7#15'poDesktopCenter'#0#6'TPanel'#6'Panel1'#6'Height'#2'2'#3'Top'#3#241#1
+  +#5'Width'#3#6#2#5'Align'#7#8'alBottom'#12'ClientHeight'#2'2'#11'ClientWidth'
+  +#3#6#2#8'TabOrder'#2#0#0#7'TButton'#7'Button1'#4'Left'#3#174#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'T'#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#241#1#5'Width'#3#6#2#10'ActivePage'#7#9'Tab'
+  +'Sheet1'#5'Align'#7#8'alClient'#8'TabIndex'#2#0#8'TabOrder'#2#1#0#9'TTabShee'
+  +'t'#9'TabSheet1'#7'Caption'#6#15'Compound Object'#12'ClientHeight'#3#215#1#11
+  +'ClientWidth'#3#254#1#0#6'TLabel'#6'Label1'#4'Left'#2#4#6'Height'#2#14#3'Top'
+  +#2#18#5'Width'#2#28#7'Caption'#6#4'Name'#11'ParentColor'#8#0#0#6'TLabel'#6'L'
+  +'abel2'#4'Left'#2#4#6'Height'#2#14#3'Top'#2';'#5'Width'#2'C'#7'Caption'#6#14
+  +'Inheritts from'#11'ParentColor'#8#0#0#5'TEdit'#7'edtName'#4'Left'#2'\'#6'He'
+  +'ight'#2#23#3'Top'#2#18#5'Width'#3#150#1#7'Anchors'#11#5'akTop'#6'akLeft'#7
  +'akRight'#0#8'TabOrder'#2#0#0#0#9'TGroupBox'#9'GroupBox1'#4'Left'#2#4#6'Heig'
  +'ht'#3'8'#1#3'Top'#2'b'#5'Width'#3#239#1#7'Anchors'#11#5'akTop'#6'akLeft'#7
  +'akRight'#8'akBottom'#0#7'Caption'#6#14'  Properties  '#12'ClientHeight'#3'&'
@ -38,20 +38,21 @@ LazarusResources.Add('TfClassEdit','FORMDATA',[
  +'utton5'#4'Left'#3#228#0#6'Height'#2#25#3'Top'#3#165#1#5'Width'#2'd'#6'Actio'
  +'n'#7#13'actPropDelete'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#25'BorderSpaci'
  +'ng.InnerBorder'#2#4#8'TabOrder'#2#4#0#0#9'TComboBox'#9'edtParent'#4'Left'#2
-  +'\'#6'Height'#2#21#3'Top'#2';'#5'Width'#3#150#1#16'AutoCompleteText'#11#22'c'
-  +'bactEndOfLineComplete'#20'cbactSearchAscending'#0#10'ItemHeight'#2#13#9'Max'
-  +'Length'#2#0#5'Style'#7#14'csDropDownList'#8'TabOrder'#2#5#0#0#0#0#11'TActio'
-  +'nList'#11'ActionList1'#4'left'#3#232#0#3'top'#3#200#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'#10'actPropAdd'#7'Caption'#6#12
-  +'New Property'#18'DisableIfNoHandler'#9#9'OnExecute'#7#17'actPropAddExecute'
-  +#0#0#7'TAction'#11'actPropEdit'#7'Caption'#6#13'Edit Property'#18'DisableIfN'
-  +'oHandler'#9#9'OnExecute'#7#18'actPropEditExecute'#8'OnUpdate'#7#17'actPropE'
-  +'ditUpdate'#0#0#7'TAction'#13'actPropDelete'#7'Caption'#6#15'Delete Property'
-  +#18'DisableIfNoHandler'#9#9'OnExecute'#7#20'actPropDeleteExecute'#8'OnUpdate'
-  +#7#17'actPropEditUpdate'#0#0#0#10'TPopupMenu'#10'PopupMenu1'#4'left'#2'i'#3
-  +'top'#3#186#0#0#9'TMenuItem'#9'MenuItem1'#6'Action'#7#10'actPropAdd'#7'OnCli'
-  +'ck'#7#17'actPropAddExecute'#0#0#9'TMenuItem'#9'MenuItem2'#6'Action'#7#11'ac'
-  +'tPropEdit'#7'OnClick'#7#18'actPropEditExecute'#0#0#9'TMenuItem'#9'MenuItem3'
-  +#6'Action'#7#13'actPropDelete'#7'OnClick'#7#20'actPropDeleteExecute'#0#0#0#0
+  +'\'#6'Height'#2#21#3'Top'#2':'#5'Width'#3#150#1#7'Anchors'#11#5'akTop'#6'akL'
+  +'eft'#7'akRight'#0#16'AutoCompleteText'#11#22'cbactEndOfLineComplete'#20'cba'
+  +'ctSearchAscending'#0#10'ItemHeight'#2#13#9'MaxLength'#2#0#5'Style'#7#14'csD'
+  +'ropDownList'#8'TabOrder'#2#5#0#0#0#0#11'TActionList'#11'ActionList1'#4'left'
+  +#3#232#0#3'top'#3#200#0#0#7'TAction'#5'actOK'#7'Caption'#6#2'OK'#18'DisableI'
+  +'fNoHandler'#9#9'OnExecute'#7#12'actOKExecute'#8'OnUpdate'#7#11'actOKUpdate'
+  +#0#0#7'TAction'#10'actPropAdd'#7'Caption'#6#12'New Property'#18'DisableIfNoH'
+  +'andler'#9#9'OnExecute'#7#17'actPropAddExecute'#0#0#7'TAction'#11'actPropEdi'
+  +'t'#7'Caption'#6#13'Edit Property'#18'DisableIfNoHandler'#9#9'OnExecute'#7#18
+  +'actPropEditExecute'#8'OnUpdate'#7#17'actPropEditUpdate'#0#0#7'TAction'#13'a'
+  +'ctPropDelete'#7'Caption'#6#15'Delete Property'#18'DisableIfNoHandler'#9#9'O'
+  +'nExecute'#7#20'actPropDeleteExecute'#8'OnUpdate'#7#17'actPropEditUpdate'#0#0
+  +#0#10'TPopupMenu'#10'PopupMenu1'#4'left'#2'i'#3'top'#3#186#0#0#9'TMenuItem'#9
+  +'MenuItem1'#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'actPr'
+  +'opEditExecute'#0#0#9'TMenuItem'#9'MenuItem3'#6'Action'#7#13'actPropDelete'#7
+  +'OnClick'#7#20'actPropDeleteExecute'#0#0#0#0
 ]);
--- a/wst/trunk/type_lib_edtr/uftypealiasedit.lfm
+++ b/wst/trunk/type_lib_edtr/uftypealiasedit.lfm
@ -0,0 +1,102 @@
+object fTypeAliasEdit: TfTypeAliasEdit
+  Left = 693
+  Height = 300
+  Top = 186
+  Width = 400
+  HorzScrollBar.Page = 399
+  VertScrollBar.Page = 299
+  BorderStyle = bsSizeToolWin
+  Caption = 'fTypeAliasEdit'
+  ClientHeight = 300
+  ClientWidth = 400
+  Position = poScreenCenter
+  object Panel1: TPanel
+    Height = 50
+    Top = 250
+    Width = 400
+    Align = alBottom
+    ClientHeight = 50
+    ClientWidth = 400
+    TabOrder = 0
+    object Button1: TButton
+      Left = 232
+      Height = 25
+      Top = 14
+      Width = 75
+      Action = actOK
+      Anchors = [akTop, akRight]
+      BorderSpacing.InnerBorder = 4
+      TabOrder = 0
+    end
+    object Button2: TButton
+      Left = 312
+      Height = 25
+      Top = 14
+      Width = 75
+      Anchors = [akTop, akRight]
+      BorderSpacing.InnerBorder = 4
+      Cancel = True
+      Caption = 'Cancel'
+      TabOrder = 1
+    end
+  end
+  object PageControl1: TPageControl
+    Height = 250
+    Width = 400
+    ActivePage = TabSheet1
+    Align = alClient
+    TabIndex = 0
+    TabOrder = 1
+    object TabSheet1: TTabSheet
+      Caption = 'Type Alias'
+      ClientHeight = 224
+      ClientWidth = 392
+      object Label1: TLabel
+        Left = 20
+        Height = 14
+        Top = 26
+        Width = 28
+        Caption = 'Name'
+        ParentColor = False
+      end
+      object Label2: TLabel
+        Left = 20
+        Height = 14
+        Top = 114
+        Width = 51
+        Caption = 'Base Type'
+        ParentColor = False
+      end
+      object edtName: TEdit
+        Left = 20
+        Height = 23
+        Top = 42
+        Width = 352
+        Anchors = [akTop, akLeft, akRight]
+        TabOrder = 0
+      end
+      object edtBaseType: TComboBox
+        Left = 20
+        Height = 21
+        Top = 130
+        Width = 352
+        Anchors = [akTop, akLeft, akRight]
+        AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
+        ItemHeight = 13
+        MaxLength = 0
+        Style = csDropDownList
+        TabOrder = 1
+      end
+    end
+  end
+  object AL: TActionList
+    left = 147
+    top = 120
+    object actOK: TAction
+      Caption = 'OK'
+      DisableIfNoHandler = True
+      OnExecute = actOKExecute
+      OnUpdate = actOKUpdate
+    end
+  end
+end
--- a/wst/trunk/type_lib_edtr/uftypealiasedit.lrs
+++ b/wst/trunk/type_lib_edtr/uftypealiasedit.lrs
@ -0,0 +1,31 @@
+{ Ceci est un fichier ressource g�n�r� automatiquement par Lazarus }
+
+LazarusResources.Add('TfTypeAliasEdit','FORMDATA',[
+  'TPF0'#15'TfTypeAliasEdit'#14'fTypeAliasEdit'#4'Left'#3#181#2#6'Height'#3','#1
+  +#3'Top'#3#186#0#5'Width'#3#144#1#18'HorzScrollBar.Page'#3#143#1#18'VertScrol'
+  +'lBar.Page'#3'+'#1#11'BorderStyle'#7#13'bsSizeToolWin'#7'Caption'#6#14'fType'
+  +'AliasEdit'#12'ClientHeight'#3','#1#11'ClientWidth'#3#144#1#8'Position'#7#14
+  +'poScreenCenter'#0#6'TPanel'#6'Panel1'#6'Height'#2'2'#3'Top'#3#250#0#5'Width'
+  +#3#144#1#5'Align'#7#8'alBottom'#12'ClientHeight'#2'2'#11'ClientWidth'#3#144#1
+  +#8'TabOrder'#2#0#0#7'TButton'#7'Button1'#4'Left'#3#232#0#6'Height'#2#25#3'To'
+  +'p'#2#14#5'Width'#2'K'#6'Action'#7#5'actOK'#7'Anchors'#11#5'akTop'#7'akRight'
+  +#0#25'BorderSpacing.InnerBorder'#2#4#8'TabOrder'#2#0#0#0#7'TButton'#7'Button'
+  +'2'#4'Left'#3'8'#1#6'Height'#2#25#3'Top'#2#14#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'#8'TabOrder'#2#1#0#0#0#12'TPageControl'#12'PageControl1'#6'Heigh'
+  +'t'#3#250#0#5'Width'#3#144#1#10'ActivePage'#7#9'TabSheet1'#5'Align'#7#8'alCl'
+  +'ient'#8'TabIndex'#2#0#8'TabOrder'#2#1#0#9'TTabSheet'#9'TabSheet1'#7'Caption'
+  +#6#10'Type Alias'#12'ClientHeight'#3#224#0#11'ClientWidth'#3#136#1#0#6'TLabe'
+  +'l'#6'Label1'#4'Left'#2#20#6'Height'#2#14#3'Top'#2#26#5'Width'#2#28#7'Captio'
+  +'n'#6#4'Name'#11'ParentColor'#8#0#0#6'TLabel'#6'Label2'#4'Left'#2#20#6'Heigh'
+  +'t'#2#14#3'Top'#2'r'#5'Width'#2'3'#7'Caption'#6#9'Base Type'#11'ParentColor'
+  +#8#0#0#5'TEdit'#7'edtName'#4'Left'#2#20#6'Height'#2#23#3'Top'#2'*'#5'Width'#3
+  +'`'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'TabOrder'#2#0#0#0#9'TC'
+  +'omboBox'#11'edtBaseType'#4'Left'#2#20#6'Height'#2#21#3'Top'#3#130#0#5'Width'
+  +#3'`'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#16'AutoCompleteText'#11
+  +#22'cbactEndOfLineComplete'#20'cbactSearchAscending'#0#10'ItemHeight'#2#13#9
+  +'MaxLength'#2#0#5'Style'#7#14'csDropDownList'#8'TabOrder'#2#1#0#0#0#0#11'TAc'
+  +'tionList'#2'AL'#4'left'#3#147#0#3'top'#2'x'#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#0#0
+]);
--- a/wst/trunk/type_lib_edtr/uftypealiasedit.pas
+++ b/wst/trunk/type_lib_edtr/uftypealiasedit.pas
@ -0,0 +1,167 @@
+unit uftypealiasedit;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, ExtCtrls,
+  ComCtrls, StdCtrls,
+  pastree, pascal_parser_intf, edit_helper, ActnList;
+
+type
+
+  { TfTypeAliasEdit }
+
+  TfTypeAliasEdit = class(TForm)
+    actOK : TAction;
+    AL : TActionList;
+    Button1 : TButton;
+    Button2 : TButton;
+    edtBaseType : TComboBox;
+    edtName : TEdit;
+    Label1 : TLabel;
+    Label2 : TLabel;
+    PageControl1 : TPageControl;
+    Panel1 : TPanel;
+    TabSheet1 : TTabSheet;
+    procedure actOKExecute(Sender : TObject);
+    procedure actOKUpdate(Sender : TObject);
+  private
+    FUpdateType : TEditType;
+    FObject : TPasAliasType;
+    FSymbolTable : TwstPasTreeContainer;
+    FOldBaseType : TPasType;
+  private
+    property UpdateType : TEditType read FUpdateType;
+  private
+    procedure PrepareParentCombo();
+    procedure LoadFromObject();
+    procedure SaveToObject();
+  public
+    function UpdateObject(
+      var   AObject     : TPasAliasType;
+      const AUpdateType : TEditType;
+            ASymbolTable : TwstPasTreeContainer
+    ):Boolean;
+
+  end; 
+
+var
+  fTypeAliasEdit : TfTypeAliasEdit;
+
+implementation
+uses parserutils;
+
+{ TfTypeAliasEdit }
+
+procedure TfTypeAliasEdit.actOKUpdate(Sender : TObject);
+begin
+  TAction(actOK).Enabled := ( not IsStrEmpty(edtName.Text) ) and ( edtBaseType.ItemIndex >= 0 );
+end;
+
+procedure TfTypeAliasEdit.actOKExecute(Sender : TObject);
+begin
+  ModalResult := mrOK;
+end;
+
+procedure TfTypeAliasEdit.PrepareParentCombo();
+begin
+  edtBaseType.Items.BeginUpdate();
+  try
+    edtBaseType.Items.Clear();
+    FillTypeList(edtBaseType.Items,FSymbolTable);
+  finally
+    edtBaseType.Items.EndUpdate();
+  end;
+end;
+
+procedure TfTypeAliasEdit.LoadFromObject();
+var
+  extName : string;
+begin
+  edtName.Text := '';
+  if Assigned(FObject) then begin
+    extName := FSymbolTable.GetExternalName(FObject);
+    Self.Caption := extName;
+    edtName.Text := extName;
+    if Assigned(FObject.DestType) then begin
+      edtBaseType.ItemIndex := edtBaseType.Items.IndexOfObject(FObject.DestType);
+    end;
+  end else begin
+    Self.Caption := 'New';
+  end;
+end;
+
+procedure TfTypeAliasEdit.SaveToObject();
+var
+  typExtName, typIntName : string;
+  locObj : TPasAliasType;
+  baseType : TPasType;
+begin
+  locObj := nil;
+  typExtName := ExtractIdentifier(edtName.Text);
+  typIntName := MakeInternalSymbolNameFrom(typExtName);
+
+  if ( FObject = nil ) then begin
+    FObject := TPasAliasType(FSymbolTable.CreateElement(TPasAliasType,typIntName,FSymbolTable.CurrentModule.InterfaceSection,visDefault,'',0));
+    FSymbolTable.CurrentModule.InterfaceSection.Declarations.Add(FObject);
+    FSymbolTable.CurrentModule.InterfaceSection.Types.Add(FObject);
+    FSymbolTable.CurrentModule.InterfaceSection.Classes.Add(FObject);
+  end;
+
+  locObj := FObject;
+  locObj.Name := typIntName;
+  FSymbolTable.RegisterExternalAlias(locObj,typExtName);
+  baseType := edtBaseType.Items.Objects[edtBaseType.ItemIndex] as TPasType;
+  if ( baseType <> FOldBaseType ) then begin
+    if ( FOldBaseType <> nil ) then
+      FOldBaseType.Release();
+    locObj.DestType := baseType;
+    locObj.DestType.AddRef();
+  end;
+end;
+
+function TfTypeAliasEdit.UpdateObject(
+  var   AObject : TPasAliasType;
+  const AUpdateType : TEditType;
+        ASymbolTable : TwstPasTreeContainer
+) : Boolean;
+begin
+  Assert(Assigned(ASymbolTable));
+  FSymbolTable := ASymbolTable;
+  FUpdateType := AUpdateType;
+  FObject := AObject;
+  if ( FObject <> nil ) then
+    FOldBaseType := FObject.DestType;
+  try
+    PrepareParentCombo();
+    LoadFromObject();
+    Result := ( ShowModal() = mrOK );
+    if Result then begin
+      try
+        SaveToObject();
+        if ( AUpdateType = etCreate ) then begin
+          AObject := FObject;
+        end;
+      except
+        Result := False;
+        raise;
+      end;
+    end;
+  finally
+    if ( not Result ) and ( UpdateType = etCreate ) and ( AObject = nil ) then begin
+      FSymbolTable.CurrentModule.InterfaceSection.Declarations.Extract(FObject);
+      FSymbolTable.CurrentModule.InterfaceSection.Types.Extract(FObject);
+      FSymbolTable.CurrentModule.InterfaceSection.Classes.Extract(FObject);
+      FObject.Release();
+      FObject := nil;
+    end;
+  end;
+end;
+
+initialization
+  {$I uftypealiasedit.lrs}
+
+end.
+
--- a/wst/trunk/type_lib_edtr/uinterfaceedit.lrs
+++ b/wst/trunk/type_lib_edtr/uinterfaceedit.lrs
@ -1,3 +1,5 @@
+{ Ceci est un fichier ressource g�n�r� automatiquement par Lazarus }
+
 LazarusResources.Add('TfInterfaceEdit','FORMDATA',[
  'TPF0'#15'TfInterfaceEdit'#14'fInterfaceEdit'#4'Left'#3'T'#1#6'Height'#3'4'#2
  +#3'Top'#2'z'#5'Width'#3#19#2#18'HorzScrollBar.Page'#3#18#2#18'VertScrollBar.'
--- a/wst/trunk/type_lib_edtr/uinterfaceedit.pas
+++ b/wst/trunk/type_lib_edtr/uinterfaceedit.pas
@ -243,7 +243,7 @@ begin
  FSymbolTable.RegisterExternalAlias(FObject,typExtName);
  b := FSymbolTable.FindBinding(FObject,0);
  if ( b = nil ) then begin
-    FSymbolTable.AddBinding(Format('%sBinding',[typExtName]),FObject);
+    FSymbolTable.AddBinding(Format('%sBinding',[typExtName]),FObject).BindingStyle := bsRPC;
  end else begin
    b.Name := Format('%sBinding',[typExtName]);
  end
@ -258,6 +258,7 @@ var
  intName : string;
  i : Integer;
  b : TwstBinding;
+  g : TGuid;
 begin
  Assert(Assigned(ASymbolTable));
  FSymbolTable := ASymbolTable;
@ -272,9 +273,11 @@ begin
    end;
    FObject := TPasClassType(FSymbolTable.CreateElement(TPasClassType,intName,FSymbolTable.CurrentModule.InterfaceSection,visDefault,'',0));
    FObject.ObjKind := okInterface;
+    if ( CreateGUID(g) = 0 ) then
+      FObject.InterfaceGUID := GUIDToString(g);
    FSymbolTable.CurrentModule.InterfaceSection.Declarations.Add(FObject);
    FSymbolTable.CurrentModule.InterfaceSection.Types.Add(FObject);
-    FSymbolTable.AddBinding(Format('%sBinding',[FObject.Name]),FObject);
+    FSymbolTable.AddBinding(Format('%sBinding',[FObject.Name]),FObject).BindingStyle := bsRPC;
  end;
  try
    LoadFromObject();
--- a/wst/trunk/type_lib_edtr/uwsttypelibraryedit.lfm
+++ b/wst/trunk/type_lib_edtr/uwsttypelibraryedit.lfm
@ -19,7 +19,7 @@ object fWstTypeLibraryEdit: TfWstTypeLibraryEdit
    Width = 833
    Panels = <    
      item
-        Width = 200
+        Width = 300
      end    
      item
        Width = 50
@ -78,11 +78,9 @@ object fWstTypeLibraryEdit: TfWstTypeLibraryEdit
          PopupMenu = PopupMenu2
          TabOrder = 0
          BookMarkOptions.Xoffset = 81
-          BookMarkOptions.OnChange = nil
          Gutter.DigitCount = 5
          Gutter.ShowLineNumbers = True
          Gutter.ShowCodeFolding = True
-          Gutter.OnChange = nil
          Gutter.CodeFoldingWidth = 14
          Highlighter = SynPasSyn1
          Keystrokes = <          
@ -407,7 +405,6 @@ object fWstTypeLibraryEdit: TfWstTypeLibraryEdit
              ShortCut = 24642
            end>
          ReadOnly = True
-          SelectedColor.OnChange = nil
        end
      end
      object tsWSDL: TTabSheet
@ -427,9 +424,7 @@ object fWstTypeLibraryEdit: TfWstTypeLibraryEdit
          PopupMenu = PopupMenu2
          TabOrder = 0
          BookMarkOptions.Xoffset = 54
-          BookMarkOptions.OnChange = nil
          Gutter.ShowLineNumbers = True
-          Gutter.OnChange = nil
          Gutter.CodeFoldingWidth = 14
          Highlighter = SynXMLSyn1
          Keystrokes = <          
@ -754,7 +749,6 @@ object fWstTypeLibraryEdit: TfWstTypeLibraryEdit
              ShortCut = 24642
            end>
          ReadOnly = True
-          SelectedColor.OnChange = nil
        end
      end
      object tsProxy: TTabSheet
@ -774,9 +768,11 @@ object fWstTypeLibraryEdit: TfWstTypeLibraryEdit
          PopupMenu = PopupMenu2
          TabOrder = 0
          BookMarkOptions.Xoffset = 81
+          BookMarkOptions.OnChange = nil
          Gutter.DigitCount = 5
          Gutter.ShowLineNumbers = True
          Gutter.ShowCodeFolding = True
+          Gutter.OnChange = nil
          Gutter.CodeFoldingWidth = 14
          Highlighter = SynPasSyn1
          Keystrokes = <          
@ -1101,6 +1097,7 @@ object fWstTypeLibraryEdit: TfWstTypeLibraryEdit
              ShortCut = 24642
            end>
          ReadOnly = True
+          SelectedColor.OnChange = nil
        end
      end
      object tsImp: TTabSheet
@ -1120,9 +1117,11 @@ object fWstTypeLibraryEdit: TfWstTypeLibraryEdit
          PopupMenu = PopupMenu2
          TabOrder = 0
          BookMarkOptions.Xoffset = 81
+          BookMarkOptions.OnChange = nil
          Gutter.DigitCount = 5
          Gutter.ShowLineNumbers = True
          Gutter.ShowCodeFolding = True
+          Gutter.OnChange = nil
          Gutter.CodeFoldingWidth = 14
          Highlighter = SynPasSyn1
          Keystrokes = <          
@ -1447,6 +1446,7 @@ object fWstTypeLibraryEdit: TfWstTypeLibraryEdit
              ShortCut = 24642
            end>
          ReadOnly = True
+          SelectedColor.OnChange = nil
        end
      end
      object tsBinder: TTabSheet
@ -1466,10 +1466,12 @@ object fWstTypeLibraryEdit: TfWstTypeLibraryEdit
          PopupMenu = PopupMenu2
          TabOrder = 0
          BookMarkOptions.Xoffset = 81
+          BookMarkOptions.OnChange = nil
          Gutter.AutoSize = True
          Gutter.DigitCount = 5
          Gutter.ShowLineNumbers = True
          Gutter.ShowCodeFolding = True
+          Gutter.OnChange = nil
          Gutter.CodeFoldingWidth = 14
          Highlighter = SynPasSyn1
          Keystrokes = <          
@ -1794,6 +1796,7 @@ object fWstTypeLibraryEdit: TfWstTypeLibraryEdit
              ShortCut = 24642
            end>
          ReadOnly = True
+          SelectedColor.OnChange = nil
        end
      end
      object tsLog: TTabSheet
@ -1892,6 +1895,10 @@ object fWstTypeLibraryEdit: TfWstTypeLibraryEdit
        Action = actArrayCreate
        OnClick = actArrayCreateExecute
      end
+      object MenuItem36: TMenuItem
+        Action = actTypeALiasCreate
+        OnClick = actTypeALiasCreateExecute
+      end
      object MenuItem12: TMenuItem
        Caption = '-'
      end
@ -1998,6 +2005,11 @@ object fWstTypeLibraryEdit: TfWstTypeLibraryEdit
      DisableIfNoHandler = True
      OnExecute = actArrayCreateExecute
    end
+    object actTypeALiasCreate: TAction
+      Caption = 'Create Type ALias'
+      DisableIfNoHandler = True
+      OnExecute = actTypeALiasCreateExecute
+    end
  end
  object OD: TOpenDialog
    Title = 'Ouvrir un fichier existant'
@ -2030,8 +2042,8 @@ object fWstTypeLibraryEdit: TfWstTypeLibraryEdit
    top = 176
  end
  object PopupMenu1: TPopupMenu
-    left = 384
-    top = 264
+    left = 152
+    top = 152
    object MenuItem28: TMenuItem
      Action = actFullExpand
      OnClick = actFullExpandExecute
@ -2040,6 +2052,10 @@ object fWstTypeLibraryEdit: TfWstTypeLibraryEdit
      Action = actFullCollapse
      OnClick = actFullCollapseExecute
    end
+    object MenuItem39: TMenuItem
+      Action = actRefreshView
+      OnClick = actRefreshViewExecute
+    end
    object MenuItem26: TMenuItem
      Caption = '-'
    end
@ -2055,6 +2071,14 @@ object fWstTypeLibraryEdit: TfWstTypeLibraryEdit
      Action = actIntfCreate
      OnClick = actIntfCreateExecute
    end
+    object MenuItem37: TMenuItem
+      Action = actArrayCreate
+      OnClick = actArrayCreateExecute
+    end
+    object MenuItem38: TMenuItem
+      Action = actTypeALiasCreate
+      OnClick = actTypeALiasCreateExecute
+    end
    object MenuItem22: TMenuItem
      Caption = '-'
    end
@ -2081,6 +2105,29 @@ object fWstTypeLibraryEdit: TfWstTypeLibraryEdit
      Action = actExport
      OnClick = actExportExecute
    end
+    object MenuItem40: TMenuItem
+      Caption = '-'
+    end
+    object MenuItem41: TMenuItem
+      Action = actArrayCreate
+      OnClick = actArrayCreateExecute
+    end
+    object MenuItem45: TMenuItem
+      Action = actCompoundCreate
+      OnClick = actCompoundCreateExecute
+    end
+    object MenuItem44: TMenuItem
+      Action = actEnumCreate
+      OnClick = actEnumCreateExecute
+    end
+    object MenuItem43: TMenuItem
+      Action = actIntfCreate
+      OnClick = actIntfCreateExecute
+    end
+    object MenuItem42: TMenuItem
+      Action = actTypeALiasCreate
+      OnClick = actTypeALiasCreateExecute
+    end
  end
  object SynXMLSyn1: TSynXMLSyn
    DefaultFilter = 'Documents WSDL (*.wsdl)|*.wsdl'
--- a/wst/trunk/type_lib_edtr/uwsttypelibraryedit.lrs
+++ b/wst/trunk/type_lib_edtr/uwsttypelibraryedit.lrs
@ -7,7 +7,7 @@ LazarusResources.Add('TfWstTypeLibraryEdit','FORMDATA',[
  +'Web Services Toolkit ] Type Library Editor'#12'ClientHeight'#3'p'#2#11'Clie'
  +'ntWidth'#3'A'#3#4'Menu'#7#9'MainMenu1'#7'OnClose'#7#9'FormClose'#6'OnShow'#7
  +#8'FormShow'#8'Position'#7#15'poDesktopCenter'#0#10'TStatusBar'#2'SB'#6'Heig'
-  +'ht'#2#23#3'Top'#3'Y'#2#5'Width'#3'A'#3#6'Panels'#14#1#5'Width'#3#200#0#0#1#5
+  +'ht'#2#23#3'Top'#3'Y'#2#5'Width'#3'A'#3#6'Panels'#14#1#5'Width'#3','#1#0#1#5
  +'Width'#2'2'#0#0#11'SimplePanel'#8#0#0#6'TPanel'#6'Panel1'#6'Height'#3'Y'#2#5
  +'Width'#3':'#1#5'Align'#7#6'alLeft'#12'ClientHeight'#3'Y'#2#11'ClientWidth'#3
  +':'#1#8'TabOrder'#2#0#0#9'TTreeView'#9'trvSchema'#4'Left'#2#1#6'Height'#3'W'
@ -22,63 +22,61 @@ LazarusResources.Add('TfWstTypeLibraryEdit','FORMDATA',[
  +'='#2#5'Width'#3#245#1#5'Align'#7#8'alClient'#12'Font.CharSet'#7#12'ANSI_CHA'
  +'RSET'#10'Font.Color'#7#7'clBlack'#11'Font.Height'#2#236#9'Font.Name'#6#7'Co'
  +'urier'#10'Font.Pitch'#7#7'fpFixed'#11'ParentColor'#8#9'PopupMenu'#7#10'Popu'
-  +'pMenu2'#8'TabOrder'#2#0#23'BookMarkOptions.Xoffset'#2'Q'#24'BookMarkOptions'
-  +'.OnChange'#13#17'Gutter.DigitCount'#2#5#22'Gutter.ShowLineNumbers'#9#22'Gut'
-  +'ter.ShowCodeFolding'#9#15'Gutter.OnChange'#13#23'Gutter.CodeFoldingWidth'#2
-  +#14#11'Highlighter'#7#10'SynPasSyn1'#10'Keystrokes'#14#1#7'Command'#2#3#8'Sh'
-  +'ortCut'#2'&'#0#1#7'Command'#2'g'#8'ShortCut'#3'& '#0#1#7'Command'#3#211#0#8
-  +'ShortCut'#3'&@'#0#1#7'Command'#2#4#8'ShortCut'#2'('#0#1#7'Command'#2'h'#8'S'
-  +'hortCut'#3'( '#0#1#7'Command'#3#212#0#8'ShortCut'#3'(@'#0#1#7'Command'#2#1#8
-  +'ShortCut'#2'%'#0#1#7'Command'#2'e'#8'ShortCut'#3'% '#0#1#7'Command'#2#5#8'S'
-  +'hortCut'#3'%@'#0#1#7'Command'#2'i'#8'ShortCut'#3'%`'#0#1#7'Command'#2#2#8'S'
-  +'hortCut'#2''''#0#1#7'Command'#2'f'#8'ShortCut'#3''' '#0#1#7'Command'#2#6#8
-  +'ShortCut'#3'''@'#0#1#7'Command'#2'j'#8'ShortCut'#3'''`'#0#1#7'Command'#2#10
-  +#8'ShortCut'#2'"'#0#1#7'Command'#2'n'#8'ShortCut'#3'" '#0#1#7'Command'#2#14#8
-  +'ShortCut'#3'"@'#0#1#7'Command'#2'r'#8'ShortCut'#3'"`'#0#1#7'Command'#2#9#8
-  +'ShortCut'#2'!'#0#1#7'Command'#2'm'#8'ShortCut'#3'! '#0#1#7'Command'#2#13#8
-  +'ShortCut'#3'!@'#0#1#7'Command'#2'q'#8'ShortCut'#3'!`'#0#1#7'Command'#2#7#8
-  +'ShortCut'#2'$'#0#1#7'Command'#2'k'#8'ShortCut'#3'$ '#0#1#7'Command'#2#15#8
-  +'ShortCut'#3'$@'#0#1#7'Command'#2's'#8'ShortCut'#3'$`'#0#1#7'Command'#2#8#8
-  +'ShortCut'#2'#'#0#1#7'Command'#2'l'#8'ShortCut'#3'# '#0#1#7'Command'#2#16#8
-  +'ShortCut'#3'#@'#0#1#7'Command'#2't'#8'ShortCut'#3'#`'#0#1#7'Command'#3#223#0
-  +#8'ShortCut'#2'-'#0#1#7'Command'#3#201#0#8'ShortCut'#3'-@'#0#1#7'Command'#3
-  +'\'#2#8'ShortCut'#3'- '#0#1#7'Command'#3#246#1#8'ShortCut'#2'.'#0#1#7'Comman'
-  +'d'#3'['#2#8'ShortCut'#3'. '#0#1#7'Command'#3#245#1#8'ShortCut'#2#8#0#1#7'Co'
-  +'mmand'#3#245#1#8'ShortCut'#3#8' '#0#1#7'Command'#3#248#1#8'ShortCut'#3#8'@'
-  +#0#1#7'Command'#3'Y'#2#8'ShortCut'#4#8#128#0#0#0#1#7'Command'#3'Z'#2#8'Short'
-  +'Cut'#4#8#160#0#0#0#1#7'Command'#3#253#1#8'ShortCut'#2#13#0#1#7'Command'#3
-  +#199#0#8'ShortCut'#3'A@'#0#1#7'Command'#3#201#0#8'ShortCut'#3'C@'#0#1#7'Comm'
-  +'and'#3'b'#2#8'ShortCut'#3'I`'#0#1#7'Command'#3#253#1#8'ShortCut'#3'M@'#0#1#7
-  +'Command'#3#254#1#8'ShortCut'#3'N@'#0#1#7'Command'#3#247#1#8'ShortCut'#3'T@'
-  +#0#1#7'Command'#3'c'#2#8'ShortCut'#3'U`'#0#1#7'Command'#3'\'#2#8'ShortCut'#3
-  +'V@'#0#1#7'Command'#3'['#2#8'ShortCut'#3'X@'#0#1#7'Command'#3#251#1#8'ShortC'
-  +'ut'#3'Y@'#0#1#7'Command'#3#250#1#8'ShortCut'#3'Y`'#0#1#7'Command'#3'Y'#2#8
-  +'ShortCut'#3'Z@'#0#1#7'Command'#3'Z'#2#8'ShortCut'#3'Z`'#0#1#7'Command'#3'-'
-  +#1#8'ShortCut'#3'0@'#0#1#7'Command'#3'.'#1#8'ShortCut'#3'1@'#0#1#7'Command'#3
-  +'/'#1#8'ShortCut'#3'2@'#0#1#7'Command'#3'0'#1#8'ShortCut'#3'3@'#0#1#7'Comman'
-  +'d'#3'1'#1#8'ShortCut'#3'4@'#0#1#7'Command'#3'2'#1#8'ShortCut'#3'5@'#0#1#7'C'
-  +'ommand'#3'3'#1#8'ShortCut'#3'6@'#0#1#7'Command'#3'4'#1#8'ShortCut'#3'7@'#0#1
-  +#7'Command'#3'5'#1#8'ShortCut'#3'8@'#0#1#7'Command'#3'6'#1#8'ShortCut'#3'9@'
-  +#0#1#7'Command'#3'_'#1#8'ShortCut'#3'0`'#0#1#7'Command'#3'`'#1#8'ShortCut'#3
-  +'1`'#0#1#7'Command'#3'a'#1#8'ShortCut'#3'2`'#0#1#7'Command'#3'b'#1#8'ShortCu'
-  +'t'#3'3`'#0#1#7'Command'#3'c'#1#8'ShortCut'#3'4`'#0#1#7'Command'#3'd'#1#8'Sh'
-  +'ortCut'#3'5`'#0#1#7'Command'#3'e'#1#8'ShortCut'#3'6`'#0#1#7'Command'#3'f'#1
-  +#8'ShortCut'#3'7`'#0#1#7'Command'#3'g'#1#8'ShortCut'#3'8`'#0#1#7'Command'#3
-  +'h'#1#8'ShortCut'#3'9`'#0#1#7'Command'#3#231#0#8'ShortCut'#3'N`'#0#1#7'Comma'
-  ,'nd'#3#232#0#8'ShortCut'#3'C`'#0#1#7'Command'#3#233#0#8'ShortCut'#3'L`'#0#1#7
-  +'Command'#3'd'#2#8'ShortCut'#2#9#0#1#7'Command'#3'e'#2#8'ShortCut'#3#9' '#0#1
-  +#7'Command'#3#250#0#8'ShortCut'#3'B`'#0#0#8'ReadOnly'#9#22'SelectedColor.OnC'
-  +'hange'#13#0#0#0#9'TTabSheet'#6'tsWSDL'#7'Caption'#6#5'&WSDL'#12'ClientHeigh'
-  +'t'#3'='#2#11'ClientWidth'#3#245#1#0#8'TSynEdit'#7'srcWSDL'#6'Height'#3'='#2
-  +#5'Width'#3#245#1#5'Align'#7#8'alClient'#12'Font.CharSet'#7#12'ANSI_CHARSET'
-  +#10'Font.Color'#7#7'clBlack'#11'Font.Height'#2#233#9'Font.Name'#6#7'Courier'
-  +#10'Font.Pitch'#7#7'fpFixed'#11'ParentColor'#8#9'PopupMenu'#7#10'PopupMenu2'
-  +#8'TabOrder'#2#0#23'BookMarkOptions.Xoffset'#2'6'#24'BookMarkOptions.OnChang'
-  +'e'#13#22'Gutter.ShowLineNumbers'#9#15'Gutter.OnChange'#13#23'Gutter.CodeFol'
-  +'dingWidth'#2#14#11'Highlighter'#7#10'SynXMLSyn1'#10'Keystrokes'#14#1#7'Comm'
-  +'and'#2#3#8'ShortCut'#2'&'#0#1#7'Command'#2'g'#8'ShortCut'#3'& '#0#1#7'Comma'
-  +'nd'#3#211#0#8'ShortCut'#3'&@'#0#1#7'Command'#2#4#8'ShortCut'#2'('#0#1#7'Com'
-  +'mand'#2'h'#8'ShortCut'#3'( '#0#1#7'Command'#3#212#0#8'ShortCut'#3'(@'#0#1#7
+  +'pMenu2'#8'TabOrder'#2#0#23'BookMarkOptions.Xoffset'#2'Q'#17'Gutter.DigitCou'
+  +'nt'#2#5#22'Gutter.ShowLineNumbers'#9#22'Gutter.ShowCodeFolding'#9#23'Gutter'
+  +'.CodeFoldingWidth'#2#14#11'Highlighter'#7#10'SynPasSyn1'#10'Keystrokes'#14#1
+  +#7'Command'#2#3#8'ShortCut'#2'&'#0#1#7'Command'#2'g'#8'ShortCut'#3'& '#0#1#7
+  +'Command'#3#211#0#8'ShortCut'#3'&@'#0#1#7'Command'#2#4#8'ShortCut'#2'('#0#1#7
+  +'Command'#2'h'#8'ShortCut'#3'( '#0#1#7'Command'#3#212#0#8'ShortCut'#3'(@'#0#1
+  +#7'Command'#2#1#8'ShortCut'#2'%'#0#1#7'Command'#2'e'#8'ShortCut'#3'% '#0#1#7
+  +'Command'#2#5#8'ShortCut'#3'%@'#0#1#7'Command'#2'i'#8'ShortCut'#3'%`'#0#1#7
+  +'Command'#2#2#8'ShortCut'#2''''#0#1#7'Command'#2'f'#8'ShortCut'#3''' '#0#1#7
+  +'Command'#2#6#8'ShortCut'#3'''@'#0#1#7'Command'#2'j'#8'ShortCut'#3'''`'#0#1#7
+  +'Command'#2#10#8'ShortCut'#2'"'#0#1#7'Command'#2'n'#8'ShortCut'#3'" '#0#1#7
+  +'Command'#2#14#8'ShortCut'#3'"@'#0#1#7'Command'#2'r'#8'ShortCut'#3'"`'#0#1#7
+  +'Command'#2#9#8'ShortCut'#2'!'#0#1#7'Command'#2'm'#8'ShortCut'#3'! '#0#1#7'C'
+  +'ommand'#2#13#8'ShortCut'#3'!@'#0#1#7'Command'#2'q'#8'ShortCut'#3'!`'#0#1#7
+  +'Command'#2#7#8'ShortCut'#2'$'#0#1#7'Command'#2'k'#8'ShortCut'#3'$ '#0#1#7'C'
+  +'ommand'#2#15#8'ShortCut'#3'$@'#0#1#7'Command'#2's'#8'ShortCut'#3'$`'#0#1#7
+  +'Command'#2#8#8'ShortCut'#2'#'#0#1#7'Command'#2'l'#8'ShortCut'#3'# '#0#1#7'C'
+  +'ommand'#2#16#8'ShortCut'#3'#@'#0#1#7'Command'#2't'#8'ShortCut'#3'#`'#0#1#7
+  +'Command'#3#223#0#8'ShortCut'#2'-'#0#1#7'Command'#3#201#0#8'ShortCut'#3'-@'#0
+  +#1#7'Command'#3'\'#2#8'ShortCut'#3'- '#0#1#7'Command'#3#246#1#8'ShortCut'#2
+  +'.'#0#1#7'Command'#3'['#2#8'ShortCut'#3'. '#0#1#7'Command'#3#245#1#8'ShortCu'
+  +'t'#2#8#0#1#7'Command'#3#245#1#8'ShortCut'#3#8' '#0#1#7'Command'#3#248#1#8'S'
+  +'hortCut'#3#8'@'#0#1#7'Command'#3'Y'#2#8'ShortCut'#4#8#128#0#0#0#1#7'Command'
+  +#3'Z'#2#8'ShortCut'#4#8#160#0#0#0#1#7'Command'#3#253#1#8'ShortCut'#2#13#0#1#7
+  +'Command'#3#199#0#8'ShortCut'#3'A@'#0#1#7'Command'#3#201#0#8'ShortCut'#3'C@'
+  +#0#1#7'Command'#3'b'#2#8'ShortCut'#3'I`'#0#1#7'Command'#3#253#1#8'ShortCut'#3
+  +'M@'#0#1#7'Command'#3#254#1#8'ShortCut'#3'N@'#0#1#7'Command'#3#247#1#8'Short'
+  +'Cut'#3'T@'#0#1#7'Command'#3'c'#2#8'ShortCut'#3'U`'#0#1#7'Command'#3'\'#2#8
+  +'ShortCut'#3'V@'#0#1#7'Command'#3'['#2#8'ShortCut'#3'X@'#0#1#7'Command'#3#251
+  +#1#8'ShortCut'#3'Y@'#0#1#7'Command'#3#250#1#8'ShortCut'#3'Y`'#0#1#7'Command'
+  +#3'Y'#2#8'ShortCut'#3'Z@'#0#1#7'Command'#3'Z'#2#8'ShortCut'#3'Z`'#0#1#7'Comm'
+  +'and'#3'-'#1#8'ShortCut'#3'0@'#0#1#7'Command'#3'.'#1#8'ShortCut'#3'1@'#0#1#7
+  +'Command'#3'/'#1#8'ShortCut'#3'2@'#0#1#7'Command'#3'0'#1#8'ShortCut'#3'3@'#0
+  +#1#7'Command'#3'1'#1#8'ShortCut'#3'4@'#0#1#7'Command'#3'2'#1#8'ShortCut'#3'5'
+  +'@'#0#1#7'Command'#3'3'#1#8'ShortCut'#3'6@'#0#1#7'Command'#3'4'#1#8'ShortCut'
+  +#3'7@'#0#1#7'Command'#3'5'#1#8'ShortCut'#3'8@'#0#1#7'Command'#3'6'#1#8'Short'
+  +'Cut'#3'9@'#0#1#7'Command'#3'_'#1#8'ShortCut'#3'0`'#0#1#7'Command'#3'`'#1#8
+  +'ShortCut'#3'1`'#0#1#7'Command'#3'a'#1#8'ShortCut'#3'2`'#0#1#7'Command'#3'b'
+  +#1#8'ShortCut'#3'3`'#0#1#7'Command'#3'c'#1#8'ShortCut'#3'4`'#0#1#7'Command'#3
+  +'d'#1#8'ShortCut'#3'5`'#0#1#7'Command'#3'e'#1#8'ShortCut'#3'6`'#0#1#7'Comman'
+  +'d'#3'f'#1#8'ShortCut'#3'7`'#0#1#7'Command'#3'g'#1#8'ShortCut'#3'8`'#0#1#7'C'
+  +'ommand'#3'h'#1#8'ShortCut'#3'9`'#0#1#7'Command'#3#231#0#8'ShortCut'#3'N`'#0
+  +#1#7'Command'#3#232#0#8'ShortCut'#3'C`'#0#1#7'Command'#3#233#0#8'ShortCut'#3
+  ,'L`'#0#1#7'Command'#3'd'#2#8'ShortCut'#2#9#0#1#7'Command'#3'e'#2#8'ShortCut'
+  +#3#9' '#0#1#7'Command'#3#250#0#8'ShortCut'#3'B`'#0#0#8'ReadOnly'#9#0#0#0#9'T'
+  +'TabSheet'#6'tsWSDL'#7'Caption'#6#5'&WSDL'#12'ClientHeight'#3'='#2#11'Client'
+  +'Width'#3#245#1#0#8'TSynEdit'#7'srcWSDL'#6'Height'#3'='#2#5'Width'#3#245#1#5
+  +'Align'#7#8'alClient'#12'Font.CharSet'#7#12'ANSI_CHARSET'#10'Font.Color'#7#7
+  +'clBlack'#11'Font.Height'#2#233#9'Font.Name'#6#7'Courier'#10'Font.Pitch'#7#7
+  +'fpFixed'#11'ParentColor'#8#9'PopupMenu'#7#10'PopupMenu2'#8'TabOrder'#2#0#23
+  +'BookMarkOptions.Xoffset'#2'6'#22'Gutter.ShowLineNumbers'#9#23'Gutter.CodeFo'
+  +'ldingWidth'#2#14#11'Highlighter'#7#10'SynXMLSyn1'#10'Keystrokes'#14#1#7'Com'
+  +'mand'#2#3#8'ShortCut'#2'&'#0#1#7'Command'#2'g'#8'ShortCut'#3'& '#0#1#7'Comm'
+  +'and'#3#211#0#8'ShortCut'#3'&@'#0#1#7'Command'#2#4#8'ShortCut'#2'('#0#1#7'Co'
+  +'mmand'#2'h'#8'ShortCut'#3'( '#0#1#7'Command'#3#212#0#8'ShortCut'#3'(@'#0#1#7
  +'Command'#2#1#8'ShortCut'#2'%'#0#1#7'Command'#2'e'#8'ShortCut'#3'% '#0#1#7'C'
  +'ommand'#2#5#8'ShortCut'#3'%@'#0#1#7'Command'#2'i'#8'ShortCut'#3'%`'#0#1#7'C'
  +'ommand'#2#2#8'ShortCut'#2''''#0#1#7'Command'#2'f'#8'ShortCut'#3''' '#0#1#7
@ -117,23 +115,126 @@ LazarusResources.Add('TfWstTypeLibraryEdit','FORMDATA',[
  +'ommand'#3'h'#1#8'ShortCut'#3'9`'#0#1#7'Command'#3#231#0#8'ShortCut'#3'N`'#0
  +#1#7'Command'#3#232#0#8'ShortCut'#3'C`'#0#1#7'Command'#3#233#0#8'ShortCut'#3
  +'L`'#0#1#7'Command'#3'd'#2#8'ShortCut'#2#9#0#1#7'Command'#3'e'#2#8'ShortCut'
-  +#3#9' '#0#1#7'Command'#3#250#0#8'ShortCut'#3'B`'#0#0#8'ReadOnly'#9#22'Select'
-  +'edColor.OnChange'#13#0#0#0#9'TTabSheet'#7'tsProxy'#7'Caption'#6#6'&Proxy'#12
-  +'ClientHeight'#3'='#2#11'ClientWidth'#3#245#1#0#8'TSynEdit'#8'srcProxy'#6'He'
-  +'ight'#3'='#2#5'Width'#3#245#1#5'Align'#7#8'alClient'#12'Font.CharSet'#7#12
-  +'ANSI_CHARSET'#10'Font.Color'#7#7'clBlack'#11'Font.Height'#2#236#9'Font.Name'
-  +#6#7'Courier'#10'Font.Pitch'#7#7'fpFixed'#11'ParentColor'#8#9'PopupMenu'#7#10
-  +'PopupMenu2'#8'TabOrder'#2#0#23'BookMarkOptions.Xoffset'#2'Q'#17'Gutter.Digi'
-  +'tCount'#2#5#22'Gutter.ShowLineNumbers'#9#22'Gutter.ShowCodeFolding'#9#23'Gu'
-  +'tter.CodeFoldingWidth'#2#14#11'Highlighter'#7#10'SynPasSyn1'#10'Keystrokes'
-  +#14#1#7'Command'#2#3#8'ShortCut'#2'&'#0#1#7'Command'#2'g'#8'ShortCut'#3'& '#0
-  +#1#7'Command'#3#211#0#8'ShortCut'#3'&@'#0#1#7'Command'#2#4#8'ShortCut'#2'('#0
-  +#1#7'Command'#2'h'#8'ShortCut'#3'( '#0#1#7'Command'#3#212#0#8'ShortCut'#3'(@'
-  ,#0#1#7'Command'#2#1#8'ShortCut'#2'%'#0#1#7'Command'#2'e'#8'ShortCut'#3'% '#0
-  +#1#7'Command'#2#5#8'ShortCut'#3'%@'#0#1#7'Command'#2'i'#8'ShortCut'#3'%`'#0#1
-  +#7'Command'#2#2#8'ShortCut'#2''''#0#1#7'Command'#2'f'#8'ShortCut'#3''' '#0#1
-  +#7'Command'#2#6#8'ShortCut'#3'''@'#0#1#7'Command'#2'j'#8'ShortCut'#3'''`'#0#1
-  +#7'Command'#2#10#8'ShortCut'#2'"'#0#1#7'Command'#2'n'#8'ShortCut'#3'" '#0#1#7
+  +#3#9' '#0#1#7'Command'#3#250#0#8'ShortCut'#3'B`'#0#0#8'ReadOnly'#9#0#0#0#9'T'
+  +'TabSheet'#7'tsProxy'#7'Caption'#6#6'&Proxy'#12'ClientHeight'#3'='#2#11'Clie'
+  +'ntWidth'#3#245#1#0#8'TSynEdit'#8'srcProxy'#6'Height'#3'='#2#5'Width'#3#245#1
+  +#5'Align'#7#8'alClient'#12'Font.CharSet'#7#12'ANSI_CHARSET'#10'Font.Color'#7
+  +#7'clBlack'#11'Font.Height'#2#236#9'Font.Name'#6#7'Courier'#10'Font.Pitch'#7
+  +#7'fpFixed'#11'ParentColor'#8#9'PopupMenu'#7#10'PopupMenu2'#8'TabOrder'#2#0
+  +#23'BookMarkOptions.Xoffset'#2'Q'#24'BookMarkOptions.OnChange'#13#17'Gutter.'
+  +'DigitCount'#2#5#22'Gutter.ShowLineNumbers'#9#22'Gutter.ShowCodeFolding'#9#15
+  +'Gutter.OnChange'#13#23'Gutter.CodeFoldingWidth'#2#14#11'Highlighter'#7#10'S'
+  +'ynPasSyn1'#10'Keystrokes'#14#1#7'Command'#2#3#8'ShortCut'#2'&'#0#1#7'Comman'
+  +'d'#2'g'#8'ShortCut'#3'& '#0#1#7'Command'#3#211#0#8'ShortCut'#3'&@'#0#1#7'Co'
+  +'mmand'#2#4#8'ShortCut'#2'('#0#1#7'Command'#2'h'#8'ShortCut'#3'( '#0#1#7'Com'
+  +'mand'#3#212#0#8'ShortCut'#3'(@'#0#1#7'Command'#2#1#8'ShortCut'#2'%'#0#1#7'C'
+  +'ommand'#2'e'#8'ShortCut'#3'% '#0#1#7'Command'#2#5#8'ShortCut'#3'%@'#0#1#7'C'
+  ,'ommand'#2'i'#8'ShortCut'#3'%`'#0#1#7'Command'#2#2#8'ShortCut'#2''''#0#1#7'C'
+  +'ommand'#2'f'#8'ShortCut'#3''' '#0#1#7'Command'#2#6#8'ShortCut'#3'''@'#0#1#7
+  +'Command'#2'j'#8'ShortCut'#3'''`'#0#1#7'Command'#2#10#8'ShortCut'#2'"'#0#1#7
+  +'Command'#2'n'#8'ShortCut'#3'" '#0#1#7'Command'#2#14#8'ShortCut'#3'"@'#0#1#7
+  +'Command'#2'r'#8'ShortCut'#3'"`'#0#1#7'Command'#2#9#8'ShortCut'#2'!'#0#1#7'C'
+  +'ommand'#2'm'#8'ShortCut'#3'! '#0#1#7'Command'#2#13#8'ShortCut'#3'!@'#0#1#7
+  +'Command'#2'q'#8'ShortCut'#3'!`'#0#1#7'Command'#2#7#8'ShortCut'#2'$'#0#1#7'C'
+  +'ommand'#2'k'#8'ShortCut'#3'$ '#0#1#7'Command'#2#15#8'ShortCut'#3'$@'#0#1#7
+  +'Command'#2's'#8'ShortCut'#3'$`'#0#1#7'Command'#2#8#8'ShortCut'#2'#'#0#1#7'C'
+  +'ommand'#2'l'#8'ShortCut'#3'# '#0#1#7'Command'#2#16#8'ShortCut'#3'#@'#0#1#7
+  +'Command'#2't'#8'ShortCut'#3'#`'#0#1#7'Command'#3#223#0#8'ShortCut'#2'-'#0#1
+  +#7'Command'#3#201#0#8'ShortCut'#3'-@'#0#1#7'Command'#3'\'#2#8'ShortCut'#3'- '
+  +#0#1#7'Command'#3#246#1#8'ShortCut'#2'.'#0#1#7'Command'#3'['#2#8'ShortCut'#3
+  +'. '#0#1#7'Command'#3#245#1#8'ShortCut'#2#8#0#1#7'Command'#3#245#1#8'ShortCu'
+  +'t'#3#8' '#0#1#7'Command'#3#248#1#8'ShortCut'#3#8'@'#0#1#7'Command'#3'Y'#2#8
+  +'ShortCut'#4#8#128#0#0#0#1#7'Command'#3'Z'#2#8'ShortCut'#4#8#160#0#0#0#1#7'C'
+  +'ommand'#3#253#1#8'ShortCut'#2#13#0#1#7'Command'#3#199#0#8'ShortCut'#3'A@'#0
+  +#1#7'Command'#3#201#0#8'ShortCut'#3'C@'#0#1#7'Command'#3'b'#2#8'ShortCut'#3
+  +'I`'#0#1#7'Command'#3#253#1#8'ShortCut'#3'M@'#0#1#7'Command'#3#254#1#8'Short'
+  +'Cut'#3'N@'#0#1#7'Command'#3#247#1#8'ShortCut'#3'T@'#0#1#7'Command'#3'c'#2#8
+  +'ShortCut'#3'U`'#0#1#7'Command'#3'\'#2#8'ShortCut'#3'V@'#0#1#7'Command'#3'['
+  +#2#8'ShortCut'#3'X@'#0#1#7'Command'#3#251#1#8'ShortCut'#3'Y@'#0#1#7'Command'
+  +#3#250#1#8'ShortCut'#3'Y`'#0#1#7'Command'#3'Y'#2#8'ShortCut'#3'Z@'#0#1#7'Com'
+  +'mand'#3'Z'#2#8'ShortCut'#3'Z`'#0#1#7'Command'#3'-'#1#8'ShortCut'#3'0@'#0#1#7
+  +'Command'#3'.'#1#8'ShortCut'#3'1@'#0#1#7'Command'#3'/'#1#8'ShortCut'#3'2@'#0
+  +#1#7'Command'#3'0'#1#8'ShortCut'#3'3@'#0#1#7'Command'#3'1'#1#8'ShortCut'#3'4'
+  +'@'#0#1#7'Command'#3'2'#1#8'ShortCut'#3'5@'#0#1#7'Command'#3'3'#1#8'ShortCut'
+  +#3'6@'#0#1#7'Command'#3'4'#1#8'ShortCut'#3'7@'#0#1#7'Command'#3'5'#1#8'Short'
+  +'Cut'#3'8@'#0#1#7'Command'#3'6'#1#8'ShortCut'#3'9@'#0#1#7'Command'#3'_'#1#8
+  +'ShortCut'#3'0`'#0#1#7'Command'#3'`'#1#8'ShortCut'#3'1`'#0#1#7'Command'#3'a'
+  +#1#8'ShortCut'#3'2`'#0#1#7'Command'#3'b'#1#8'ShortCut'#3'3`'#0#1#7'Command'#3
+  +'c'#1#8'ShortCut'#3'4`'#0#1#7'Command'#3'd'#1#8'ShortCut'#3'5`'#0#1#7'Comman'
+  +'d'#3'e'#1#8'ShortCut'#3'6`'#0#1#7'Command'#3'f'#1#8'ShortCut'#3'7`'#0#1#7'C'
+  +'ommand'#3'g'#1#8'ShortCut'#3'8`'#0#1#7'Command'#3'h'#1#8'ShortCut'#3'9`'#0#1
+  +#7'Command'#3#231#0#8'ShortCut'#3'N`'#0#1#7'Command'#3#232#0#8'ShortCut'#3'C'
+  +'`'#0#1#7'Command'#3#233#0#8'ShortCut'#3'L`'#0#1#7'Command'#3'd'#2#8'ShortCu'
+  +'t'#2#9#0#1#7'Command'#3'e'#2#8'ShortCut'#3#9' '#0#1#7'Command'#3#250#0#8'Sh'
+  +'ortCut'#3'B`'#0#0#8'ReadOnly'#9#22'SelectedColor.OnChange'#13#0#0#0#9'TTabS'
+  +'heet'#5'tsImp'#7'Caption'#6#24'Im&plementation Skeleton'#12'ClientHeight'#3
+  +'='#2#11'ClientWidth'#3#245#1#0#8'TSynEdit'#6'srcImp'#6'Height'#3'='#2#5'Wid'
+  +'th'#3#245#1#5'Align'#7#8'alClient'#12'Font.CharSet'#7#12'ANSI_CHARSET'#10'F'
+  +'ont.Color'#7#7'clBlack'#11'Font.Height'#2#236#9'Font.Name'#6#7'Courier'#10
+  +'Font.Pitch'#7#7'fpFixed'#11'ParentColor'#8#9'PopupMenu'#7#10'PopupMenu2'#8
+  +'TabOrder'#2#0#23'BookMarkOptions.Xoffset'#2'Q'#24'BookMarkOptions.OnChange'
+  +#13#17'Gutter.DigitCount'#2#5#22'Gutter.ShowLineNumbers'#9#22'Gutter.ShowCod'
+  +'eFolding'#9#15'Gutter.OnChange'#13#23'Gutter.CodeFoldingWidth'#2#14#11'High'
+  +'lighter'#7#10'SynPasSyn1'#10'Keystrokes'#14#1#7'Command'#2#3#8'ShortCut'#2
+  +'&'#0#1#7'Command'#2'g'#8'ShortCut'#3'& '#0#1#7'Command'#3#211#0#8'ShortCut'
+  +#3'&@'#0#1#7'Command'#2#4#8'ShortCut'#2'('#0#1#7'Command'#2'h'#8'ShortCut'#3
+  +'( '#0#1#7'Command'#3#212#0#8'ShortCut'#3'(@'#0#1#7'Command'#2#1#8'ShortCut'
+  +#2'%'#0#1#7'Command'#2'e'#8'ShortCut'#3'% '#0#1#7'Command'#2#5#8'ShortCut'#3
+  +'%@'#0#1#7'Command'#2'i'#8'ShortCut'#3'%`'#0#1#7'Command'#2#2#8'ShortCut'#2
+  +''''#0#1#7'Command'#2'f'#8'ShortCut'#3''' '#0#1#7'Command'#2#6#8'ShortCut'#3
+  +'''@'#0#1#7'Command'#2'j'#8'ShortCut'#3'''`'#0#1#7'Command'#2#10#8'ShortCut'
+  +#2'"'#0#1#7'Command'#2'n'#8'ShortCut'#3'" '#0#1#7'Command'#2#14#8'ShortCut'#3
+  +'"@'#0#1#7'Command'#2'r'#8'ShortCut'#3'"`'#0#1#7'Command'#2#9#8'ShortCut'#2
+  +'!'#0#1#7'Command'#2'm'#8'ShortCut'#3'! '#0#1#7'Command'#2#13#8'ShortCut'#3
+  +'!@'#0#1#7'Command'#2'q'#8'ShortCut'#3'!`'#0#1#7'Command'#2#7#8'ShortCut'#2
+  +'$'#0#1#7'Command'#2'k'#8'ShortCut'#3'$ '#0#1#7'Command'#2#15#8'ShortCut'#3
+  +'$@'#0#1#7'Command'#2's'#8'ShortCut'#3'$`'#0#1#7'Command'#2#8#8'ShortCut'#2
+  +'#'#0#1#7'Command'#2'l'#8'ShortCut'#3'# '#0#1#7'Command'#2#16#8'ShortCut'#3
+  +'#@'#0#1#7'Command'#2't'#8'ShortCut'#3'#`'#0#1#7'Command'#3#223#0#8'ShortCut'
+  +#2'-'#0#1#7'Command'#3#201#0#8'ShortCut'#3'-@'#0#1#7'Command'#3'\'#2#8'Short'
+  +'Cut'#3'- '#0#1#7'Command'#3#246#1#8'ShortCut'#2'.'#0#1#7'Command'#3'['#2#8
+  ,'ShortCut'#3'. '#0#1#7'Command'#3#245#1#8'ShortCut'#2#8#0#1#7'Command'#3#245
+  +#1#8'ShortCut'#3#8' '#0#1#7'Command'#3#248#1#8'ShortCut'#3#8'@'#0#1#7'Comman'
+  +'d'#3'Y'#2#8'ShortCut'#4#8#128#0#0#0#1#7'Command'#3'Z'#2#8'ShortCut'#4#8#160
+  +#0#0#0#1#7'Command'#3#253#1#8'ShortCut'#2#13#0#1#7'Command'#3#199#0#8'ShortC'
+  +'ut'#3'A@'#0#1#7'Command'#3#201#0#8'ShortCut'#3'C@'#0#1#7'Command'#3'b'#2#8
+  +'ShortCut'#3'I`'#0#1#7'Command'#3#253#1#8'ShortCut'#3'M@'#0#1#7'Command'#3
+  +#254#1#8'ShortCut'#3'N@'#0#1#7'Command'#3#247#1#8'ShortCut'#3'T@'#0#1#7'Comm'
+  +'and'#3'c'#2#8'ShortCut'#3'U`'#0#1#7'Command'#3'\'#2#8'ShortCut'#3'V@'#0#1#7
+  +'Command'#3'['#2#8'ShortCut'#3'X@'#0#1#7'Command'#3#251#1#8'ShortCut'#3'Y@'#0
+  +#1#7'Command'#3#250#1#8'ShortCut'#3'Y`'#0#1#7'Command'#3'Y'#2#8'ShortCut'#3
+  +'Z@'#0#1#7'Command'#3'Z'#2#8'ShortCut'#3'Z`'#0#1#7'Command'#3'-'#1#8'ShortCu'
+  +'t'#3'0@'#0#1#7'Command'#3'.'#1#8'ShortCut'#3'1@'#0#1#7'Command'#3'/'#1#8'Sh'
+  +'ortCut'#3'2@'#0#1#7'Command'#3'0'#1#8'ShortCut'#3'3@'#0#1#7'Command'#3'1'#1
+  +#8'ShortCut'#3'4@'#0#1#7'Command'#3'2'#1#8'ShortCut'#3'5@'#0#1#7'Command'#3
+  +'3'#1#8'ShortCut'#3'6@'#0#1#7'Command'#3'4'#1#8'ShortCut'#3'7@'#0#1#7'Comman'
+  +'d'#3'5'#1#8'ShortCut'#3'8@'#0#1#7'Command'#3'6'#1#8'ShortCut'#3'9@'#0#1#7'C'
+  +'ommand'#3'_'#1#8'ShortCut'#3'0`'#0#1#7'Command'#3'`'#1#8'ShortCut'#3'1`'#0#1
+  +#7'Command'#3'a'#1#8'ShortCut'#3'2`'#0#1#7'Command'#3'b'#1#8'ShortCut'#3'3`'
+  +#0#1#7'Command'#3'c'#1#8'ShortCut'#3'4`'#0#1#7'Command'#3'd'#1#8'ShortCut'#3
+  +'5`'#0#1#7'Command'#3'e'#1#8'ShortCut'#3'6`'#0#1#7'Command'#3'f'#1#8'ShortCu'
+  +'t'#3'7`'#0#1#7'Command'#3'g'#1#8'ShortCut'#3'8`'#0#1#7'Command'#3'h'#1#8'Sh'
+  +'ortCut'#3'9`'#0#1#7'Command'#3#231#0#8'ShortCut'#3'N`'#0#1#7'Command'#3#232
+  +#0#8'ShortCut'#3'C`'#0#1#7'Command'#3#233#0#8'ShortCut'#3'L`'#0#1#7'Command'
+  +#3'd'#2#8'ShortCut'#2#9#0#1#7'Command'#3'e'#2#8'ShortCut'#3#9' '#0#1#7'Comma'
+  +'nd'#3#250#0#8'ShortCut'#3'B`'#0#0#8'ReadOnly'#9#22'SelectedColor.OnChange'
+  +#13#0#0#0#9'TTabSheet'#8'tsBinder'#7'Caption'#6#7'&Binder'#12'ClientHeight'#3
+  +'='#2#11'ClientWidth'#3#245#1#0#8'TSynEdit'#9'srcBinder'#6'Height'#3'='#2#5
+  +'Width'#3#245#1#5'Align'#7#8'alClient'#12'Font.CharSet'#7#12'ANSI_CHARSET'#10
+  +'Font.Color'#7#7'clBlack'#11'Font.Height'#2#236#9'Font.Name'#6#7'Courier'#10
+  +'Font.Pitch'#7#7'fpFixed'#11'ParentColor'#8#9'PopupMenu'#7#10'PopupMenu2'#8
+  +'TabOrder'#2#0#23'BookMarkOptions.Xoffset'#2'Q'#24'BookMarkOptions.OnChange'
+  +#13#15'Gutter.AutoSize'#9#17'Gutter.DigitCount'#2#5#22'Gutter.ShowLineNumber'
+  +'s'#9#22'Gutter.ShowCodeFolding'#9#15'Gutter.OnChange'#13#23'Gutter.CodeFold'
+  +'ingWidth'#2#14#11'Highlighter'#7#10'SynPasSyn1'#10'Keystrokes'#14#1#7'Comma'
+  +'nd'#2#3#8'ShortCut'#2'&'#0#1#7'Command'#2'g'#8'ShortCut'#3'& '#0#1#7'Comman'
+  +'d'#3#211#0#8'ShortCut'#3'&@'#0#1#7'Command'#2#4#8'ShortCut'#2'('#0#1#7'Comm'
+  +'and'#2'h'#8'ShortCut'#3'( '#0#1#7'Command'#3#212#0#8'ShortCut'#3'(@'#0#1#7
+  +'Command'#2#1#8'ShortCut'#2'%'#0#1#7'Command'#2'e'#8'ShortCut'#3'% '#0#1#7'C'
+  +'ommand'#2#5#8'ShortCut'#3'%@'#0#1#7'Command'#2'i'#8'ShortCut'#3'%`'#0#1#7'C'
+  +'ommand'#2#2#8'ShortCut'#2''''#0#1#7'Command'#2'f'#8'ShortCut'#3''' '#0#1#7
+  +'Command'#2#6#8'ShortCut'#3'''@'#0#1#7'Command'#2'j'#8'ShortCut'#3'''`'#0#1#7
+  +'Command'#2#10#8'ShortCut'#2'"'#0#1#7'Command'#2'n'#8'ShortCut'#3'" '#0#1#7
  +'Command'#2#14#8'ShortCut'#3'"@'#0#1#7'Command'#2'r'#8'ShortCut'#3'"`'#0#1#7
  +'Command'#2#9#8'ShortCut'#2'!'#0#1#7'Command'#2'm'#8'ShortCut'#3'! '#0#1#7'C'
  +'ommand'#2#13#8'ShortCut'#3'!@'#0#1#7'Command'#2'q'#8'ShortCut'#3'!`'#0#1#7
@ -156,7 +257,7 @@ LazarusResources.Add('TfWstTypeLibraryEdit','FORMDATA',[
  +#3'Y'#2#8'ShortCut'#3'Z@'#0#1#7'Command'#3'Z'#2#8'ShortCut'#3'Z`'#0#1#7'Comm'
  +'and'#3'-'#1#8'ShortCut'#3'0@'#0#1#7'Command'#3'.'#1#8'ShortCut'#3'1@'#0#1#7
  +'Command'#3'/'#1#8'ShortCut'#3'2@'#0#1#7'Command'#3'0'#1#8'ShortCut'#3'3@'#0
-  +#1#7'Command'#3'1'#1#8'ShortCut'#3'4@'#0#1#7'Command'#3'2'#1#8'ShortCut'#3'5'
+  ,#1#7'Command'#3'1'#1#8'ShortCut'#3'4@'#0#1#7'Command'#3'2'#1#8'ShortCut'#3'5'
  +'@'#0#1#7'Command'#3'3'#1#8'ShortCut'#3'6@'#0#1#7'Command'#3'4'#1#8'ShortCut'
  +#3'7@'#0#1#7'Command'#3'5'#1#8'ShortCut'#3'8@'#0#1#7'Command'#3'6'#1#8'Short'
  +'Cut'#3'9@'#0#1#7'Command'#3'_'#1#8'ShortCut'#3'0`'#0#1#7'Command'#3'`'#1#8
@ -167,196 +268,112 @@ LazarusResources.Add('TfWstTypeLibraryEdit','FORMDATA',[
  +'ommand'#3'h'#1#8'ShortCut'#3'9`'#0#1#7'Command'#3#231#0#8'ShortCut'#3'N`'#0
  +#1#7'Command'#3#232#0#8'ShortCut'#3'C`'#0#1#7'Command'#3#233#0#8'ShortCut'#3
  +'L`'#0#1#7'Command'#3'd'#2#8'ShortCut'#2#9#0#1#7'Command'#3'e'#2#8'ShortCut'
-  +#3#9' '#0#1#7'Command'#3#250#0#8'ShortCut'#3'B`'#0#0#8'ReadOnly'#9#0#0#0#9'T'
-  +'TabSheet'#5'tsImp'#7'Caption'#6#24'Im&plementation Skeleton'#12'ClientHeigh'
-  +'t'#3'='#2#11'ClientWidth'#3#245#1#0#8'TSynEdit'#6'srcImp'#6'Height'#3'='#2#5
-  +'Width'#3#245#1#5'Align'#7#8'alClient'#12'Font.CharSet'#7#12'ANSI_CHARSET'#10
-  +'Font.Color'#7#7'clBlack'#11'Font.Height'#2#236#9'Font.Name'#6#7'Courier'#10
-  +'Font.Pitch'#7#7'fpFixed'#11'ParentColor'#8#9'PopupMenu'#7#10'PopupMenu2'#8
-  +'TabOrder'#2#0#23'BookMarkOptions.Xoffset'#2'Q'#17'Gutter.DigitCount'#2#5#22
-  +'Gutter.ShowLineNumbers'#9#22'Gutter.ShowCodeFolding'#9#23'Gutter.CodeFoldin'
-  +'gWidth'#2#14#11'Highlighter'#7#10'SynPasSyn1'#10'Keystrokes'#14#1#7'Command'
-  +#2#3#8'ShortCut'#2'&'#0#1#7'Command'#2'g'#8'ShortCut'#3'& '#0#1#7'Command'#3
-  +#211#0#8'ShortCut'#3'&@'#0#1#7'Command'#2#4#8'ShortCut'#2'('#0#1#7'Command'#2
-  +'h'#8'ShortCut'#3'( '#0#1#7'Command'#3#212#0#8'ShortCut'#3'(@'#0#1#7'Command'
-  +#2#1#8'ShortCut'#2'%'#0#1#7'Command'#2'e'#8'ShortCut'#3'% '#0#1#7'Command'#2
-  +#5#8'ShortCut'#3'%@'#0#1#7'Command'#2'i'#8'ShortCut'#3'%`'#0#1#7'Command'#2#2
-  +#8'ShortCut'#2''''#0#1#7'Command'#2'f'#8'ShortCut'#3''' '#0#1#7'Command'#2#6
-  +#8'ShortCut'#3'''@'#0#1#7'Command'#2'j'#8'ShortCut'#3'''`'#0#1#7'Command'#2
-  +#10#8'ShortCut'#2'"'#0#1#7'Command'#2'n'#8'ShortCut'#3'" '#0#1#7'Command'#2
-  +#14#8'ShortCut'#3'"@'#0#1#7'Command'#2'r'#8'ShortCut'#3'"`'#0#1#7'Command'#2
-  +#9#8'ShortCut'#2'!'#0#1#7'Command'#2'm'#8'ShortCut'#3'! '#0#1#7'Command'#2#13
-  +#8'ShortCut'#3'!@'#0#1#7'Command'#2'q'#8'ShortCut'#3'!`'#0#1#7'Command'#2#7#8
-  +'ShortCut'#2'$'#0#1#7'Command'#2'k'#8'ShortCut'#3'$ '#0#1#7'Command'#2#15#8
-  +'ShortCut'#3'$@'#0#1#7'Command'#2's'#8'ShortCut'#3'$`'#0#1#7'Command'#2#8#8
-  +'ShortCut'#2'#'#0#1#7'Command'#2'l'#8'ShortCut'#3'# '#0#1#7'Command'#2#16#8
-  +'ShortCut'#3'#@'#0#1#7'Command'#2't'#8'ShortCut'#3'#`'#0#1#7'Command'#3#223#0
-  +#8'ShortCut'#2'-'#0#1#7'Command'#3#201#0#8'ShortCut'#3'-@'#0#1#7'Command'#3
-  +'\'#2#8'ShortCut'#3'- '#0#1#7'Command'#3#246#1#8'ShortCut'#2'.'#0#1#7'Comman'
-  ,'d'#3'['#2#8'ShortCut'#3'. '#0#1#7'Command'#3#245#1#8'ShortCut'#2#8#0#1#7'Co'
-  +'mmand'#3#245#1#8'ShortCut'#3#8' '#0#1#7'Command'#3#248#1#8'ShortCut'#3#8'@'
-  +#0#1#7'Command'#3'Y'#2#8'ShortCut'#4#8#128#0#0#0#1#7'Command'#3'Z'#2#8'Short'
-  +'Cut'#4#8#160#0#0#0#1#7'Command'#3#253#1#8'ShortCut'#2#13#0#1#7'Command'#3
-  +#199#0#8'ShortCut'#3'A@'#0#1#7'Command'#3#201#0#8'ShortCut'#3'C@'#0#1#7'Comm'
-  +'and'#3'b'#2#8'ShortCut'#3'I`'#0#1#7'Command'#3#253#1#8'ShortCut'#3'M@'#0#1#7
-  +'Command'#3#254#1#8'ShortCut'#3'N@'#0#1#7'Command'#3#247#1#8'ShortCut'#3'T@'
-  +#0#1#7'Command'#3'c'#2#8'ShortCut'#3'U`'#0#1#7'Command'#3'\'#2#8'ShortCut'#3
-  +'V@'#0#1#7'Command'#3'['#2#8'ShortCut'#3'X@'#0#1#7'Command'#3#251#1#8'ShortC'
-  +'ut'#3'Y@'#0#1#7'Command'#3#250#1#8'ShortCut'#3'Y`'#0#1#7'Command'#3'Y'#2#8
-  +'ShortCut'#3'Z@'#0#1#7'Command'#3'Z'#2#8'ShortCut'#3'Z`'#0#1#7'Command'#3'-'
-  +#1#8'ShortCut'#3'0@'#0#1#7'Command'#3'.'#1#8'ShortCut'#3'1@'#0#1#7'Command'#3
-  +'/'#1#8'ShortCut'#3'2@'#0#1#7'Command'#3'0'#1#8'ShortCut'#3'3@'#0#1#7'Comman'
-  +'d'#3'1'#1#8'ShortCut'#3'4@'#0#1#7'Command'#3'2'#1#8'ShortCut'#3'5@'#0#1#7'C'
-  +'ommand'#3'3'#1#8'ShortCut'#3'6@'#0#1#7'Command'#3'4'#1#8'ShortCut'#3'7@'#0#1
-  +#7'Command'#3'5'#1#8'ShortCut'#3'8@'#0#1#7'Command'#3'6'#1#8'ShortCut'#3'9@'
-  +#0#1#7'Command'#3'_'#1#8'ShortCut'#3'0`'#0#1#7'Command'#3'`'#1#8'ShortCut'#3
-  +'1`'#0#1#7'Command'#3'a'#1#8'ShortCut'#3'2`'#0#1#7'Command'#3'b'#1#8'ShortCu'
-  +'t'#3'3`'#0#1#7'Command'#3'c'#1#8'ShortCut'#3'4`'#0#1#7'Command'#3'd'#1#8'Sh'
-  +'ortCut'#3'5`'#0#1#7'Command'#3'e'#1#8'ShortCut'#3'6`'#0#1#7'Command'#3'f'#1
-  +#8'ShortCut'#3'7`'#0#1#7'Command'#3'g'#1#8'ShortCut'#3'8`'#0#1#7'Command'#3
-  +'h'#1#8'ShortCut'#3'9`'#0#1#7'Command'#3#231#0#8'ShortCut'#3'N`'#0#1#7'Comma'
-  +'nd'#3#232#0#8'ShortCut'#3'C`'#0#1#7'Command'#3#233#0#8'ShortCut'#3'L`'#0#1#7
-  +'Command'#3'd'#2#8'ShortCut'#2#9#0#1#7'Command'#3'e'#2#8'ShortCut'#3#9' '#0#1
-  +#7'Command'#3#250#0#8'ShortCut'#3'B`'#0#0#8'ReadOnly'#9#0#0#0#9'TTabSheet'#8
-  +'tsBinder'#7'Caption'#6#7'&Binder'#12'ClientHeight'#3'='#2#11'ClientWidth'#3
-  +#245#1#0#8'TSynEdit'#9'srcBinder'#6'Height'#3'='#2#5'Width'#3#245#1#5'Align'
-  +#7#8'alClient'#12'Font.CharSet'#7#12'ANSI_CHARSET'#10'Font.Color'#7#7'clBlac'
-  +'k'#11'Font.Height'#2#236#9'Font.Name'#6#7'Courier'#10'Font.Pitch'#7#7'fpFix'
-  +'ed'#11'ParentColor'#8#9'PopupMenu'#7#10'PopupMenu2'#8'TabOrder'#2#0#23'Book'
-  +'MarkOptions.Xoffset'#2'Q'#15'Gutter.AutoSize'#9#17'Gutter.DigitCount'#2#5#22
-  +'Gutter.ShowLineNumbers'#9#22'Gutter.ShowCodeFolding'#9#23'Gutter.CodeFoldin'
-  +'gWidth'#2#14#11'Highlighter'#7#10'SynPasSyn1'#10'Keystrokes'#14#1#7'Command'
-  +#2#3#8'ShortCut'#2'&'#0#1#7'Command'#2'g'#8'ShortCut'#3'& '#0#1#7'Command'#3
-  +#211#0#8'ShortCut'#3'&@'#0#1#7'Command'#2#4#8'ShortCut'#2'('#0#1#7'Command'#2
-  +'h'#8'ShortCut'#3'( '#0#1#7'Command'#3#212#0#8'ShortCut'#3'(@'#0#1#7'Command'
-  +#2#1#8'ShortCut'#2'%'#0#1#7'Command'#2'e'#8'ShortCut'#3'% '#0#1#7'Command'#2
-  +#5#8'ShortCut'#3'%@'#0#1#7'Command'#2'i'#8'ShortCut'#3'%`'#0#1#7'Command'#2#2
-  +#8'ShortCut'#2''''#0#1#7'Command'#2'f'#8'ShortCut'#3''' '#0#1#7'Command'#2#6
-  +#8'ShortCut'#3'''@'#0#1#7'Command'#2'j'#8'ShortCut'#3'''`'#0#1#7'Command'#2
-  +#10#8'ShortCut'#2'"'#0#1#7'Command'#2'n'#8'ShortCut'#3'" '#0#1#7'Command'#2
-  +#14#8'ShortCut'#3'"@'#0#1#7'Command'#2'r'#8'ShortCut'#3'"`'#0#1#7'Command'#2
-  +#9#8'ShortCut'#2'!'#0#1#7'Command'#2'm'#8'ShortCut'#3'! '#0#1#7'Command'#2#13
-  +#8'ShortCut'#3'!@'#0#1#7'Command'#2'q'#8'ShortCut'#3'!`'#0#1#7'Command'#2#7#8
-  +'ShortCut'#2'$'#0#1#7'Command'#2'k'#8'ShortCut'#3'$ '#0#1#7'Command'#2#15#8
-  +'ShortCut'#3'$@'#0#1#7'Command'#2's'#8'ShortCut'#3'$`'#0#1#7'Command'#2#8#8
-  +'ShortCut'#2'#'#0#1#7'Command'#2'l'#8'ShortCut'#3'# '#0#1#7'Command'#2#16#8
-  +'ShortCut'#3'#@'#0#1#7'Command'#2't'#8'ShortCut'#3'#`'#0#1#7'Command'#3#223#0
-  +#8'ShortCut'#2'-'#0#1#7'Command'#3#201#0#8'ShortCut'#3'-@'#0#1#7'Command'#3
-  +'\'#2#8'ShortCut'#3'- '#0#1#7'Command'#3#246#1#8'ShortCut'#2'.'#0#1#7'Comman'
-  +'d'#3'['#2#8'ShortCut'#3'. '#0#1#7'Command'#3#245#1#8'ShortCut'#2#8#0#1#7'Co'
-  +'mmand'#3#245#1#8'ShortCut'#3#8' '#0#1#7'Command'#3#248#1#8'ShortCut'#3#8'@'
-  +#0#1#7'Command'#3'Y'#2#8'ShortCut'#4#8#128#0#0#0#1#7'Command'#3'Z'#2#8'Short'
-  +'Cut'#4#8#160#0#0#0#1#7'Command'#3#253#1#8'ShortCut'#2#13#0#1#7'Command'#3
-  +#199#0#8'ShortCut'#3'A@'#0#1#7'Command'#3#201#0#8'ShortCut'#3'C@'#0#1#7'Comm'
-  +'and'#3'b'#2#8'ShortCut'#3'I`'#0#1#7'Command'#3#253#1#8'ShortCut'#3'M@'#0#1#7
-  +'Command'#3#254#1#8'ShortCut'#3'N@'#0#1#7'Command'#3#247#1#8'ShortCut'#3'T@'
-  +#0#1#7'Command'#3'c'#2#8'ShortCut'#3'U`'#0#1#7'Command'#3'\'#2#8'ShortCut'#3
-  +'V@'#0#1#7'Command'#3'['#2#8'ShortCut'#3'X@'#0#1#7'Command'#3#251#1#8'ShortC'
-  +'ut'#3'Y@'#0#1#7'Command'#3#250#1#8'ShortCut'#3'Y`'#0#1#7'Command'#3'Y'#2#8
-  +'ShortCut'#3'Z@'#0#1#7'Command'#3'Z'#2#8'ShortCut'#3'Z`'#0#1#7'Command'#3'-'
-  +#1#8'ShortCut'#3'0@'#0#1#7'Command'#3'.'#1#8'ShortCut'#3'1@'#0#1#7'Command'#3
-  +'/'#1#8'ShortCut'#3'2@'#0#1#7'Command'#3'0'#1#8'ShortCut'#3'3@'#0#1#7'Comman'
-  +'d'#3'1'#1#8'ShortCut'#3'4@'#0#1#7'Command'#3'2'#1#8'ShortCut'#3'5@'#0#1#7'C'
-  ,'ommand'#3'3'#1#8'ShortCut'#3'6@'#0#1#7'Command'#3'4'#1#8'ShortCut'#3'7@'#0#1
-  +#7'Command'#3'5'#1#8'ShortCut'#3'8@'#0#1#7'Command'#3'6'#1#8'ShortCut'#3'9@'
-  +#0#1#7'Command'#3'_'#1#8'ShortCut'#3'0`'#0#1#7'Command'#3'`'#1#8'ShortCut'#3
-  +'1`'#0#1#7'Command'#3'a'#1#8'ShortCut'#3'2`'#0#1#7'Command'#3'b'#1#8'ShortCu'
-  +'t'#3'3`'#0#1#7'Command'#3'c'#1#8'ShortCut'#3'4`'#0#1#7'Command'#3'd'#1#8'Sh'
-  +'ortCut'#3'5`'#0#1#7'Command'#3'e'#1#8'ShortCut'#3'6`'#0#1#7'Command'#3'f'#1
-  +#8'ShortCut'#3'7`'#0#1#7'Command'#3'g'#1#8'ShortCut'#3'8`'#0#1#7'Command'#3
-  +'h'#1#8'ShortCut'#3'9`'#0#1#7'Command'#3#231#0#8'ShortCut'#3'N`'#0#1#7'Comma'
-  +'nd'#3#232#0#8'ShortCut'#3'C`'#0#1#7'Command'#3#233#0#8'ShortCut'#3'L`'#0#1#7
-  +'Command'#3'd'#2#8'ShortCut'#2#9#0#1#7'Command'#3'e'#2#8'ShortCut'#3#9' '#0#1
-  +#7'Command'#3#250#0#8'ShortCut'#3'B`'#0#0#8'ReadOnly'#9#0#0#0#9'TTabSheet'#5
-  +'tsLog'#7'Caption'#6#4'&Log'#12'ClientHeight'#3'='#2#11'ClientWidth'#3#245#1
-  +#0#5'TMemo'#6'mmoLog'#6'Height'#3'='#2#5'Width'#3#245#1#5'Align'#7#8'alClien'
-  +'t'#13'Lines.Strings'#1#6#0#0#10'ScrollBars'#7#6'ssBoth'#8'TabOrder'#2#0#0#0
-  +#0#0#0#9'TSplitter'#9'Splitter1'#4'Left'#3':'#1#6'Height'#3'Y'#2#5'Width'#2#8
-  +#5'Color'#7#7'clBlack'#11'ParentColor'#8#0#0#9'TMainMenu'#9'MainMenu1'#4'lef'
-  +'t'#3'`'#1#3'top'#2'p'#0#9'TMenuItem'#9'MenuItem1'#7'Caption'#6#6'&Files'#0#9
-  +'TMenuItem'#10'MenuItem16'#6'Action'#7#10'actNewFile'#7'OnClick'#7#17'actNew'
-  +'FileExecute'#0#0#9'TMenuItem'#9'MenuItem2'#7'Caption'#6#1'-'#0#0#9'TMenuIte'
-  +'m'#9'MenuItem5'#6'Action'#7#11'actOpenFile'#7'OnClick'#7#18'actOpenFileExec'
-  +'ute'#0#0#9'TMenuItem'#9'MenuItem3'#6'Action'#7#9'actExport'#7'OnClick'#7#16
-  +'actExportExecute'#0#0#9'TMenuItem'#9'MenuItem7'#6'Action'#7#7'actSave'#7'On'
-  +'Click'#7#14'actSaveExecute'#0#0#9'TMenuItem'#10'MenuItem32'#6'Action'#7#9'a'
-  +'ctSaveAs'#7'OnClick'#7#16'actSaveAsExecute'#0#0#9'TMenuItem'#10'MenuItem17'
-  +#7'Caption'#6#1'-'#0#0#9'TMenuItem'#9'MenuItem4'#6'Action'#7#7'actExit'#7'On'
-  +'Click'#7#14'actExitExecute'#0#0#0#9'TMenuItem'#10'MenuItem14'#7'Caption'#6#5
-  +'&View'#0#9'TMenuItem'#10'MenuItem15'#6'Action'#7#14'actRefreshView'#7'OnCli'
-  +'ck'#7#21'actRefreshViewExecute'#0#0#9'TMenuItem'#10'MenuItem29'#7'Caption'#6
-  +#1'-'#0#0#9'TMenuItem'#10'MenuItem30'#6'Action'#7#13'actFullExpand'#7'OnClic'
-  +'k'#7#20'actFullExpandExecute'#0#0#9'TMenuItem'#10'MenuItem31'#6'Action'#7#15
-  +'actFullCollapse'#7'OnClick'#7#22'actFullCollapseExecute'#0#0#0#9'TMenuItem'
-  +#10'MenuItem10'#7'Caption'#6#8'&Edition'#0#9'TMenuItem'#10'MenuItem11'#6'Act'
-  +'ion'#7#13'actEnumCreate'#7'OnClick'#7#20'actEnumCreateExecute'#0#0#9'TMenuI'
-  +'tem'#10'MenuItem23'#6'Action'#7#17'actCompoundCreate'#7'OnClick'#7#24'actCo'
-  +'mpoundCreateExecute'#0#0#9'TMenuItem'#10'MenuItem25'#6'Action'#7#13'actIntf'
-  +'Create'#7'OnClick'#7#20'actIntfCreateExecute'#0#0#9'TMenuItem'#10'MenuItem3'
-  +'5'#6'Action'#7#14'actArrayCreate'#7'OnClick'#7#21'actArrayCreateExecute'#0#0
-  +#9'TMenuItem'#10'MenuItem12'#7'Caption'#6#1'-'#0#0#9'TMenuItem'#10'MenuItem1'
-  +'3'#6'Action'#7#15'actUpdateObject'#7'Caption'#6#13'Update Object'#7'OnClick'
-  +#7#22'actUpdateObjectExecute'#0#0#9'TMenuItem'#10'MenuItem34'#6'Action'#7#9
-  +'actDelete'#7'OnClick'#7#16'actDeleteExecute'#0#0#0#9'TMenuItem'#9'MenuItem6'
-  +#6'Action'#7#8'actAbout'#7'Caption'#6#6'&About'#7'OnClick'#7#15'actAboutExec'
-  +'ute'#0#0#0#11'TActionList'#2'AL'#4'left'#3'X'#1#3'top'#2'8'#0#7'TAction'#11
-  +'actOpenFile'#7'Caption'#6#9'Open File'#18'DisableIfNoHandler'#9#9'OnExecute'
-  +#7#18'actOpenFileExecute'#0#0#7'TAction'#7'actExit'#7'Caption'#6#4'Exit'#18
-  +'DisableIfNoHandler'#9#9'OnExecute'#7#14'actExitExecute'#0#0#7'TAction'#9'ac'
-  +'tExport'#7'Caption'#6#24'Save generated files ...'#18'DisableIfNoHandler'#9
-  +#9'OnExecute'#7#16'actExportExecute'#8'OnUpdate'#7#15'actExportUpdate'#0#0#7
-  +'TAction'#8'actAbout'#7'Caption'#6#5'About'#18'DisableIfNoHandler'#9#9'OnExe'
-  +'cute'#7#15'actAboutExecute'#0#0#7'TAction'#9'actSaveAs'#7'Caption'#6#11'Sav'
-  +'e As ...'#18'DisableIfNoHandler'#9#9'OnExecute'#7#16'actSaveAsExecute'#8'On'
-  +'Update'#7#15'actExportUpdate'#0#0#7'TAction'#13'actEnumCreate'#7'Caption'#6
-  +#18'Create Enumeration'#18'DisableIfNoHandler'#9#9'OnExecute'#7#20'actEnumCr'
-  +'eateExecute'#0#0#7'TAction'#15'actUpdateObject'#7'Caption'#6#6'Update'#18'D'
-  +'isableIfNoHandler'#9#9'OnExecute'#7#22'actUpdateObjectExecute'#8'OnUpdate'#7
-  +#21'actUpdateObjectUpdate'#0#0#7'TAction'#14'actRefreshView'#7'Caption'#6#14
-  +'&Refresh Views'#18'DisableIfNoHandler'#9#9'OnExecute'#7#21'actRefreshViewEx'
-  +'ecute'#0#0#7'TAction'#10'actNewFile'#7'Caption'#6#8'New File'#18'DisableIfN'
-  +'oHandler'#9#9'OnExecute'#7#17'actNewFileExecute'#0#0#7'TAction'#17'actCompo'
-  +'undCreate'#7'Caption'#6#20'Create Compound Type'#18'DisableIfNoHandler'#9#9
-  +'OnExecute'#7#24'actCompoundCreateExecute'#0#0#7'TAction'#13'actIntfCreate'#7
-  +'Caption'#6#16'Create Interface'#18'DisableIfNoHandler'#9#9'OnExecute'#7#20
+  +#3#9' '#0#1#7'Command'#3#250#0#8'ShortCut'#3'B`'#0#0#8'ReadOnly'#9#22'Select'
+  +'edColor.OnChange'#13#0#0#0#9'TTabSheet'#5'tsLog'#7'Caption'#6#4'&Log'#12'Cl'
+  +'ientHeight'#3'='#2#11'ClientWidth'#3#245#1#0#5'TMemo'#6'mmoLog'#6'Height'#3
+  +'='#2#5'Width'#3#245#1#5'Align'#7#8'alClient'#13'Lines.Strings'#1#6#0#0#10'S'
+  +'crollBars'#7#6'ssBoth'#8'TabOrder'#2#0#0#0#0#0#0#9'TSplitter'#9'Splitter1'#4
+  +'Left'#3':'#1#6'Height'#3'Y'#2#5'Width'#2#8#5'Color'#7#7'clBlack'#11'ParentC'
+  +'olor'#8#0#0#9'TMainMenu'#9'MainMenu1'#4'left'#3'`'#1#3'top'#2'p'#0#9'TMenuI'
+  +'tem'#9'MenuItem1'#7'Caption'#6#6'&Files'#0#9'TMenuItem'#10'MenuItem16'#6'Ac'
+  +'tion'#7#10'actNewFile'#7'OnClick'#7#17'actNewFileExecute'#0#0#9'TMenuItem'#9
+  +'MenuItem2'#7'Caption'#6#1'-'#0#0#9'TMenuItem'#9'MenuItem5'#6'Action'#7#11'a'
+  +'ctOpenFile'#7'OnClick'#7#18'actOpenFileExecute'#0#0#9'TMenuItem'#9'MenuItem'
+  +'3'#6'Action'#7#9'actExport'#7'OnClick'#7#16'actExportExecute'#0#0#9'TMenuIt'
+  +'em'#9'MenuItem7'#6'Action'#7#7'actSave'#7'OnClick'#7#14'actSaveExecute'#0#0
+  +#9'TMenuItem'#10'MenuItem32'#6'Action'#7#9'actSaveAs'#7'OnClick'#7#16'actSav'
+  +'eAsExecute'#0#0#9'TMenuItem'#10'MenuItem17'#7'Caption'#6#1'-'#0#0#9'TMenuIt'
+  +'em'#9'MenuItem4'#6'Action'#7#7'actExit'#7'OnClick'#7#14'actExitExecute'#0#0
+  +#0#9'TMenuItem'#10'MenuItem14'#7'Caption'#6#5'&View'#0#9'TMenuItem'#10'MenuI'
+  +'tem15'#6'Action'#7#14'actRefreshView'#7'OnClick'#7#21'actRefreshViewExecute'
+  +#0#0#9'TMenuItem'#10'MenuItem29'#7'Caption'#6#1'-'#0#0#9'TMenuItem'#10'MenuI'
+  +'tem30'#6'Action'#7#13'actFullExpand'#7'OnClick'#7#20'actFullExpandExecute'#0
+  +#0#9'TMenuItem'#10'MenuItem31'#6'Action'#7#15'actFullCollapse'#7'OnClick'#7
+  +#22'actFullCollapseExecute'#0#0#0#9'TMenuItem'#10'MenuItem10'#7'Caption'#6#8
+  +'&Edition'#0#9'TMenuItem'#10'MenuItem11'#6'Action'#7#13'actEnumCreate'#7'OnC'
+  +'lick'#7#20'actEnumCreateExecute'#0#0#9'TMenuItem'#10'MenuItem23'#6'Action'#7
+  +#17'actCompoundCreate'#7'OnClick'#7#24'actCompoundCreateExecute'#0#0#9'TMenu'
+  +'Item'#10'MenuItem25'#6'Action'#7#13'actIntfCreate'#7'OnClick'#7#20'actIntfC'
+  +'reateExecute'#0#0#9'TMenuItem'#10'MenuItem35'#6'Action'#7#14'actArrayCreate'
+  +#7'OnClick'#7#21'actArrayCreateExecute'#0#0#9'TMenuItem'#10'MenuItem36'#6'Ac'
+  +'tion'#7#18'actTypeALiasCreate'#7'OnClick'#7#25'actTypeALiasCreateExecute'#0
+  +#0#9'TMenuItem'#10'MenuItem12'#7'Caption'#6#1'-'#0#0#9'TMenuItem'#10'MenuIte'
+  +'m13'#6'Action'#7#15'actUpdateObject'#7'Caption'#6#13'Update Object'#7'OnCli'
+  +'ck'#7#22'actUpdateObjectExecute'#0#0#9'TMenuItem'#10'MenuItem34'#6'Action'#7
+  +#9'actDelete'#7'OnClick'#7#16'actDeleteExecute'#0#0#0#9'TMenuItem'#9'MenuIte'
+  +'m6'#6'Action'#7#8'actAbout'#7'Caption'#6#6'&About'#7'OnClick'#7#15'actAbout'
+  +'Execute'#0#0#0#11'TActionList'#2'AL'#4'left'#3'X'#1#3'top'#2'8'#0#7'TAction'
+  +#11'actOpenFile'#7'Caption'#6#9'Open File'#18'DisableIfNoHandler'#9#9'OnExec'
+  +'ute'#7#18'actOpenFileExecute'#0#0#7'TAction'#7'actExit'#7'Caption'#6#4'Exit'
+  +#18'DisableIfNoHandler'#9#9'OnExecute'#7#14'actExitExecute'#0#0#7'TAction'#9
+  +'actExport'#7'Caption'#6#24'Save generated files ...'#18'DisableIfNoHandler'
+  +#9#9'OnExecute'#7#16'actExportExecute'#8'OnUpdate'#7#15'actExportUpdate'#0#0
+  +#7'TAction'#8'actAbout'#7'Caption'#6#5'About'#18'DisableIfNoHandler'#9#9'OnE'
+  +'xecute'#7#15'actAboutExecute'#0#0#7'TAction'#9'actSaveAs'#7'Caption'#6#11'S'
+  +'ave As ...'#18'DisableIfNoHandler'#9#9'OnExecute'#7#16'actSaveAsExecute'#8
+  +'OnUpdate'#7#15'actExportUpdate'#0#0#7'TAction'#13'actEnumCreate'#7'Caption'
+  +#6#18'Create Enumeration'#18'DisableIfNoHandler'#9#9'OnExecute'#7#20'actEnum'
+  +'CreateExecute'#0#0#7'TAction'#15'actUpdateObject'#7'Caption'#6#6'Update'#18
+  +'DisableIfNoHandler'#9#9'OnExecute'#7#22'actUpdateObjectExecute'#8'OnUpdate'
+  +#7#21'actUpdateObjectUpdate'#0#0#7'TAction'#14'actRefreshView'#7'Caption'#6
+  +#14'&Refresh Views'#18'DisableIfNoHandler'#9#9'OnExecute'#7#21'actRefreshVie'
+  +'wExecute'#0#0#7'TAction'#10'actNewFile'#7'Caption'#6#8'New File'#18'Disable'
+  +'IfNoHandler'#9#9'OnExecute'#7#17'actNewFileExecute'#0#0#7'TAction'#17'actCo'
+  +'mpoundCreate'#7'Caption'#6#20'Create Compound Type'#18'DisableIfNoHandler'#9
+  +#9'OnExecute'#7#24'actCompoundCreateExecute'#0#0#7'TAction'#13'actIntfCreate'
+  ,#7'Caption'#6#16'Create Interface'#18'DisableIfNoHandler'#9#9'OnExecute'#7#20
  +'actIntfCreateExecute'#0#0#7'TAction'#13'actFullExpand'#7'Caption'#6#11'Full'
  +' expand'#18'DisableIfNoHandler'#9#9'OnExecute'#7#20'actFullExpandExecute'#0
-  ,#0#7'TAction'#15'actFullCollapse'#7'Caption'#6#13'Full Collapse'#18'DisableI'
+  +#0#7'TAction'#15'actFullCollapse'#7'Caption'#6#13'Full Collapse'#18'DisableI'
  +'fNoHandler'#9#9'OnExecute'#7#22'actFullCollapseExecute'#0#0#7'TAction'#7'ac'
  +'tSave'#7'Caption'#6#4'Save'#18'DisableIfNoHandler'#9#9'OnExecute'#7#14'actS'
  +'aveExecute'#0#0#7'TAction'#9'actDelete'#7'Caption'#6#6'Delete'#18'DisableIf'
  +'NoHandler'#9#9'OnExecute'#7#16'actDeleteExecute'#8'OnUpdate'#7#21'actUpdate'
  +'ObjectUpdate'#0#0#7'TAction'#14'actArrayCreate'#7'Caption'#6#12'Create Arra'
-  +'y'#18'DisableIfNoHandler'#9#9'OnExecute'#7#21'actArrayCreateExecute'#0#0#0
-  +#11'TOpenDialog'#2'OD'#5'Title'#6#26'Ouvrir un fichier existant'#6'Filter'#6
-  +'3WDSL files(*.WSDL)|*.WSDL|Pascal file (*.pas)|*.pas'#11'FilterIndex'#2#0#10
-  +'InitialDir'#6#2'.\'#7'Options'#11#15'ofPathMustExist'#15'ofFileMustExist'#14
-  +'ofEnableSizing'#12'ofViewDetail'#0#4'left'#3#153#1#3'top'#2'X'#0#0#10'TSynP'
-  +'asSyn'#10'SynPasSyn1'#7'Enabled'#8#23'CommentAttri.Foreground'#7#6'clBlue'
-  +#18'CommentAttri.Style'#11#6'fsBold'#0#22'StringAttri.Foreground'#7#8'clMaro'
-  +'on'#17'SymbolAttri.Style'#11#6'fsBold'#0#25'DirectiveAttri.Foreground'#7#7
-  +'clGreen'#20'DirectiveAttri.Style'#11#6'fsBold'#0#14'NestedComments'#9#4'lef'
-  +'t'#3#183#1#3'top'#2'h'#0#0#11'TSaveDialog'#2'SD'#5'Title'#6#27'Enregistrer '
-  +'le fichier sous'#10'DefaultExt'#6#5'.WSDL'#6'Filter'#6#25'WDSL files(*.WSDL'
-  +')|*.WSDL'#11'FilterIndex'#2#0#7'Options'#11#15'ofPathMustExist'#14'ofEnable'
-  +'Sizing'#12'ofViewDetail'#0#4'left'#3#242#1#3'top'#3#176#0#0#0#10'TPopupMenu'
-  +#10'PopupMenu1'#4'left'#3#128#1#3'top'#3#8#1#0#9'TMenuItem'#10'MenuItem28'#6
+  +'y'#18'DisableIfNoHandler'#9#9'OnExecute'#7#21'actArrayCreateExecute'#0#0#7
+  +'TAction'#18'actTypeALiasCreate'#7'Caption'#6#17'Create Type ALias'#18'Disab'
+  +'leIfNoHandler'#9#9'OnExecute'#7#25'actTypeALiasCreateExecute'#0#0#0#11'TOpe'
+  +'nDialog'#2'OD'#5'Title'#6#26'Ouvrir un fichier existant'#6'Filter'#6'3WDSL '
+  +'files(*.WSDL)|*.WSDL|Pascal file (*.pas)|*.pas'#11'FilterIndex'#2#0#10'Init'
+  +'ialDir'#6#2'.\'#7'Options'#11#15'ofPathMustExist'#15'ofFileMustExist'#14'of'
+  +'EnableSizing'#12'ofViewDetail'#0#4'left'#3#153#1#3'top'#2'X'#0#0#10'TSynPas'
+  +'Syn'#10'SynPasSyn1'#7'Enabled'#8#23'CommentAttri.Foreground'#7#6'clBlue'#18
+  +'CommentAttri.Style'#11#6'fsBold'#0#22'StringAttri.Foreground'#7#8'clMaroon'
+  +#17'SymbolAttri.Style'#11#6'fsBold'#0#25'DirectiveAttri.Foreground'#7#7'clGr'
+  +'een'#20'DirectiveAttri.Style'#11#6'fsBold'#0#14'NestedComments'#9#4'left'#3
+  +#183#1#3'top'#2'h'#0#0#11'TSaveDialog'#2'SD'#5'Title'#6#27'Enregistrer le fi'
+  +'chier sous'#10'DefaultExt'#6#5'.WSDL'#6'Filter'#6#25'WDSL files(*.WSDL)|*.W'
+  +'SDL'#11'FilterIndex'#2#0#7'Options'#11#15'ofPathMustExist'#14'ofEnableSizin'
+  +'g'#12'ofViewDetail'#0#4'left'#3#242#1#3'top'#3#176#0#0#0#10'TPopupMenu'#10
+  +'PopupMenu1'#4'left'#3#152#0#3'top'#3#152#0#0#9'TMenuItem'#10'MenuItem28'#6
  +'Action'#7#13'actFullExpand'#7'OnClick'#7#20'actFullExpandExecute'#0#0#9'TMe'
  +'nuItem'#10'MenuItem27'#6'Action'#7#15'actFullCollapse'#7'OnClick'#7#22'actF'
-  +'ullCollapseExecute'#0#0#9'TMenuItem'#10'MenuItem26'#7'Caption'#6#1'-'#0#0#9
-  +'TMenuItem'#9'MenuItem8'#6'Action'#7#13'actEnumCreate'#7'OnClick'#7#20'actEn'
-  +'umCreateExecute'#0#0#9'TMenuItem'#10'MenuItem21'#6'Action'#7#17'actCompound'
-  +'Create'#7'OnClick'#7#24'actCompoundCreateExecute'#0#0#9'TMenuItem'#10'MenuI'
-  +'tem24'#6'Action'#7#13'actIntfCreate'#7'OnClick'#7#20'actIntfCreateExecute'#0
-  +#0#9'TMenuItem'#10'MenuItem22'#7'Caption'#6#1'-'#0#0#9'TMenuItem'#9'MenuItem'
-  +'9'#6'Action'#7#15'actUpdateObject'#7'OnClick'#7#22'actUpdateObjectExecute'#0
-  +#0#9'TMenuItem'#10'MenuItem33'#6'Action'#7#9'actDelete'#7'OnClick'#7#16'actD'
-  +'eleteExecute'#0#0#0#10'TPopupMenu'#10'PopupMenu2'#4'left'#3#16#2#3'top'#3
-  +#235#0#0#9'TMenuItem'#10'MenuItem18'#6'Action'#7#14'actRefreshView'#7'OnClic'
-  +'k'#7#21'actRefreshViewExecute'#0#0#9'TMenuItem'#10'MenuItem19'#7'Caption'#6
-  +#1'-'#0#0#9'TMenuItem'#10'MenuItem20'#6'Action'#7#9'actExport'#7'OnClick'#7
-  +#16'actExportExecute'#0#0#0#10'TSynXMLSyn'#10'SynXMLSyn1'#13'DefaultFilter'#6
-  +#30'Documents WSDL (*.wsdl)|*.wsdl'#7'Enabled'#8#23'ElementAttri.Foreground'
-  +#7#6'clNavy'#30'AttributeValueAttri.Foreground'#7#8'clPurple'#16'WantBracesP'
-  +'arsed'#8#4'left'#3#210#1#3'top'#3#252#0#0#0#0
+  +'ullCollapseExecute'#0#0#9'TMenuItem'#10'MenuItem39'#6'Action'#7#14'actRefre'
+  +'shView'#7'OnClick'#7#21'actRefreshViewExecute'#0#0#9'TMenuItem'#10'MenuItem'
+  +'26'#7'Caption'#6#1'-'#0#0#9'TMenuItem'#9'MenuItem8'#6'Action'#7#13'actEnumC'
+  +'reate'#7'OnClick'#7#20'actEnumCreateExecute'#0#0#9'TMenuItem'#10'MenuItem21'
+  +#6'Action'#7#17'actCompoundCreate'#7'OnClick'#7#24'actCompoundCreateExecute'
+  +#0#0#9'TMenuItem'#10'MenuItem24'#6'Action'#7#13'actIntfCreate'#7'OnClick'#7
+  +#20'actIntfCreateExecute'#0#0#9'TMenuItem'#10'MenuItem37'#6'Action'#7#14'act'
+  +'ArrayCreate'#7'OnClick'#7#21'actArrayCreateExecute'#0#0#9'TMenuItem'#10'Men'
+  +'uItem38'#6'Action'#7#18'actTypeALiasCreate'#7'OnClick'#7#25'actTypeALiasCre'
+  +'ateExecute'#0#0#9'TMenuItem'#10'MenuItem22'#7'Caption'#6#1'-'#0#0#9'TMenuIt'
+  +'em'#9'MenuItem9'#6'Action'#7#15'actUpdateObject'#7'OnClick'#7#22'actUpdateO'
+  +'bjectExecute'#0#0#9'TMenuItem'#10'MenuItem33'#6'Action'#7#9'actDelete'#7'On'
+  +'Click'#7#16'actDeleteExecute'#0#0#0#10'TPopupMenu'#10'PopupMenu2'#4'left'#3
+  +#16#2#3'top'#3#235#0#0#9'TMenuItem'#10'MenuItem18'#6'Action'#7#14'actRefresh'
+  +'View'#7'OnClick'#7#21'actRefreshViewExecute'#0#0#9'TMenuItem'#10'MenuItem19'
+  +#7'Caption'#6#1'-'#0#0#9'TMenuItem'#10'MenuItem20'#6'Action'#7#9'actExport'#7
+  +'OnClick'#7#16'actExportExecute'#0#0#9'TMenuItem'#10'MenuItem40'#7'Caption'#6
+  +#1'-'#0#0#9'TMenuItem'#10'MenuItem41'#6'Action'#7#14'actArrayCreate'#7'OnCli'
+  +'ck'#7#21'actArrayCreateExecute'#0#0#9'TMenuItem'#10'MenuItem45'#6'Action'#7
+  +#17'actCompoundCreate'#7'OnClick'#7#24'actCompoundCreateExecute'#0#0#9'TMenu'
+  +'Item'#10'MenuItem44'#6'Action'#7#13'actEnumCreate'#7'OnClick'#7#20'actEnumC'
+  +'reateExecute'#0#0#9'TMenuItem'#10'MenuItem43'#6'Action'#7#13'actIntfCreate'
+  +#7'OnClick'#7#20'actIntfCreateExecute'#0#0#9'TMenuItem'#10'MenuItem42'#6'Act'
+  +'ion'#7#18'actTypeALiasCreate'#7'OnClick'#7#25'actTypeALiasCreateExecute'#0#0
+  +#0#10'TSynXMLSyn'#10'SynXMLSyn1'#13'DefaultFilter'#6#30'Documents WSDL (*.ws'
+  +'dl)|*.wsdl'#7'Enabled'#8#23'ElementAttri.Foreground'#7#6'clNavy'#30'Attribu'
+  +'teValueAttri.Foreground'#7#8'clPurple'#16'WantBracesParsed'#8#4'left'#3#210
+  +#1#3'top'#3#252#0#0#0#0
 ]);
--- a/wst/trunk/type_lib_edtr/uwsttypelibraryedit.pas
+++ b/wst/trunk/type_lib_edtr/uwsttypelibraryedit.pas
@ -39,6 +39,7 @@ type
    actFullCollapse: TAction;
    actDelete : TAction;
    actArrayCreate : TAction;
+    actTypeALiasCreate : TAction;
    actSave : TAction;
    actNewFile: TAction;
    actRefreshView: TAction;
@ -73,6 +74,16 @@ type
    MenuItem33 : TMenuItem;
    MenuItem34 : TMenuItem;
    MenuItem35 : TMenuItem;
+    MenuItem36 : TMenuItem;
+    MenuItem37 : TMenuItem;
+    MenuItem38 : TMenuItem;
+    MenuItem39 : TMenuItem;
+    MenuItem40 : TMenuItem;
+    MenuItem41 : TMenuItem;
+    MenuItem42 : TMenuItem;
+    MenuItem43 : TMenuItem;
+    MenuItem44 : TMenuItem;
+    MenuItem45 : TMenuItem;
    MenuItem5: TMenuItem;
    MenuItem6: TMenuItem;
    MenuItem7 : TMenuItem;
@ -122,6 +133,7 @@ type
    procedure actRefreshViewExecute(Sender: TObject);
    procedure actSaveAsExecute(Sender: TObject);
    procedure actSaveExecute (Sender : TObject );
+    procedure actTypeALiasCreateExecute(Sender : TObject);
    procedure actUpdateObjectExecute(Sender: TObject);
    procedure actUpdateObjectUpdate(Sender: TObject);
    procedure FormClose (Sender : TObject; var CloseAction : TCloseAction );
@ -414,6 +426,16 @@ begin
    actSaveAs.Execute() ;
 end;

+procedure TfWstTypeLibraryEdit.actTypeALiasCreateExecute(Sender : TObject);
+var
+  e : TPasAliasType;
+begin
+  e := CreateAliasType(FSymbolTable);
+  if Assigned(e) then begin
+    FindPainter(e).Paint(FSymbolTable,e,GetTypeNode());
+  end;
+end;
+
 procedure TfWstTypeLibraryEdit.actUpdateObjectExecute(Sender: TObject);
 var
  o : TPasElement;
@ -560,6 +582,7 @@ var
  o : TPasElement;
  nd : TTreeNode;
 begin
+  if ( MessageDlg('Delete the select object ?',mtConfirmation,mbYesNo,0) = mrYes ) then begin
    nd := trvSchema.Selected;
    if Assigned(nd) and Assigned(nd.Data) then begin
      o := TPasElement(nd.Data);
@ -574,6 +597,7 @@ begin
      end;
    end;
  end;
+end;

 procedure TfWstTypeLibraryEdit.actEnumCreateExecute(Sender: TObject);
 var
@ -763,7 +787,9 @@ begin
  end;
  if Assigned(tmpTable) then begin
    if AnsiSameText('.pas',ExtractFileExt(AFileName)) then
-      FCurrentFileName := ChangeFileExt(AFileName,'.wsdl');
+      FCurrentFileName := ChangeFileExt(AFileName,'.wsdl')
+    else
+      FCurrentFileName := AFileName;
    trvSchema.Items.Clear();
    FreeAndNil(FSymbolTable);
    FSymbolTable := tmpTable;
@ -771,6 +797,7 @@ begin
    PC.ActivePage := tsInterface;
  end;
  curLok := nil;
+  SB.Panels[0].Text := FCurrentFileName;
 end;

 procedure TfWstTypeLibraryEdit.SaveToFile (const AFileName : string );