| Properties |
|
| Direction |
moving direction ( Static, Left to Right ...) |
| LabelStyle |
normal, lowered or raised label |
| RText |
text of label |
| StepToView |
designing time only. View label at # step |
| Steps |
# of steps to perform running |
| Speed |
one step delay |
| Color |
background color |
| RFont |
label font |
|
|
| Events |
|
| OnBegin |
on first step |
| OnEnd |
on last step |
| OnStep |
on each step |
|
|
| Public procedures |
|
| procedure RLStart( SStep : integer) |
Start runing. SStep is starting step number.
if 0<SStep<Steps then new starting step is assigned else
step number is not changed |
| function RLStop : integer |
Stop running. Returns current step number |
| function GetCurrentStep : integer |
Get current step number |
