FiveTech Support Forums

#include "Fwce.ch"


FUNCTION MAIN()

    LOCAL oDlg

    LOCAL cUserid := SPACE( 5 )
    LOCAL cPasswd := SPACE( 8 )

    DEFINE DIALOG oDlg;
           RESOURCE "LOGIN"

    REDEFINE COMBOBOX cUserid;
             ID 101 OF oDlg;
             ITEMS { "1", "2", "3" }

    REDEFINE GET cPasswd;
             ID 102 OF oDlg

    REDEFINE BUTTON;
             ID 201 OF oDlg;
             ACTION oDlg:End()

    ACTIVATE DIALOG oDlg

    RETURN NIL

#ifdef _CE
   #include "c:\vce\include\arm\windows.h"
   #include "c:\vce\include\arm\commctrl.h"
#endif

LOGIN DIALOG 0, 0, 285, 307
STYLE WS_POPUP
FONT 8, "MS Sans Serif"
{
 LTEXT "Userid:", -1, 10, 11, 25, 10
 COMBOBOX 101, 45, 10, 49, 65, CBS_DROPDOWNLIST | WS_TABSTOP
 LTEXT "Password:", -1, 10, 31, 35, 10
 EDITTEXT 102, 45, 30, 50, 13, ES_PASSWORD | WS_BORDER | WS_TABSTOP
 PUSHBUTTON "&Ok", 201, 45, 60, 40, 15
}