TCustomBGRAImageButton

type TCustomBGRAImageButton = class(TGraphicControl)

protected

  FAnimation: Boolean;

  FAutoSizeExtraX: Integer;

  FAutoSizeExtraY: Integer;

  FBGRA: TBGRABitmap;

  FBGRADisabled: TBGRABitmap;

  FBGRADown: TBGRABitmap;

  FBGRAHot: TBGRABitmap;

  FBGRAText: TBGRABitmap;

  FBGRAUp: TBGRABitmap;

  FBitmapFile: string;

  FBitmapOptions: TCustomResizeBitmap;

  FBmp: TBitmap;

  FBmpState: TButtonState;

  FChecked: Boolean;

  FCheckedState: TButtonState;

  FModalResult: TModalResult;

  FOnPlaySound: TCustomBGRAImageButtonPlaySound;

  FOnRedraw: TCustomBGRAImageButtonRedraw;

  FShadow: TBGRATextEffectShadow;

  FSound: Boolean;

  FSoundEnter: string;

  FSoundClick: string;

  FTextVisible: Boolean;

  FTimer: TTimer;

  FTimerIncreasing: Boolean;

  FTimerStep: Integer;

  FToggle: Boolean;

  procedure SetFAnimation(); virtual;

  procedure SetFAutoSizeExtraX(); virtual;

  procedure SetFAutoSizeExtraY(); virtual;

  procedure SetFBitmapFile(); virtual;

  procedure SetFBitmapOptions(); virtual;

  procedure SetFBmp(); virtual;

  procedure SetFChecked(); virtual;

  procedure SetFTextVisible(); virtual;

  procedure DoButtonDown; virtual;

  procedure DoButtonEnter; virtual;

  procedure DoButtonLeave; virtual;

  procedure DoButtonUp; virtual;

  procedure Click; override;

  procedure MouseDown(); override;

  procedure MouseEnter; override;

  procedure MouseLeave; override;

  procedure MouseUp(); override;

  procedure CalculatePreferredSize(); override;

  procedure Animate(); virtual;

  procedure CMChanged(); virtual; message;

  procedure CMFontChanged(); virtual; message;

  procedure DoPlaySound(); virtual;

  procedure Paint; override;

  procedure RealSetText(); override;

  procedure UpdateBmp(); virtual;

  procedure UpdateTxt; virtual;

  property ABGRA: TBGRABitmap; [rw]

  property ABGRADisabled: TBGRABitmap; [rw]

  property ABGRADown: TBGRABitmap; [rw]

  property ABGRAHot: TBGRABitmap; [rw]

  property ABGRAText: TBGRABitmap; [rw]

  property ABGRAUp: TBGRABitmap; [rw]

  property ABmpState: TButtonState; [rw]

  property ACheckedState: TButtonState; [rw]

  property ATimer: TTimer; [rw]

  property ATimerIncreasing: Boolean; [rw]

  property ATimerStep: Integer; [rw]

public

  constructor Create(); override;

  destructor Destroy; override;

  function BitmapLoadFromFile(); virtual;

  function LoadFromFile(); virtual;

  function SaveToFile(); virtual;

  procedure Assign(); override;

  property Animation: Boolean; [rw]

  property AutoSizeExtraHorizontal: Integer; [rw]

  property AutoSizeExtraVertical: Integer; [rw]

  property Bitmap: TBitmap; [rw]

  property BitmapFile: string; [rw]

  property BitmapOptions: TCustomResizeBitmap; [rw]

  property Checked: Boolean; [rw]

  property ModalResult: TModalResult; [rw]

  property OnPlaySound: TCustomBGRAImageButtonPlaySound; [rw]

  property OnRedraw: TCustomBGRAImageButtonRedraw; [rw]

  property Shadow: TBGRATextEffectShadow; [rw]

  property Sound: Boolean; [rw]

  property SoundClick: string; [rw]

  property SoundEnter: string; [rw]

  property TextVisible: Boolean; [rw]

  property Toggle: Boolean; [rw]

end;

TCustomBGRAImageButton

TObject