TfpgWidget

type TfpgWidget = class(TfpgWindow)

protected

  procedure MsgPaint(); message;

  procedure MsgResize(); message;

  procedure MsgMove(); message;

  procedure MsgKeyChar(); message;

  procedure MsgKeyPress(); message;

  procedure MsgKeyRelease(); message;

  procedure MsgMouseDown(); message;

  procedure MsgMouseUp(); message;

  procedure MsgMouseMove(); message;

  procedure MsgDoubleClick(); message;

  procedure MsgMouseEnter(); message;

  procedure MsgMouseExit(); message;

  procedure MsgMouseScroll(); message;

  FFormDesigner: TObject;

  FVisible: Boolean;

  FEnabled: Boolean;

  FFocusable: Boolean;

  FFocused: Boolean;

  FTabOrder: Integer;

  FAnchors: TAnchors;

  FActiveWidget: TfpgWidget;

  FAlign: TAlign;

  FHint: TfpgString;

  FShowHint: Boolean;

  FParentShowHint: Boolean;

  FBackgroundColor: TfpgColor;

  FTextColor: TfpgColor;

  FIsContainer: Boolean;

  function GetOnShowHint; virtual;

  procedure SetOnShowHint(); virtual;

  procedure SetBackgroundColor(); virtual;

  procedure SetTextColor(); virtual;

  function GetParent;

  procedure SetParent();

  procedure SetEnabled(); virtual;

  procedure SetVisible(); virtual;

  procedure SetShowHint(); virtual;

  procedure SetParentShowHint(); virtual;

  function GetHint; virtual;

  procedure SetHint(); virtual;

  procedure DoUpdateWindowPosition; override;

  procedure DoAlign();

  procedure DoResize;

  procedure DoShowHint();

  procedure HandlePaint; virtual;

  procedure HandleKeyChar(); virtual;

  procedure HandleKeyPress(); virtual;

  procedure HandleKeyRelease(); virtual;

  procedure HandleSetFocus; virtual;

  procedure HandleKillFocus; virtual;

  procedure HandleLMouseDown(); virtual;

  procedure HandleRMouseDown(); virtual;

  procedure HandleLMouseUp(); virtual;

Occurs after the component processed the mouse button press event

  procedure HandleRMouseUp(); virtual;

  procedure HandleMouseMove(); virtual;

  procedure HandleDoubleClick(); virtual;

  procedure HandleMouseEnter; virtual;

  procedure HandleMouseExit; virtual;

  procedure HandleMouseScroll(); virtual;

  function FindFocusWidget();

  procedure HandleAlignments(); virtual;

  procedure HandleShow; virtual;

  procedure InternalHandleShow; virtual;

  procedure HandleHide; virtual;

  procedure MoveAndResize();

  procedure RePaint;

  property OnClick: TNotifyEvent; [rw]

  property OnDoubleClick: TMouseButtonEvent; [rw]

  property OnEnter: TNotifyEvent; [rw]

  property OnExit: TNotifyEvent; [rw]

  property OnKeyPress: TKeyPressEvent; [rw]

  property OnMouseDown: TMouseButtonEvent; [rw]

  property OnMouseEnter: TNotifyEvent; [rw]

  property OnMouseExit: TNotifyEvent; [rw]

  property OnMouseMove: TMouseMoveEvent; [rw]

  property OnMouseUp: TMouseButtonEvent; [rw]

  property OnPaint: TPaintEvent; [rw]

  property OnResize: TNotifyEvent; [rw]

  property OnShowHint: THintEvent; [rw]

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure AfterConstruction; override;

  function GetClientRect; virtual;

  function GetBoundsRect; virtual;

  function InDesigner;

  procedure InvokeHelp; virtual;

  procedure Realign;

  procedure SetFocus;

  procedure KillFocus;

  procedure MoveAndResizeBy();

  procedure SetPosition(); virtual;

Sets the position and size of the component

  procedure Invalidate;

  property FormDesigner: TObject; [rw]

If assigned, then this widget is being editing in the Form Designer

  property Parent: TfpgWidget; [rw]

An alias for Owner

  property ActiveWidget: TfpgWidget; [rw]

  property IsContainer: Boolean; [r]

Can this component managed child components

  property Visible: Boolean; [rw]

  property Enabled: Boolean; [rw]

  property TabOrder: Integer; [rw]

  property Focusable: Boolean; [rw]

This determines if the widget is allowed to received keyboard focus

  property Focused: Boolean; [rw]

  property Anchors: TAnchors; [rw]

Allows the component to resize or reposition based on its Parent.

  property Align: TAlign; [rw]

  property Hint: TfpgString; [rw]

  property ShowHint: Boolean; [rws]

  property ParentShowHint: Boolean; [rw]

  property BackgroundColor: TfpgColor; [rw]

  property TextColor: TfpgColor; [rw]

end;

TfpgWidget

TfpgWindow

TfpgWindowImpl

TObject