FiveTech Support Forums

#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

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