Class TRootForm (unit Rootform)

Inherits from

TForm

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.

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;