Class TWABD_Form (unit WABD_Objects) |
Inherits from
TWABD_Parent
constructor Create(AOwner: TComponent);
- No one should use this but it's Component Editor
Do nothing
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);
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
event OnCreate : TNotifyEvent
event OnShow : TNotifyEvent
event OnChildNameChanged : TChildNameChangedProc
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;
constructor Create(AOwner: TComponent);
No one should use this but it's Component Editor
Do nothing
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);
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
event OnCreate : TNotifyEvent
event OnShow : TNotifyEvent
event OnChildNameChanged : TChildNameChangedProc
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;