TBGRAThemeButton

type TBGRAThemeButton = class(TBGRAThemeControl)

protected

  procedure CalculatePreferredSize(); override;

  procedure Notification(); override;

  class function GetControlClassDefaultSize; override;

  procedure MouseEnter; override;

  procedure MouseLeave; override;

  procedure MouseDown(); override;

  procedure MouseUp(); override;

  procedure Click; override;

  procedure SetEnabled(); override;

  procedure TextChanged; override;

  procedure Paint; override;

  procedure Resize; override;

  procedure UpdateHoverState;

  property State: TBGRAThemeButtonState; [rw]

public

  constructor Create(); override;

published

  property Action;

  property ModalResult: TModalResult; [rw]

  property Align;

  property Anchors;

  property BorderSpacing;

  property Caption;

  property Enabled;

  property Font;

  property ImageList: TBGRASVGImageList; [rw]

  property ImageIndex: Integer; [rw]

  property OnClick;

  property OnMouseDown;

  property OnMouseUp;

  property OnMouseEnter;

  property OnMouseLeave;

end;

TBGRAThemeButton

TBGRAThemeControl

TObject