Little problem in TButton?

Sun Feb 05, 2006 3:59 pm

This is the sample. As you can notice, clicking on the button has no effect:

#include "Fivewin.ch"FUNCTION MAIN()    LOCAL oDlg    LOCAL oGet, oBtn    LOCAL cVar := SPACE( 30 )    DEFINE DIALOG oDlg    @ 1, 1 GET oGet VAR cVar    @ 3, 1 BUTTON oBtn PROMPT "Close" ACTION oDlg:End()    oBtn:bLButtonUp = { || oGet:SetFocus() }    ACTIVATE DIALOG oDlg;             CENTER    RETURN NIL

This is a possible solution: add the following method to TButton:

Code: Select all | Expand

METHOD LButtonUp( nRow, nCol, nKeyFlags ) CLASS TButton   if ::bLButtonUp != nil .and. !IsOverWnd( ::hWnd, nRow, nCol )      return Eval( ::bLButtonUp, nRow, nCol, nKeyFlags )   endifreturn nil

What do you think?

EMG

Post by **Antonio Linares** » Tue Feb 07, 2006 11:11 am

Enrico,

> As you can notice, clicking on the button has no effect:

Here it works ok. The focus is given to the GET.

Tue Feb 07, 2006 11:37 am

Yes, but the ACTION clause is not fired. Try this and you will not hear the beep:

Code: Select all | Expand

#include "Fivewin.ch"FUNCTION MAIN()    LOCAL oDlg    LOCAL oGet, oBtn    LOCAL cVar := SPACE( 30 )    DEFINE DIALOG oDlg    @ 1, 1 GET oGet VAR cVar    @ 3, 1 BUTTON oBtn PROMPT "Close" ACTION MSGBEEP()    oBtn:bLButtonUp = { || oGet:SetFocus() }    ACTIVATE DIALOG oDlg;             CENTER    RETURN NIL

EMG