Aqui si carga la primera imagen
- Code: Select all Expand view
- define dialog oDialfoto resource "dlgfotos" title "Fotografías asociadas a la reclamación de material "+cNode of oVentprinc icon "icono1" font oFont1g
redefine image oImage ID 0 of oDialfoto file cArchifoto adjust update
redefine btnbmp resource "BMPBACK" oBtnbmp1 id 2 of oDialfoto action antfoto()
redefine btnbmp resource "BMPFORWARD" oBtnbmp2 id 3 of oDialfoto action sigfoto()
redefine say prompt "Archivo "+cAdju id 1 of oDialfoto
redefine button oBtn1f ID 4 of oDialfoto action oDialfoto:end()
activate dialog oDialfoto
Para hacer un refresh de la imagen lo hago asi:
- Code: Select all Expand view
- oImage:LoadImage(cArchifoto)
oImage:Refresh()
oDialfoto:update()
Aqui incluso puse un if file(cArchifoto) y me confirma que el archivo existe en la ruta especificada
- Code: Select all Expand view
- if file(cArchifoto)
msgalert("Si existe el archivo",cArchifoto)
else
msgalert("No se encontro el archivo",cArchifoto)
endif
Alguna sugerencia para corregirlo?
Gracias