Class TBI_PlasmaButton (unit bi_btns)

Inherits from

TBI_basebutton

////// Plasma {I could have used the DIBSurface in order to prevent the distortion of the Plasma, but I actually like the effect although I discovered it by accident. For those interested: If the plasma array would not be distorted in the buffer, the image had a more cloud like appearance instead of a mineral look...

Constructors


constructor Create(AOwner: TComponent);

///Plasma


Functions

destructor destroy;


procedure recalc;


procedure paint;


procedure createplasma;


procedure setecolor(value: tcolor);


procedure setscolor(value: tcolor);


Properties

Events

Variables

plasmabuffer : tbitmap;


_colors : array[0..255] of tcolor;



Constructors


constructor Create(AOwner: TComponent);

///Plasma


Functions


destructor destroy;


procedure recalc;


procedure paint;


procedure createplasma;


procedure setecolor(value: tcolor);


procedure setscolor(value: tcolor);


Properties


Events


Variables


plasmabuffer : tbitmap;


_colors : array[0..255] of tcolor;