TMultiGet [Solved]

[Enrico Maria Giordano]

In the following sample you will notice that the Enter key doesn't fire the ON CHANGE clause:

Code: Select all  Expand view  RUN

#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

EMG

[Enrico Maria Giordano]

A possible fix in KeyChar() method:

Code: Select all  Expand view  RUN

   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

EMG

[Otto]

Enrico, is this only an error on veriosn 8.05?
Thanks in advance
Otto

[Enrico Maria Giordano]

No, it is an old bug.

EMG

[Enrico Maria Giordano]

Any news?

EMG

[Enrico Maria Giordano]

Just to take this bug up.

EMG

[Enrico Maria Giordano]

Toc toc

EMG