FiveTech Software tech support forums

Hi.
I had the same problem years ago and I solved using for that pages the print using fonts with escapement at 900.
It's an hard work, I know, but is the only solution I found.
Happy sunday.

Thanks, This works

dear Vilian, Try this : #include "FiveWin.ch"FUNCTION Main()LOCAL oWnd,oSay[3],oFont[2]      DEFINE FONT oFont[1] NAME "ARIAL" SIZE 0,20 BOLD;               NESCAPEMENT 900                    DEFINE WINDOW oWnd ;//FROM 1,5 TO 20,65;          TITLE ...

Kok,

Thus the text comes out with the correct alignment, but you're not using SAY mode DESIGN

Hi Vilian, try this : #include "FiveWin.ch"FUNCTION Main()LOCAL oWnd,oSay[3],oFont[2]   DEFINE FONT oFont[1] NAME "ARIAL" SIZE 0,20 BOLD;               NESCAPEMENT 900                    DEFINE WINDOW oWnd ;//FROM 1,5 TO 20,65;          TITLE "...

Thanks for the reply, But with NESCAPEMENT -900 text is displayed like this:



Need to display like this:

Hi Vilian, Try this : #include "FiveWin.ch"FUNCTION Main()LOCAL oWnd,oSay[3],oFont[2]   DEFINE FONT oFont[1] NAME "ARIAL" SIZE 0,20 BOLD;               NESCAPEMENT -900                     DEFINE WINDOW oWnd FROM 1,5 TO 20,65;          TITLE "...

Hi, I'm trying to use SAY + FONT with Escapement, ​​but the text is not displayed properly! Can anyone help me? #include "FiveWin.ch"FUNCTION Main()LOCAL oWnd,oSay[3],oFont[2]   DEFINE FONT oFont[1] ...

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

Frank, To avoid the escapement error you have to modify this function in xbrowse.prg: static function FontEsc( oFont ) local nEsc := 0 if oFont != nil .and. ValType( oFont:nEscapement ) == 'N' nEsc := ...

... para la creación de fuentes. * Nuevo: En font.prg nuevos métodos: Bold( lOnOff ), Italic( lOnOff ), UnderLine( lOnOff ), StrikeOff( lOnOff ), Escapement( nNew ), Rotate( nRotateBy ), Modify( lBold, lItalic, lUnderline, lStrikeOut, nNewEsc ) devuelven el nuevo objeto fuente con la modificación. ...

... STRIKEOUT clause for creation of fonts * New: font.prg new Methods: Bold( lOnOff ), Italic( lOnOff ), UnderLine( lOnOff ), StrikeOff( lOnOff ), Escapement( nNew ), Rotate( nRotateBy ), Modify( lBold, lItalic, lUnderline, lStrikeOut, nNewEsc ) return new font object with the modification. Example: ...

Ups,,, falto algo 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 ],;...

Now vertical fonts ( escapement 900 or 2700 ) are supported only headers and only for single line headers. Always the text is centered vertically and horizontally leaving space for bitmap, if any:

Hello from Germany I'm still struggling with the INI-Handling for Fonts. I got it working like : [Main] DATESET=5 WRITESET=1 [Paint] HEADPIC=1 COLTEXT=2 LOGO1=LOGO1 BRUSH1=9 COLOR1=16711680 LOGO2=LGO2 BRUSH2=9 COLOR2=16711680 POSTOP=10 POSLEFT=70 [SysFonts] FONT1=Arial 10 .F. .F. FONT2=Arial 12 .F. ...