to nages : fix to Tbitmap paint

[mastintin]

in tbitmap -> method paint ...
in lines 677 +- and 696 +-

Code: Select all  Expand view

......
if SetAlpha() .and. ::lHasAlpha
            hBitmap := ResizeBmp( ::hBitmap, ::Super:nWidth(), ::Super:nHeight() )
            ABPaint( ::hDC, ::nX, ::nY, hBitmap, ::nAlphaLevel() )
            if hBitmap != nil                // new
               DeleteObject( hBitmap ) // new
            endif                                // new
         else
            if ! ::lTransparent
.............

 

[nageswaragunupudi]

Thanks for pointing out.

I propose to destroy hbitmap if not nil, towards the end of paint method, because this creation by resize is at two places in the paint method. Hope you too will agree.

Also I am considering replacing resizebmp with resizeimg because I found the later function produces a better quality resizing. You may test it too on different bitmaps of different sizes.

[mastintin]

Nages , resize images from gdi+ is better ... ... look code in tgdiplus.prg.

[nageswaragunupudi]

Nages , resize images from gdi+ is better ... ... look code in tgdiplus.prg.

We need to do a lot more work on GDI. We both will make some time for it.

[mastintin]

We need to do a lot more work on GDI. We both will make some time for it.

check your email. I sent a small code for tests.