Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
What do you think of 'Beautify'?
Message
De
01/05/2010 16:35:47
 
 
À
01/05/2010 13:38:59
Hilmar Zonneveld
Independent Consultant
Cochabamba, Bolivie
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Versions des environnements
Visual FoxPro:
VFP 9 SP2
Divers
Thread ID:
01462534
Message ID:
01462672
Vues:
53
Thanks

>>Can you post the code (from VFP6) that Beautify mangles -- both before and after? .... still curious here.
>
>The following is a small part of the startup file, vfxmain.prg, used in the Visual Extend framework. This was designed for Visual FoxPro 6.
>
>
>* BEFORE BEAUTIFY:
>IF VARTYPE(goprogram) = "O"
>	RELEASE gcoldtalk, gcolddir, gcoldpath, gcoldclasslib, gcoldescape, gcoldresource
>
>	#ifdef _debug_mode
>	IF VERSION(2)=2
>		goprogram.debugmode(.T.)
>	ENDIF
>	#ENDIF
>
>	IF VARTYPE(_VFP)=="O"
>		_VFP.VISIBLE = .T.
>	ENDIF
>endif
>
>
>* AFTER BEAUTIFY (with Tabs) (using Visual FoxPro 6, SP5)
>IF VARTYPE(goprogram) = "O"
>	RELEASE gcoldtalk, gcolddir, gcoldpath, gcoldclasslib, gcoldescape, gcoldresource
>
>	#ifdef _debug_mode
>	IF VERSION(2)=2
>		goprogram.debugmode(.T.)
>	ENDIF
>#ENDIF
>
>IF VARTYPE(_VFP)=="O"
>	_VFP.VISIBLE = .T.
>ENDIF
>endif
>
>
>* VFP 9 ACTUALLY IMPROVES IT:
>IF VARTYPE(goprogram) = "O"
>	RELEASE gcoldtalk, gcolddir, gcoldpath, gcoldclasslib, gcoldescape, gcoldresource
>
>	#ifdef _debug_mode
>		IF VERSION(2)=2
>			goprogram.debugmode(.T.)
>		ENDIF
>	#ENDIF
>
>	IF VARTYPE(_VFP)=="O"
>		_VFP.VISIBLE = .T.
>	ENDIF
>endif
>
>
>I hadn't tested this with VFP 9 previously. Of course, the actual file is much larger; so (in Visual FoxPro 6) I had to search a while to find the "offensive" lines.
Jim Nelson
Newbury Park, CA
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform