Class TRootForm (unit Rootform) |
Inherits from
TForm
Constructor Create(AOwner : TComponent);
- ftClassTable
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);
property ClassLevel : Integer
property CurrentClass : TClass
FCurrentClass : TClass;
When we load resources we will start at base class and load resources } { For each class.
FCurrentLevel : Integer;
FLoaded : TList;
FLoading : Boolean;
FMyName : String;
FReader : TReader;
FRegisteredClasses : TList;
FZonked : TComponent;
Constructor Create(AOwner : TComponent);
ftClassTable
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);
property ClassLevel : Integer
property CurrentClass : TClass
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;