Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Scrolling Credits Marquee
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Classes - VCX
Divers
Thread ID:
01045747
Message ID:
01045918
Vues:
21
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
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform