FONT samples

[yardenmo]

Hi,

Where can I find a sample for using FONTS?


Thanks,
Moshe Yarden

[Antonio Linares]

Moshe,

Here you have a working example:
testfont.prg

Code: Select all  Expand view

// FiveWin for Pocket PC - Testing fonts

#include "FWCE.ch"

function Main()

   local oWnd, oSay1, oSay2, oFont1, oFont2
   
   DEFINE FONT oFont1 NAME "Verdana" SIZE 0, -17

   DEFINE FONT oFont2 NAME "Ms Sans Serif" SIZE 0, -10
   
   DEFINE WINDOW oWnd TITLE "TestFont"
   
   @ 1, 1 SAY oSay1 PROMPT "Hello" FONT oFont1 SIZE 80, 20

   @ 3, 1 SAY oSay2 PROMPT "World" FONT oFont2 SIZE 80, 20
   
   ACTIVATE WINDOW oWnd ;
      ON CLICK MsgInfo( "Click!" ) ;
      VALID MsgYesNo( "Want to End ?" )
   
return nil


Also you may review FWPPC\samples\Test2.prg and Tutor05.prg

[yardenmo]

Thanks. I've tried it, and it works nice.