>IF TYPE("_vfp.ActiveProject.name")<> "U" > lcHomeDir = _vfp.ActiveProject.HomeDir > CD (lcHomeDir) > _screen.Caption = "Microsoft Visual Foxpro " +_vfp.ActiveProject.name >ENDIF > >>
>>DEFINE CLASS projectpath AS projecthook >> >> Height = 22 >> Width = 23 >> Name = "projectpath" >> >> PROCEDURE Destroy >> set default to "O:\" >> set path to >> ENDPROC >> >> PROCEDURE Init >> local lcDir,lcProjDir >> lcDir = allt(sys(5)+curdir()) >> lcProjDir = allt(substr(curdir(),1,at('\',curdir(),2)-1)) >> set default to &lcDir >> set path to "class,data,forms,icons,reports,help,prog,o:\"+lcProjDir+"\source\a blank oapp\class" >> ENDPROC >>ENDDEFINE >>