| Class TLrsBlkLabel (unit Lrsblkla) |
TLabel
| Constructors |
Constructor Create(aOwner: TComponent);| Functions |
destructor Destroy;
procedure BlinkTheLabel(sender: TObject);We want to see the label!
procedure SetBlinkRate(value: word);
procedure SetBlinkStatus(value: Boolean);| Properties |
property BlinkOn : Boolean
property BlinkRate : word| Events |
| Variables |
FBlinkRate : Word;
FBlinkStatus : Boolean;
FTimer : TTimer;| 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 : BooleanPublished declarations
property BlinkRate : word| Events |
| Variables |
FBlinkRate : Word;
FBlinkStatus : Boolean;
FTimer : TTimer;Private declarations