FiveTech Software tech support forums

... 217 ) Called from: .\source\classes\WINDOW.PRG => _FWH( 3680 ) Called from: => MSGINFO( 0 ) Called from: .\source\classes\TGDIPLUS.PRG => GDIBMP:NEW( 639 ) Called from: c:\fwteam\samples\crist.prg => TCWND:SETBUTTONS( 72 ) Called from: c:\fwteam\samples\crist.prg => TCWND:NCPAINT( ...

... that was the reason thinking about ::hBrush = GdiPlusNewTextureBrush( oGdiBmp:hbmp ) :!: like using for the background-images : oImage := GDIBmp():new( c_path + cData ) oGraphics:DrawImage( oImage, nTop + nAdjust, nLeft, nWidth, nHeight ) oImage:End() oGraphics:Destroy() with oGraphics:DrawImage ...

Dear Otto, You could supply the factor as a parameter: function resizeImage( cSrc, cDst, nValue ) local nQuality := 0 local oImage := GdiBmp():New( cSrc ) local nFactor := oImage:GetWidth() / If( Empty( nValue ), 400, nValue ) local newHeight := oImage:GetHeight( nFactor ) FErase( cDst ) ...

... de 2 clientes con ese problema A ver si alguien nos da una manito ... por el momento recurri a otras funciones para salir del paso (funciones de GDIBmp...) Gracias

... FUNCTION DRAWIMAGE( oWnd ) LOCAL oGraphics1 := Graphics():New( oWnd:hDC ) LOCAL oGraphics2 := Graphics():New( oWnd:hDC ) LOCAL oImage1 := GDIBmp():new( c_path1 + "Logo.png" ) LOCAL oImage2 := GDIBmp():new( c_path1 + "Olga.jpg" ) //nTop := aRect[ 1 ] //nLeft := aRect[ ...

... BITMAP oBmp File "" size 50, 100 pixel // NOBORDER oPen := Pen():New( 255, 0, 0, 255 ) // nTransparency, nRed, nGreen, nBlue oImage1:= GDIBmp():new("sample.png" ) hDC[1]:= oBmp:GetDc() oGraphics[1] := Graphics():New( hDC[1] ) n9:= -73 oGraphics[1]:DrawImage( oImage1 , 1, n9 ...

... http://forums.fivetechsupport.com/viewtopic.php?f=3&t=22737&p=121478&hilit=image+to+gray#p121478 I will have a look at gdiplus : CLASS GDIBmp DATA hBmp ... ... METHOD ConverToGray() INLINE ::hBmp := GdiPlusImageMatrixToGray( ::hBmp ) METHOD SetColorGrayPix( nX, nY ) INLINE GdiPlusImagePixToGrayColor( ...

... The Bmp-brush is shown as a resized image not tiled Image-test ( I noticed a little problem with top / left ) LOCAL oImage1 := GDIBmp():new( c_path1 + "Blustone.bmp" ) LOCAL oGraphics1 := Graphics():New( oWnd:hDC ) LOCAL oImage2 := GDIBmp():new( c_path1 + "Marble.bmp" ...

... Function cargaBmp( cCode, oImage ) local cResp local nZeroZeroClr local ogbmp := GdiBmp():new() local nHeight := 248 local nWidth := 248 local cUrl := "http://api.qrserver.com/v1/create-qr-code/?data=" local nQuality:=1 ...

... Function cargaBmp( cCode, oImage ) local cResp local nZeroZeroClr local ogbmp := GdiBmp():new() local nHeight := 248 local nWidth := 248 local cUrl := "http://api.qrserver.com/v1/create-qr-code/?data=" cUrl += GetSafeURL(hb_strtoutf8( ...

... FW_LoadImage and FW_DrawImage in my new control, TImage uses FreeImage, TXImage uses FW_DrawImage The workaround I found is use FW_LoadImage and GDIBmp. Because I need to download from url and draw with negative coordinates.

Thank you.

EMG

Saving to ICO is complex. We are working on it along with Mr Manuel.

Saving a raster image as EMF or WMF involves conversion of raster image to vector format and so is obviously not possible. Vector image can be converted to raster image but not vice versa.

Ok, thank you.

EMG

It is not supported by Microsoft directly. save ico files I know that the fwh team is with it.
Regards.