TButtonEx

type TButtonEx = class(TCustomButton)

protected

  procedure CalculatePreferredSize(); override;

  class function GetControlClassDefaultSize; override;

  function GetDrawTextFlags;

  procedure MouseEnter; override;

  procedure MouseLeave; override;

  procedure PaintButton;

  procedure PaintCustomButton;

  procedure PaintThemedButton;

  procedure WMKillFocus(); message;

  procedure WMPaint(); message;

  procedure WMSetFocus(); message;

  procedure WndProc(); override;

public

  constructor Create(); override;

  destructor Destroy; override;

published

  property Align;

  property Anchors;

  property AutoSize;

  property BorderSpacing;

  property Cancel;

  property Caption: string; [rw]

  property Constraints;

  property Cursor;

  property Default;

  property DragCursor;

  property DragKind;

  property DragMode;

  property Enabled;

  property Font;

  property Height;

  property HelpContext;

  property HelpKeyword;

  property HelpType;

  property Hint;

  property Left;

  property ModalResult;

  property ParentBiDiMode;

  property ParentFont;

  property ParentShowHint;

  property PopupMenu;

  property ShowHint;

  property TabOrder;

  property TabStop;

  property Tag;

  property Top;

  property Visible;

  property Width;

  property OnChangeBounds;

  property OnClick;

  property OnContextPopup;

  property OnDragDrop;

  property OnDragOver;

  property OnEndDrag;

  property OnEnter;

  property OnExit;

  property OnKeyDown;

  property OnKeyPress;

  property OnKeyUp;

  property OnMouseDown;

  property OnMouseEnter;

  property OnMouseLeave;

  property OnMouseMove;

  property OnMouseUp;

  property OnResize;

  property OnStartDrag;

  property OnUTF8KeyPress;

  property Alignment: TAlignment; [rw]

  property Border: TButtonExBorder; [rw]

  property Colors: TButtonExColors; [rw]

  property DefaultDrawing: Boolean; [rw]

  property FontDisabled: TFont; [rw]

  property FontDown: TFont; [rw]

  property FontFocused: TFont; [rw]

  property FontHot: TFont; [rw]

  property Gradient: Boolean; [rw]

  property Margin: Integer; [rw]

  property ShowFocusRect: Boolean; [rw]

  property Wordwrap: Boolean; [rw]

end;

TButtonEx

TObject