Re: How to implement a scrolling message?
Posted: Mon Apr 08, 2019 1:38 pm
This class is now available in FWH 19.03
Rao,
Good if you add the possibility to scroll also Images
FiveTech Software tech support forums
www.FiveTechSoft.com
https://fivetechsupport.com/forums/
How to implement a scrolling message?
Page 2 of 2
Re: How to implement a scrolling message?
Posted: Mon Apr 08, 2019 3:07 pm
Re: How to implement a scrolling message?
Posted: Wed Apr 24, 2019 1:34 pm
Hi Mr. Rao,
How can I disable border?
How can I disable border?
Re: How to implement a scrolling message?
Posted: Wed Apr 24, 2019 2:07 pm
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
@ 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
Re: How to implement a scrolling message?
Posted: Wed Apr 24, 2019 7:12 pm
Thank you Uwe,
It works.
It works.
Re: How to implement a scrolling message?
Posted: Fri Apr 26, 2019 5:30 pm
Working...just a little idea ( made with ximage) for scrolling images
Re: How to implement a scrolling message?
Posted: Tue Mar 10, 2020 12:19 pm
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.
Saludos.