************************************************** *-- Class: pjx (e:\dragan\dokumenti\rad\vfprc\app.vcx) *-- ParentClass: projecthook *-- BaseClass: projecthook *-- Time Stamp: 11/15/01 04:13:07 PM * #INCLUDE "d:\program files\microsoft visual studio\vfp98\foxpro.h" * DEFINE CLASS pjx AS projecthook Height = 22 Width = 23 Name = "pjx" PROCEDURE addpath lParam cPath cPath=fullp(cPath) if atc(cPath+',', set('path')+',')=0 cPath=set('path')+','+cPath set path to (cPath) endif ENDPROC PROCEDURE Init dodefault() local oPjx oPjx=_vfp.activeproject cd (oPjx.homedir) this.addpath(justpath(this.classlibrary)) use (oPjx.name) again in 0 noup alias pjx select dist (justpath(name)) from pjx into array aa *use in pjx for i=1 to alen(aa) this.addpath(trim(aa[i])) endfor SELECT pjx USE ENDPROC ENDDEFINE * *-- EndDefine: pjx **************************************************