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
This commit is contained in:
inoussa
2009-05-25 16:08:42 +00:00
parent 1ce28d56b6
commit 4d76fe4edd
4 changed files with 64 additions and 69 deletions

View File

@ -283,10 +283,10 @@ end;
procedure initialize_config_objects();
begin
TwstConfigService.RegisterAttributeProperty('Name');
GetTypeRegistry().Register(sWST_BASE_NS,TypeInfo(TwstConfigService),'Service');
GetTypeRegistry().Register(sWST_BASE_NS,TypeInfo(TwstConfigServiceArray),'Services');
GetTypeRegistry().Register(sWST_BASE_NS,TypeInfo(TWstConfigurationObject),'WST_Configuration');
TwstConfigService.RegisterAttributeProperty('Name');
GetTypeRegistry().ItemByTypeInfo[TypeInfo(TwstConfigServiceArray)].RegisterExternalPropertyName('Item','service');
end;