Class TMarquee (unit TDMarque) |
Inherits from
TCustomControl
TMarquee
constructor Create(AOwner: TComponent);
- TMarquee
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
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 :
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 :
FActive : Boolean;
FBorderStyle : TBorderStyle;
FScrollAmount : TScrollAmount;
FScrollDelay : TScrollDelay;
FScrollStyle : TScrollStyle;
FScrollText : String;
FTimer : TTimer;
constructor Create(AOwner: TComponent);
TMarquee
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
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 :
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 :
FActive : Boolean;
FBorderStyle : TBorderStyle;
FScrollAmount : TScrollAmount;
FScrollDelay : TScrollDelay;
FScrollStyle : TScrollStyle;
FScrollText : String;
FTimer : TTimer;