Page 1 of 2
How to implement a scrolling message?
Posted: Mon Apr 05, 2010 7:59 am
by 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
Re: How to implement a scrolling message?
Posted: Mon Apr 05, 2010 11:31 am
by Bayron
Hi Hua,
You can use a Dinamic Say:
Code: Select all | Expand
#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
Re: How to implement a scrolling message?
Posted: Mon Apr 05, 2010 11:54 am
by 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.
Re: How to implement a scrolling message?
Posted: Mon Apr 05, 2010 7:01 pm
by 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.zipThe 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....
Re: How to implement a scrolling message?
Posted: Tue Apr 06, 2010 1:35 am
by hua
Thank you Bayron
Re: How to implement a scrolling message?
Posted: Tue Apr 06, 2010 5:44 am
by 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
Re: How to implement a scrolling message?
Posted: Tue Apr 06, 2010 7:21 am
by 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
Re: How to implement a scrolling message?
Posted: Wed Apr 07, 2010 7:42 pm
by hag
Hua:
Thanks for the info. Havn't tried it yet. will keep you posted on how it works.
Re: How to implement a scrolling message?
Posted: Tue Mar 13, 2018 2:48 pm
by Horizon
Hi,
Is there anyone have this file or something like that? The link is broken.
Re: How to implement a scrolling message?
Posted: Tue Mar 13, 2018 6:26 pm
by karinha
Re: How to implement a scrolling message?
Posted: Tue Mar 13, 2018 6:31 pm
by karinha
Re: How to implement a scrolling message?
Posted: Sat Mar 16, 2019 10:54 am
by Horizon
Can you please share the link other than from 4shared.com?
Re: How to implement a scrolling message?
Posted: Sat Mar 16, 2019 12:40 pm
by Horizon
Horizon wrote:Can you please share the link other than from 4shared.com?
I have found it.
https://bitbucket.org/fivetech/fivewin-contributions/downloads/
Re: How to implement a scrolling message?
Posted: Mon Mar 18, 2019 9:52 am
by nageswaragunupudi
FWH Next Version
Code: Select all | Expand
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
Re: How to implement a scrolling message?
Posted: Mon Mar 18, 2019 6:50 pm
by Horizon
very good Mr. Rao.
DSay also support BLINKING command.