Why ABPaint(hDC,nLeft,nTop.. / PalBmpDraw(hDC,nTop,nLeft.. ?

[ukoenig]

Hello,

during painting different Images on a bRClicked-position on the main-window,
and getting wrong results of TOP / LEFT of ABPaint, I had to exchange TOP / LEFT

I used :

oWnd:bRClicked := {|nRow, nCol|
IIF( lShow = .T., ( nImgTop := nRow, nImgLeft := nCol, oWnd:Refresh() ), NIL ) }

To get the same results of Alpha-images and NON-transparent.
It is the c-function found in /internal/alpha.c
Maybe it can be changed ?



Best Regards
Uwe

[nageswaragunupudi]

There is a small bug in bitmap.prg.
Please try to make this correction at two places.

In the Method Paint() of TBitmap class, you will find this line at two places.

Code: Select all  Expand view

              ABPaint( ::hDC, ::nX, ::nY, hBitmap, ::nAlphaLevel() )
 

Please change BOTH the lines as

Code: Select all  Expand view

              ABPaint( ::hDC, ::nY, ::nX, hBitmap, ::nAlphaLevel() )
 

Note: In the bitmap.prg, usage of X and Y is just the opposite of what we intuitively understand from usage in Windows.

We shall fix this in the next version to be released.

It is the c-function found in /internal/alpha.c
Maybe it can be changed ?

No. No. Please do not change this function. This is correct. The problem is only with bitmap.prg. If you change the main function in alpha.c, all other programs which call ABPaint will display incorrectly.