Font New problem

[Peter Redei]

I found this problem:
1. Code that works
GRAPHIC COLOR %YELLOW, -2
FONT NEW "Times New Roman", 40, 1, 1, 0, 300 TO hFont300
GRAPHIC SET FONT hFont300
GRAPHIC SET POS (tx, ty)
GRAPHIC PRINT sEntryText
2. Using variable as fontname will no longer rotate the text
ftname = "Times New Roman"
FONT NEW ftname , 40, 1, 1, 0, 300 TO hFont300
GRAPHIC SET FONT hFont300
GRAPHIC SET POS (tx, ty)
GRAPHIC PRINT sEntryText

Is this a bug? Any workaround?


Thanks,

Peter Redei

[Dave Biggs]

This seems to work

Macro ftname = "Times New Roman"

LATER: Actually variable as fontname works too..

#Dim All 
#INCLUDE "WIN32API.INC"
 
Function PbMain()
 Dim hWin???, hFont300???, ftname$, tx&, ty&, sEntryText$
 
  GRAPHIC WINDOW "", 59, 50, 200, 400 TO hWin
  GRAPHIC ATTACH hWin, 0
 
  tx = 10 : ty = 100 : sEntryText = "Test"
 
  '1. Code that works
 
  GRAPHIC COLOR %YELLOW, -2 
  FONT NEW "Times New Roman", 40, 1, 1, 0, 300 TO hFont300
  GRAPHIC SET FONT hFont300 
  GRAPHIC SET POS (tx, ty)
  GRAPHIC PRINT sEntryText 
 
  Sleep 1000
 
  '2. Using variable as fontname will no longer rotate the text ?
 
  ftname = "Times New Roman"
  FONT NEW ftname , 40, 1, 1, 0, 300 TO hFont300
  GRAPHIC SET FONT hFont300 
  GRAPHIC SET POS (tx, ty+40)
  GRAPHIC PRINT sEntryText 
 
  Sleep 2000
 
End Function
'------------------/PBMain

[Michael Mattias]

>LATER: Actually variable as fontname works too..

I'll bet string equates would work, too.

Think your code mght be a little easier to understand if you set up a few equates like..

$FONTNAME_SCREEN_1  = "Times New Roman" 
%FONTSIZE_SCREEN_1  =  10& 
 
$FONTNAME_SCREEN_2  = "Arial" 
%FONTSIZE_SCREEN_2  =  12& 

...
   FONT  NEW $FONTNAME_SCREEN_1 ....%FONTSIZE_SCREEN_1

How about when your user (which could be you!) says, "I don't like that font, make it something else and make it a little smaller?" A little easier to change perhaps?

[Dave Biggs]

>Think your code mght be a little easier to understand if you set up a few equates like..
..
>How about when your user (which could be you!) says, "I don't like that font, make it something else and make it a little smaller?" A little easier to change perhaps?

Context? - I posted a compilable example to illustrate a narrow point.

[Peter Redei]

Thanks Dave,

I was wrong, but it indeed does not work with MS Sans Serif.

Peter Redei

[Dave Biggs]

But it does work with Microsoft Sans Serif

Seems that True Type fonts are required for escapement to work in the Font New statement..?

[Steve Rossell]

Yes, only true type fonts can be rotated (have an escapement).

[Michael Mattias]

>Yes, only true type fonts can be rotated (have an escapement).

Easy mod to generate list of installed TT fonts:

Determine if font with given face name is installed on user system

MCM