Class TBI_ImageButton (unit bi_btns)

Inherits from

TBI_basebutton

////// Image

Constructors


constructor Create(AOwner: TComponent);

image


Functions

destructor destroy;


procedure checkothers;


procedure paint;


procedure CMMouseEnter(var Message: TMessage);


procedure CMMouseLeave(var Message: TMessage);


procedure setdownimage(value: tbitmap);


procedure setMouseOverImage(value: tbitmap);


procedure setstretch(value:boolean);


procedure settrans(value:boolean);


procedure settransclr(value:tcolor);


procedure setupimage(value: tbitmap);


Properties

property DownImage : tbitmap


property MouseOverImage : tbitmap


property Stretch : boolean


property Transparent : boolean


property TransparentColor : tcolor


property UpImage : tbitmap


Events

Variables

drawMOI : boolean;


fdownimage : tbitmap;


fMouseOverImage : tbitmap;


fstretch : boolean;


ftrans : boolean;


ftransclr : tcolor;


fupimage : tbitmap;



Constructors


constructor Create(AOwner: TComponent);

image


Functions


destructor destroy;


procedure checkothers;


procedure paint;


procedure CMMouseEnter(var Message: TMessage);


procedure CMMouseLeave(var Message: TMessage);


procedure setdownimage(value: tbitmap);


procedure setMouseOverImage(value: tbitmap);


procedure setstretch(value:boolean);


procedure settrans(value:boolean);


procedure settransclr(value:tcolor);


procedure setupimage(value: tbitmap);


Properties


property DownImage : tbitmap


property MouseOverImage : tbitmap


property Stretch : boolean


property Transparent : boolean


property TransparentColor : tcolor


property UpImage : tbitmap


Events


Variables


drawMOI : boolean;


fdownimage : tbitmap;


fMouseOverImage : tbitmap;


fstretch : boolean;


ftrans : boolean;


ftransclr : tcolor;


fupimage : tbitmap;