Class TCustomScrollText (unit ScrollText)

Inherits from

TGraphicControl

Constructors


constructor Create(AOwner: TComponent);



Functions

destructor Destroy;

Start scrolling if necessary.

procedure ReverseDirection;


procedure ScrollStart(StartingStep: Integer);


procedure ScrollStop;


procedure Paint;


procedure TimerTick(Sender: TObject);


procedure DataChanged;


procedure DoTextOut(ACanvas: TCanvas; X, Y: Integer; AText: string);


procedure FontChanged(Sender: TObject);


procedure SetAlignment(Value: TAlignment);


procedure SetColor(Value: TColor);


procedure SetContinuous(Value: Boolean);


procedure SetDepth(Value: Integer);


procedure SetDirection(Value: TScrollDirection);


procedure SetFont(Value: TFont);


procedure SetItems(Value: TStringList);


procedure SetSizeParams;

static

procedure SetSpeed(Value: Integer);


procedure SetSteps(Value: Integer);


procedure SetTextStyle(Value: TTextStyle);


Properties

property Color : TColor


property Continuous : Boolean


property Font : TFont


property Speed : Integer


property Steps : Integer


property TextStyle : TTextStyle


property CurrentStep : Integer


property Alignment : TAlignment


property Depth : Integer


property Items : TStringList


property ScrollDirection : TScrollDirection


Events

event OnBegin : TNotifyEvent


event OnEnd : TNotifyEvent


event OnStep : TNotifyEvent


Variables

FAlignment : TAlignment;


FColor : TColor;


FContinuous : Boolean;


FCurrentStep : Integer;


FDepth : Integer;


FFont : TFont;


FItems : TStringList;


FOnBegin : TNotifyEvent;


FOnEnd : TNotifyEvent;


FOnStep : TNotifyEvent;


FScrollDirection : TScrollDirection;


FSpeed : Integer;


FSteps : Integer;


FTextHeight : Integer;


FTextStyle : TTextStyle;


FTextWidth : Integer;


FTimer : TTimer;


LineHi : Integer;


XPos : Integer;


YPos : Integer;



Constructors


constructor Create(AOwner: TComponent);


Functions


destructor Destroy;

Start scrolling if necessary.


procedure ReverseDirection;


procedure ScrollStart(StartingStep: Integer);


procedure ScrollStop;


procedure Paint;


procedure TimerTick(Sender: TObject);


procedure DataChanged;


procedure DoTextOut(ACanvas: TCanvas; X, Y: Integer; AText: string);


procedure FontChanged(Sender: TObject);


procedure SetAlignment(Value: TAlignment);


procedure SetColor(Value: TColor);


procedure SetContinuous(Value: Boolean);


procedure SetDepth(Value: Integer);


procedure SetDirection(Value: TScrollDirection);


procedure SetFont(Value: TFont);


procedure SetItems(Value: TStringList);


procedure SetSizeParams;

static


procedure SetSpeed(Value: Integer);


procedure SetSteps(Value: Integer);


procedure SetTextStyle(Value: TTextStyle);


Properties


property Color : TColor


property Continuous : Boolean


property Font : TFont


property Speed : Integer


property Steps : Integer


property TextStyle : TTextStyle


property CurrentStep : Integer


property Alignment : TAlignment


property Depth : Integer


property Items : TStringList


property ScrollDirection : TScrollDirection


Events


event OnBegin : TNotifyEvent


event OnEnd : TNotifyEvent


event OnStep : TNotifyEvent


Variables


FAlignment : TAlignment;


FColor : TColor;


FContinuous : Boolean;


FCurrentStep : Integer;


FDepth : Integer;


FFont : TFont;


FItems : TStringList;


FOnBegin : TNotifyEvent;


FOnEnd : TNotifyEvent;


FOnStep : TNotifyEvent;


FScrollDirection : TScrollDirection;


FSpeed : Integer;


FSteps : Integer;


FTextHeight : Integer;


FTextStyle : TTextStyle;


FTextWidth : Integer;


FTimer : TTimer;


LineHi : Integer;


XPos : Integer;


YPos : Integer;