Unit WABD_Objects

Classes

TGarbageThread -
TJumpLabel -
TPaintPanel - ************************************************************************ Misc.
TStringGridEx -
TWABDEditForm -
TWABD_Anchor -
TWABD_BaseTable -
TWABD_Base_Image -
TWABD_BlankLines -
TWABD_Button -
TWABD_CheckBox -
TWABD_ComboBox -
TWABD_DataTable -
TWABD_Edit -
TWABD_Form -
TWABD_FormSection -
TWABD_FormSection_Base -
TWABD_Header -
TWABD_Hidden -
TWABD_HotSpot -
TWABD_HotSpots -
TWABD_Image -
TWABD_Label -
TWABD_LinesObject -
TWABD_ListBox -
TWABD_LiveImage -
TWABD_Memo -
TWABD_Object -
TWABD_ObjectClass -
TWABD_Parent -
TWABD_RadioButton -
TWABD_Raw -
TWABD_SectionObject - ************************************************************************ "Form" Level objects (Buttons, Labels, Edit boxes, etc
TWABD_SectionObjectClass -
TWABD_Session -
TWABD_SessionMgr -
TWABD_Table -
TWABD_Table_Strings -

Functions

ASCII_To_HTML -
GetLocalBrowserForm - FindReplace(Result, '&', '&'); // Can't do - inifinite recursion
GetWABDClassListCount -
GetWABDClassListItem -
HTML_To_ASCII -
Register - ************************************************************************ Registration
RegisterWABDComponent -
RegisterWABDComponents - ************************************************************************ RegisterWABDComponent - so you can create your own HTML components!

Types

PStringArray
TChildNameChangedProc
TLiveImageType
TRecClickEvent
TStringArray
TWABDTableClick
TWABD_ForEach
TWABD_MouseDown
TWABD_OnCreateSession
TWABD_OnDestroySession
TWABD_OnException
TWABD_ReflectNotify

Constants

BACKGND_PIC_NAME
CR
LabPointSizes
PIXELS_PER_CHAR_X
PIXELS_PER_CHAR_Y
WABD_BUTTON_STR
WABD_LABEL_STR
WABD_RADIO_STR
WABD_SES_ID_STR
WABD_STATUS_STR
WABD_VERSION

Variables

LiveImageNum
LocalBrowserException
LocalBrowserLogoff
WABDClassList


Functions


function ASCII_To_HTML(const Input: string): string;


function GetLocalBrowserForm: TWABD_Form;

FindReplace(Result, '&', '&'); // Can't do - inifinite recursion

function GetWABDClassListCount: integer;


function GetWABDClassListItem(i: integer): TWABD_ObjectClass;


function HTML_To_ASCII(const Input: string): string;


procedure Register;

************************************************************************ Registration

procedure RegisterWABDComponent(WABDClass: TWABD_ObjectClass);


procedure RegisterWABDComponents(WABDClasses: array of TWABD_ObjectClass);

************************************************************************ RegisterWABDComponent - so you can create your own HTML components!

Types


PStringArray = ^TStringArray

TChildNameChangedProc = procedure(Sender: TObject; const OldName, NewName: string) of object

TLiveImageType = (liBMP, liJPEG);

TRecClickEvent = procedure(Sender: TWABD_DataTable; RowIndex: integer; var MoveToRecord: boolean) of object

TStringArray = array[0..0] of string;

TWABDTableClick = procedure(Sender: TObject; RowIndex: integer) of object

TWABD_ForEach = procedure(Child: TWABD_Object; var Stop: boolean; UserData: pointer) of object

TWABD_MouseDown = procedure(Sender: TObject; X, Y: integer) of object

TWABD_OnCreateSession = procedure(var NewSession: TWABD_Session) of object

TWABD_OnDestroySession = procedure(Session: TWABD_Session) of object

TWABD_OnException = procedure(E: Exception; var Handled: boolean) of object

TWABD_ReflectNotify = procedure(Sender: TObject; AComponent: TComponent; Operation: TOperation) of object
************************************************************************ "Top" Level objects

Constants

BACKGND_PIC_NAME = 'FormBgndImg'

"Name" used for radiobuttons

CR = #13#10

LabPointSizes = (6,8,9,12,18,24,36)

Used w/ LocalBrowser and Form editor

PIXELS_PER_CHAR_X = 6

PIXELS_PER_CHAR_Y = 18

I just picked this number

WABD_BUTTON_STR = 'WABD_BUTTON_NAME'

WABD_LABEL_STR = 'WABDLABEL'

Magic word to get status info remotely (eg. WABDSTATUS=1

WABD_RADIO_STR = 'WABD_RADIO_NAME'

"Name" used for buttons

WABD_SES_ID_STR = 'SESSIONID'

WABD_STATUS_STR = 'WABDSTATUS'

Hidden Text field to hold session information

WABD_VERSION = 1.25

I just picked this number

Variables

LiveImageNum : integer

LocalBrowserException : string

These are to interface with the Localbrowser

LocalBrowserLogoff : boolean

WABDClassList : TList