Class TMarquee (unit BWMarque)

Inherits from

TCustomPanel

Constructors


constructor Create(AOwner: TComponent);

Public declarations


Functions

procedure BuildMenu;


destructor Destroy;


procedure ExitClick(Sender: TObject);


procedure FastClick(Sender: TObject);


procedure KillMenu;


procedure LeftClick(Sender: TObject);


procedure MediumClick(Sender: TObject);


procedure RightClick(Sender: TObject);


procedure SlowClick(Sender: TObject);


procedure ClearRect(bFill: Boolean; var Rect: TRect);


procedure SetActive(AActive: Boolean);

This puts us "N" chars to the left of the beginning

procedure SetSpeed(ASpeed: TSpeed);

Speed

procedure SetText(AText: String);


procedure TimerFired(Sender: TObject);

Protected declarations

procedure WMSize(var Msg: TMessage);


Properties

property Active : Boolean

Published declarations

property Align :


property BevelInner :


property BevelOuter :


property BevelWidth :


property BorderStyle :


property BorderWidth :


property Color :


property Direction : TDirection


property Font :


property Speed : TSpeed


property Text : String


Events

event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnEnter :


event OnExit :


event OnExitRequest : TExitRequest


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


event OnResize :


event OnStartDrag :


Variables

Bmp : TImage;


DirMenu : TMenuItem;


ExitMenu : TMenuItem;


FActive : Boolean;

Private declarations

Fast : TMenuItem;


FDirection : TDirection;


FItems : TStringList;


FMemoryImage : TBitMap;

Display Start Position

FOffDisplay : Integer;

String Start Position

FOffString : Integer;


FOnExitRequest : TExitRequest;


FPM : TPopupMenu;


FSpeed : TSpeed;


FText : String;


FTimer : TTimer;


LeftMenu : TMenuItem;


Medium : TMenuItem;


N : TMenuItem;


Right : TMenuItem;


Slow : TMenuItem;


SpeedMenu : TMenuItem;



Constructors


constructor Create(AOwner: TComponent);

Public declarations


Functions


procedure BuildMenu;


destructor Destroy;


procedure ExitClick(Sender: TObject);


procedure FastClick(Sender: TObject);


procedure KillMenu;


procedure LeftClick(Sender: TObject);


procedure MediumClick(Sender: TObject);


procedure RightClick(Sender: TObject);


procedure SlowClick(Sender: TObject);


procedure ClearRect(bFill: Boolean; var Rect: TRect);


procedure SetActive(AActive: Boolean);

This puts us "N" chars to the left of the beginning


procedure SetSpeed(ASpeed: TSpeed);

Speed


procedure SetText(AText: String);


procedure TimerFired(Sender: TObject);

Protected declarations


procedure WMSize(var Msg: TMessage);


Properties


property Active : Boolean

Published declarations


property Align :


property BevelInner :


property BevelOuter :


property BevelWidth :


property BorderStyle :


property BorderWidth :


property Color :


property Direction : TDirection


property Font :


property Speed : TSpeed


property Text : String


Events


event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnEnter :


event OnExit :


event OnExitRequest : TExitRequest


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


event OnResize :


event OnStartDrag :


Variables


Bmp : TImage;


DirMenu : TMenuItem;


ExitMenu : TMenuItem;


FActive : Boolean;

Private declarations


Fast : TMenuItem;


FDirection : TDirection;


FItems : TStringList;


FMemoryImage : TBitMap;

Display Start Position


FOffDisplay : Integer;

String Start Position


FOffString : Integer;


FOnExitRequest : TExitRequest;


FPM : TPopupMenu;


FSpeed : TSpeed;


FText : String;


FTimer : TTimer;


LeftMenu : TMenuItem;


Medium : TMenuItem;


N : TMenuItem;


Right : TMenuItem;


Slow : TMenuItem;


SpeedMenu : TMenuItem;