Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Scrolling Credits Marquee
Message
General information
Forum:
Visual FoxPro
Category:
Classes - VCX
Miscellaneous
Thread ID:
01045747
Message ID:
01045918
Views:
23
Craig,

VERY NICE! Another great code snippet from you to add to my toolbox.

A minor tweak below for ease of maintenance. Note that I included the TEXTMERGE option so that [[expressions]] (substitute less-than, greater-than chars for [ and ]) could be embedded in the credits in case you wanted to reference specific license numbers or version/build info. In my example I dynamically calculate the year so that the copyright always stays up-to-date. Also note the pretext value of "3" (trim leading spaces and tabs on each line) which allows my text/endtext block to indent consistently with the rest of my code vs. forcing it to be left aligned.

Replace the manually built credits string with the following:
local lcCredits
text to lcCredits textmerge noshow pretext 3
	MY GREAT SOFTWARE
	
	Copyright © <<year(date())>> - All Rights Reserved

	THE TEAM

	Bill M.
	
	Craig S.

	Doug P.

	Sue W.

	and most importantly...

	YOU!
	
	None of this would be possible without you
	
	THANK YOU
endtext

thisform.container1.edit1.value = lcCredits
Thanks again Craig!

Malcolm
Malcolm Greene
Brooks-Durham
mgreene@bdurham.com
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform