Class TCF_Ticker (unit ticker)

Inherits from

TGraphicControl

Constructors


constructor Create(AOwner: TComponent);

Public declarations


Functions

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);


Properties

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 :


Events

event OnClick :


event OnDblClick :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables

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


Constructors


constructor Create(AOwner: TComponent);

Public declarations


Functions


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);


Properties


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 :


Events


event OnClick :


event OnDblClick :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables


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