FiveTech Software tech support forums

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

... ,::vGet:cNomtab ) ::oMaetabla:FIELDPUT("nomabr" ,::vGet:cAbrtab ) ::oMaetabla:FIELDPUT("factor" ,::vGet:nFactor ) ::oMaetabla:FIELDPUT("cuentac" ,::vGet:cCuentac ) ::oMaetabla:FIELDPUT("codsunat",::vGet:cCodSunat) ::oMaetabla:save()

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

... ;                          [!<.lNoBorder.>], <nClrToBr> ,<nClrBkBr>, <nRightSp>,;                          <nFactor>, <nHeight>, [!<.lInherit.>], <.lInvert.>,;                          <nRound>, <.lUpper.> )   // lUpper is ...

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

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

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

... OF oDlg 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')+ ...

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

... 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:nHorzSize() ...

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