RE:visualizar ficheros *.jpg
Fraguibo :
Te anexo otro ejemplo para mostrar imagenes en una ventana.
FUNCTION Abrir()
LOCAL cArch
LOCAL oWindow
LOCAL oImg
cArch := cGetFile("JPEG | *.jpg |" + ;
"DIB | *.dib |" + ;
"PCX | *.pcx |" + ;
"Bitmap| *.bmp |" + ;
"GIF | *.gif |" + ;
"TARGA | *.tga |" + ;
"RLE | *.rle |" + ;
"All Files | *.* " ;
,"Seleccione una imagen",1,,,.T.)
IF ! EMPTY(cArch)
ImageWin(cArch)
ENDIF
RETURN(NIL)
/* ImageWin: Abre en una ventana la imagen que recibe como parametor */
FUNCTION ImageWin(cImageName)
LOCAL oWindow
LOCAL oImg
CursorWait()
SysRefresh()
DEFINE WINDOW oWindow MDICHILD OF oWnd TITLE cFileName(cImageName)
@ 0,0 IMAGE oImg FILE LFN2SFN(cImageName) ADJUST NOBORDER OF oWindow UPDATE PIXEL
oImg:Progress( .F. )
oWindow:SetControl(oImg)
ACTIVATE WINDOW oWindow ON INIT( oWindow:Refresh(),CursorArrow(),SYSREFRESH())
RETURN (.T.)
/* fin ImageWin */
Saludos desde México
Victor Manuel Tomás Díaz