Class TWABD_Object (unit WABD_Objects)

Inherits from

TComponent

Constructors


constructor Create(AOwner: TComponent);

************************************************************************ TWABD_Object


Functions

destructor Destroy;


function GetParentForm: TWABD_Form;


procedure HTML_To_Object(FormVal: string);


function Object_To_Control(AOwner: TWinControl): TControl;


function Object_To_HTML: string;


procedure Changed;


procedure DefineProperties(Filer: TFiler);


function GetOrder: integer;


procedure Loaded;


procedure ReadParentName(Reader: TReader);


procedure SetName(const Value: TComponentName);


procedure SetOrder(NewOrder: integer);


procedure SetParent(NewParent: TWABD_Parent);

TRACE('DESTROYING Object: %s (%s)', [Name, ClassName]);

procedure SetVisible(b: boolean);


procedure WriteParentName(Writer: TWriter);


Properties

property About : TWABDAbout


property Visible : boolean


property Order : integer


property Parent : TWABD_Parent


Events

event OnChange : TNotifyEvent


Variables

FAbout : TWABDAbout;


FOnChange : TNotifyEvent;

tmp to hold name before all components are loaded

FOrder : integer;


FParent : TWABD_Parent;


FParentName : string;


FVisible : boolean;


InLoaded : boolean;

Only used on loading


Constructors


constructor Create(AOwner: TComponent);

************************************************************************ TWABD_Object


Functions


destructor Destroy;


function GetParentForm: TWABD_Form;


procedure HTML_To_Object(FormVal: string);


function Object_To_Control(AOwner: TWinControl): TControl;


function Object_To_HTML: string;


procedure Changed;


procedure DefineProperties(Filer: TFiler);


function GetOrder: integer;


procedure Loaded;


procedure ReadParentName(Reader: TReader);


procedure SetName(const Value: TComponentName);


procedure SetOrder(NewOrder: integer);


procedure SetParent(NewParent: TWABD_Parent);

TRACE('DESTROYING Object: %s (%s)', [Name, ClassName]);


procedure SetVisible(b: boolean);


procedure WriteParentName(Writer: TWriter);


Properties


property About : TWABDAbout


property Visible : boolean


property Order : integer


property Parent : TWABD_Parent


Events


event OnChange : TNotifyEvent


Variables


FAbout : TWABDAbout;


FOnChange : TNotifyEvent;

tmp to hold name before all components are loaded


FOrder : integer;


FParent : TWABD_Parent;


FParentName : string;


FVisible : boolean;


InLoaded : boolean;

Only used on loading