FiveTech Support Forums

#include "fivewin.ch"
#include 'xbrowse.ch'

Function Main()
   local oWnd, oDbCustomer, oBrw, oFont

   ferase("checkres.txt")

   DEFINE FONT oFont NAME 'MS Sans Serif' SIZE 0,-10

   use customer
   DATABASE oDbCustomer

   define window oWnd

   SET FONT OF oWnd TO oFont

   @ 0, 1 SAY "Test"

   @ 20,20 XBROWSE oBrw OF oWnd SIZE -10,-30 PIXEL ;
     FIELDS 'FIRST', 'LAST', 'STREET' OBJECT oDbCustomer;
     LINES CELL FASTEDIT NOBORDER

     oBrw:CreateFromCode()

   activate window oWnd

   oFont:End()

   checkRes()

return nil