FiveTech Software tech support forums

... oDlg ) Local oImagem, oBrush Local cImagem := "..\bitmaps\pngs\2.png" DEFINE IMAGE oImagem FILENAME cImagem oBrush := TBrush():new( ,,,, ResizeBmp( oImagem:hBitmap, 600, 600, .T. ) ) oImagem:End() oDlg:SetBrush( oBrush ) oBrush:End() Return NIL *----------------------------------------------------------------------------------*

hi,

use :ReadImage() to get Bitmap Information in Array. Size are 3rd and 4th Element
use HB_FUNC( RESIZEBMP ) in \fwh\source\winapi\bmpdraw.c for new Size

hi, i want to use HB_FUNC(RESIZEBMP) and ::oWnd:ReadImage() which both "produce" hBitmap Question : do i need to "Destroy" hBitmap :?: if Yes, how under Fivewin   aBitmaps := ::oWnd:ReadImage( ::cPath + cFile, { ...

... aRect, nil, 1 ) a working solution // metro image-background ( FREEIMAGE needed ) DEFINE IMAGE oImage FILENAME cImage oBrush := TBrush():new( ,,,, ResizeBmp( oImage:hBitmap, aRect[4], aRect[3], .T. ) ) // 1 = stretch, 2 : fitoutside, 3:fitinside oImage:End() oMetro:SetBrush( oBrush ) RELEASE BRUSH ...

... aRect, nil, 1 ) a working solution // metro image-background ( FREEIMAGE needed ) DEFINE IMAGE oImage FILENAME cImage oBrush := TBrush():new( ,,,, ResizeBmp( oImage:hBitmap, aRect[4], aRect[3], .T. ) ) // 1 = stretch, 2 : fitoutside, 3:fitinside oImage:End() oMetro:SetBrush( oBrush ) RELEASE BRUSH ...

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

... OR : local oImage, oBrush, aRect := oDlg:GetRect() DEFINE IMAGE oImage FILENAME "..\bitmaps\pngs\chart.png" oBrush := TBrush():new( ,,,, ResizeBmp( oImage:hBitmap, aRect[4], aRect[3], .T. ) ) // 1 = stretch, 2 : fitoutside, 3:fitinside oImage:End() oDlg:SetBrush( oBrush ) oBrush:End() ...

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

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

EMG

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

The result of ResizeImg() is slightly different in width and height if compared with ResizeBmp() and PalBmpDraw().

EMG

Olá, Tem algum Refresh() nas imagens das mesas? Poste o código mais amplo para leitura, tem algum RESIZEBMP() no código? Como você está definindo as FONTES? Troca a FONTE em tempo real?

Abs

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

Antonio, El código es muy largo, pero si te sirve, uso esto antes del Activate: oBrush := TBrush():new( ,,,, ResizeBmp( ::oBmpFondo:hBitmap, ::nAnchoPant,::nAltoPant, .T. ) ) ::oBmpFondo:End() ::oWnd:setBrush( oBrush ) oBrush:end() Luego para cambiar, otra brush definida antes: ...

... looks very interesting. I cannot see how to crop the image and save it under another name? Also, when trying to recompile, I got the missing "ResizeBmp()" and "CreateDiBitmap()" Any advice? Can you add the functionality to be able to also CROP and SAVE a bitmap after the user ...