Class TWABD_FormSection_Base (unit WABD_Objects)

Inherits from

TWABD_Parent

Constructors


constructor Create(AOwner: TComponent);

TWABD_FormSection_Base


Functions

function AddControl(ControlClass: TWABD_SectionObjectClass; Col, Row: integer): TWABD_SectionObject;


function ControlAtPos(Col, Row: integer): TWABD_SectionObject;


procedure HTML_To_Object(FormVal: string);


function Object_To_Control(AOwner: TWinControl): TControl;

Set each control's LeftPos & TopPos to the new values (+CellBorder

function Object_To_HTML: string;

y

procedure AutoSizeRowCol;


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


function DoFormSection: string;


procedure SetGridX(NewX: integer);


procedure SetGridY(NewY: integer);


Properties

property CellBorder : integer


property CellPadding : integer


property CellSpacing : integer


property GridX : integer


property GridY : integer


Events

Variables

FCellBorder : integer;


FCellPad : integer;


FCellSpace : integer;


FGridX : integer;


FGridY : integer;


ColSizes : array[0..255] of integer;


ColTot : array[0..255] of integer;


FindCol : integer;


FindCon : TWABD_SectionObject;


FindRow : integer;

Used by ControlAtFunc

NumCol : integer;


NumRow : integer;


RowSizes : array[0..255] of integer;

eg 5,5,6,6

RowTot : array[0..255] of integer;

eg 5,10,16,22


Constructors


constructor Create(AOwner: TComponent);

TWABD_FormSection_Base


Functions


function AddControl(ControlClass: TWABD_SectionObjectClass; Col, Row: integer): TWABD_SectionObject;


function ControlAtPos(Col, Row: integer): TWABD_SectionObject;


procedure HTML_To_Object(FormVal: string);


function Object_To_Control(AOwner: TWinControl): TControl;

Set each control's LeftPos & TopPos to the new values (+CellBorder


function Object_To_HTML: string;

y


procedure AutoSizeRowCol;


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


function DoFormSection: string;


procedure SetGridX(NewX: integer);


procedure SetGridY(NewY: integer);


Properties


property CellBorder : integer


property CellPadding : integer


property CellSpacing : integer


property GridX : integer


property GridY : integer


Events


Variables


FCellBorder : integer;


FCellPad : integer;


FCellSpace : integer;


FGridX : integer;


FGridY : integer;


ColSizes : array[0..255] of integer;


ColTot : array[0..255] of integer;


FindCol : integer;


FindCon : TWABD_SectionObject;


FindRow : integer;

Used by ControlAtFunc


NumCol : integer;


NumRow : integer;


RowSizes : array[0..255] of integer;

eg 5,5,6,6


RowTot : array[0..255] of integer;

eg 5,10,16,22