Using fonts

Post Reply
Frank Demont
Posts: 142
Joined: Sun Oct 09, 2005 10:59 am

Using fonts

Post by 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
User avatar
Detlef Hoefner
Posts: 312
Joined: Sat Oct 08, 2005 9:12 am
Location: Germany
Contact:

Post by Detlef Hoefner »

Frank,

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

Code: Select all

#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
Post Reply