Quiero tener un control TImage que se cambie automáticamente cada vez que se cambia de registro en un browse. No quiero ajustar la imagen al tamaño del control, sino mostrar la imagen a tamaño natural. La manera de hacerlo basicamente es asociar una función al bchange del browse y cuando cambio de registro hago esto:
- Code: Select all Expand view
- function RefreshMuImage()
if File(lfn2sfn(rtrim(MU->MuImagen)))
oMuImage:Show()
oMuImage:LoadBmp(lfn2sfn(rtrim(MU->MuImagen)))
else
oMuImage:Hide()
endif
oMuImage:Refresh()
return nil
es decir si tengo imagen en el campo muestro el control y cargo la imagen, sino lo oculto. El problema que me he eoncontrado es que cuando muestro una imagen y a continuación una más pequeña, la pequeña queda superpuesta sobre la grande porque no tengo manera de eliminar la imagen grande. Así que me gustaría saber si hay manera de eliminar una imagen del control, es decir dejar el control en blanco, antes de poner la siguiente imagen.
Saludos,