Bug in TBitmap [Fixed]
Posted: Sat Apr 01, 2017 7:39 pm
TBitmap disables nomodal oDlg valid. This is a sample. Try to hit ESC on the first and on the second dialogs. The first will close (it shouldn't), the second not.
EMG
- Code: Select all Expand view
- #include "Fivewin.ch"
FUNCTION MAIN()
LOCAL oDlg
DEFINE DIALOG oDlg
TBitmap():New()
ACTIVATE DIALOG oDlg;
ON INIT oDlg:bValid := { || !GetKeyState( VK_ESCAPE ) };
CENTER NOMODAL
SYSWAIT( 2 )
oDlg:End()
DEFINE DIALOG oDlg
ACTIVATE DIALOG oDlg;
ON INIT oDlg:bValid := { || !GetKeyState( VK_ESCAPE ) };
CENTER NOMODAL
SYSWAIT( 2 )
RETURN NIL
EMG