Refrescar imagen BMP dentro de un diálogo

[pedroluis]

Hola amigos !

Se que para ustedes ésto es sencillo.
Cuando modifico o edito el registro de un paciente, está la opción de sacar su foto y capturarla.
Pero cuando quiero BORRARLA no se como refrescar la imagen, o sea que salga la imágen en blanco...
Adjunto captura de pantalla.

Todo ésto lo estoy haciendo dentro de un diálogo en uno de los FOLDERs

local oxfoto
local xfoto := alltrim(m->xpathimg)+"\PAC"+strzero(1->paciente,5)+"\FOT"+strzero(1->paciente,5)+".bmp"

REDEFINE IMAGE oxFoto ID 2200 OF oFld:aDialogs[1] FILE xfoto ADJUST UPDATE BORDER

REDEFINE BTNBMP oBmp ID 2113 OF oFld:aDialogs[1] RESOURCE "video" ; //"ver" ;
ON CLICK fotos() ;
TOOLTIP "Tomar Fotos del Paciente" BORDER
REDEFINE BTNBMP oBtn ID 2114 OF oFld:aDialogs[1] ; // <----------- AQUI BORRO LA IMAGEN, PERO AL HACERLO QUIERO QUE LA MISMA SE QUEDE EN BLANCO.
ON CLICK ( FERASE(xfoto), xfoto:="",oxFoto:Refresh(),oFld:aDialogs[1]:Refresh() ) ;
TOOLTIP "Borrar Foto" BORDER

Uso FWH.17.09
Muchas gracias !

[armando.lagunas]

hola:

yo tambien ocupo IMAGE para las fotos, prueba con :

Code: Select all

oxFoto:Clear()
oxFoto:Refresh()
 

quedaria asi:

Code: Select all

REDEFINE BTNBMP oBmp ID 2113 OF oFld:aDialogs[1] RESOURCE "video" ; //"ver" ;
ON CLICK fotos() ;
TOOLTIP "Tomar Fotos del Paciente" BORDER
REDEFINE BTNBMP oBtn ID 2114 OF oFld:aDialogs[1] ; // <----------- AQUI BORRO LA IMAGEN, PERO AL HACERLO QUIERO QUE LA MISMA SE QUEDE EN BLANCO.
ON CLICK ( FERASE(xfoto), xfoto:="",   oxFoto:Clear()   ,oxFoto:Refresh(),oFld:aDialogs[1]:Refresh() ) ;
TOOLTIP "Borrar Foto" BORDER 
 

Saludos

[pedroluis]

Excelente Armando !!!
funcionó de 10 !
(No conocía la función Clear()...)
Muchas gracias.
Pedro.