Class: TmlGrashGuardButton

TCustomControl ----+
              |
    TmlCustomBitmapButton ----+
                              |
                      TmlRealTimeButton ----+
                                            |
                                   TmlGrashGuardButton

Description:
Button like Nortom GrushGuard

Unit:
mediabtn (mediabtn.pas)

Constructors:

constructor Create(AOwner: TComponent); override;

Propertys:

property ClickSound;
property ActiveSound;
property ActiveColor: TColor read FActiveColor write SetActiveColor;
Active caption color
property CircleColor: TColor read FCircleColor write SetCircleColor;
Button color
property Glyph: TBitmap read FGlyph write SetGlyph;
property NormalColor: TColor read FNormalColor write SetNormalColor;
property ShadowColor: TColor read FShadowColor write SetShadowColor;

Methods:

function CreateOneBitmap(AState: TBtnState; AActive: boolean): TBitmap;
destructor Destroy; override;

constructor Create(AOwner: TComponent); override;


property ClickSound;


property ActiveSound;


property ActiveColor: TColor read FActiveColor write SetActiveColor;

Active caption color


property CircleColor: TColor read FCircleColor write SetCircleColor;

Button color


property Glyph: TBitmap read FGlyph write SetGlyph;


property NormalColor: TColor read FNormalColor write SetNormalColor;


property ShadowColor: TColor read FShadowColor write SetShadowColor;


function CreateOneBitmap(AState: TBtnState; AActive: boolean): TBitmap;


destructor Destroy; override;