Class TRunString (unit CRLabel) |
TGraphicControl
Constructors |
Functions |
static label
Properties |
Events |
Variables |
Constructors |
TRunString --------------------------------------------------------------
Functions |
Init timer
Get current step number
Reverse running direction
Start runing. SStep is starting step number.
if 0 Stop runing. Returns current step number Draw text static label Change the timer interval Calc center points Properties Designing time only. To view label at given step Events Events Variables text width & height text font background color Designing time only running direction label style steps text to run depth of raised or lowered label speed step number when runningfunction RLStop : integer;
procedure Paint;
procedure TimerTick(Sender: TObject);
procedure DoTextOut( ACanvas : TCanvas; x, y : integer; AText : string);
procedure LabelChanged(Sender: TObject);
procedure SetColor( Value : TColor);
procedure SetDepth( Value : integer);
procedure SetDirection( Value : TRDirection);
procedure SetFont( Value : TFont);
procedure SetLabelStyle( Value : TRLabelStyle);
procedure SetRText( Value : string);
procedure SetSpeed( Value : integer);
procedure SetSteps( Value : integer);
procedure SetStepToView( Value : integer);
property Color : TColor
property LabelStyle : TRLabelStyle
property RFont : TFont
property Speed : integer
property Steps : integer
property Depth : integer
property Direction : TRDirection
property RText : string
property StepToView : integer
event OnBegin : TNotifyEvent
event OnEnd : TNotifyEvent
event OnStep : TNotifyEvent
CnX : integer;
CnY : integer;
CurrentStep : integer;
FColor : TColor;
FDepth : integer;
FFont : TFont;
FLabelStyle : TRLabelStyle;
FOnBegin : TNotifyEvent;
FOnEnd : TNotifyEvent;
FOnStep : TNotifyEvent;
FRText : string;
FRunDirection : TRDirection;
FSpeed : integer;
FSteps : integer;
FStepToView : integer;
FTimer : TTimer;
RTHeight : integer;
RTWidth : integer;