TlrVisualControl

type TlrVisualControl = class(TfrControl)

protected

  FControl: TControl;

  procedure SetVisible(); override;

  procedure PaintDesignControl; override;

  procedure SetName(); override;

  procedure AfterCreate; override;

  function CreateControl; virtual; abstract;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure LoadFromXML(); override;

  procedure SaveToXML(); override;

  procedure UpdateControlPosition; override;

  procedure AttachToParent; override;

  procedure Assign(); override;

  property Control: TControl; [rw]

  property AutoSize: Boolean; [rw]

  property Color: TColor; [rw]

  property Caption: string; [rw]

  property Text: string; [rw]

  property Font: TFont; [rw]

  property Hint: string; [rw]

  property OnClick: TfrScriptStrings; [rw]

published

  property Enabled: Boolean; [rw]

end;

TlrVisualControl

TObject