TMultiGet [Solved]
Posted:
Sun Jun 08, 2008 6:16 pmby 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
#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
Re: Bug in TMultiGet
Posted:
Sun Jun 08, 2008 6:18 pmby Enrico Maria Giordano
A possible fix in KeyChar() method:
- Code: Select all Expand view
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
Posted:
Sun Jun 08, 2008 6:25 pmby Otto
Enrico, is this only an error on veriosn 8.05?
Thanks in advance
Otto
Posted:
Sun Jun 08, 2008 6:27 pmby Enrico Maria Giordano
No, it is an old bug.
EMG
Re: TMultiGet
Posted:
Sun Mar 22, 2009 10:40 amby Enrico Maria Giordano
Just to take this bug up.
EMG