Class: TmlMediaButton

TCustomControl ----+
              |
       TmlMediaButton

Description:
Button with wallpaper and sound events.

Unit:
mediabtn (mediabtn.pas)

Constructors:

constructor Create(AOwner: TComponent); override;

Propertys:

property Caption;
property Enabled;
property Font;
property ClickSound: TmlWavePlayer read FClickSound write FClickSound;
Click sound event
property ActiveSound: TmlWavePlayer read FActiveSound write FActiveSound;
Activation sound event
property InnerColor: TColor read FInnerColor write SetInner;
Inner color
property ActiveColor: TColor read FActiveColor write FActiveColor;
Active caption color
property OuterColor: TColor read FOuterColor write SetOuter;
Outer color
property BevelWidth: integer read FBevelWidth write SetBevelWidth;
Bevel width
property Wallpaper: TmlBitmap read FWallpaper write SetWallpaper;
Wallpaper bitmap
property ModalResult: TModalResult read FModalResult write SetModalResult;
property Visible;
property OnClick: TNotifyEvent read FOnClick write FOnClick;

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;
destructor Destroy; override;
procedure Notification(AComponent: TComponent;

constructor Create(AOwner: TComponent); override;


property Caption;


property Enabled;


property Font;


property ClickSound: TmlWavePlayer read FClickSound write FClickSound;

Click sound event


property ActiveSound: TmlWavePlayer read FActiveSound write FActiveSound;

Activation sound event


property InnerColor: TColor read FInnerColor write SetInner;

Inner color


property ActiveColor: TColor read FActiveColor write FActiveColor;

Active caption color


property OuterColor: TColor read FOuterColor write SetOuter;

Outer color


property BevelWidth: integer read FBevelWidth write SetBevelWidth;

Bevel width


property Wallpaper: TmlBitmap read FWallpaper write SetWallpaper;

Wallpaper bitmap


property ModalResult: TModalResult read FModalResult write SetModalResult;


property Visible;


property OnClick: TNotifyEvent read FOnClick write FOnClick;


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;


destructor Destroy; override;


procedure Notification(AComponent: TComponent;