TDialog ON CLICK bug

[Enrico Maria Giordano]

This is the sample (click has no effect):

Code: Select all  Expand view

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oDlg

    DEFINE DIALOG oDlg

    ACTIVATE DIALOG oDlg;
             ON CLICK MSGINFO( "Test" );
             CENTER

    RETURN NIL

And this is a possible solution:

Code: Select all  Expand view

METHOD HandleEvent( nMsg, nWParam, nLParam ) CLASS TDialog

   do case
      case nMsg == WM_INITDIALOG
           return ::Initiate( nWParam, nLParam )

      case nMsg == WM_PAINT
           return ::Display()

      case nMsg == WM_PRINTCLIENT
           return ::PrintClient( nWParam )

      case nMsg == WM_LBUTTONDOWN
           if ::lHelpIcon
              ::Help()
           endif       

           return Super:HandleEvent( nMsg, nWParam, nLParam ) // EMG
           
      otherwise
           return Super:HandleEvent( nMsg, nWParam, nLParam )
   endcase

return nil

EMG

[Antonio Linares]

Enrico,

many thanks for your fix. This code looks like a better one:

Code: Select all  Expand view

      case nMsg == WM_LBUTTONDOWN
           if ::lHelpIcon
              ::Help()
           else       
              return Super:HandleEvent( nMsg, nWParam, nLParam )
           endif   


Anyhow if you test it with the dialog.prg that we have sent you (not modified yet) you will see we help a help msg that should not happen.

[Enrico Maria Giordano]

Enrico,

many thanks for your fix. This code looks like a better one:

Code: Select all  Expand view

      case nMsg == WM_LBUTTONDOWN
           if ::lHelpIcon
              ::Help()
           else       
              return Super:HandleEvent( nMsg, nWParam, nLParam )
           endif   


Yes, definitely.

Anyhow if you test it with the dialog.prg that we have sent you (not modified yet) you will see we help a help msg that should not happen.

Yes, confirmed. It shoud not happen.

EMG