Browse Source

* Moved class and registration functions to cregist.inc (sg)

fcl 26 years ago
parent
commit
c8506a42d3
1 changed files with 8 additions and 76 deletions
  1. 8 76
      fcl/inc/classes.inc

+ 8 - 76
fcl/inc/classes.inc

@@ -74,6 +74,10 @@
 { TComponent implementation }
 {$i compon.inc}
 
+{ Class and component registration routines }
+{$I cregist.inc}
+
+
 {**********************************************************************
  *       Miscellaneous procedures and functions                       *
  **********************************************************************}
@@ -129,81 +133,6 @@ end;
 
 
 
-{ Class registration routines }
-
-procedure RegisterClass(AClass: TPersistentClass);
-
-begin
-end;
-
-
-procedure RegisterClasses(AClasses: array of TPersistentClass);
-
-begin
-end;
-
-
-procedure RegisterClassAlias(AClass: TPersistentClass; const Alias: string);
-
-begin
-end;
-
-
-procedure UnRegisterClass(AClass: TPersistentClass);
-
-begin
-end;
-
-
-procedure UnRegisterClasses(AClasses: array of TPersistentClass);
-
-begin
-end;
-
-
-procedure UnRegisterModuleClasses(Module: HMODULE);
-
-begin
-end;
-
-
-function FindClass(const ClassName: string): TPersistentClass;
-
-begin
-  FindClass:=nil;
-end;
-
-
-function GetClass(const ClassName: string): TPersistentClass;
-
-begin
-  GetClass:=nil;
-end;
-
-
-
-{ Component registration routines }
-
-procedure RegisterComponents(const Page: string;
-  ComponentClasses: array of TComponentClass);
-
-begin
-end;
-
-
-procedure RegisterNoIcon(ComponentClasses: array of TComponentClass);
-
-begin
-end;
-
-
-procedure RegisterNonActiveX(ComponentClasses: array of TComponentClass;
-  AxRegType: TActiveXRegType);
-
-begin
-end;
-
-
 
 
 { Object filing routines }
@@ -377,7 +306,10 @@ end;
 
 {
   $Log$
-  Revision 1.10  1999-04-13 08:52:29  michael
+  Revision 1.11  1999-09-11 21:59:31  fcl
+  * Moved class and registration functions to cregist.inc  (sg)
+
+  Revision 1.10  1999/04/13 08:52:29  michael
   + Moved strings.inc to stringl.inc, to avoid conflict with strings unit
 
   Revision 1.9  1999/04/08 10:18:50  peter