Bug in TBtnBmp and dialogs

[Enrico Maria Giordano]

In the following sample, please place the mouse pointer over the button and try to close the dialog using ALT-F4. It will not close.

Code: Select all  Expand view

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oDlg

    DEFINE DIALOG oDlg

    @ 1, 1 BTNBMP;
           FILE "C:\FWH\BITMAPS\OPEN.BMP";
           NOBORDER

    ACTIVATE DIALOG oDlg;
             CENTER

    RETURN NIL

EMG

[Enrico Maria Giordano]

Any news?

EMG

[Antonio Linares]

Enrico,

Fixed

Please add this code to Class TDialog:

Code: Select all  Expand view

METHOD SysCommand( nWParam, nLParam ) CLASS TDialog

   if nWParam == SC_CLOSE .and. ::lModal
      if GetCapture() != 0  // New !
         ReleaseCapture()  // New !
      endif                       // New !
      return .f.
   endif

   ...


[driessen]

Is it possible that the problem doesn't occur when creating dialogs from resources ?

I don't have the problem in my application.

Thanks.

[Antonio Linares]

Michel,

Have you tested with FWH 7.12 ?

[Enrico Maria Giordano]

Enrico,

Fixed

Please add this code to Class TDialog:

Thank you!

EMG

[norberto]

antonio, this is for 7.11 or 7.12 or too?

[Antonio Linares]

Norberto,

For both and previous versions too