Class TMTranBtn (unit Tranbtn)

Inherits from

TGraphicControl

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.

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;



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;