| Class TWABD_Form (unit WABD_Objects) |
| Constructors |
constructor Create(AOwner: TComponent);Do nothing
| Functions |
procedure ChildChanged(Sender: TObject);
destructor Destroy;
procedure HTML_To_Object(FormVal: string);
function Object_To_HTML: string;
procedure Show;
procedure Call_Handler(InputList: TStrings);
function DoMain: string;
function GetFormBody: string;
function GetLocalError: string;
function GetNagStr: string;
procedure ParseImageParams(Inputs: TStrings; var ImageName: string; var x,y: integer);
procedure SetEdForm(NewEdForm: TWABDEditForm);
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;