FiveTech Software tech support forums

saludos

programando con la version fwh 2.6 y harbour, quize poner un toolbar, todo bien pero pongo una imagen no me aparece trasnparente, como puedo hacer para que me aparesca del color del boton,

esta es la imagen http://img148.imageshack.us/my.php?image=dibujoja8.png

Revisa samples\toolbar1.prg y verás que para añadir una imagen has de hacer:

DEFINE IMGBITMAP OF oImageList NAME "new" COLOR nRGB( 255, 0, 255 )

En donde nRGB( 255, 0, 255 ) -fucsia- indica el color que va a ser transparente y es el mismo que debes usar en el bitmap:

Antonio

hice lo que me indicaste me fije en el ejemplo de los samples en fwh y viene la instruccion asi

oImageList:AddMasked( TBitmap():Define( "new",, oWnd ), nRGB( 255, 0, 255 ) )
oImageList:AddMasked( TBitmap():Define( "open",, oWnd ), nRGB( 255, 0, 255 ) )

parte de mi codigo es este pero no me pone las imagenes transparentes al boton se ven con el fondo blanco estoy haciendo algo mal

oImgList:= TImageList():New( 32, 32 )
oImgList:AddMasked( oBmp[1] := TBitmap():Define( "TOOL_CLIENTE" ,, oWnd ), nRGB( 255, 0, 255 ) )
oImgList:AddMasked( oBmp[2] := TBitmap():Define( "TOOL_PROVEDOR" ,, oWnd ), nRGB( 255, 0, 255 ) )
oImgList:AddMasked( oBmp[3] := TBitmap():Define( "TOOL_PRODUCTO" ,, oWnd ), nRGB( 255, 0, 255 ) )
oImgList:AddMasked( oBmp[4] := TBitmap():Define( "TOOL_SERVICIOS",, oWnd ), nRGB( 255, 0, 255 ) )

tomafa wrote:Antonio

hice lo que me indicaste me fije en el ejemplo de los samples en fwh y viene la instruccion asi

oImageList:AddMasked( TBitmap():Define( "new",, oWnd ), nRGB( 255, 0, 255 ) )
oImageList:AddMasked( TBitmap():Define( "open",, oWnd ), nRGB( 255, 0, 255 ) )

parte de mi codigo es este pero no me pone las imagenes transparentes al boton se ven con el fondo blanco estoy haciendo algo mal

oImgList:= TImageList():New( 32, 32 )
oImgList:AddMasked( oBmp[1] := TBitmap():Define( "TOOL_CLIENTE" ,, oWnd ), nRGB( 255, 0, 255 ) )
oImgList:AddMasked( oBmp[2] := TBitmap():Define( "TOOL_PROVEDOR" ,, oWnd ), nRGB( 255, 0, 255 ) )
oImgList:AddMasked( oBmp[3] := TBitmap():Define( "TOOL_PRODUCTO" ,, oWnd ), nRGB( 255, 0, 255 ) )
oImgList:AddMasked( oBmp[4] := TBitmap():Define( "TOOL_SERVICIOS",, oWnd ), nRGB( 255, 0, 255 ) )

Podría llegar a ser el color que le pones a tu imagen en el fondo para que sea transparente.

Buenas tomafa:

Es lo mismo que me pasaba a mi, pero si es el blanco es:

RGB(255,255,255)

SALUDOS ,

Miguel A.