topic-18497

nageswaragunupudi

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

Silvio.Falconi

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

Horizon

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

ukoenig

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.

Horizon

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

Silvio.Falconi

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

karinha

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

FiveTech Support Forums

Continue the discussion