| Class TSpotlite (unit Spotlite) |
TGraphicControl
| Constructors |
constructor Create(AComponent: TComponent);| Functions |
destructor Destroy;
procedure DisablePaint;
procedure EnablePaint;
procedure Paint;
procedure delay(milliseconds: integer);
function LoadColors: HPalette;
procedure SetBGColor(Color: TColor);
procedure SetColor(Color: TColor);
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);
procedure WMPaint(var Message: TWMPaint);| 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;