TFormControlObj

type TFormControlObj = class(TFloatingObj)

protected

  Active: Boolean;

  CodePage: Integer;

  PaintBitmap: TBitmap;

  function GetClientHeight; override;

  function GetClientLeft; virtual;

  function GetClientTop; virtual;

  function GetClientWidth; override;

  function GetControl; virtual; abstract;

  function GetTabOrder; virtual;

  function GetTabStop; virtual;

  function IsHidden; virtual;

  procedure DoOnChange; virtual;

  procedure SaveContents; virtual;

  procedure SetClientHeight(); override;

  procedure SetClientLeft(); virtual;

  procedure SetClientTop(); virtual;

  procedure SetClientWidth(); override;

  procedure SetTabOrder(); virtual;

  procedure SetTabStop(); virtual;

public

  MyForm: THtmlForm;

  BordT: Integer;

  BordB: Integer;

  FHeight: Integer;

  FWidth: Integer;

  Disabled: Boolean;

  Readonly: Boolean;

  BkColor: TColor;

  ShowIt: Boolean;

  OnBlurMessage: ThtString;

  OnChangeMessage: ThtString;

  OnClickMessage: ThtString;

  OnFocusMessage: ThtString;

  constructor Create(); virtual;

  constructor CreateCopy(); override;

  destructor Destroy; override;

  function GetSubmission(); virtual;

  procedure DrawLogicInline(); override;

  procedure DrawInline(); override;

  procedure DrawInline1(); virtual;

  procedure EnterEvent();

  procedure ExitEvent();

  procedure FormControlClick();

  procedure HandleMouseMove();

  procedure Hide; virtual;

  procedure ProcessProperties(); virtual;

  procedure ResetToValue; virtual;

  procedure SetData(); virtual;

  procedure SetDataInit; virtual;

  procedure SetHeightWidth(); virtual;

  procedure Show; virtual;

  property Hidden: Boolean; [r]

  property ID: ThtString; [rw]

  property Left: Integer; [rw]

  property Name: ThtString; [rw]

  property TabOrder: Integer; [rw]

  property TabStop: Boolean; [rw]

  property TheControl: TWinControl; [r]

  property Title: ThtString; [rw]

  property Top: Integer; [rw]

  property Value: ThtString; [rw]

end;

TFormControlObj

TFloatingObj

TBlockBase

TSectionBase

THtmlNode

TIDObject

TObject