FiveTech Software tech support forums

Code: Select all

// 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