Hi Cetin,

>>I need to find 'thisform.lockscreen' in all my classes code. Is there an easy way to do it?
>>
>>Thanks in advance
>
>

---

Nadya,
>This could also help :
>

Lparameters tcSearchString, tcExtension
>
>lcDir = getdir("","Where files are located?")
>If empty(lcDir)
>  Return
>Endif
>
>Create cursor flist (scxname c(30), fieldname c(20), recnumber i)
>Select 0
>=adir(aFormfiles,lcDir+"*."+tcExtension)
>For fcnt = 1 to alen(aFormfiles,1)
>  Use (lcDir+aFormfiles[fcnt,1]) alias current
>  Scan
>    For ix = 1 to fcount("current")
>      If type(field(ix,"current"))$"CM" ;
>          and atc(tcSearchString, eval(field(ix,"current")))>0
>        Insert into flist values ;
>          (aFormfiles[fcnt,1], field(ix, "current"), recno("Current"))
>      Endif
>    Endfor
>  Endscan
>  Use
>Endfor
>Select flist
>On key label "F2" do EditTarget
>Go top
>Brow
>On key label "F2"
>
>Function EditTarget
>  Use (lcDir+trim(flist.scxname)) in 0 alias EdtSCX
>  Go flist.recnumber in "EdtSCX"
>  Select EdtSCX
>  Wait window nowait "Field name is : "+(trim(flist.fieldname))
>  Browse
>  Use
>  Select flist

Cetin

Thanks a lot for this code, I'll see, if I can use it. Just one question: is it safe to edit directly scx file or vcx file? Especially vcx? For safety I would archive these classes before edit.

BTW, I usually change scx file directly if I want to repoint one of form's object to another class...