Class TSpotlite (unit Spotlite) |
Inherits from
TGraphicControl
constructor Create(AComponent: TComponent);
- ******************** Constructor Destructor Procs
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
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 :
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;
constructor Create(AComponent: TComponent);
******************** Constructor Destructor Procs
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
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 :
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;