How to implement a scrolling message?

How to implement a scrolling message?

Postby hua » Mon Apr 05, 2010 7: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
hua
 
Posts: 1034
Joined: Fri Oct 28, 2005 2:27 am

Re: How to implement a scrolling message?

Postby Bayron » Mon Apr 05, 2010 11:31 am

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



 
=====>

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...
User avatar
Bayron
 
Posts: 815
Joined: Thu Dec 24, 2009 12:46 am
Location: Philadelphia, PA

Re: How to implement a scrolling message?

Postby hua » 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
hua
 
Posts: 1034
Joined: Fri Oct 28, 2005 2:27 am

Re: How to implement a scrolling message?

Postby Bayron » Mon Apr 05, 2010 7: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....
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...
User avatar
Bayron
 
Posts: 815
Joined: Thu Dec 24, 2009 12:46 am
Location: Philadelphia, PA

Re: How to implement a scrolling message?

Postby hua » Tue Apr 06, 2010 1:35 am

Thank you Bayron
FWH 11.08/FWH 19.12
BCC5.82/BCC7.3
xHarbour/Harbour
hua
 
Posts: 1034
Joined: Fri Oct 28, 2005 2:27 am

Re: How to implement a scrolling message?

Postby hag » Tue Apr 06, 2010 5: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
hag
 
Posts: 598
Joined: Tue Apr 15, 2008 4:51 pm
Location: LOs Angeles, California

Re: How to implement a scrolling message?

Postby hua » Tue Apr 06, 2010 7: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
Last edited by hua on Thu Apr 08, 2010 1:19 am, edited 1 time in total.
FWH 11.08/FWH 19.12
BCC5.82/BCC7.3
xHarbour/Harbour
hua
 
Posts: 1034
Joined: Fri Oct 28, 2005 2:27 am

Re: How to implement a scrolling message?

Postby hag » Wed Apr 07, 2010 7:42 pm

Hua:

Thanks for the info. Havn't tried it yet. will keep you posted on how it works.
Thank you
Harvey
hag
 
Posts: 598
Joined: Tue Apr 15, 2008 4:51 pm
Location: LOs Angeles, California

Re: How to implement a scrolling message?

Postby Horizon » Tue Mar 13, 2018 2: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.04
Horizon
 
Posts: 1285
Joined: Fri May 23, 2008 1:33 pm

Re: How to implement a scrolling message?

Postby karinha » Tue Mar 13, 2018 6:26 pm

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7154
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: How to implement a scrolling message?

Postby karinha » Tue Mar 13, 2018 6:31 pm

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7154
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: How to implement a scrolling message?

Postby Horizon » 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.04
Horizon
 
Posts: 1285
Joined: Fri May 23, 2008 1:33 pm

Re: How to implement a scrolling message?

Postby Horizon » 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.04
Horizon
 
Posts: 1285
Joined: Fri May 23, 2008 1:33 pm

Re: How to implement a scrolling message?

Postby nageswaragunupudi » Mon Mar 18, 2019 9:52 am

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
 


Image
Regards

G. N. Rao.
Hyderabad, India
User avatar
nageswaragunupudi
 
Posts: 10208
Joined: Sun Nov 19, 2006 5:22 am
Location: India

Re: How to implement a scrolling message?

Postby Horizon » Mon Mar 18, 2019 6:50 pm

very good Mr. Rao.

DSay also support BLINKING command.
Regards,

Hakan ONEMLI

Harbour & MSVC 2022 & FWH 23.04
Horizon
 
Posts: 1285
Joined: Fri May 23, 2008 1:33 pm

Next

Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 9 guests