by GUSPRE » Thu Jan 04, 2007 2:48 pm
Gracias por la respuesta, pero no he podido arreglarlo, a continuación esta la funcion que levanta los bmp del disco para mostrarlos en el wbrowse. Que estoy haciendo mal ?, sigue mostrando partes de la imagen con pixeles del color del fondo. Las fotos fueron tomadas con una camara USB y grabadas en formato BMP, solo se muestran mal en el listbox.-
Muchas Gracias y Saludos.-
esto en el wbrowse
@ 0,0 LISTBOX oBremp ; FIELDS trae_cara(oBemp),;
*------------------------------------------------------
* TRAE CARA SI ESTA *
*------------------------------------------------------
FUNCTION trae_cara(oBemp)
LOCAL cim:="", hBitmap
car:=ud+"\GRCARD\IMLE\F"+STRZERO((oBemp)->EMP_LEGA,7)+".BMP"
IF FILE(car)
If( hBitmap != nil, ( DeleteObject( hBitmap ), hBitmap := nil ),)
hBitmap := readbitmap( 0, car )
SetPixel( hBitmap, 0, 0, rgb(255,0,0) )
cim:=hBitmap
ENDIF
RETURN(cim)
GUSTAVO PREDIGER