Code: Select all
#include "Fivewin.ch"
FUNCTION MAIN()
LOCAL oDlg, oBrw
USE TEST
DEFINE DIALOG oDlg
oDlg:nStyle = NOR( oDlg:nStyle, WS_THICKFRAME )
@ 0, 0 LISTBOX oBrw FIELDS
ACTIVATE DIALOG oDlg;
ON INIT oDlg:SetControl( oBrw );
CENTER
CLOSE
RETURN NIL
EMG