How to implement a scrolling message?

[nageswaragunupudi]

This class is now available in FWH 19.03

[Silvio.Falconi]

Rao,
Good if you add the possibility to scroll also Images

[Horizon]

Hi Mr. Rao,

How can I disable border?

[ukoenig]

The test

@ 120,500 SCROLLMSG oMsg TEXT cText SIZE 300, 150 PIXEL OF oDlg2 ;
FONT oFont COLOR CLR_HRED, CLR_YELLOW SPEED 2
oMsg:lBox := .F.

-----------------

Add in scrolmsg.prg

DATA lBox INIT .t.

METHOD New( nRow, nCol, nWidth, nHeight, cText, oWnd, oFont, ;
nSpeed, nClrText, nClrBack, lHoriz, lPixels, lDesign, cVarName, lBox ) CLASS TScrollMsg

DEFAULT
...
...
lBox := .t.

METHOD Paint() CLASS TScrollMsg

if ::lBox
::oWnd:Box( ::nTop - 1, ::nLeft - 1, ::nBottom + 1, ::nRight + 1 )
endif



regards
Uwe

[Horizon]

Thank you Uwe,

It works.

[Silvio.Falconi]

Working...just a little idea ( made with ximage) for scrolling images

[karinha]

DSay también es compatible con el comando BLINKING. En este ejemplo de Master Nages, creo que todavía no tienes el comando BLINKING, nativo del clipper. Pero es super, lo es.

Saludos.