Class TSpotlite (unit Spotlite)

Inherits from

TGraphicControl

Constructors


constructor Create(AComponent: TComponent);

******************** Constructor Destructor Procs


Functions

destructor Destroy;


procedure DisablePaint;

********************* Public Procs

procedure EnablePaint;


procedure Paint;

Set the colors

procedure delay(milliseconds: integer);

*********************** Misc Procs

function LoadColors: HPalette;

***************************** Painting Procs

procedure SetBGColor(Color: TColor);


procedure SetColor(Color: TColor);

*************** Property Setting Procs

procedure SetDirection(Dir: TDirection);


procedure SetEP1(Point: Integer);


procedure SetEP2(Point: Integer);


procedure SetSP1(Point: Integer);


procedure SetSP2(Point: Integer);


procedure SetTransparent(Value: Boolean);


procedure WMEraseBkgnd(var Message: TWMEraseBkgnd);

******************* Message Trapping Routines

procedure WMPaint(var Message: TWMPaint);

Don't erase the background

Properties

property Align :


property BackGroundColor : TColor


property Color : TColor


property Direction : TDirection


property EndPoint1 : Integer


property EndPoint2 : Integer


property StartPoint1 : Integer


property StartPoint2 : Integer


property Transparent : Boolean


property Visible :


Events

Variables

Palette : HPalette;


BlueStep : Single;


EndClr : LongInt;


EndClrB : Integer;


EndClrG : Integer;


EndClrR : Integer;


FBGColor : TColor;


FColor : TColor;


FDirection : TDirection;


FEndColor : TColor;


FEP1 : Integer;


FEP2 : Integer;


FSP1 : Integer;


FSP2 : Integer;


FStartColor : TColor;


FTransparent : Boolean;


GreenStep : Single;


HoldPaint : Boolean;


NoColors : Integer;


RedStep : Single;


SLPalette : HPalette;


StartClr : LongInt;


StartClrB : Integer;


StartClrG : Integer;


StartClrR : Integer;


SysPalSize : Integer;



Constructors


constructor Create(AComponent: TComponent);

******************** Constructor Destructor Procs


Functions


destructor Destroy;


procedure DisablePaint;

********************* Public Procs


procedure EnablePaint;


procedure Paint;

Set the colors


procedure delay(milliseconds: integer);

*********************** Misc Procs


function LoadColors: HPalette;

***************************** Painting Procs


procedure SetBGColor(Color: TColor);


procedure SetColor(Color: TColor);

*************** Property Setting Procs


procedure SetDirection(Dir: TDirection);


procedure SetEP1(Point: Integer);


procedure SetEP2(Point: Integer);


procedure SetSP1(Point: Integer);


procedure SetSP2(Point: Integer);


procedure SetTransparent(Value: Boolean);


procedure WMEraseBkgnd(var Message: TWMEraseBkgnd);

******************* Message Trapping Routines


procedure WMPaint(var Message: TWMPaint);

Don't erase the background


Properties


property Align :


property BackGroundColor : TColor


property Color : TColor


property Direction : TDirection


property EndPoint1 : Integer


property EndPoint2 : Integer


property StartPoint1 : Integer


property StartPoint2 : Integer


property Transparent : Boolean


property Visible :


Events


Variables


Palette : HPalette;


BlueStep : Single;


EndClr : LongInt;


EndClrB : Integer;


EndClrG : Integer;


EndClrR : Integer;


FBGColor : TColor;


FColor : TColor;


FDirection : TDirection;


FEndColor : TColor;


FEP1 : Integer;


FEP2 : Integer;


FSP1 : Integer;


FSP2 : Integer;


FStartColor : TColor;


FTransparent : Boolean;


GreenStep : Single;


HoldPaint : Boolean;


NoColors : Integer;


RedStep : Single;


SLPalette : HPalette;


StartClr : LongInt;


StartClrB : Integer;


StartClrG : Integer;


StartClrR : Integer;


SysPalSize : Integer;