How to implement a scrolling message?
How to implement a scrolling message?
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
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
xHarbour 1.2.1 (Rev 6406) + BCC
Harbour 3.1 (Rev 17062) + BCC
Harbour 3.2.0dev (r1904111533) + BCC
Re: How to implement a scrolling message?
Hi Hua,
You can use a Dinamic Say:
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...
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...
Re: How to implement a scrolling message?
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
xHarbour 1.2.1 (Rev 6406) + BCC
Harbour 3.1 (Rev 17062) + BCC
Harbour 3.2.0dev (r1904111533) + BCC
Re: How to implement a scrolling message?
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....
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...
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...
Re: How to implement a scrolling message?
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
xHarbour 1.2.1 (Rev 6406) + BCC
Harbour 3.1 (Rev 17062) + BCC
Harbour 3.2.0dev (r1904111533) + BCC
Re: How to implement a scrolling message?
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
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
Harvey
Re: How to implement a scrolling message?
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
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
xHarbour 1.2.1 (Rev 6406) + BCC
Harbour 3.1 (Rev 17062) + BCC
Harbour 3.2.0dev (r1904111533) + BCC
Re: How to implement a scrolling message?
Hua:
Thanks for the info. Havn't tried it yet. will keep you posted on how it works.
Thanks for the info. Havn't tried it yet. will keep you posted on how it works.
Thank you
Harvey
Harvey
Re: How to implement a scrolling message?
Hi,
Is there anyone have this file or something like that? The link is broken.
Is there anyone have this file or something like that? The link is broken.
Regards,
Hakan ONEMLI
Harbour & VS 2019 & FWH 20.12
Hakan ONEMLI
Harbour & VS 2019 & FWH 20.12
Re: How to implement a scrolling message?
João Santos - São Paulo - Brasil
Re: How to implement a scrolling message?
Display.prg
http://fivewin.com.br/index.php?/topic/ ... ent-265870
https://www.4shared.com/rar/E05ovEtTei/DISPLAY3.html
Regards,
http://fivewin.com.br/index.php?/topic/ ... ent-265870
https://www.4shared.com/rar/E05ovEtTei/DISPLAY3.html
Regards,
João Santos - São Paulo - Brasil
Re: How to implement a scrolling message?
Can you please share the link other than from 4shared.com?
Regards,
Hakan ONEMLI
Harbour & VS 2019 & FWH 20.12
Hakan ONEMLI
Harbour & VS 2019 & FWH 20.12
Re: How to implement a scrolling message?
I have found it.Horizon wrote:Can you please share the link other than from 4shared.com?
https://bitbucket.org/fivetech/fivewin- ... downloads/
Regards,
Hakan ONEMLI
Harbour & VS 2019 & FWH 20.12
Hakan ONEMLI
Harbour & VS 2019 & FWH 20.12
- nageswaragunupudi
- Posts: 8017
- Joined: Sun Nov 19, 2006 5:22 am
- Location: India
- Contact:
Re: How to implement a scrolling message?
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
Regards
G. N. Rao.
Hyderabad, India
G. N. Rao.
Hyderabad, India
Re: How to implement a scrolling message?
very good Mr. Rao.
DSay also support BLINKING command.
DSay also support BLINKING command.
Regards,
Hakan ONEMLI
Harbour & VS 2019 & FWH 20.12
Hakan ONEMLI
Harbour & VS 2019 & FWH 20.12