FiveTech Software tech support forums

... 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 )
oImage:Resize( If( Empty ...

Hello,

I noticed a SAY painting problem and needed the following adjustment :

@ 26 * nFactor, 25 * nFactor SAY oDay PROMPT cDay OF oWnd FONT oFontDay PIXEL UPDATE
oDay:SetColor ( aVal[23], )
oDay:lTransparent := .T.
oDay:nLeft := ( oWnd:nWidth() - oDay:nWidth() ) / 2
oDay:nHeight += 5 // y display ...

... vGet:cCodGen ) && PRIMARY KEY
::oMaetabla:FIELDPUT("nombre" ,::vGet:cNomtab )
::oMaetabla:FIELDPUT("nomabr" ,::vGet:cAbrtab )
::oMaetabla:FIELDPUT("factor" ,::vGet:nFactor )
::oMaetabla:FIELDPUT("cuentac" ,::vGet:cCuentac )
::oMaetabla:FIELDPUT("codsunat",::vGet:cCodSunat)
::oMaetabla:save()

... nClrHiLi>, <nClrHiLf>, ;
<nClrHitx>, <nClrHiBr>, <.lMenuBar.>, <oFont>, ;
<.lColors.>, <.lVert.>, <.l2013.>, <.l2015.>, ;
[!<.lNoBorder.>], <nClrToBr> ,<nClrBkBr>, <nRightSp>,;
<nFactor>, <nHeight>, [!<.lInherit.>], <.lInvert.>,;
<nRound>, <.lUpper.> ) // lUpper is implemented in next version

... nClrHiLi>, <nClrHiLf>, ;
<nClrHitx>, <nClrHiBr>, <.lMenuBar.>, <oFont>, ;
<.lColors.>, <.lVert.>, <.l2013.>, <.l2015.>, ;
[!<.lNoBorder.>], <nClrToBr> ,<nClrBkBr>, <nRightSp>,;
<nFactor>, <nHeight>, [!<.lInherit.>], <.lInvert.>,;
<nRound>, <.lUpper.> ) // lUpper is implemented in next version

We can use method Zoom( nFactor ), but it is of no use because tximage does not provide any method to save the image.

If you want to resize a jpeg image and save it, you may try GdiBmp class instead. Here is a sample you may try:
oImage := GdiBmp&#40;&#41;:New&#40; "file1.jpg" &#41; oImage:Resize ...

... 09-29
Cristobal Navarro
e2e13e5
* Cleaning unnecessary code * Enhancement: TMenu, Font to the window does not apply to menu * New: DATA of TMenu: nFactor, visual adjustment percentage for the menus to change the font size of the operating system * New: DATA of TMenu: nRightSp, set number of spaces ...

... of TBar: l2015, new look

* New: DATA of TBar: lBorder

* Enhancement: TMenu, Font to the window does not apply to menu

* New: DATA of TMenu: nFactor, visual adjustment percentage for the
menus to change the font size of the operating system

* New: DATA of TMenu: nRightSp, set number of spaces ...

... the menuitems with a similar width to which they were before if not defined font
In order to better adjust its dimensions have added the clauses NFACTOR and RIGHTSP of the MENU command and its corresponding DATA
I believe that with these adjustments we can control perfectly dimensions

#xcommand ...

... SIZE 40, 12 ACTION oDlg:End()


ACTIVATE DIALOG oDlg CENTERED



If oTkm:seek(cOrg+cDrp) = .t.

nKm := KM

nCost := iif(nKm * ( nL_rate + nFactor) < nMin, nMin,nKm * ( nL_rate + nFactor) )


MsgInfo( space(2)+ trans(nKm,'999.99') + " km = " +;
" $ " + trans(nCost,'9999.99')+ space(3 ...

... 20, 0 )
nHeight = ::oWnd:nHeight() - If( ::lZoom .and. ::nZFactor > 1, 20, 0 ) - 10 - ;
I f( LargeFonts(), 100,86 ) //100 80

if ! ::lZoom
nMetaWidth = ( nHeight - 40 ) * nFactor
else
nMetaWidth = nWidth * nFactor
endif

oCoors1 := TRect():New( 40,;


But I think it is no good solution !!!!!

... METHOD PaintMeta() CLASS TPreview

local oCoors1, oCoors2
local aFiles := ::oDevice:aMeta // DEVICE
local nWidth, nHeight, nFactor, nMetaWidth

if ::oWnd != nil .and. IsIconic( ::oWnd:hWnd )
return nil
endif

do case
case ! ::lTwoPages

if ! ::lZoom

if ::oDevice ...

... local nLenFonts := Len( oGet:aFonts )
local aFonts := Array( nLenFonts ), cTextForm, nCrLf, lFocus, cChars
local n, nMargen := 4, nCols, nFilas, nFactor := 0.70, nFilaIni := 2, lUser := .t., aJustif := {}
local cText, cMemo := MemoRead( CFGAYUDA ), nWEdit := Eval({|| oGet:nWidth })
local lFile32 ...

... Len( oLine:aText )
local nPosLine := oGet:nLineRow, aTextLine := oLine:aText, aFontsLine := oLine:aFonts, ;
aColorsLine := oLine:aColors
local nFactor := Val( AllTrim( memoLine( cMemo, , 4 ) ) )
nFactor := Max( nFactor, 0.20 )

/*
oGet:GetDC()
bEvalWidt := {|| lSeguir := .t., nWidth := 0 ...

... return nil

//METHOD Print() CLASS TFGet

Static Function Imprimir( oGet, cName, oFontX, nColorX )

local n, nMargen := 4, nCols, nFilas, nFactor := 0.70, nFilaIni := 2, lUser := .t., aJustif := {}

local xxx := 0, cLine, cLinea, nAncho, nCar, nC, cTx2, cVal := ""

local nRow := 0, nRowNw ...