FiveTech Software tech support forums

... pImage( GDI+ ), hPalette, width, height, lHasAlphaChannel, cSourceName, IsFromResource, "BITMAP/PIMAGE", // If GDI+, "PIMAGE" nZeroZeroClr, ImageType (BMP/JPG/PNG, etc) } Destroy: PalBmpFree( aImage )

... ) return nil //------------------------------------------------------------------------------ Function cargaBmp( cCode, oImage ) local cResp local nZeroZeroClr local ogbmp := GdiBmp():new() local nHeight := 248 local nWidth := 248 local cUrl := "http://api.qrserver.com/v1/create-qr-code/?data=" ...

... ) return nil //------------------------------------------------------------------------------ Function cargaBmp( cCode, oImage ) local cResp local nZeroZeroClr local ogbmp := GdiBmp():new() local nHeight := 248 local nWidth := 248 local cUrl := "http://api.qrserver.com/v1/create-qr-code/?data=" ...

... la ubicacion vertical del BMP if ::nOrientation <= OR_BOTTOM TransBmp( hBmp, nBmpWidth( hBmp ), nBmpHeight( hBmp ), /* RGB( 255, 0, 255 ) */ nZeroZeroClr, ::hDC,; nStart + 12, If( ::nOrientation == OR_TOP, 8, 0 ), 16, 16 ) /* codigo original TransBmp( hBmp, nBmpWidth( hBmp ), nBmpHeight( ...

... bitmap ? i.e.: nOldClr = SetBkColor( ::hDC, nRGB( 255, 255, 255 ) ) TransBmp( ::hBitmap, ::nWidth(), ::nHeight(), nZeroZeroClr, ::hDC,; ::nX, ::nY, Super:nWidth(), Super:nHeight() ) SetBkColor( ::hDC, nOldClr ) nZeroZeroClr ...

... al que pertenece) antes de que se pinte el bitmap en si. Eso hay que hacerlo en el METHOD PAINT() de la clase TBITMAP poniendolo delante de: nZeroZeroClr = GetPixel( ::hDC, 0, 0 ) SelectObject( ::hDC, hBmpOld ) nOldClr = SetBkColor( ::hDC, nRGB( 255, 255, 255 ) ) TransBmp( ::hBitmap, ::nWidth(), ...

... WINDOW oWnd DeleteObject( hBitmap ) RETURN NIL function PaintTransparent( hDC, hBitmap ) local hBmpOld := SelectObject( hDC, hBitmap ) local nZeroZeroClr := GetPixel( hDC, 0, 0 ) local nOldClr SelectObject( hDC, hBmpOld ) nOldClr = SetBkColor( hDC, nRGB( 255, 255, 255 ) ) TransBmp( hBitmap, ...

Enrico, Fixed: TransBmp( ::hBitmap1, nBmpWidth( ::hBitmap1 ), nBmpHeight( ::hBitmap1 ), nZeroZeroClr, ::hDC,; ( ::nWidth / 2 ) - ( nBmpWidth( ::hBitmap1 ) / 2 ) + If( ::lPressed, 2, 1 ),; Max( 0, ( ::nHeight / 3 ) - ( nBmpHeight( ::hBitmap1 ) / 2 ) + If( ::lPressed, ...

Reinaldo,

nZeroZeroClr is the color of the bitmap at 0, 0, used to build a mask to do the transparency.

TransBmp() should paint ok on a gradient. How does it looks ? Please post an image.