Click on TGroup

[Enrico Maria Giordano]

I'm trying to fire an action when a TGroup is clicked but it doesn't work. Any ideas? This is a sample:

Code: Select all  Expand view

#include "Fivewin.ch"


REQUEST HB_GT_GUI_DEFAULT


FUNCTION MAIN()

    LOCAL oDlg

    LOCAL oGrp

    DEFINE DIALOG oDlg;
           SIZE 800, 600

    @ 1, 1 GROUP oGrp TO 15, 30;
           PROMPT "This is a test";

    oGrp:bLClicked = { || Tone( 880, 1 ) }

    ACTIVATE DIALOG oDlg;
             CENTER

    RETURN NIL

EMG

[ukoenig]

Enrico,

I think it is the only way how it works.
Check the mouseclick-area ( tested ) :

Code: Select all  Expand view

FUNCTION D_CODE()
LOCAL oDlg, oGrp

DEFINE DIALOG oDlg  SIZE 800, 600

@ 50, 50 GROUP oGrp TO 200, 300 PIXEL ;
PROMPT "This is a test";

oDlg:bLClicked := { |nRow,nCol| ;
IIF( nRow >= oGrp:nTop .and. nRow <= oGrp:nTop + oGrp:nHeight .and. ;
      nCol >= oGrp:nLeft  .and. nCol <= oGrp:nLeft + oGrp:nWidth, ;
      MsgAlert( "INSIDE Group" ), MsgAlert( "OUTSIDE Group" ) ) }

oDlg:bRClicked := { |nRow,nCol| ;
IIF( nRow >= oGrp:nTop .and. nRow <= oGrp:nTop + oGrp:nHeight .and. ;
      nCol >= oGrp:nLeft  .and. nCol <= oGrp:nLeft + oGrp:nWidth, ;
      MsgAlert( "INSIDE Group" ), MsgAlert( "OUTSIDE Group" ) ) }

ACTIVATE DIALOG oDlg CENTER

RETURN NIL
 

Best Regards
Uwe

[Enrico Maria Giordano]

Thank you. I will try it.

EMG