Class: TmlCustomBitmapButton

TCustomControl ----+
              |
    TmlCustomBitmapButton

Description:
Custom bitmap button control

Unit:
mediabtn (mediabtn.pas)

Constructors:

constructor Create(AOwner: TComponent); override;

Propertys:

property BmpActive: TBitmap read FBmpActive write SetBmpActive;
property BmpNormal: TBitmap read FBmpNormal write SetBmpNormal;
property BmpDown: TBitmap read FBmpDown write SetBmpDown;
property ClickSound: TmlWavePlayer read FClickSound write FClickSound;
property ActiveSound: TmlWavePlayer read FActiveSound write FActiveSound;
property Caption;
property Enabled;
property Font;
property Visible;
property BackColor: TColor read FBackColor write SetBackColor;
Background color
property OnClick: TNotifyEvent read FOnClick write FOnClick;
property ModalResult: TModalResult read FModalResult write SetModalResult;
property Transparent: boolean read FTransparent write SetTransparent;

Methods:

procedure Press(Down: boolean); virtual;
procedure Active(A: boolean); virtual;
procedure Paint; override;
procedure Click; override;
procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
procedure KeyDown(var Key: Word; Shift: TShiftState); override;
procedure KeyUp(var Key: Word; Shift: TShiftState); override;
procedure KeyPress(var Key: Char); override;
procedure CreateParams(var Params: TCreateParams); override;
procedure DrawBitmaps; virtual;
destructor Destroy; override;
procedure Notification(AComponent: TComponent;

constructor Create(AOwner: TComponent); override;


property BmpActive: TBitmap read FBmpActive write SetBmpActive;


property BmpNormal: TBitmap read FBmpNormal write SetBmpNormal;


property BmpDown: TBitmap read FBmpDown write SetBmpDown;


property ClickSound: TmlWavePlayer read FClickSound write FClickSound;


property ActiveSound: TmlWavePlayer read FActiveSound write FActiveSound;


property Caption;


property Enabled;


property Font;


property Visible;


property BackColor: TColor read FBackColor write SetBackColor;

Background color


property OnClick: TNotifyEvent read FOnClick write FOnClick;


property ModalResult: TModalResult read FModalResult write SetModalResult;


property Transparent: boolean read FTransparent write SetTransparent;


procedure Press(Down: boolean); virtual;


procedure Active(A: boolean); virtual;


procedure Paint; override;


procedure Click; override;


procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;


procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;


procedure KeyDown(var Key: Word; Shift: TShiftState); override;


procedure KeyUp(var Key: Word; Shift: TShiftState); override;


procedure KeyPress(var Key: Char); override;


procedure CreateParams(var Params: TCreateParams); override;


procedure DrawBitmaps; virtual;


destructor Destroy; override;


procedure Notification(AComponent: TComponent;