| Class TBI_PlasmaButton (unit bi_btns) |
////// 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);| 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;