Class TLrsBlkLabel (unit Lrsblkla)

Inherits from

TLabel

Constructors


Constructor Create(aOwner: TComponent);

Public declarations


Functions

destructor Destroy;

Be sure that the label is visable

procedure BlinkTheLabel(sender: TObject);

Protected declarations

We want to see the label!


procedure SetBlinkRate(value: word);


procedure SetBlinkStatus(value: Boolean);


Properties

property BlinkOn : Boolean

Published declarations

property BlinkRate : word


Events

Variables

FBlinkRate : Word;


FBlinkStatus : Boolean;


FTimer : TTimer;

Private declarations


Constructors


Constructor Create(aOwner: TComponent);

Public declarations


Functions


destructor Destroy;

Be sure that the label is visable


procedure BlinkTheLabel(sender: TObject);

Protected declarations

We want to see the label!


procedure SetBlinkRate(value: word);


procedure SetBlinkStatus(value: Boolean);


Properties


property BlinkOn : Boolean

Published declarations


property BlinkRate : word


Events


Variables


FBlinkRate : Word;


FBlinkStatus : Boolean;


FTimer : TTimer;

Private declarations