- Code: Select all Expand view
- #include "Fivewin.ch"
FUNCTION MAIN()
LOCAL oDlg
LOCAL oCbx, cItem := ""
DEFINE DIALOG oDlg;
SIZE 800, 600
@ 1, 1 COMBOBOX oCbx VAR cItem;
SIZE 300, NIL;
ITEMS { "", "This is a test" };
COLOR CLR_WHITE, CLR_HRED
ACTIVATE DIALOG oDlg;
CENTER
RETURN NIL
Thank you in advance.
EMG