| Class TWABD_Object (unit WABD_Objects) |
TComponent
| Constructors |
constructor Create(AOwner: TComponent);| 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);
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;
FOrder : integer;
FParent : TWABD_Parent;
FParentName : string;
FVisible : boolean;
InLoaded : boolean;| 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