FiveTech Software tech support forums

There is a function ABPaint( hDC := GetWindowDC( hWnd ), nLeft, nTop, oBmp:hBitmap ) sample testab.prg DEFINE BITMAP oBmp FILENAME "..\bitmaps\AlphaBmp\Trash.bmp" ... ... ACTIVATE WINDOW oWnd ; ON PAINT ABPaint( hDC, 10, 10, ...

... Transparencies" ;      COLOR 0, "N/W" BRUSH oBrush   ACTIVATE WINDOW oWnd ;      ON PAINT ABPaint( hDC, 10, 10, oBmp:hBitmap, 220 ) // 0-255 transparency level   oBrush:End()   oBmp:End()return ...

If Iuse Abpaint to draw a bitmap

ABPaint( ::hDC, y, x, v[1], 255)

the bitmap wich color must have on the background ?

I ask this because the bitmap is not transparent ( also with manifest) and I not understood why

Antonio buenos dias, gracias por la ayuda Agrego la VM.LIB (xharbour), y me manda estos errorres :( :( Proyecto: Kept5, Entorno: BorlandDLL: [1]:Harbour.Exe Source\Tseguro.prg /m /n /es2 /ki /iP:\32bits\xharbour\include;P:\32bits\FWH\INCLUDE /i /oObj\Tseguro.c xHarbour Compiler build 1.2.1 (SimpLex)...

... http://forums.fivetechsupport.com/viewtopic.php?p=201077#p201077 Please review samples\rbdesign.prg for an example of use * Enhancement: function ABPaint() now returns a logical value to know the result of the call to function AlphaBlend() used from ABPaint(): https://msdn.microsoft.com/es-es/library/windows/desktop/dd183351(v=vs.85).aspx ...

... Even if the alpha channel is added ( 32-bit bitmap instead of 24-bit bitmap) there is no change in the content or rendering when painted with abpaint(). We knew this behavior from the time we started using GDI+. Thank you. This could explain why HasAlpha() is not working fine. Unfortunately ...

... Even if the alpha channel is added ( 32-bit bitmap instead of 24-bit bitmap) there is no change in the content or rendering when painted with abpaint(). We knew this behavior from the time we started using GDI+.

Enrico, Lets check if it works. I have modified FWH function ABPaint() to return the result of the call to AlphaBlend() function HasAlpha( hBitmap )   local hDC := CreateDC( "DISPLAY", "", "" )  ...

So, why not to make a function HasAlpha( hBmp ) using ABPaint() inside it?

EMG

The idea is:

lHasAlpha = ABPaint( hDC, nX, nY, hBitmap, nAlphaLevel )

I don't understand. I have to select the correct painting function to use after checking for alpha channel. Ie:

IF HASALPHA()
use ABPAINT()
ELSE
use something else
ENDIF

EMG

... pixels: https://msdn.microsoft.com/en-us/library/windows/desktop/dd183351(v=vs.85).aspx Thus, we could modify FWH function ABPaint() to return the return value of the AlphaBlend() call there

... ; oWnd:End(), ( nBenutzer := USERLOGIN(oWnd), ; IIF( nBenutzer > 0, ( LOAD_SYS1(nBenutzer), BUILDMETRO(oWnd) ), oWnd:End() ) ) ) ; ON PAINT ( ABPaint( hDC, ( ScreenWidth() / 2 ) - ( oImgTouch:nWidth / 2 ), ; ( ScreenHeight() / 2 ) - ( oImgTouch:nHeight / 2 ), oImgTouch:hBitmap, 255 ),; // ...

... DEFINE BITMAP oBackground FILENAME c_path1 + "Background.png" DEFINE WINDOW oWnd FROM 10, 10 TO 48,110 ACTIVATE WINDOW oWnd ; ON PAINT ( ABPaint( hDC, 50, 10, oBackground:hBitmap, 255 ) )

... * Enhancement: TMenuitem, allows use of bmps, pngs, jpgs Thanks to Manuel Alvarez ( mastintin ) * Enhancement: function ABPaint() now accepts a sixth and seventh parameters to directly resize the painted image. Thanks to Enrico! * Enhancement: TXImage: Can now be created ...