| Class TMarquee (unit TDMarque) |
TCustomControl
TMarquee
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
destructor Destroy;
procedure CreateParams(var Params: TCreateParams);
procedure Loaded;
procedure Paint;
procedure TimerEvent(Sender: TObject);
procedure UpdateMarquee(Restart: Boolean);
procedure CMCtl3DChanged(var Msg: TMessage);
procedure CMEnabledChanged(var Msg: TMessage);
procedure CMFontChanged(var Msg: TMessage);
procedure DoBlink(Restart: Boolean);
procedure DoBounce(Restart: Boolean);
procedure DoScroll(Restart: Boolean);
procedure SetActive(Value: Boolean);
procedure SetBorderStyle(Value: TBorderStyle);
procedure SetScrollAmount(Value: TScrollAmount);
procedure SetScrollDelay(Value: TScrollDelay);
procedure SetScrollStyle(Value: TScrollStyle);
procedure SetScrollText(Value: String);
procedure WMWindowPosChanged(var Msg: TWMWindowPosChanged);| Properties |
property Active : Boolean
property BorderStyle : TBorderStyle
property Color :
property Ctl3D :
property DragCursor :
property DragMode :
property Enabled :
property Font :
property ParentColor :
property ParentCtl3D :
property ParentFont :
property ParentShowHint :
property PopupMenu :
property ScrollAmount : TScrollAmount
property ScrollDelay : TScrollDelay
property ScrollStyle : TScrollStyle
property ScrollText : String
property ShowHint :
property Visible : | Events |
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnEnter :
event OnExit :
event OnKeyDown :
event OnKeyPress :
event OnKeyUp :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
event OnStartDrag : | Variables |
FActive : Boolean;
FBorderStyle : TBorderStyle;
FScrollAmount : TScrollAmount;
FScrollDelay : TScrollDelay;
FScrollStyle : TScrollStyle;
FScrollText : String;
FTimer : TTimer;| Constructors |
constructor Create(AOwner: TComponent);TMarquee
| Functions |
destructor Destroy;Create timer
procedure CreateParams(var Params: TCreateParams);Free timer
procedure Loaded;Set Styles, used Extended Styles in case of new-style controls
procedure Paint;Set values AFTER loading the component!
procedure TimerEvent(Sender: TObject);Set new scrolling text and initialize Marquee
procedure UpdateMarquee(Restart: Boolean);Center Text
procedure CMCtl3DChanged(var Msg: TMessage);Update Marquee on Timer Event
procedure CMEnabledChanged(var Msg: TMessage);Recreate window if border is to be 3D
procedure CMFontChanged(var Msg: TMessage);Switch off if disabled
procedure DoBlink(Restart: Boolean);Draw the bitmap to the canvas
procedure DoBounce(Restart: Boolean);Draw bitmap to canvas
procedure DoScroll(Restart: Boolean);Do scrolling depending on the scroll mode
procedure SetActive(Value: Boolean);Draw bitmap to canvas
procedure SetBorderStyle(Value: TBorderStyle);Set state and initialize Marquee if active
procedure SetScrollAmount(Value: TScrollAmount);Set Border style and recreate the window
procedure SetScrollDelay(Value: TScrollDelay);Set new value
procedure SetScrollStyle(Value: TScrollStyle);Set new Scroll Delay and Timer Interval
procedure SetScrollText(Value: String);Set the new scrollstyle and reinitialize the Marquee
procedure WMWindowPosChanged(var Msg: TWMWindowPosChanged);Redraw
| Properties |
property Active : Boolean
property BorderStyle : TBorderStyle
property Color :
property Ctl3D :
property DragCursor :
property DragMode :
property Enabled :
property Font :
property ParentColor :
property ParentCtl3D :
property ParentFont :
property ParentShowHint :
property PopupMenu :
property ScrollAmount : TScrollAmount
property ScrollDelay : TScrollDelay
property ScrollStyle : TScrollStyle
property ScrollText : String
property ShowHint :
property Visible : | Events |
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnEnter :
event OnExit :
event OnKeyDown :
event OnKeyPress :
event OnKeyUp :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
event OnStartDrag : | Variables |
FActive : Boolean;
FBorderStyle : TBorderStyle;
FScrollAmount : TScrollAmount;
FScrollDelay : TScrollDelay;
FScrollStyle : TScrollStyle;
FScrollText : String;
FTimer : TTimer;