Class TMMButton (unit MMButton)

Inherits from

TGraphicControl

Constructors


constructor Create(AOwner: TComponent);

Public declarations

Register



Functions

destructor Destroy;


procedure Click;

MouseUp

procedure CMMouseEnter(var Message: TMessage);

MouseDown

procedure CMMouseLeave(var Message: TMessage);

CMMouseEnter

procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

Protected declarations

doSound


procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

CMMouseLeave

procedure Paint;

Click On 7/14/97, I added 7 lines of code to the paint method to allow the bitmaps colors to be displayed correctly on a machine showing only 256 colors.

procedure doSound(whichSound: string);

setDisabled

procedure setDisabled(Value : TBitmap);

setPushed

procedure setHiLight(Value : TBitMap);

setNormal

procedure setNormal(Value : TBitMap);


procedure setPushed(Value : TBitMap);

setHiLight

Properties

property DLLInst : integer


property Enabled :


property Height :


property PicDisabled : TBitmap


property PicHiLight : TBitMap


property PicNormal : TBitMap

Published declarations

property PicPushed : TBitMap


property SndOver : string


property SndPush : string


property SoundType : TSoundType


property Visible :


property Width :


Events

event OnClick :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables

FBmpDisabled : TBitmap;


FBmpHiLight : TBitmap;


FBmpNormal : TBitmap;

Private declarations

FBmpPushed : TBitmap;


FDllInstance : integer;


FDown : Boolean;


FOver : Boolean;


FSndOver : string;


FSndPush : string;


FSoundType : TSoundType;



Constructors


constructor Create(AOwner: TComponent);

Public declarations

Register


Functions


destructor Destroy;


procedure Click;

MouseUp


procedure CMMouseEnter(var Message: TMessage);

MouseDown


procedure CMMouseLeave(var Message: TMessage);

CMMouseEnter


procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

Protected declarations

doSound


procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

CMMouseLeave


procedure Paint;

Click On 7/14/97, I added 7 lines of code to the paint method to allow the bitmaps colors to be displayed correctly on a machine showing only 256 colors. // Robert Vivrette - RobertV@csi.com


procedure doSound(whichSound: string);

setDisabled


procedure setDisabled(Value : TBitmap);

setPushed


procedure setHiLight(Value : TBitMap);

setNormal


procedure setNormal(Value : TBitMap);


procedure setPushed(Value : TBitMap);

setHiLight


Properties


property DLLInst : integer


property Enabled :


property Height :


property PicDisabled : TBitmap


property PicHiLight : TBitMap


property PicNormal : TBitMap

Published declarations


property PicPushed : TBitMap


property SndOver : string


property SndPush : string


property SoundType : TSoundType


property Visible :


property Width :


Events


event OnClick :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables


FBmpDisabled : TBitmap;


FBmpHiLight : TBitmap;


FBmpNormal : TBitmap;

Private declarations


FBmpPushed : TBitmap;


FDllInstance : integer;


FDown : Boolean;


FOver : Boolean;


FSndOver : string;


FSndPush : string;


FSoundType : TSoundType;