Una Foto en listado twbrowse se muestra transparente

Post Reply
User avatar
GUSPRE
Posts: 94
Joined: Thu May 11, 2006 10:00 pm
Location: BS.AS.ARGENTINA
Contact:

Una Foto en listado twbrowse se muestra transparente

Post by GUSPRE »

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,
GUSTAVO PREDIGER
User avatar
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:

Post by Antonio Linares »

Gustavo,

El color del pixel 0,0 del bitmap se usa como máscara para la transparencia. Cambia el pixel 0,0 del bitmap a otro color, un color que no esté en la foto.
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
GUSPRE
Posts: 94
Joined: Thu May 11, 2006 10:00 pm
Location: BS.AS.ARGENTINA
Contact:

Post by GUSPRE »

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
User avatar
GUSPRE
Posts: 94
Joined: Thu May 11, 2006 10:00 pm
Location: BS.AS.ARGENTINA
Contact:

Post by GUSPRE »

Aqui adjunto imagen de lo que me sucede,
me esta sacando canas verdes!!

Muchas Gracias y saludos,

Image
GUSTAVO PREDIGER
User avatar
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:

Post by Antonio Linares »

Gustavo,

Que browse estás usando ?
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
GUSPRE
Posts: 94
Joined: Thu May 11, 2006 10:00 pm
Location: BS.AS.ARGENTINA
Contact:

Post by GUSPRE »

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,
GUSTAVO PREDIGER
User avatar
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:

Post by Antonio Linares »

Gustavo,

En el módulo wbrwline.c del browse de Hernán se está llamando a DrawMasked(). Hay que cambiarlo para que llame a DrawBitmap() y modificar un poco los parámetros que se le pasan
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
GUSPRE
Posts: 94
Joined: Thu May 11, 2006 10:00 pm
Location: BS.AS.ARGENTINA
Contact:

Post by GUSPRE »

Muchas gracias Antonio, ya lo encontre, lo probaré ahora...

Saludos.-
GUSTAVO PREDIGER
Post Reply