How to implement a scrolling message?

[hua]

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

[Bayron]

Hi Hua,
You can use a Dinamic Say:

Code: Select all  Expand view

#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



 

[hua]

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.

[Bayron]

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....

[hua]

Thank you Bayron

[hag]

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

[hua]

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

[hag]

Hua:

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

[Horizon]

Hi,

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

[karinha]

DSay and SSay

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

Regards,

[karinha]

Display.prg

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

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

Regards,

[Horizon]

DSay and SSay

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

Regards,

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

[Horizon]

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/

[nageswaragunupudi]

FWH Next Version

Code: Select all  Expand view

   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
 

[Horizon]

very good Mr. Rao.

DSay also support BLINKING command.