| Class TMMButton (unit MMButton) |
TGraphicControl
| Constructors |
constructor Create(AOwner: TComponent);Register
| Functions |
destructor Destroy;
procedure Click;
procedure CMMouseEnter(var Message: TMessage);
procedure CMMouseLeave(var Message: TMessage);
procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer);doSound
procedure MouseUp(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer);
procedure Paint;
procedure doSound(whichSound: string);
procedure setDisabled(Value : TBitmap);
procedure setHiLight(Value : TBitMap);
procedure setNormal(Value : TBitMap);
procedure setPushed(Value : TBitMap);| Properties |
property DLLInst : integer
property Enabled :
property Height :
property PicDisabled : TBitmap
property PicHiLight : TBitMap
property PicNormal : TBitMap
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;
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 : TBitMapPublished 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;