FiveTech Software tech support forums

... activo SetResDebug(.t.), se genera el res.log con este contenido 487194999 FONT /*,-+0,*0/ FONT /-.,),-,/, FONT /(,./)+'0 BMP /,+'.(/.(- BMP -> ResizeImg /*)/0)).) FONT /'/..*)*(+ BMP (+,+(/*(. BRUSH /0).*(*''( BRUSH /*,-//)-/. BRUSH /.),0/((** BRUSH 1729110706 BRUSH /.),)-/)'( BMP 1577395166 ...

... Uwe :?: itio's possible change the METHOD LoadBitmap( cnName ) I thinkg insert hBmp := FW_ReadImage( nil, ::cImage )[ 1 ] instead of hBmp = ResizeImg( cnName, ::nWidth, ::nHeight ) but I not tried

Antonio buenos dias, gracias por la ayuda Agrego la VM.LIB (xharbour), y me manda estos errorres :( :( Proyecto: Kept5, Entorno: BorlandDLL: [1]:Harbour.Exe Source\Tseguro.prg /m /n /es2 /ki /iP:\32bits\xharbour\include;P:\32bits\FWH\INCLUDE /i /oObj\Tseguro.c xHarbour Compiler build 1.2.1 (SimpLex)...

I hope the quality issue is now resolved. In any case, FWH libs are no more using ResizeImg or ResizeBmp for rendering resized images, except for Gray images. Whether both methods differ by a pixel or not now remains an academic issue. With your help, we now added ...

I was not clear enough. The misalignment is between ResizeImg() and ResizeBmp().

EMG

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

EMG

ok. From hbitmap Function GdiResizeImage( hImg , nwidth, nHeight) local  hGdiBmp:= GdiPlusCreateImageFrom32hBitmap( hImg ) LOCAL  gdinewhBmp := GdiPlusImageResize(hgdibmp, nWidth, nHeight )  LOCAL  hImg2 := GdiPlusCreateHBitmapImage( gdinewhBmp )    GdiPlusImageDispos...

Antonio,

Antonio Linares wrote:Enrico,

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

Thank you. I'll study it.

EMG

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

Enrico,

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

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

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

Code: Select all  Expand view

SetStretchBltMode (hdcDest, COLORONCOLOR);

What do you think about it?

EMG

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

Antonio,

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

EMG

Enrico,

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