topic-9076

Posts: 9022

Joined: Thu Oct 06, 2005 08:17 PM

Bug in TBtnBmp and dialogs
Posted: Wed Dec 05, 2007 09:48 AM

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 Collapse

#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

e.m.giordano@emagsoftware.it
http://www.emagsoftware.it
http://www.emagsoftware.it/emgmusic
http://www.emagsoftware.it/spectrum
http://www.emagsoftware.it/tbosg

Enrico Maria Giordano

Posts: 9022

Joined: Thu Oct 06, 2005 08:17 PM

Re: Bug in TBtnBmp and dialogs
Posted: Tue Dec 11, 2007 09:10 AM

Any news? :-)

EMG

Enrico Maria Giordano

e.m.giordano@emagsoftware.it
http://www.emagsoftware.it
http://www.emagsoftware.it/emgmusic
http://www.emagsoftware.it/spectrum
http://www.emagsoftware.it/tbosg

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Bug in TBtnBmp and dialogs
Posted: Tue Dec 11, 2007 11:15 AM

Enrico,

Fixed

Please add this code to Class TDialog:

Code: Select all Collapse

METHOD SysCommand( nWParam, nLParam ) CLASS TDialog

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

   ...

regards, saludos

Antonio Linares
www.fivetechsoft.com

driessen

Posts: 1467