Class TScroll (unit Uscroll)

Inherits from

Tgraph

An object to scroll text

Constructors


constructor Create(hdc:Thandle;FontName:string;FontSize:integer;FontColor:TColorref; left,top,RectWidth,RectHeight:integer);

TScroll


Functions

destructor destroy;


function DrawGraph(hdc:Thandle):Trect;


procedure TextOutEnd(hdc:thandle;iniy:integer);

centers text

Properties

property Scroll : integer


property Strings : Tstringlist


Events

Variables

FCychar : integer;


FDrawy : integer;


FFont : Thandle;


FFontColor : Tcolorref;


FScroll : integer;


Fstrings : Tstringlist;

scroll speed in pixels per frame

Ftextrect : Trect;



Constructors


constructor Create(hdc:Thandle;FontName:string;FontSize:integer;FontColor:TColorref; left,top,RectWidth,RectHeight:integer);

TScroll


Functions


destructor destroy;


function DrawGraph(hdc:Thandle):Trect;


procedure TextOutEnd(hdc:thandle;iniy:integer);

centers text


Properties


property Scroll : integer


property Strings : Tstringlist


Events


Variables


FCychar : integer;


FDrawy : integer;


FFont : Thandle;


FFontColor : Tcolorref;


FScroll : integer;


Fstrings : Tstringlist;

scroll speed in pixels per frame


Ftextrect : Trect;