FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin for Harbour/xHarbour How to implement a scrolling message?
hua
Posts: 1096
Joined: Fri Oct 28, 2005 02:27 AM

How to implement a scrolling message?

Posted: Mon Apr 05, 2010 07:59 AM

I have been asked to implement a scrolling message, you know, like the credits that appear after a movie ending? Is there some sort of library out there that would allow me to do this?

TIA

FWH 11.08/FWH 19.12

BCC5.82/BCC7.3

xHarbour/Harbour
Bayron
Posts: 883
Joined: Thu Dec 24, 2009 12:46 AM

Re: How to implement a scrolling message?

Posted: Mon Apr 05, 2010 11:31 AM
Hi Hua,
You can use a Dinamic Say:
Code (fw): Select all Collapse
#Include "DSay.ch"
//
//
             REDEFINE DYNAMIC SAY oSay;
                      PROMPT "Text... 1" + CRLF +;
                             "Text....2" + CRLF +;
                             "Text....3" ;
                      ID 4004;
                      OF acerca;
                      CENTERED;
                      COLOR CLR_BROWN;
                      VERTICAL;
                      SCROLL;
                      SPEED 45;
                      WRAP

=====>

Bayron Landaverry
xBasePHP.com
(215)2226600 Philadelphia,PA, USA
MayaBuilders@gMail.com
Guatemala

FWH25.06--Harbour 3.0.0--BCC7.7--UEstudio 10.10
Windows 10

FiveWin, One line of code and it's done...

hua
Posts: 1096
Joined: Fri Oct 28, 2005 02:27 AM

Re: How to implement a scrolling message?

Posted: Mon Apr 05, 2010 11:54 AM

Thank you for the reply Bayron. I've never come acrossed dynamic say before, is this part of standard FWH control? If it's not from where can I download it please? Thank you.

FWH 11.08/FWH 19.12

BCC5.82/BCC7.3

xHarbour/Harbour
Bayron
Posts: 883
Joined: Thu Dec 24, 2009 12:46 AM

Re: How to implement a scrolling message?

Posted: Mon Apr 05, 2010 07:01 PM
Hi Hua
I don't see any information about the author of the class I have, but I know it was donated in this forum, I also know it was included in DISPLAY 2.0

http://www.mayapos.com/FiveWin/dsay.zip

The only error I found is that if the text is longer than the resource, it will paint it on top of anything else in the dialog where I use it, but if you have blank lines this problem is solved....

=====>

Bayron Landaverry
xBasePHP.com
(215)2226600 Philadelphia,PA, USA
MayaBuilders@gMail.com
Guatemala

FWH25.06--Harbour 3.0.0--BCC7.7--UEstudio 10.10
Windows 10

FiveWin, One line of code and it's done...

hua
Posts: 1096
Joined: Fri Oct 28, 2005 02:27 AM

Re: How to implement a scrolling message?

Posted: Tue Apr 06, 2010 01:35 AM

Thank you Bayron

FWH 11.08/FWH 19.12

BCC5.82/BCC7.3

xHarbour/Harbour
hag
Posts: 598
Joined: Tue Apr 15, 2008 04:51 PM

Re: How to implement a scrolling message?

Posted: Tue Apr 06, 2010 05:44 AM

Bayron:
Do you have any code that works with the scrolling. I've been playing with the info you sent but I can't get it to work. Thanks

Thank you

Harvey
hua
Posts: 1096
Joined: Fri Oct 28, 2005 02:27 AM

Re: How to implement a scrolling message?

Posted: Tue Apr 06, 2010 07:21 AM
Harvey,

I've been looking at some of the files that I've downloaded previously. I think this is the complete set http://hotfile.com/dl/36507908/587b227/1009DISPLAY2.ZIP.html
FWH 11.08/FWH 19.12

BCC5.82/BCC7.3

xHarbour/Harbour
hag
Posts: 598
Joined: Tue Apr 15, 2008 04:51 PM

