Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Scrolling Credits Marquee
Message
De
01/09/2005 17:20:41
 
 
À
01/09/2005 13:35:29
Information générale
Forum:
Visual FoxPro
Catégorie:
Classes - VCX
Divers
Thread ID:
01045747
Message ID:
01046036
Vues:
24
>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

You can simplify it:
text to thisform.container1.edit1.value 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
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform