Avrei la necessita' con FWPPC di visualizzare dei file testo di grosse dimensioni.
Non conoscendo comandi specifici ho utilizzato la seguente funzione :
*-------------------------------------
function visua_txt(cFile)
local oBrw,vi_ofont
ferase(curdir()+'\pp.dbf')
dbcreate(curdir()+'\pp.dbf',{{'rec','c',300,0},{'ee','c',1,0}})
use (curdir()+'\pp') alias pp new
select pp
append from(curdir()+'\'+cfile) sdf
pp->(dbgotop())
v1 := 1
DEFINE FONT vi_oFont NAME "Courier New" SIZE 0, -12
DEFINE WINDOW CO_oWnd TITLE "Controllo"
@ 0, 0 LISTBOX oBrw FIELDS "" ;
alias "pp" ;
HEADERS "Testo" ;
FIELDSIZES 300 ;
SIZE 240,200 ;
FONT vi_oFont ;
PIXEL
oBrw:nLineStyle := 0
oBrw:bLine = { || { substr(pp->rec,v1,v2) } }
oBrw:setFont(vi_oFont)
oBrw:oHScroll:SETRANGE(0,300)
@ 235 ,1 BTNBMP obnt1 file(CurDir()+'\res\left1.bmp') ;
pixel SIZE 60,30 ;
action visua_txt_s(obrw)
@ 235 ,90 BTNBMP oBnt3 file(CurDir()+'\res\exit.bmp') ;
PIXEL size 60,30 ;
action CO_oWnd:end() CANCEL
@ 235 ,179 BTNBMP oBnt2 file(CurDir()+'\res\right1.bmp') ;
pixel SIZE 60,30 ;
action visua_txt_d(obrw)
ACTIVATE WINDOW CO_oWnd
close pp
vi_oFont:end()
return
-----------
Function visua_txt_d(obrw)
v1:=v1+5
IF V1 > 300
V1 := 300
ENDIF
eval(obrw:bLine)
obrw:refresh()
return
--------------------
Function visua_txt_s(obrw)
v1:=v1-5
if v1 < 0
v1 := 1
endif
eval(obrw:bLine)
obrw:refresh()
return
*---------------------------------------
Esiste la possibilita' di attivare una SCROLLBAR per gestire
al meglio lo spostamento laterale?
