There was a change to the Tget class sometime in 2002 where the popup menu code initiated by a right click was bypassed in favor of Windows default popup menu. For some reason, I cannot get the Undo option to be enabled when there is a change to the get value. Does anyone remember this issue and more importantly, how to fix it.
Thanks
Andy,
Please use the popup to paste some text in the GET and then open it again and check if the undo item is enabled.
I did and there is no change -- Undo is still disabled. FYI, this is 16-Bit FW.
Here is the code:
//----------------------------------------------------------------------------//
METHOD RButtonDown( nRow, nCol, nFlags ) CLASS TGet
if GetFocus() != ::hWnd
::SetFocus()
SysRefresh() // In case there is a VALID somewhere
if GetFocus() != ::hWnd
return nil
endif
endif
if ::bRClicked != nil
return Eval( ::bRClicked, nRow, nCol, nFlags )
endif
return nil // Invokes default popup menu
Andy,
Change the method this way:
METHOD RButtonDown() VIRTUAL
at the CLASS ... ENDCLASS section and comment out the below method code and try it again.
Antonio,
It still doesn't work. However, I did test it with 32-Bit FW and it does work. I am wondering if it's a WinAPI thing. Can you test it in 16-Bit with TestGet2.prg and let me know. Thanks.
