FiveTech Software tech support forums

... 0}, {LBOLD, .F.}, {LITALIC, .F.}, {LUNDERLINE, .F.}, {LSTRIKEOUT, .F.}, {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.}}} ...

TFont():New( cFaceName, nWidth, 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 ...

... de windows, Word, Excel... Y las propiedades de TFont, hay unas cuantas que hacen referencia a tamaño.. nHeight, nWidth, nInpHeight, nInpWidth, nWeight... por mas que he probado combinaciones, creo no haber hallado con la que se "ajuste" a la real que obtengo en otras aplicaciones ...

Dear Dutch The problem is in clausule [ WEIGHT <nWeight> ] Try                          //  400   aFonts := { -16, 0, 0, 0, 0, .F., .F., .F., 222, 3, 2, 1, 34, 'Tahoma' }   //oFontMenu := TFont():New( "Tahoma", 0, -16,,,,, ...

...          WINDOW.PRG      686  1754 NUMERIC                WINDOW.PRG      440   462 NVERTRES()             (function  in ?)    WINDOW.PRG      895 NWEIGHT                WINDOW.PRG     3317 NWIDTH()               (function  in ?)    WINDOW.PRG      521   718   727   774   795   797   849   850 ...

Yes. :nInpWidth and :nWeight I revised the function too //----------------------------------------------------------------------------//function FontToText( oFont )return FW_ValToExp(  { ;   oFont:cFaceName, ...

... cGenPrg: 'Calibri', 0, -19, .f., .f., 0, 0, 400, .f., .f., .f., 0,3, 2, 1, , 34 ) There is a difference in one value. I think this value is ::nWeight . Best regards, Otto

... ] ; [ <from:FROM USER> ] ; [ <bold: BOLD> ] ; [ <italic: ITALIC> ] ; [ <underline: UNDERLINE> ] ; [ WEIGHT <nWeight> ] ; [ OF <oDevice> ] ; [ NESCAPEMENT <nEscapement> ] ; => ; <oFont> := TFont():New( <cName>, sSir(<nWidth>), ...

... //oNewFont:Choose() // @nNewColor ) { oNewFont:nInpHeight, oNewFont:nInpWidth, oNewFont:nEscapement,; oNewFont:nOrientation, oNewFont:nWeight, oNewFont:lItalic,; oNewFont:lUnderLine, oNewFont:lStrikeOut, oNewFont:nCharSet,; oNewFont:nOutPrecision, oNewFont:nClipPrecision,; oNewFont:nQuality, ...

December 2009 ============= * Fix: Class TWBrowse Methods EditCol() and lEditCol(), the properties nWeight, lItalic, lUnderline and lStrikeOut of the browse font are now respected. * Improvement: Class TBtnBmp, the color of the prompt of disabled buttons can now be left ...

... Propertys of a defined Font at Runtime ? I want to change the Font-Size with a Slider and show the Result of the changed Font. I used : oTextFont:nWeight := nNewWeight, oGet:Refresh() but it doesn't work for the Get-Field, only in a new opend Preview-Dialog. Bold and Italic are defined from the ...

... ::aFonts[i, 3], ; // nHeight , ; // lFromUser ::aFonts[i, 4], ; // lBold ::aFonts[i, 8], ; // nEscapement ::aFonts[i,10], ; // nOrientation , ; // nWeight ::aFonts[i, 5], ; // lItalic ::aFonts[i, 6], ; // lUnderline ::aFonts[i, 7], ; // lStrikeOut ::aFonts[i, 9] ) // nCharSet NEXT RETURN aAllFonts ...

... the font in the prg-file, because < lFromUser > was defined. ( cFaceName, nWidth, nHeight, lFromUser, lBold, nEscapement, nOrientation, nWeight, lItalic ) oTitleFont := TFont():New("Arial", ,-14, ,.T., , , ,.T.) I don't know, where it comes from, because I don't call him. We ...

Marco,

LargeFonts()


e per sapere tutti i dati del font per default:

oFont := oMainWnd:oFont


oFont:nInpHeight
oFont:nInpWidth
oFont:nWeight
..
..

... ] ; [ <bold: BOLD> ] ; [ <italic: ITALIC> ] ; [ <underline: UNDERLINE> ] ; [ PITCHFAMILY <nPitchFamily> ] ; [ WEIGHT <nWeight> ] ; [ OF <oDevice> ] ; [ NESCAPEMENT <nEscapement> ] ; A ver si averiguamos qué no se puede hacer con TImprime y UtilPrn. Que ...