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.
