| Class TMarquee (unit BWMarque) |
TCustomPanel
| Constructors |
constructor Create(AOwner: TComponent);| 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);
procedure SetSpeed(ASpeed: TSpeed);
procedure SetText(AText: String);
procedure TimerFired(Sender: TObject);
procedure WMSize(var Msg: TMessage);| Properties |
property Active : Boolean
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;
Fast : TMenuItem;
FDirection : TDirection;
FItems : TStringList;
FMemoryImage : TBitMap;
FOffDisplay : Integer;
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 : BooleanPublished 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;