Cierto, en las ultimas versiones no viene en la clase Tget. Tendrás que implementarlo.
A ver si alguien nos dice donde está el menú contextual de la clase Tget.
Code: Select all
METHOD RButtonDown( nRow, nCol, nFlags ) CLASS TGet
local oMenu, oClp // mio
local nLo, nHi // mio
local oThis := Self // mio
local uVal // MIO
::GetSelPos( @nLo, @nHi ) // mio
if GetFocus() != ::hWnd
::SetFocus()
SysRefresh() // In case there is a VALID somewhere
if GetFocus() != ::hWnd
return nil
endif
endif
DEFINE CLIPBOARD oClp OF Self FORMAT TEXT // mio
if ::bRClicked != nil
return Eval( ::bRClicked, nRow, nCol, nFlags )
endif
MENU oMenu POPUP // mio todo el menu
if ::lReadOnly .or. ::GetText() == cValToChar( ::oGet:Original )
MENUITEM "&Deshacer" ACTION ::UnDo() disabled
else
#ifndef __XPP__ // Just for XPP !
MENUITEM "&Deshacer" ACTION ::UnDo()
#else
MENUITEM "&Deshacer" ACTION ::TGet:UnDo()
#endif
endif
SEPARATOR
if ::lReadOnly .or. nLo == nHi
MENUITEM "Cor&tar" ACTION ::Cut() disabled
else
#ifndef __XPP__ // Just for XPP !
MENUITEM "Cor&tar" ACTION ::Cut()
#else
MENUITEM "Cor&tar" ACTION ::TGet:Cut()
#endif
endif
if nLo != nHi
#ifndef __XPP__ // Just for XPP !
MENUITEM "&Copiar" ACTION ::Copy()
#else
MENUITEM "&Copiar" ACTION ::TGet:Copy()
#endif
else
MENUITEM "&Copiar" ACTION ::Copy() disabled
endif
if ! Empty( oClp:GetText() ) .and. !::lReadOnly
#ifndef __XPP__ // Just for XPP !
MENUITEM "&Pegar" ACTION ::Paste()
#else
MENUITEM "&Pegar" ACTION ::TGet:Paste()
#endif
else
MENUITEM "&Pegar" ACTION ::Paste() DISABLED
endif
if ::lReadOnly .or. nLo == nHi
MENUITEM "&Borrar" action nil disabled
else
#ifndef __XPP__ // Just for XPP !
MENUITEM "&Borrar" ACTION If( nHi != nLo,;
( ::GetDelSel( nLo, nHi ), ::EditUpdate() ),)
#else
MENUITEM "&Borrar" ACTION If( nHi != nLo,;
( ::TGet:GetDelSel( nLo, nHi ), ::TGet:EditUpdate() ),)
#endif
endif
SEPARATOR
#ifndef __XPP__ // Just for XPP !
MENUITEM "Seleccionar &Todo" ACTION ::SelectAll()
#else
MENUITEM "Seleccionar &Todo" ACTION ::TGet:SelectAll()
#endif
SEPARATOR // MIO
if ::lReadOnly .or. ::oGet:Type # "C" // MIO
MENUITEM "&Ortografía" action nil disabled // MIO
else // MIO
MENUITEM "&Ortografía" ACTION ( ::cText( Ortografia(GetWindowText( ::hWnd )) )) // MIO
endif // MIO
ENDMENU
ACTIVATE POPUP oMenu AT nRow - 60, nCol OF Self
return 0 //nil // Invokes default popup menu
