| Class TRootForm (unit Rootform) |
TForm
| Constructors |
Constructor Create(AOwner : TComponent);| Functions |
Destructor Destroy;
Procedure Loaded;
Procedure AddLoaded(Component : TComponent);
Procedure AutoDeregisterClasses;
Procedure AutoRegisterClasses;of if right class
Procedure CallLoaded(Component : TComponent);
Procedure LoadDefaults(Component : TComponent);
Procedure LoadRes;
procedure NameMagic(Reader: TReader; Component: TComponent; var Name: string);
Procedure ReadAState(Stream : TStream);
Procedure ReadFormRes(ResName : String);| Properties |
property ClassLevel : Integer
property CurrentClass : TClass| Events |
| Variables |
FCurrentClass : TClass;
FCurrentLevel : Integer;
FLoaded : TList;
FLoading : Boolean;
FMyName : String;
FReader : TReader;
FRegisteredClasses : TList;
FZonked : TComponent;| Constructors |
Constructor Create(AOwner : TComponent);ftClassTable
| Functions |
Destructor Destroy;Now loadres for list starting from end
Procedure Loaded;read this form from the stream!
Procedure AddLoaded(Component : TComponent);Fake outselves as loaded for every slot in FLoaded for TReader
Procedure AutoDeregisterClasses;If this class is not registered then register it and make a note
Procedure AutoRegisterClasses;This one is an event handler
of if right class
Procedure CallLoaded(Component : TComponent);Don't add SELF to our loaded list as WE get called by the READER
Procedure LoadDefaults(Component : TComponent);
Procedure LoadRes;now loadres for all parents starting from root parent
procedure NameMagic(Reader: TReader; Component: TComponent; var Name: string);
Procedure ReadAState(Stream : TStream);We get a stream on the res
Procedure ReadFormRes(ResName : String);| Properties |
property ClassLevel : Integer
property CurrentClass : TClass| Events |
| Variables |
FCurrentClass : TClass;When we load resources we will start at base class and load resources } { For each class. FCurrentClass tells us which class we are on.
FCurrentLevel : Integer;
FLoaded : TList;
FLoading : Boolean;
FMyName : String;
FReader : TReader;
FRegisteredClasses : TList;
FZonked : TComponent;