How to implement a scrolling message?

hua
Posts: 861
Joined: Fri Oct 28, 2005 2:27 am

How to implement a scrolling message?

Post 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
FWH 11.08/FWH 19.03
xHarbour 1.2.1 (Rev 6406) + BCC
Harbour 3.1 (Rev 17062) + BCC
Harbour 3.2.0dev (r1904111533) + BCC
User avatar
Bayron
Posts: 815
Joined: Thu Dec 24, 2009 12:46 am
Location: Philadelphia, PA

Re: How to implement a scrolling message?

Post by Bayron »

Hi Hua,
You can use a Dinamic Say:

Code: Select all

#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
(215)2226600 Philadelphia,PA, USA
+(502)46727275 Guatemala
MayaBuilders@gMail.com

FWH12.04||Harbour 3.2.0 (18754)||BCC6.5||UEstudio 10.10||
Windows 7 Ultimate

FiveWin, One line of code and it's done...
hua
Posts: 861
Joined: Fri Oct 28, 2005 2:27 am

Re: How to implement a scrolling message?

Post 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.
FWH 11.08/FWH 19.03
xHarbour 1.2.1 (Rev 6406) + BCC
Harbour 3.1 (Rev 17062) + BCC
Harbour 3.2.0dev (r1904111533) + BCC
User avatar
Bayron
Posts: 815
Joined: Thu Dec 24, 2009 12:46 am
Location: Philadelphia, PA

Re: How to implement a scrolling message?

Post 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.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....
Last edited by Bayron on Wed Apr 28, 2010 3:39 pm, edited 1 time in total.
=====>

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

FWH12.04||Harbour 3.2.0 (18754)||BCC6.5||UEstudio 10.10||
Windows 7 Ultimate

FiveWin, One line of code and it's done...
hua
Posts: 861
Joined: Fri Oct 28, 2005 2:27 am

Re: How to implement a scrolling message?

Post by hua »

Thank you Bayron
FWH 11.08/FWH 19.03
xHarbour 1.2.1 (Rev 6406) + BCC
Harbour 3.1 (Rev 17062) + BCC
Harbour 3.2.0dev (r1904111533) + BCC
hag
Posts: 598
Joined: Tue Apr 15, 2008 4:51 pm
Location: LOs Angeles, California
Contact:

Re: How to implement a scrolling message?

Post 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
Thank you
Harvey
hua
Posts: 861
Joined: Fri Oct 28, 2005 2:27 am

Re: How to implement a scrolling message?

Post 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
Last edited by hua on Thu Apr 08, 2010 1:19 am, edited 1 time in total.
FWH 11.08/FWH 19.03
xHarbour 1.2.1 (Rev 6406) + BCC
Harbour 3.1 (Rev 17062) + BCC
Harbour 3.2.0dev (r1904111533) + BCC
hag
Posts: 598
Joined: Tue Apr 15, 2008 4:51 pm
Location: LOs Angeles, California
Contact:

Re: How to implement a scrolling message?

Post by hag »

Hua:

Thanks for the info. Havn't tried it yet. will keep you posted on how it works.
Thank you
Harvey
Horizon
Posts: 997
Joined: Fri May 23, 2008 1:33 pm

Re: How to implement a scrolling message?

Post by Horizon »

Hi,

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

Hakan ONEMLI

Harbour & VS 2019 & FWH 20.12
User avatar
karinha
Posts: 4882
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: How to implement a scrolling message?

Post by karinha »

João Santos - São Paulo - Brasil
User avatar
karinha
Posts: 4882
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: How to implement a scrolling message?

Post by karinha »

João Santos - São Paulo - Brasil
Horizon
Posts: 997
Joined: Fri May 23, 2008 1:33 pm

Re: How to implement a scrolling message?

Post by Horizon »

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 & VS 2019 & FWH 20.12
Horizon
Posts: 997
Joined: Fri May 23, 2008 1:33 pm

Re: How to implement a scrolling message?

Post by Horizon »

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- ... downloads/
Regards,

Hakan ONEMLI

Harbour & VS 2019 & FWH 20.12
User avatar
nageswaragunupudi
Posts: 8017
Joined: Sun Nov 19, 2006 5:22 am
Location: India
Contact:

Re: How to implement a scrolling message?

Post by nageswaragunupudi »

FWH Next Version

Code: Select all

   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
 
Image
Regards

G. N. Rao.
Hyderabad, India
Horizon
Posts: 997
Joined: Fri May 23, 2008 1:33 pm

Re: How to implement a scrolling message?

Post by Horizon »

very good Mr. Rao.

DSay also support BLINKING command.
Regards,

Hakan ONEMLI

Harbour & VS 2019 & FWH 20.12
Post Reply