Class TLightSpeed (unit LightSpd)

Inherits from

TGraphicControl

Constructors


constructor Create(aOwner: TComponent);



Functions

destructor Destroy;


procedure Go(Sender: TObject);

Canvas.

procedure Paint;

procedure TLightSpeed.

procedure SetActive (Value :boolean);


procedure SetInterval (Value :integer);


Properties

property Active : boolean


property Align :


property Brightness : byte


property CenterX : integer


property CenterY : integer


property Color :


property Height :


property Interval : integer


property Options : TLightSpeedOptions


property ParentColor :


property ParentShowHint :


property ShowHint :


property Speed : TLightSpeedSpeed


property StarsCount : byte


property Visible :


property Width :


Events

Variables

FActive : boolean;


FBrightness : byte;


FCenterX : integer;


FCenterY : integer;


FInterval : integer;


FOptions : TLightSpeedOptions;


FSpeed : TLightSpeedSpeed;


FStarsCount : byte;


LS : integer;


LX : integer;


LY : integer;


Stars : array[1..255] of tStar;


Timer : TTimer;



Constructors


constructor Create(aOwner: TComponent);


Functions


destructor Destroy;


procedure Go(Sender: TObject);

Canvas.Pen.Color := clBtnShadow; Canvas.PolyLine([Point(0,Height-1), Point(0,0), Point(Width-1,0)]); Canvas.Pen.Color := clBtnHighlight; Canvas.PolyLine([Point(Width-1,0), Point(Width-1,Height-1), Point(0,Height-1)]);


procedure Paint;

procedure TLightSpeed.SetColor(Value :tColor); begin if Value<>Color then begin Canvas.Brush.Color:=Value; Repaint; end; inherited; end;


procedure SetActive (Value :boolean);


procedure SetInterval (Value :integer);


Properties


property Active : boolean


property Align :


property Brightness : byte


property CenterX : integer


property CenterY : integer


property Color :


property Height :


property Interval : integer


property Options : TLightSpeedOptions


property ParentColor :


property ParentShowHint :


property ShowHint :


property Speed : TLightSpeedSpeed


property StarsCount : byte


property Visible :


property Width :


Events


Variables


FActive : boolean;


FBrightness : byte;


FCenterX : integer;


FCenterY : integer;


FInterval : integer;


FOptions : TLightSpeedOptions;


FSpeed : TLightSpeedSpeed;


FStarsCount : byte;


LS : integer;


LX : integer;


LY : integer;


Stars : array[1..255] of tStar;


Timer : TTimer;