|
@@ -1403,6 +1403,7 @@ type
|
|
|
|
|
|
procedure RegisterInitComponentHandler(ComponentClass: TComponentClass; Handler: TInitComponentHandler);
|
|
procedure RegisterInitComponentHandler(ComponentClass: TComponentClass; Handler: TInitComponentHandler);
|
|
Procedure RegisterClass(AClass : TPersistentClass);
|
|
Procedure RegisterClass(AClass : TPersistentClass);
|
|
|
|
+Procedure RegisterClasses(AClasses : TArray<TPersistentClass>);
|
|
Function GetClass(AClassName : string) : TPersistentClass;
|
|
Function GetClass(AClassName : string) : TPersistentClass;
|
|
procedure RegisterFindGlobalComponentProc(AFindGlobalComponent: TFindGlobalComponent);
|
|
procedure RegisterFindGlobalComponentProc(AFindGlobalComponent: TFindGlobalComponent);
|
|
procedure UnregisterFindGlobalComponentProc(AFindGlobalComponent: TFindGlobalComponent);
|
|
procedure UnregisterFindGlobalComponentProc(AFindGlobalComponent: TFindGlobalComponent);
|
|
@@ -9318,6 +9319,15 @@ begin
|
|
ClassList[AClass.ClassName]:=AClass;
|
|
ClassList[AClass.ClassName]:=AClass;
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
+Procedure RegisterClasses(AClasses : TArray<TPersistentClass>);
|
|
|
|
+var
|
|
|
|
+ AClass : TPersistentClass;
|
|
|
|
+
|
|
|
|
+begin
|
|
|
|
+ for AClass in AClasses do
|
|
|
|
+ RegisterClass(AClass);
|
|
|
|
+end;
|
|
|
|
+
|
|
Function GetClass(AClassName : string) : TPersistentClass;
|
|
Function GetClass(AClassName : string) : TPersistentClass;
|
|
|
|
|
|
begin
|
|
begin
|