Class TCF_Ticker (unit ticker) |
Inherits from
TGraphicControl
constructor Create(AOwner: TComponent);
- Public declarations
destructor Destroy;
procedure Initialize;
procedure ShowTickerData(Data: TBitMap);
This will initialize the ticker, resetting the variables Call this procedure before the first scrolling or when you want to reset the ticker
procedure Paint;
Protected declarations
procedure Display(Sender: TObject);
function GetSpeed: Integer;
If the bitmap has finished moving, remove the bitmap from the queue
procedure SetBgColor(NewColor: TColor);
procedure SetScrollType(NewSType: TScrollType);
procedure SetSpeed(NewSpeed: Integer);
procedure SetStep(NewStep: Integer);
property BgColor : TColor
property Height :
property Left :
property ScrollType : TScrollType
property Speed : Integer
Published declarations
property Step : Integer
This property decides the scrolling frequency
property Top :
property Width :
property Canvas :
event OnClick :
event OnDblClick :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
BackGroundColor : TColor;
ClearBuffer : TBitMap;
Holds the ticker-canvas to be used in the PAINT-method
NotMoving : Boolean;
A bitmap that is used when modifying the tickers bitmap
Position : Integer;
If true the ticker is moving, and vice-versa
Queue : TList;
Used when the ticker is moving
StepSave : Integer;
The distance for every scroll
SType : TScrollType;
The coordinate where the current scrolling bitmap is stopped
Surface : TBitMap;
Holds the queue of desired bitmaps
Timer : TTimer;
Private declarations
TStep : Integer;
Decides the direction of the scrolling ticker
Wall : Integer;
A coordinate to the current scrolling bitmap
WorkBuffer : TBitMap;
A cleared bitmap for use when clearing the ticker
constructor Create(AOwner: TComponent);
Public declarations
destructor Destroy;
procedure Initialize;
procedure ShowTickerData(Data: TBitMap);
This will initialize the ticker, resetting the variables
Call this procedure before the first scrolling or when you want to reset the ticker
procedure Paint;
Protected declarations
procedure Display(Sender: TObject);
function GetSpeed: Integer;
If the bitmap has finished moving, remove the bitmap from the queue
procedure SetBgColor(NewColor: TColor);
procedure SetScrollType(NewSType: TScrollType);
procedure SetSpeed(NewSpeed: Integer);
procedure SetStep(NewStep: Integer);
property BgColor : TColor
property Height :
property Left :
property ScrollType : TScrollType
property Speed : Integer
Published declarations
property Step : Integer
This property decides the scrolling frequency
property Top :
property Width :
property Canvas :
event OnClick :
event OnDblClick :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
BackGroundColor : TColor;
ClearBuffer : TBitMap;
Holds the ticker-canvas to be used in the PAINT-method
NotMoving : Boolean;
A bitmap that is used when modifying the tickers bitmap
Position : Integer;
If true the ticker is moving, and vice-versa
Queue : TList;
Used when the ticker is moving
StepSave : Integer;
The distance for every scroll
SType : TScrollType;
The coordinate where the current scrolling bitmap is stopped
Surface : TBitMap;
Holds the queue of desired bitmaps
Timer : TTimer;
Private declarations
TStep : Integer;
Decides the direction of the scrolling ticker
Wall : Integer;
A coordinate to the current scrolling bitmap
WorkBuffer : TBitMap;
A cleared bitmap for use when clearing the ticker