| Class TWABD_FormSection_Base (unit WABD_Objects) |
| Constructors |
constructor Create(AOwner: TComponent);| 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;
function Object_To_HTML: string;
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;
NumCol : integer;
NumRow : integer;
RowSizes : array[0..255] of integer;
RowTot : array[0..255] of integer;| 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