Class TLightSpeed (unit LightSpd) |
Inherits from
TGraphicControl
constructor Create(aOwner: TComponent);
destructor Destroy;
procedure Go(Sender: TObject);
Canvas.
procedure Paint;
procedure TLightSpeed.
procedure SetActive (Value :boolean);
procedure SetInterval (Value :integer);
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 :
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;
constructor Create(aOwner: TComponent);
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);
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 :
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;