| Class TRunString (unit CRLabel) |
TGraphicControl
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
destructor Destroy;
function GetCurrentStep : integer;
procedure RLReverse;
procedure RLStart( SStep : integer);
function RLStop : integer;
procedure Paint;
procedure TimerTick(Sender: TObject);
procedure DoTextOut( ACanvas : TCanvas; x, y : integer; AText : string);
procedure LabelChanged(Sender: TObject);static label
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);| Properties |
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| Events |
event OnBegin : TNotifyEvent
event OnEnd : TNotifyEvent
event OnStep : TNotifyEvent| Variables |
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;| Constructors |
constructor Create(AOwner: TComponent);TRunString --------------------------------------------------------------
| Functions |
destructor Destroy;Init timer
function GetCurrentStep : integer;Get current step number
procedure RLReverse;Reverse running direction
procedure RLStart( SStep : integer); 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 running
function 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;