TBCCustomImageButton

type TBCCustomImageButton = class(TBCGraphicButton)

protected

  procedure DrawControl; override;

  procedure RenderControl; override;

  procedure TextChanged; override;

  procedure FontChanged(); override;

  procedure CMChanged(); virtual; message;

  procedure DoMouseDown; override;

  procedure DoMouseUp; override;

  procedure DoMouseEnter; override;

  procedure DoMouseLeave; override;

  procedure DoMouseMove(); override;

  procedure Click; override;

public

  property AlphaTest: Boolean; [rw]

  property AlphaTestValue: Byte; [rw]

  property Toggle: Boolean; [rw]

  property Pressed: Boolean; [rw]

  property BitmapOptions: TBCImageButtonSliceScalingOptions; [rw]

  property Animation: Boolean; [rw]

  property BitmapFile: string; [rw]

  property TextVisible: Boolean; [rw]

  constructor Create(); override;

  destructor Destroy; override;

  procedure LoadFromBitmapResource();

  procedure LoadFromBitmapFile;

  procedure Assign(); override;

  procedure SaveToFile(); override;

  procedure LoadFromFile(); override;

  procedure AssignFromFile(); override;

  procedure OnFindClass();

end;

TBCCustomImageButton

TBCGraphicButton

TBCGraphicControl

TBGRAGraphicCtrl

TObject