Re: How to implement a scrolling message?

Posted: Wed Apr 07, 2010 07:42 PM

Hua:

Thanks for the info. Havn't tried it yet. will keep you posted on how it works.

Thank you

Harvey
Horizon
Posts: 1387
Joined: Fri May 23, 2008 01:33 PM

Re: How to implement a scrolling message?

Posted: Tue Mar 13, 2018 02:48 PM

Hi,

Is there anyone have this file or something like that? The link is broken.

Regards,



Hakan ONEMLI



Harbour & MSVC 2022 & FWH 23.06
karinha
Posts: 8523
Joined: Tue Dec 20, 2005 07:36 PM

Re: How to implement a scrolling message?

Posted: Tue Mar 13, 2018 06:26 PM
DSay and SSay

https://www.4shared.com/zip/frhN_QWqce/DSAYSSAY.html

Regards,
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
karinha
Posts: 8523
Joined: Tue Dec 20, 2005 07:36 PM

Re: How to implement a scrolling message?

Posted: Tue Mar 13, 2018 06:31 PM
Display.prg

http://fivewin.com.br/index.php?/topic/22107-combombox-com-displayprg/#comment-265870

https://www.4shared.com/rar/E05ovEtTei/DISPLAY3.html

Regards,
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Horizon
Posts: 1387
Joined: Fri May 23, 2008 01:33 PM

Re: How to implement a scrolling message?

Posted: Sat Mar 16, 2019 10:54 AM
karinha wrote:DSay and SSay

https://www.4shared.com/zip/frhN_QWqce/DSAYSSAY.html

Regards,


Can you please share the link other than from 4shared.com?
Regards,



Hakan ONEMLI



Harbour & MSVC 2022 & FWH 23.06
Horizon
Posts: 1387
Joined: Fri May 23, 2008 01:33 PM

Re: How to implement a scrolling message?

Posted: Sat Mar 16, 2019 12:40 PM
Horizon wrote:
karinha wrote:DSay and SSay

https://www.4shared.com/zip/frhN_QWqce/DSAYSSAY.html

Regards,


Can you please share the link other than from 4shared.com?


I have found it.
https://bitbucket.org/fivetech/fivewin-contributions/downloads/
Regards,



Hakan ONEMLI



Harbour & MSVC 2022 & FWH 23.06
nageswaragunupudi
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM

Re: How to implement a scrolling message?

Posted: Mon Mar 18, 2019 09:52 AM
FWH Next Version
Code (fw): Select all Collapse
   local cText    := MemoRead( "c:\fwh\samples\maria01.prg" )
   local oDlg, oMsg, oFont, oBold

   DEFINE FONT oFont NAME "LUCIDA CONSOLE" SIZE 0,-14
   DEFINE FONT oBold NAME "VERDANA" SIZE 0,-32

   DEFINE DIALOG oDlg SIZE 800,500 PIXEL TRUEPIXEL

   @ 100,100 SCROLLMSG "FiveWin Power : New Scroll Msg class" ;
      SIZE 600,40 PIXEL OF oDlg ;
      FONT oBold COLOR CLR_BLACK,CLR_HGREEN HORIZONTAL ;
      SPEED 2

   @ 200,100 SCROLLMSG oMsg TEXT cText SIZE 600,200 PIXEL OF oDlg ;
      FONT oFont COLOR CLR_HRED, CLR_YELLOW SPEED 2

   ACTIVATE DIALOG oDlg CENTERED

   RELEASE FONT oFont, oBold


Regards



G. N. Rao.

Hyderabad, India
Horizon
Posts: 1387
Joined: Fri May 23, 2008 01:33 PM

Re: How to implement a scrolling message?

Posted: Mon Mar 18, 2019 06:50 PM

very good Mr. Rao.

DSay also support BLINKING command.

Regards,



Hakan ONEMLI



Harbour & MSVC 2022 & FWH 23.06
Static archive · New replies & topics via GitHub Discussions