>Hi all,
>
>I'm maintaining an old application that generate tons of reports "by hand" using @ say and ? and eject, etc.
>It works well and changing all of those reports it's not possible at this time.
>The preview of those reports is done by modify file in a window, and the vast majority of the produced text files have random names.
>What bothers the users the most is that they have to turn off word wrap every time they preview by right clicking the window, properties and then turn off it and click ok.
>Is it any way to set it off programatically?
>It is just a little thing I can't figure out yet. They will run it in VFP 7.0 beginning on January.
Here's a bit of code I was using for exactly that sort of thing:
lparam _fajl
local x
x=createobject("disp", _fajl)
x.show
rele x
retu
define class disp as form
fajl=""
fontname="Courier new"
fontsize=_screen.fontsize
proc Init(_fajl)
this.caption=fullp(_fajl)
this.fajl=_fajl
endproc
proc show
this.windowstate=2
zoom wind (this.name) max
modi comm (this.fajl) wind (this.name) noedit nomenu
endproc
enddef