topic-30352

Posts: 1516

Joined: Thu May 27, 2010 02:06 PM

to nages : fix to Tbitmap paint
Posted: Wed Mar 11, 2015 09:35 AM

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

......
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

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: to nages : fix to Tbitmap paint
Posted: Wed Mar 11, 2015 12:45 PM

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.

Regards

G. N. Rao.

Hyderabad, India

mastintin

Posts: 1516

Joined: Thu May 27, 2010 02:06 PM

Re: to nages : fix to Tbitmap paint
Posted: Wed Mar 11, 2015 02:42 PM

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