Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Automatic build number or timestamp
Message
De
07/11/2008 13:20:20
 
 
À
04/11/2008 09:50:06
James Blackburn
Qualty Design Systems, Inc.
Kuna, Idaho, États-Unis
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire de projet
Versions des environnements
Visual FoxPro:
VFP 9 SP1
OS:
Vista
Network:
Windows 2008 Server
Database:
MS SQL Server
Divers
Thread ID:
01359475
Message ID:
01360568
Vues:
35
James --

Have looked into project information for a sample project -- where do you add it? I don't see any obvious place.

Thanks in advance

Jim

>This might help. This stores the current version in my app property. You add this class to your project in project information.
>
>
>**************************************************
>*-- Class:        cproject (d:\projects\yak\common\app\libs\project.vcx)
>*-- ParentClass:  projecthook
>*-- BaseClass:    projecthook
>*-- Time Stamp:   11/04/08 07:36:03 AM
>*
>#INCLUDE "d:\projects\yak\common\include\common.h"
>*
>DEFINE CLASS cproject AS projecthook
>
>
>	Height = 22
>	Width = 23
>	cappclass = "acntapp"
>	cclasslib = "acontainer.vcx"
>	Name = "cproject"
>
>	* method to update version in a class. 
>	PROCEDURE updversion
>		LOCAL lcOldVers, lcNewVers
>		* this holds the class I want to store the version number to.
>		USE (this.cClassLib) 
>		* save class before hacking
>		COPY TO acontainerBak
>		LOCATE FOR objname = (this.cappclass) 
>		IF NOT EOF()
>			* cclientversion is a propert in my app class
>			lcOldVers = STREXTRACT(properties,'cclientversion =',CHR(13))
>			lcNewVers = " "+_vfp.ActiveProject.VersionNumber 
>			lcNewProp = STRTRAN(properties,lcOldVers,lcNewVers,1,1,1)
>			replace properties WITH lcNewProp 
>			USE 
>		ENDIF 
>	ENDPROC
>
>	PROCEDURE Init
>		DODEFAULT()
>		IF TYPE("_vfp.ActiveProject.name")<> "U"
>		*	DEBUGOUT _vfp.ActiveProject.name
>			lcHomeDir = _vfp.ActiveProject.HomeDir 
>			CD (lcHomeDir)
>			_screen.Caption = "Microsoft Visual Foxpro " +_vfp.ActiveProject.name
>		*	WAIT WINDOW TIMEOUT 3 _vfp.ActiveProject.name
>		ENDIF 
>
>		IF WEXIST("command")
>			ACTIVATE WINDOW command
>		ENDIF 
>	ENDPROC
>
>	PROCEDURE BeforeBuild
>		LPARAMETERS cOutputName, nBuildAction, lRebuildAll, lShowErrors, lBuildNewGuids
>		DODEFAULT(cOutputName, nBuildAction, lRebuildAll, lShowErrors, lBuildNewGuids)
>		* calls the updVersion method
>		this.updVersion()
>		IF FILE("logsql.dbf")
>			USE logsql EXCLUSIVE 
>			ZAP
>			USE 
>		ENDIF 
>	ENDPROC
>ENDDEFINE
>*
>*-- EndDefine: cproject
>**************************************************
>
>
>>And I don't know how to that either. (sigh)
>>
>>>Then you must use a project hook.
>>>
Jim Nelson
Newbury Park, CA
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform