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