Clipper/FiveWin - Refrescar imagenes utilizando un LISTBOX

Hola compañeros: de nuevo otra vez aquí.

En un Dialog tengo un LISTBOX y un TBitmap y necesito que la imagen se refresque cada vez que se cambie de registro mediante el LISTBOX. Por ahora he conseguido que muestre la imagen correspondiente al primer registro pero cada vez que cambio de registro NO me refresca la imagen ¿?¿?¿?

Mi codigo reducido es:

funct mostrar()
use memoria
define dialog....
redefine bitmap oimagen file path_ima transparen id 642 of w_cli update
redefine listbox listcli fields codigo,nombre id 100 of w_cli on change cambiar()
....
activate dialog ...
return

funct cambiar()
path_ima=memoria->imagen
oimagen:refresh()
return

¿ Que hago mal ? ¿Alguna sugerencia ?

Mil gracias a todos.
LORENZO

Lorenzo:

Tienes que refrescas el Browse

listcli:refresh()

Saludos

Mauricio Arevalo

Estoy seguro que esta rutina te va servir. Yo lo hago con TBROWSE y mediante codigo

@05,05 COLUMN BROWSE oLbx OF oDlg;
FONT oFnt2 UPDATE ALIAS "MovTip" ;
SIZE 70,130 PIXEL ;
ON CHANGE (oTipoBmp:LoadBmp("BMP\"+Alltrim(MovTip->TipVeh)+".BMP"),oTipoBmp:REFRESH()) ;
COLOR CLR_BLACK,CLR_WHITE
oLbx:nFreeze := 1
ADD COLUMN TO BROWSE oLbx DATA MovTip->TipVeh LEFT ;
HEADER "TIPO" ;
SIZE 75 PIXELS;
COLOR CLR_BLACK,CLR_YELLOW_01

ADD COLUMN TO BROWSE oLbx DATA MovTip->CanEje CENTER ;
HEADER "EJES" ;
PICTURE "9999" ;
SIZE 40 PIXELS

@05,80 BITMAP oTipoBmp FILE ("BMP\"+cPTipo+".BMP") SIZE 170,80 OF oDlg PIXEL WHEN .F. ADJUST