Bug in ResizeImg()

[Enrico Maria Giordano]

Antonio,

how can we paint faster an alpha-channel image with resize?

EMG

[Antonio Linares]

Enrico,

I am afraid that we can't (maybe using GDI+?) as FWH function ABPaint() just calls Windows API function AlphaBlend()

[Enrico Maria Giordano]

Antonio,

I tried GDIPLUSIMAGERESIZE( hBmp, nWidth, nHeight ) but it GPFs. What am I doing wrong?

EMG

[Enrico Maria Giordano]

Antonio,

FWH function ABPaint() just calls Windows API function AlphaBlend()

It seems that AlphaBlend() can resize the image:

https://msdn.microsoft.com/it-it/library/windows/desktop/dd183351(v=vs.85).aspx

Can you add two parameters with nWidth and nHeight (or can send me the source code to experiment)?

EMG

[Enrico Maria Giordano]

Alternatively, I found that ResizeBmp() works very well and fast if SetStretchBltMode() is set to COLORONCOLOR:

Code: Select all  Expand view  RUN

SetStretchBltMode (hdcDest, COLORONCOLOR);

What do you think about it?

EMG

[mastintin]

If you go to call gdi + pictures, you redimensionaleas also from GDI + ...

Code: Select all  Expand view  RUN

STATIC FUNCTION DRAWIMG( cFile, hDC, nWidth, nHeight, lImg )

    LOCAL hImg := LoadresizedImage( cFile ,nWith, nHeight)

 //   LOCAL hImg2

   // IF lImg
    //    hImg2 = RESIZEIMG( hImg, nWidth, nHeight )
   // ELSE
    //    hImg2 = RESIZEBMP( hImg, nWidth, nHeight )
   // ENDIF

    ABPAINT( hDC, 0, 0, hImg, 255 )

   // DELETEOBJECT( hImg2 )
    DELETEOBJECT( hImg )

    RETURN NIL

function LoadresizedImage( cFile ,nWith, nHeight)
local hbitmap
local ogdi:=gdibmp():new(  cFile  )
      ogdi:resize(  nWith, nHeight )
      hbitmap := ogdi:GetGDIHbitmap()
      ogdi:end()
return hbitmap

 

or

Code: Select all  Expand view  RUN

STATIC FUNCTION DRAWIMG( cFile, hDC, nWidth, nHeight, lImg )

    LOCAL hgdiImg := GdiPlusImageLoadCachedFile( cFile )
    LOCAL  gdinewhBmp := GdiPlusImageResize(hgdiImg , nWidth, nHeight ) 
    LOCAL  hImg2 := GdiPlusCreateHBitmapImage( gdinewhBmp )

    ABPAINT( hDC, 0, 0, hImg2, 255 )

    DELETEOBJECT( hImg2 )
     GdiPlusImageDispose( gdinewhBmp )
      gdinewhBmp = nil

    RETURN NIL
 

 

[Antonio Linares]

Enrico,

I already sent you function ABPaint() source code by email

[Enrico Maria Giordano]

If you go to call gdi + pictures, you redimensionaleas also from GDI + ...

Thank you, but doing so the file must be reloaded. I would want to resize an already loaded hBmp. Is it possible?

EMG

[Enrico Maria Giordano]

Antonio,

Enrico,

I already sent you function ABPaint() source code by email

Thank you. I'll study it.

EMG

[mastintin]

ok. From hbitmap

Code: Select all  Expand view  RUN

Function GdiResizeImage( hImg , nwidth, nHeight)
local  hGdiBmp:= GdiPlusCreateImageFrom32hBitmap( hImg )
 LOCAL  gdinewhBmp := GdiPlusImageResize(hgdibmp, nWidth, nHeight )
 LOCAL  hImg2 := GdiPlusCreateHBitmapImage( gdinewhBmp )
    GdiPlusImageDispose( hGdiBmp )
   GdiPlusImageDispose( gdinewhBmp )
Return hImg2

 

[Enrico Maria Giordano]

Thank you. But I think that using AlphaBlend() features would be much more efficient. I'm implementing the required changes.

EMG