Class TRunString (unit CRLabel)

Inherits from

TGraphicControl

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.

function RLStop : integer;

Stop runing.

procedure Paint;

Draw text

procedure TimerTick(Sender: TObject);


procedure DoTextOut( ACanvas : TCanvas; x, y : integer; AText : string);


procedure LabelChanged(Sender: TObject);

static label


procedure SetColor( Value : TColor);

Change the timer interval

procedure SetDepth( Value : integer);


procedure SetDirection( Value : TRDirection);


procedure SetFont( Value : TFont);


procedure SetLabelStyle( Value : TRLabelStyle);

Calc center points

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

Designing time only.

Events

event OnBegin : TNotifyEvent

Events

event OnEnd : TNotifyEvent


event OnStep : TNotifyEvent


Variables

CnX : integer;

text width & height

CnY : integer;


CurrentStep : integer;


FColor : TColor;


FDepth : integer;

text font

FFont : TFont;

background color

FLabelStyle : TRLabelStyle;


FOnBegin : TNotifyEvent;

Designing time only

FOnEnd : TNotifyEvent;


FOnStep : TNotifyEvent;


FRText : string;

running direction

FRunDirection : TRDirection;

label style

FSpeed : integer;

steps

FSteps : integer;

text to run

FStepToView : integer;

depth of raised or lowered label

FTimer : TTimer;

speed

RTHeight : integer;


RTWidth : integer;

step number when running


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


function RLStop : integer;

Stop runing. Returns current step number


procedure Paint;

Draw text


procedure TimerTick(Sender: TObject);


procedure DoTextOut( ACanvas : TCanvas; x, y : integer; AText : string);


procedure LabelChanged(Sender: TObject);

static label


procedure SetColor( Value : TColor);

Change the timer interval


procedure SetDepth( Value : integer);


procedure SetDirection( Value : TRDirection);


procedure SetFont( Value : TFont);


procedure SetLabelStyle( Value : TRLabelStyle);

Calc center points


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

Designing time only. To view label at given step


Events


event OnBegin : TNotifyEvent

Events


event OnEnd : TNotifyEvent


event OnStep : TNotifyEvent


Variables


CnX : integer;

text width & height


CnY : integer;


CurrentStep : integer;


FColor : TColor;


FDepth : integer;

text font


FFont : TFont;

background color


FLabelStyle : TRLabelStyle;


FOnBegin : TNotifyEvent;

Designing time only


FOnEnd : TNotifyEvent;


FOnStep : TNotifyEvent;


FRText : string;

running direction


FRunDirection : TRDirection;

label style


FSpeed : integer;

steps


FSteps : integer;

text to run


FStepToView : integer;

depth of raised or lowered label


FTimer : TTimer;

speed


RTHeight : integer;


RTWidth : integer;

step number when running