change font after creation

[marzio]

i want to change some definitions of a font after creation.
DEFINE FONT oFont NAME "Times New Roman" SIZE 10, 12 OF oPrn

i have tried this, but doesn't work:
oFont:nWidth( 24 ); oFont:nHeight( 10 )
oFont:lBold := .t.
oFont:lItalic := .t.
oFont:cFaceName := "Arial"

is it possible?

thanks, marzio

[Otto]

Best regards,
Otto

FIVEWIN samples: testfon3.prg

Code: Select all | Expand

// Saving and restoring a font. By Enrico Maria Giordano

#include "Fivewin.ch" 


FUNCTION MAIN() 

    LOCAL oWnd 

    LOCAL cVar := "This is a test" 

    LOCAL aFont := SELECTFONT( oWnd ) 

    LOCAL aSaved 

    IF EMPTY( aFont ); RETURN NIL; ENDIF 

    DEFINE WINDOW oWnd 

    @ 1, 1 SAY "This is a test"; 
           COLOR CLR_BLACK 

    @ 3, 1 GET cVar; 
           SIZE 100, 20 

    @ 5, 1 BUTTON "Choose font"; 
           SIZE 100, 20; 
           ACTION aFont := SELECTFONT( oWnd ) 

    @ 7, 1 BUTTON "Save font"; 
           SIZE 100, 20; 
           ACTION aSaved := aFont 

    @ 9, 1 BUTTON "Restore font"; 
           SIZE 100, 20; 
           ACTION RESTOREFONT( oWnd, aSaved ) 

    ACTIVATE WINDOW oWnd 

    RETURN NIL 


#define FW_NORMAL 400 


STATIC FUNCTION SELECTFONT( oWnd ) 

    LOCAL aFont := CHOOSEFONT() 

    LOCAL oFont := BUILDFONT( aFont ) 

    IF oFont = NIL; RETURN NIL; ENDIF 

    IF oWnd != NIL; REFRESHWND( oWnd, oFont ); ENDIF 

    RETURN aFont 


STATIC FUNCTION RESTOREFONT( oWnd, aFont ) 

    LOCAL oFont := BUILDFONT( aFont ) 

    IF oFont = NIL; RETURN NIL; ENDIF 

    REFRESHWND( oWnd, oFont ) 

    RETURN NIL 


STATIC FUNCTION BUILDFONT( aFont ) 

    IF EMPTY( aFont[ LF_FACENAME ] ) 
        RETURN NIL 
    ENDIF 

    RETURN TFont():New( aFont[ LF_FACENAME ],; 
                        ,; 
                        aFont[ LF_HEIGHT ],; 
                        .f.,; 
                        !( aFont[ LF_WEIGHT ] == FW_NORMAL ),; 
                        aFont[ LF_ESCAPEMENT ],; 
                        aFont[ LF_ORIENTATION ],; 
                        aFont[ LF_WEIGHT ],; 
                        aFont[ LF_ITALIC ],; 
                        aFont[ LF_UNDERLINE ],; 
                        aFont[ LF_STRIKEOUT ],; 
                        aFont[ LF_CHARSET ],; 
                        aFont[ LF_OUTPRECISION ],; 
                        aFont[ LF_CLIPPRECISION ],; 
                        aFont[ LF_QUALITY ],; 
                        ,; 
                        aFont[ LF_PITCHANDFAMILY ] ) 


STATIC FUNCTION REFRESHWND( oWnd, oFont ) 

    LOCAL i 

    oWnd:SetFont( oFont ) 

    FOR i = 1 TO LEN( oWnd:aControls ) 
        oWnd:aControls[ i ]:SetFont( oFont ) 
        oWnd:aControls[ i ]:Refresh() 
    NEXT 

    RETURN NIL

[nageswaragunupudi]

We can not change the font attributes of the same font object after definition. But we can derive a new font object with changing some attributes and set the new font to the control. In many cases it is much easier than the method suggested in testfon3.prg.

Examples:

DEFINE FONT oFont NAME 'TAHOMA' SIZE 0,-12

oBold := oFont:Bold( .t. )
oBoldItalic := oBold:Italic( .t. )

Methods available are :
METHOD Bold( lOnOff )
METHOD Italic( lOnOff )
METHOD Underline( lOnOff )
METHOD StrikeOut( lOnOff )
METHOD Escapement( nEsc )
METHOD Rotate( n )

METHOD Modify( nHeight, lBold, lItalic, lUnderline, lStrikeOut, nEscapement )

[marzio]

thanks for your replays.

i have many line like these,
for each line that i print i have to change the dimension of the font:

DEFINE FONT oFont NAME "Times New Roman" SIZE 24, 13 OF oPrn
oPrn:Say(..., oFont)

oFont:End()
DEFINE FONT oFont NAME "Times New Roman" SIZE 15, 9 OF oPrn
oPrn:Say(..., oFont)

etc. many times

in the class tfont there are 2 function:
METHOD nWidth( nNewValue ) SETGET
METHOD nHeight( nNewValue ) SETGET
oFont:nWidth( 15 ); oFont:nHeight( 9 )
but this doesn't work.

oFont:End() with the definition of a new font is the best solution?

regards, marzio

[ukoenig]

Not easy, but possible

Font-Editor Update Rel. 1.3

New Background-Color added
New Font-Style Browser added
New Underline added
Changed Text-Size Range 10 - 60



Download :
http://www.pflegeplus.com/fw_downloads/fontedit3.zip

Best Regards
Uwe