Code: Select all
#include "Fivewin.ch"
FUNCTION MAIN()
LOCAL oWnd, oBrw
USE TEST
DEFINE WINDOW oWnd
SET MESSAGE OF oWnd
@ 0, 0 LISTBOX oBrw FIELDS
oWnd:oClient = oBrw
ACTIVATE WINDOW oWnd;
ON INIT oWnd:Move( 0, 0, GETSYSMETRICS( 0 ) / 2, GETSYSMETRICS( 1 ) )
CLOSE
RETURN NIL