Class TWABD_Form (unit WABD_Objects)

Inherits from

TWABD_Parent

Constructors


constructor Create(AOwner: TComponent);

No one should use this but it's Component Editor

Do nothing



Functions

procedure ChildChanged(Sender: TObject);

Not sure what to do here, maybe have a form OnClick event? -bpz

destructor Destroy;


procedure HTML_To_Object(FormVal: string);

Add the Headers and Footers

function Object_To_HTML: string;


procedure Show;


procedure Call_Handler(InputList: TStrings);


function DoMain: string;


function GetFormBody: string;


function GetLocalError: string;

if RunningLocal then begin Result := ''; exit; end;

function GetNagStr: string;

procedure Notification(AComponent: TComponent; Operation: TOperation);

procedure ParseImageParams(Inputs: TStrings; var ImageName: string; var x,y: integer);

Skip Image clicks

procedure SetEdForm(NewEdForm: TWABDEditForm);

************************************************************************ TWABD_Form

procedure SetName(const Value: TComponentName);


procedure SetProperties(InputList: TStrings);


procedure UncheckRadioButs(Child: TWABD_Object; var Stop: boolean; UserData: pointer);


Properties

property BgndColor : TColor


property BgrdImage : TWABD_Image


property EditForm : TWABDEditForm


property FormTitle : string


property LinkColor : TColor


property Session : TWABD_Session


property TextColor : TColor


property VLinkColor : TColor


Events

event OnCreate : TNotifyEvent


event OnShow : TNotifyEvent


event OnChildNameChanged : TChildNameChangedProc


Variables

RefNotify : TWABD_ReflectNotify;


FBgndColor : TColor;


FBgrdImage : TWABD_Image;


FEdForm : TWABDEditForm;


FLinkColor : TColor;


FNameChge : TChildNameChangedProc;


FOnCreate : TNotifyEvent;


FOnShow : TNotifyEvent;


FSesID : integer;


FTextColor : TColor;


FTitle : string;


FVLinkColor : TColor;


FWSession : TWABD_Session;



Constructors


constructor Create(AOwner: TComponent);

No one should use this but it's Component Editor

Do nothing


Functions


procedure ChildChanged(Sender: TObject);

Not sure what to do here, maybe have a form OnClick event? -bpz


destructor Destroy;


procedure HTML_To_Object(FormVal: string);

Add the Headers and Footers


function Object_To_HTML: string;


procedure Show;


procedure Call_Handler(InputList: TStrings);


function DoMain: string;


function GetFormBody: string;


function GetLocalError: string;

if RunningLocal then begin Result := ''; exit; end;


function GetNagStr: string;


procedure Notification(AComponent: TComponent; Operation: TOperation);


procedure ParseImageParams(Inputs: TStrings; var ImageName: string; var x,y: integer);

Skip Image clicks


procedure SetEdForm(NewEdForm: TWABDEditForm);

************************************************************************ TWABD_Form


procedure SetName(const Value: TComponentName);


procedure SetProperties(InputList: TStrings);


procedure UncheckRadioButs(Child: TWABD_Object; var Stop: boolean; UserData: pointer);


Properties


property BgndColor : TColor


property BgrdImage : TWABD_Image


property EditForm : TWABDEditForm


property FormTitle : string


property LinkColor : TColor


property Session : TWABD_Session


property TextColor : TColor


property VLinkColor : TColor


Events


event OnCreate : TNotifyEvent


event OnShow : TNotifyEvent


event OnChildNameChanged : TChildNameChangedProc


Variables


RefNotify : TWABD_ReflectNotify;


FBgndColor : TColor;


FBgrdImage : TWABD_Image;


FEdForm : TWABDEditForm;


FLinkColor : TColor;


FNameChge : TChildNameChangedProc;


FOnCreate : TNotifyEvent;


FOnShow : TNotifyEvent;


FSesID : integer;


FTextColor : TColor;


FTitle : string;


FVLinkColor : TColor;


FWSession : TWABD_Session;