Class TWABD_Object (unit WABD_Objects) |
Inherits from
TComponent
constructor Create(AOwner: TComponent);
- ************************************************************************ TWABD_Object
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);
property About : TWABDAbout
property Visible : boolean
property Order : integer
property Parent : TWABD_Parent
event OnChange : TNotifyEvent
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
constructor Create(AOwner: TComponent);
************************************************************************ TWABD_Object
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);
property About : TWABDAbout
property Visible : boolean
property Order : integer
property Parent : TWABD_Parent
event OnChange : TNotifyEvent
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