TCustomBitmappedButton

type TCustomBitmappedButton = class(TCustomControl)

protected

  FImageBtn: TPicture;

  FImageBtnDown: TPicture;

  FImageBtnMouseOver: TPicture;

  FImageBtnFocused: TPicture;

  FImageBtnChecked: TPicture;

  FOptions: TBitmappedButtonOptions;

  FState: TBitmappedButtonState;

  procedure DoEnter; override;

  procedure DoExit; override;

  procedure KeyDown(); override;

  procedure KeyUp(); override;

  procedure MouseDown(); override;

  procedure MouseUp(); override;

  procedure MouseEnter; override;

  procedure MouseLeave; override;

  procedure DoButtonDown;

  procedure DoButtonUp;

  procedure RealSetText(); override;

  property ImageBtn: TPicture; [r]

  property ImageBtnDown: TPicture; [r]

  property ImageBtnFocused: TPicture; [r]

  property Options: TBitmappedButtonOptions; [rw]

  property OnChange: TNotifyEvent; [rw]

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure EraseBackground(); override;

  procedure Paint; override;

  function GetStateBitmap;

end;

TCustomBitmappedButton

TObject