>>************************************************** >>*-- 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 >>************************************************** >>>>