Using fonts

[Frank Demont]

Hello,

I try to define 3 sizes of fonts :

DEFINE FONT Fnt[1] NAME "MS Sans Serif" SIZE 9 , 12
DEFINE FONT Fnt[2] NAME "MS Sans Serif" SIZE 0 , 10
DEFINE FONT Fnt[3] NAME "MS Sans Serif" SIZE 0 , 8
DEFINE DIALOG oDlg
@ 1 , 1 SAY "SIZE 12" OF oDlg FONT Fnt[1]
@ 1 , 5 SAY "SIZE 10" OF oDlg FONT Fnt[2]
@ 1 , 7 SAY "SIZE 8" OF oDlg FONT Fnt[3]

Making a test , i can see difference between size 12 , and size 10 , NOT between size 10 and size 8

Is Size 8 not available with MS Sans Serif ?
Maybe another font ?

Frank

[Detlef Hoefner]

Frank,

you are right.
With Arial font the example shows different sizes 10 and 8.
With Sans serif not.

Code: Select all  Expand view  RUN

#include  "fivewin.ch"

///////////////
FUNCTION Main()
///////////////
LOCAL aFont := array( 3 )
LOCAL oDlg


   DEFINE FONT aFont[ 1 ] NAME "Arial" SIZE 0 , -12
   DEFINE FONT aFont[ 2 ] NAME "Arial" SIZE 0 , -10
   DEFINE FONT aFont[ 3 ] NAME "Arial" SIZE 5 ,  -8
   
   DEFINE DIALOG oDlg

   @ 1 , 10 SAY "SIZE 12" OF oDlg FONT aFont[ 1 ]
   @ 2 , 10 SAY "SIZE 10" OF oDlg FONT aFont[ 2 ]
   @ 3 , 10 SAY "SIZE 8"  OF oDlg FONT aFont[ 3 ]

   ACTIVATE DIALOG oDlg

RETURN( NIL )


Regards,
Detlef