Class TMarquee (unit TDMarque)

Inherits from

TCustomControl

TMarquee

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;



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;