FiveTech Software tech support forums

Please see the method SetFonts( aFonts ) of TGraph class in tgraph.prg. This class uses 9 fonts for 1) Title, 2) xFont, 3) yFont, 4) Legends, 5) Subtitle, 6) xTitle, 7) yTitle, 8 ) Values, 9) Values bold You may set the font you want for ...

Hello,

Is it possible to check what fonts are available on a system. I want to put all fonts in an array, so the user can choose which font to use for printing some data.
I am looking for some function like "aFonts := ReadFonts()"

... 9 fonts. It is also possible to change the basefont with ::SetFont( oNewFont ) after creation of TGraph or during runtime. - New method SetFonts( aFonts ) It is also possible to substitute all of some of the 9 fonts using this method with array of 9 fonts as parameter. If any of the element is ...

... Headers to be shown in xbrowse. oTree:Cargo contains an array of grand aggregates. * New function ADORollupTreeBrowse( oRs, [bSetup], [aColors], [aFonts], [aPictures] ) Prepares a tree from a Rs with result of GROUP BY .. WITH ROLLUP and browses the tree. The above two functions work with any ...

I must change a font of a say on line But I not Know How make it I made a combo with all font LOCAL hDC := GetDC( oWnd:hWnd ) aFonts := ASort( GetFontNames( hDC ) ) ReleaseDC( oWnd:hWnd, hDC ) @ .27, 1.8 COMBOBOX oFonts VAR cFont ITEMS aFonts ; SIZE 170, 100 FONT oFont ; MESSAGE "Changes ...

... TFLine   DATA oUp   DATA oDown   DATA nalign   DATA aText, aFonts, aColors   DATA lCrLf   DATA aBlock // { nInit, nEnd }   DATA nCtrl   METHOD New( nalign, aText, aFonts, aColors, lCrLf )  CONSTRUCTOR  ...

... fuentes a utilizar y el xbrowse se pone en funcionamiento todo anda barbaro, pero luego cuando hago un:   ::oBrw:END()   ::aFonts := NIL   ::oBrw   := NIL  y genero nuevamente las fuentes y el xbrowse... el xbrowse no me muestra las fuentes que defino, ...

... lItalic, lUnderline, lStrikeOut, nAncho ) local oFont, nFont, oFont2, nMargend //, cTextForm, nCrLf, lFocus, cChars local nLenFonts := Len( oGet:aFonts ) local aFonts := Array( nLenFonts ), cTextForm, nCrLf, lFocus, cChars local n, nMargen := 4, nCols, nFilas, nFactor := 0.70, nFilaIni := 2, ...

... nI, lSeguir := .t., n, nFont, aText, cLinea, cIni, nIni local cTx2, cMemo := MemoRead( CFGAYUDA ), nWidth, nWidMemo local nLenFonts := Len( oGet:aFonts ), nRowStep local aFonts := Array( nLenFonts ), nLen, nChar, cEdit, cTc, cT local cLineText, bEvalWidt, cTextForm := oGet:GetTextLine( oLine ...

... local cText, cMemo := MemoRead( CFGAYUDA ), nWEdit := Eval({|| oGet:nWidth }) local oFontW, nFont, oFont2, nMargend local nLenFonts := Len( oGet:aFonts ) local aFonts := Array( nLenFonts ), cTextForm, nCrLf, lFocus, cChars local lFile32 := ( File( 'Prev32.Dll' ) .or. ; File( AllTrim( GetSysDir() ...

... local cText, cMemo := MemoRead( CFGAYUDA ), nWEdit := Eval({|| oGet:nWidth }) local oFontW, nFont, oFont2, nMargend local nLenFonts := Len( oGet:aFonts ) local aFonts := Array( nLenFonts ), cTextForm, nCrLf, lFocus, cChars local lFile32 := ( File( 'Prev32.Dll' ) .or. ; File( AllTrim( GetSysDir() ...

... local cZoom := aZoom[ 4 ] local aRatio := { { 5, 1 }, { 2, 1 }, { 3, 2 }, { 1, 1 }, ; { 3, 4 }, { 1, 2 }, { 1, 4 }, { 1, 10 } } local oWnd, oItem, aFonts, cFont, hDC, oSize, oZoom local oMsgBar, oLen, oRow, oCol DEFINE WINDOW oWnd FROM 0, 0 TO 300, 937 PIXEL ; MDICHILD OF oWndMain:oWnd ; TITLE ...

... to a higher value. METHOD DefineFonts() CLASS VRD LOCAL i LOCAL aAllFonts := ARRAY( 20 ) FOR i := 1 TO 20 aAllFonts[i] := TFont():New( ::aFonts[i, 1], ; // cFaceName ::aFonts[i, 2], ; // nWidth ::aFonts[i, 3], ; // nHeight , ; // lFromUser ::aFonts[i, 4], ; // lBold ::aFonts[i, 8], ; ...

... send you a copy PUBLIC aReport := array( PARAMLEN ) aStyle := { "Normal", "Bold", "Italic", "BoldItalic" } aFonts := { { "Times", .t., .t., .t., .t. },; { "Helvetica", .t., .t., .t., .t. },; { "Courier", .t., .t., .t., .t. } ...

... aHeaders, aColSizes ) METHOD SetDeleteMode( lOnOff, lConfirm, bDelete, bPostDel ) METHOD SetHeaders( nHeight, aCols, aTitles, aAlign , al3DLook, aFonts, ; aActions ) METHOD SetContext( oCtx ) INLINE If( oCtx == Nil, ; ::lAutoCtx := .F., ::oCtx := oCtx ) METHOD SetData( nColumn, bData, aList ) ...