FiveTech Software tech support forums

... 825 ) Called from: C:\FWH23\source\classes\metropnl.prg => (b)TMETROBTN:NEW( 609 ) Called from: .\source\classes\WINDOW.PRG => TMETROBTN:RBUTTONDOWN( 2188 ) Called from: => TWINDOW:HANDLEEVENT( 0 ) Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1857 ) Called ...

... 825 ) Called from: C:\FWH23\source\classes\metropnl.prg => (b)TMETROBTN:NEW( 609 ) Called from: .\source\classes\WINDOW.PRG => TMETROBTN:RBUTTONDOWN( 2188 ) Called from: => TWINDOW:HANDLEEVENT( 0 ) Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1857 ) Called ...

... 5020 ) Called from: \servizio\prog\StdGes.prg => (b)STDGES_ACTIVATE( 1993 ) Called from: .\source\classes\WINDOW.PRG => TCONTROL:RBUTTONDOWN( 2151 ) Called from: prog\xBrowse.prg => TXBROWSE:RBUTTONDOWN( 5450 ) Called from: => TWINDOW:HANDLEEVENT( 0 ) Called from: .\source\classes\CONTROL.PRG ...

now you say i "just" need to "override" Code: METHOD RButtonDown ( nRow, nCol, nKeyFlags ) CLASS YourClass so i need not to handle WM_RBUTTONDOWN :?: Yes. Wherever the parents have standard methods, you override them in your class and if ...

...  ENDCASERETURN ::Super:HandleEvent( nMsg, nWParam, nLParam ) now you say i "just" need to "override" METHOD RButtonDown  ( nRow, nCol, nKeyFlags   )   CLASS YourClass so i need not to handle WM_RBUTTONDOWN :?:

... => TXBROWSE:TODBF( 10453 ) Called from: => (b)EVAL( 11635 ) Called from: .\source\classes\WINDOW.PRG => TCONTROL:RBUTTONDOWN( 2150 ) Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:RBUTTONDOWN( 5178 ) Called from: => TWINDOW:HANDLEEVENT( 0 ) Called ...

... 4219 ) Called from: \servizio\prog\StdGes.prg => (b)STDGES_ACTIVATE( 1656 ) Called from: ..\source\classes\TSBrowse.prg => TSBROWSE:RBUTTONDOWN( 6882 ) Called from: => TWINDOW:HANDLEEVENT( 0 ) Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1827 ) Called ...

... Called from: .\source\classes\TFIVEDIT.PRG => (b)TFIVEDIT_TREEPROJECT( 4037 ) 000011 Called from: .\source\classes\WINDOW.PRG => TTREEVIEW:RBUTTONDOWN( 2518 ) 000012 Called from: => TWINDOW:HANDLEEVENT( 0 ) 000013 Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( ...

... from: .\FORUM.PRG => SET_DEL( 1474 ) Called from: .\FORUM.PRG => (b)MAIN( 291 ) Called from: .\source\classes\WINDOW.PRG => TCONTROL:RBUTTONDOWN( 2030 )

... 14752 ) Called from: .\source\classes\TFIVEDIT.PRG => (b)TFIVEDIT_EDTFOLDER( 1595 ) Called from: .\source\classes\TFOLDEX.PRG => TFOLDEREX:RBUTTONDOWN( 1653 ) Called from: => TWINDOW:HANDLEEVENT( 0 ) Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1731 ) Called ...

... not declared for method: Paint()' .\prg\TSBUTTON.PRG(2259) Error E0019 #error: 'Class "TSButton" not declared for method: RButtonDown( nRow, nCol, nKeyFlags )' .\prg\TSBUTTON.PRG(2283) Error E0019 #error: 'Class "TSButton" not declared for method: RButtonUp( nRow, ...

... Called from: design.prg => EDITDIALOG( 240 ) Called from: design.prg => (b)MAIN( 19 ) Called from: .\source\classes\WINDOW.PRG => TDIALOG:RBUTTONDOWN( 2265 ) Called from: => TWINDOW:HANDLEEVENT( 0 ) Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT( 905 ) Called from: ...

... }  Lo unico que queda en el ejemplo es saber en que columna estás para pasarla como parámetro Puedes mirar el metodo RButtonDown de xbrowse

... => EDITDIALOG( 239 ) Called from: C:\fwh\samples\design.prg => (b)MAIN( 19 ) Called from: .\source\classes\WINDOW.PRG => TDIALOG:RBUTTONDOWN( 2253 ) Called from: => TWINDOW:HANDLEEVENT( 0 ) Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT( 916 ) Called from: ...

Only way is to modify xbrowse.prg .
Methods RButtonDown, LButtonUp and LDblClick.
At the end of these methods forward the call to Super:
example
return Super:RButtonDown( nRow, nCol, nKeyFlags )