FiveTech Support Forums

#include "Fivewin.ch"


REQUEST HB_GT_GUI_DEFAULT


FUNCTION MAIN()

    LOCAL oDlg, oGet

    LOCAL cVar := ""

    DEFINE DIALOG oDlg

    @ 0, 0 GET oGet VAR cVar MEMO;
           SIZE 100, 30;
           ON CHANGE TONE( 440, 1 )

    @ 3, 0 BUTTON "&Close" ACTION oDlg:End()

    ACTIVATE DIALOG oDlg;
             CENTER

    RETURN NIL

   if nKey == VK_RETURN .and. ;
      lAnd( GetWindowLong( ::hWnd, GWL_STYLE ), ES_WANTRETURN )
      ::oWnd:nLastKey = 0
      if ::bChange != nil  // EMG
         Eval( ::bChange, nKey, nFlags, Self )  // EMG
      endif  // EMG
      return nil
   endif