TCustomControl ----+ | TmlCustomBitmapButton ----+ | TmlRealTimeButton ----+ | TmlBlurButton
Unit:
mediabtn
(mediabtn.pas)
Constructors:
Propertys:
Methods:
constructor Create(AOwner: TComponent); override;
property ClickSound;
property ActiveSound;
property ActiveTextColor: TColor read FActiveTextColor write SetActiveTextColor;
property BevelWidht: integer read FBevelWidth write SetBevelWidth;
property Blur: boolean read FBlur write SetBlur;
property Color: TColor read FColor write SetColor;
property Kind: TmlKind read FKind write SetKind;
property TextColor: TColor read FTextColor write SetTextColor;
function CreateOneBitmap(AState: TBtnState; AActive: boolean): TBitmap;
destructor Destroy; override;