| Class TLightSpeed (unit LightSpd) |
TGraphicControl
| Constructors |
constructor Create(aOwner: TComponent);| Functions |
destructor Destroy;
procedure Go(Sender: TObject);
procedure Paint;
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;