FiveTech Software tech support forums

... {NINPHEIGHT, -20}, {NINPWIDTH, 0}, {NESCAPEMENT, 0}, {NORIENTATION, 0}, {NWEIGHT, 0}, {NCHARSET, 0}, {NOUTPRECISION, 0}, {NCLIPPRECISION, 0}, {NQUALITY, 0}, {NPITCHFAMILY, 0}, {NCOUNT, 27}, {LDESTROY, .T.}, {LNEW, .F.}}} , ... the 1st Sub-Array seems to be Control itself and have all Information ...

Dear Natter,

CLASS TXImage METHOD Save( lAsViewed, cFile, nQuality )

what nQuality parameter value are you using ?

Please try with 100

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

... SAY <cSay>. Ejemplo: @ nRow, nCol SAY cSay PICTURE "@!" WIDTH 100 GET oGet ... * XImage.prg: - Método Save( lAsViewed, cFile, nQuality ), cuando lAsViewed es .T., está guardando sólo la imagen básica pero no cualquier dibujo a mano alzada realizado por el usuario sobre la imagen. ...

... in clause SAY <cSay> Eg: @ nRow, nCol SAY cSay PICTURE "@!" WIDTH 100 GET oGet ... * XImage.prg: - method Save( lAsViewed, cFile, nQuality ), when lAsViewed is .t., is saving only the basic image but not any freehand drawins drawn by the user over the image. Fixed. Window.prg, ...

... and also we need not use Clipboard at all. When you want to save, just call oImage:Save( .t., "name.png" )  Note: Last parameter nQuality is required only for jpg files. Is there any problem saving this way?

... http://www.pflegeplus.com/IMAGES/draw3.jpg it seems to be something wrong in METHOD Save( lAsViewed, cFile, nQuality ) METHOD Paste() regards Uwe :?:

Saludos y buen dia Solucionado oImage:SaveImage( cFileB, 0, nQuality ) // Our first DialogBox sample #include "FiveWin.ch" #include "ttitle.ch" # define HTTPREQUEST_PROXYSETTING_PROXY 2 // Para xHarbour #IFDEF __XHARBOUR__ #xtranslate ...

... nHeight, lFromUser, lBold,; nEscapement, nOrientation, nWeight, lItalic, lUnderline,; lStrikeOut, nCharSet, nOutPrecision, nClipPrecision,; nQuality, oDevice, nPitchFamily ) creates a font with exactly the same parameters using Windows function CreateFont(). CreateFontIndirect() uses LOGFONT ...

byte-one wrote:What range have the fourth parameter (nQuality) from this function?

Zero would give you the lowest quality image and 100 the highest.

https://msdn.microsoft.com/es-es/librar ... y(v=vs.110).aspx

What range have the fourth parameter (nQuality) from this function?

This method should return .T. or .F. and also a DEFAULT for nQuality

Code: Select all  Expand view  RUN

METHOD Save( cFile , nQuality ) CLASS GDIBmp

Romeo,

You could try:

FIConvertImageFile( cDestinationFileName, cSourceFileName, nFormat, nQuality )

Hi ! 1. // comes from image.prg static function FISAVEIMG( cSrcFile, cDstFile, nDstFormat, nQuality ) local nSrcFormat, hDib, hDib2, lOk := .f. DEFAULT nQuality := 0 if LoadFreeImage() > 32 nSrcFormat = FIGETFILETYPE( cSrcFile, 0 ) hDib = FILOAD( nSrcFormat, cSrcFile, ...

... if NO = hDib2 = FICNV24( hDib ) if YES = hDib2 = FICONVTO32( hDib ) the needed changes in class TImage : METHOD SaveImage( cFile, nFormat, nQuality ) CLASS TImage local hDib := DibFromBitmap( ::hBitmap, ::hPalette ) local cTempFile := cTempFile() local lSaved, lAlpha := ::HasAlpha() DibWrite( ...