| Class TCF_Ticker (unit ticker) |
TGraphicControl
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
destructor Destroy;
procedure Initialize;
procedure ShowTickerData(Data: TBitMap);Call this procedure before the first scrolling or when you want to reset the ticker
procedure Paint;
procedure Display(Sender: TObject);
function GetSpeed: Integer;
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
property Step : Integer
property Top :
property Width :
property Canvas : | Events |
event OnClick :
event OnDblClick :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp : | Variables |
BackGroundColor : TColor;
ClearBuffer : TBitMap;
NotMoving : Boolean;
Position : Integer;
Queue : TList;
StepSave : Integer;
SType : TScrollType;
Surface : TBitMap;
Timer : TTimer;
TStep : Integer;
Wall : Integer;
WorkBuffer : TBitMap;| 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 : IntegerPublished declarations
property Step : IntegerThis 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