FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour How to implement a scrolling message?
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: How to implement a scrolling message?
Posted: Mon Apr 08, 2019 01:38 PM

This class is now available in FWH 19.03

Regards



G. N. Rao.

Hyderabad, India
Posts: 7318
Joined: Thu Oct 18, 2012 07:17 PM
Re: How to implement a scrolling message?
Posted: Mon Apr 08, 2019 03:07 PM

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

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Posts: 1387
Joined: Fri May 23, 2008 01:33 PM
Re: How to implement a scrolling message?
Posted: Wed Apr 24, 2019 01:34 PM

Hi Mr. Rao,

How can I disable border?

Regards,



Hakan ONEMLI



Harbour & MSVC 2022 & FWH 23.06
Posts: 4043
Joined: Wed Dec 19, 2007 06:40 PM
Re: How to implement a scrolling message?
Posted: Wed Apr 24, 2019 02: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
::Box( ::nTop - 1, ::nLeft - 1, ::nBottom + 1, ::nRight + 1 )
endif



regards
Uwe :-)
Since 1995 ( the first release of FW 1.9 )

i work with FW.

If you have any questions about special functions, maybe i can help.
Posts: 1387
Joined: Fri May 23, 2008 01:33 PM
Re: How to implement a scrolling message?
Posted: Wed Apr 24, 2019 07:12 PM

Thank you Uwe,

It works.

Regards,



Hakan ONEMLI



Harbour & MSVC 2022 & FWH 23.06
Posts: 7318
Joined: Thu Oct 18, 2012 07:17 PM
Re: How to implement a scrolling message?
Posted: Fri Apr 26, 2019 05:30 PM
Working...just a little idea ( made with ximage) for scrolling images

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Posts: 8523
Joined: Tue Dec 20, 2005 07:36 PM
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.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Continue the discussion