Una Pregunta, en un listado donde se muestran datos de personas y fotos , las mismas se muestran como si fueran transparentes, o sea cambian algunos pixeles color fondo y faltan partes de la imagen. Hay alguna forma de decirle al wbrowse que no las muestra transparentes ?
Saludos,
Una Foto en listado twbrowse se muestra transparente
- Antonio Linares
- Site Admin
- Posts: 42521
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Has thanked: 31 times
- Been thanked: 76 times
- Contact:
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)
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
- Antonio Linares
- Site Admin
- Posts: 42521
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Has thanked: 31 times
- Been thanked: 76 times
- Contact:
Antonio estoy usando:
fwh 2.6 03/2005
Compiler version: xHarbour build 0.99.51 Intl. (SimpLex)
Clase TWBrowse by Hernan Ceccarelli Ver: 15
Probé actualizar el wbrowse a la versión 17 que esta en utilidades pero me tiro errores, creo que funciona solo con versiones de fwh superiores.. será esto el problema ?
Saludos y Gracias,
fwh 2.6 03/2005
Compiler version: xHarbour build 0.99.51 Intl. (SimpLex)
Clase TWBrowse by Hernan Ceccarelli Ver: 15
Probé actualizar el wbrowse a la versión 17 que esta en utilidades pero me tiro errores, creo que funciona solo con versiones de fwh superiores.. será esto el problema ?
Saludos y Gracias,
GUSTAVO PREDIGER
- Antonio Linares
- Site Admin
- Posts: 42521
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Has thanked: 31 times
- Been thanked: 76 times
- Contact: