TCustomControl ----+ | TmlCustomBitmapButton
Unit:
mediabtn
(mediabtn.pas)
Constructors:
Propertys:
Methods:
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;
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;