Page 1 of 1
Bug in TBtnBmp and dialogs
Posted: Wed Dec 05, 2007 9:48 am
by 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
#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
Re: Bug in TBtnBmp and dialogs
Posted: Tue Dec 11, 2007 9:10 am
by Enrico Maria Giordano
Any news?
EMG
Posted: Tue Dec 11, 2007 11:15 am
by Antonio Linares
Enrico,
Fixed
Please add this code to Class TDialog:
Code: Select all | Expand
METHOD SysCommand( nWParam, nLParam ) CLASS TDialog
if nWParam == SC_CLOSE .and. ::lModal
if GetCapture() != 0 // New !
ReleaseCapture() // New !
endif // New !
return .f.
endif
...
Posted: Tue Dec 11, 2007 12:03 pm
by 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.
Posted: Tue Dec 11, 2007 12:23 pm
by Antonio Linares
Michel,
Have you tested with FWH 7.12 ?
Posted: Tue Dec 11, 2007 1:28 pm
by Enrico Maria Giordano
Antonio Linares wrote:Enrico,
Fixed
Please add this code to Class TDialog:
Thank you!
EMG
Posted: Tue Dec 11, 2007 2:04 pm
by norberto
antonio, this is for 7.11 or 7.12 or too?
Posted: Tue Dec 11, 2007 2:26 pm
by Antonio Linares
Norberto,
For both and previous versions too