Type registration : complex objects serialization's helpers are now fully created at registration time.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@808 8e941d3f-bd1b-0410-a28a-d453659cc2b4

wst/trunk/base_service_intf.pas

@@ -1489,6 +1489,8 @@ type
     FInternalNames : TStrings;
   private
     procedure CreateInternalObjects();{$IFDEF USE_INLINE}inline;{$ENDIF}
+  protected
+    procedure Init(); virtual;
   public
     constructor Create(
             AOwner        : TTypeRegistry;
@@ -2959,6 +2961,11 @@ begin
   end;
 end;
 
+procedure TTypeRegistryItem.Init();
+begin
+
+end;
+
 constructor TTypeRegistryItem.Create(
         AOwner        : TTypeRegistry;
         ANameSpace    : String;
@@ -3203,6 +3210,7 @@ begin
   if ( i = -1 ) then begin
     Result := GetItemClassFor(ADataType).Create(Self,ANameSpace,ADataType,ADeclaredName);
     Add(Result);
+    Result.Init();
 {$IFDEF TRemotableTypeInitializer_Initialize}
     InitializeItem(Result);
 {$ENDIF TRemotableTypeInitializer_Initialize}