| Class TMTranBtn (unit Tranbtn) |
TGraphicControl
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
procedure DrawTransparentBitmap (ahdc: HDC; Image: TBitmap; xStart, yStart: Word; TrCol : Tcolor);
destructor Destroy;
procedure Paint;
procedure mousein(var msg : tmessage);
procedure mouseleave(var msg : tmessage);
procedure MouseMove(Shift: TShiftState; X, Y: Integer);
function OnGlyphP(X, Y: integer): boolean;
procedure SetBitMap(Value : TBitMap);
Procedure setborderstyle(value:Bstyle);
procedure WMLButtonDown(var msg: TWMLButtonDown);
procedure WMLButtonUp(var msg: TWMLButtonUp);| Properties |
property BitMap : TBitMap
property Border : BStyle
property Caption :
property Font :
property Hint :
property ShowHint :
property Visible : | Events |
event OnClick :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp : | Variables |
BRect : Trect;
FBitMap : TBitmap;
Fborder : BStyle;
FOver : Boolean;
Pushed : boolean;| Constructors |
constructor Create(AOwner: TComponent);| Functions |
procedure DrawTransparentBitmap (ahdc: HDC; Image: TBitmap; xStart, yStart: Word; TrCol : Tcolor);this routine come from unit XparBmp of Michael Vincze (vincze@ti.com), I think it can be optimized more. Will find time to check it again
destructor Destroy;
procedure Paint;
procedure mousein(var msg : tmessage);
procedure mouseleave(var msg : tmessage);
procedure MouseMove(Shift: TShiftState; X, Y: Integer);ClientRect
function OnGlyphP(X, Y: integer): boolean;case
procedure SetBitMap(Value : TBitMap);
Procedure setborderstyle(value:Bstyle);convert from device logical points
procedure WMLButtonDown(var msg: TWMLButtonDown);
procedure WMLButtonUp(var msg: TWMLButtonUp);| Properties |
property BitMap : TBitMap
property Border : BStyle
property Caption :
property Font :
property Hint :
property ShowHint :
property Visible : | Events |
event OnClick :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp : | Variables |
BRect : Trect;
FBitMap : TBitmap;
Fborder : BStyle;
FOver : Boolean;
Pushed : boolean;