TCustomControl ----+ | TmlMediaButton
Unit:
mediabtn
(mediabtn.pas)
Constructors:
Propertys:
Methods:
constructor Create(AOwner: TComponent); override;
property Caption;
property Enabled;
property Font;
property ClickSound: TmlWavePlayer read FClickSound write FClickSound;
property ActiveSound: TmlWavePlayer read FActiveSound write FActiveSound;
property InnerColor: TColor read FInnerColor write SetInner;
property ActiveColor: TColor read FActiveColor write FActiveColor;
property OuterColor: TColor read FOuterColor write SetOuter;
property BevelWidth: integer read FBevelWidth write SetBevelWidth;
property Wallpaper: TmlBitmap read FWallpaper write SetWallpaper;
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;