TCustomBCMDButtonFocus

type TCustomBCMDButtonFocus = class(TBGRACustomCtrl)

protected

  procedure WMSetFocus(); message;

  procedure WMKillFocus(); message;

  procedure UpdateFocus();

  procedure KeyDown(); override;

  procedure KeyUp(); override;

  procedure CalculatePreferredSize(); override;

  procedure Paint; override;

  procedure MouseDown(); override;

  procedure MouseUp(); override;

  procedure MouseEnter; override;

  procedure MouseLeave; override;

  procedure RealSetText(); override;

  procedure OnTimer();

  procedure OnStartTimer();

  procedure OnStopTimer();

  function easeInOutQuad();

  function easeOutQuad();

  procedure UncheckOthers;

  class function GetControlClassDefaultSize; override;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure SelectAll;

  procedure UnselectAll;

  procedure InvertSelection;

  function GetSelected;

published

  property Animation: Boolean; [rw]

  property Alignment: TAlignment; [rw]

  property TextLayout: TTextLayout; [rw]

  property StyleNormal: TBCMDButtonStyle; [rw]

  property StyleHover: TBCMDButtonStyle; [rw]

  property StyleActive: TBCMDButtonStyle; [rw]

  property StyleDisabled: TBCMDButtonStyle; [rw]

  property Checked: Boolean; [rw]

  property Kind: TBCMDButtonKind; [rw]

  property TextAutoSize: Boolean; [rw]

  property TextProportional: Boolean; [rw]

  property TextProportionalRatio: single; [rw]

end;

TCustomBCMDButtonFocus

TBGRACustomCtrl

TObject