readbitmap usado directamente en twbrowse colapsa el sistema

[Vladimir Zorrilla]

Amigos necesito mostrar fotos en un browse


le paso como parametro para que dibuje las fotos


oLbx:bLine:={ || { readbitmap(0,"foto.bmp"}}

funciona ok

pero despues de salir y entrar a esta opcion unas 10 veces
la decima vez ya no muestra las fotos

entiendo que con el objeto bitmap se tiene un objeto al que
puedo destruitr con obmp:end() y se supone q libero el manejador
y po rconsiguiente el recurso

pero en este caso com hago por que supongo q mi error es que
no estoy liberando recursos



Gracias por la ayuda

[Antonio Linares]

Vladimir,

Prueba así:

Code: Select all  Expand view

static hBitmap

...

oLbx:bLine:={ || If( hBitmap != nil, ( DeleteObject( hBitmap ), hBitmap := nil ),) { hBitmap := readbitmap( 0, "foto.bmp" ) }}


[Vladimir Zorrilla]

muchas gracias funciona perfecto