Antonio,
how can we paint faster an alpha-channel image with resize?
EMG
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour Bug in ResizeImg()
Page: 1 2 (26 posts)
Enrico,
I am afraid that we can't (maybe using GDI+?) as FWH function ABPaint() just calls Windows API function AlphaBlend()
Antonio,
I tried GDIPLUSIMAGERESIZE( hBmp, nWidth, nHeight ) but it GPFs. What am I doing wrong?
EMG
Antonio,
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
Antonio Linares wrote: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
Alternatively, I found that ResizeBmp() works very well and fast if SetStretchBltMode() is set to COLORONCOLOR:
What do you think about it?
EMG
SetStretchBltMode (hdcDest, COLORONCOLOR);What do you think about it?
EMG
If you go to call gdi + pictures, you redimensionaleas also from GDI + ...
or
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 hbitmapor
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 NILEnrico,
I already sent you function ABPaint() source code by email
mastintin wrote: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
Antonio,
Thank you. I'll study it.
EMG
Antonio Linares wrote:Enrico,
I already sent you function ABPaint() source code by email
Thank you. I'll study it.
EMG
ok. From hbitmap
Function GdiResizeImage( hImg , nwidth, nHeight)
local hGdiBmp:= GdiPlusCreateImageFrom32hBitmap( hImg )
LOCAL gdinewhBmp := GdiPlusImageResize(hgdibmp, nWidth, nHeight )
LOCAL hImg2 := GdiPlusCreateHBitmapImage( gdinewhBmp )
GdiPlusImageDispose( hGdiBmp )
GdiPlusImageDispose( gdinewhBmp )
Return hImg2Thank you. But I think that using AlphaBlend() features would be much more efficient. I'm implementing the required changes.
EMG
Page: 1 2 (26 posts)