como muestro un archivo jpg

[Gerardo Farfan]

mi problema es que necesito mostrar en un folder la fotografia de articulos, este es parte de mi codigo:

*** aqui tengo el nombre del archivo junto con su extension "JPG"
Redefine GET aVars[15,1] VAR aVars[15,2] ID 102 OF aVars[1,1]:aDialogs[3] ON CHANGE(oBoton:Enable(),.T.) UPDATE

*** este boton lo puse para checar que este tomando el nombre del archivo y pasarlo a la funcion
ReDefine Button ID 809 OF aVars[1,1]:aDialogs[3] Action(VerFoto(aVars[15,2])) UPDATE

*** en este control deberia de aparecer sin la necesidad de presionar el boton pero no lo hace
REDEFINE BITMAP oImg ID 103 FILE ".\Fotos\"+aVars[15,2] OF aVars[1,1]:aDialogs[3] update

*** con esta funcion aparece la fotografia
Function VerFoto(cImageName)
LOCAL oWindow,oImg
CursorWait() ; SysRefresh()
cImageName2:=".\Fotos\"+cImageName
DEFINE WINDOW oWindow MDICHILD OF oWndMain TITLE cFileName(cImageName2)
@ 0,0 IMAGE oImg FILE cImageName2 OF oWindow UPDATE PIXEL
oWindow:SetControl(oImg)
ACTIVATE WINDOW oWindow ON INIT(oWindow:nWidth:=(oImg:nWidth+10),oWindow:nHeight:=(oImg:nHeight+28),oWindow:Refresh(),;
CursorArrow(),SYSREFRESH())
Return(.T.)

como puedo lograr este efecto???, que estoy haciendo mal o que mas necesito????

de antemano muchas gracias.

[Antonio Linares]

Gerardo,

>
REDEFINE BITMAP oImg ID 103 FILE ".\Fotos\"+aVars[15,2] OF aVars[1,1]:aDialogs[3]
>

Ojo, tiene que ser REDEFINE IMAGE ...

[Gerardo Farfan]

Gracias Antonio.

ahora me dice que no reconoce la variable oImg, la cual tengo definida como LOCAL.

[Manuel Aranda]

Hola Gerardo:

Has incluido
#include image.ch

Puede ser ese el problema.

Un saludo,
Manuel

[Gerardo Farfan]

Muchas Gracias, me faltaba incluir el Image.ch.