| Class TCustomScrollText (unit ScrollText) |
TGraphicControl
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
destructor Destroy;
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;
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;