right-click Menu for Control

[Jimmy]

hi,

when create a CLASS from TControl() i want to add a "right-click Menu"

i do found

Code: Select all  Expand view

METHOD LButtonDown()
METHOD LButtonUp()

but nothing for Right Button of Mouse

---

do i have to add

Code: Select all  Expand view

METHOD HandleEvent()
   ...
   CASE nMsg == WM_RBUTTONDOWN
   CASE nMsg == WM_RBUTTONUP

and build own Method or does Fivewin have a other Way

[cnavarro]

Use for this DATA bRClicked

[nageswaragunupudi]

but nothing for Right Button of Mouse

TControl is derived from TWindow.
You need to search both TControl and TWindow classes.

You can see from TWindow class

Code: Select all  Expand view

METHOD RButtonDown( nRow, nCol, nKeyFlags ) CLASS TWindow

   if ::bRClicked != nil
      Eval( ::bRClicked, nRow, nCol, nKeyFlags, Self )
   endif

return nil

//----------------------------------------------------------------------------//

METHOD RButtonUp( nRow, nCol, nKeyFlags ) CLASS TWindow

   if ::bRButtonUp != nil
      Eval( ::bRButtonUp, nRow, nCol, nKeyFlags, Self )
   endif

return nil

//----------------------------------------------------------------------------//
 

That means, you need to add method

Code: Select all  Expand view

METHOD RButtonDown( nRow, nCol, nKeyFlags ) CLASS YourClass

[Jimmy]

hi,

thx for Answer.

i´m not sure that i understand what you say

i do have use

Code: Select all  Expand view

METHOD HandleEvent( nMsg, nWParam, nLParam ) CLASS TGrid  

   DO CASE
      //  use for LVS_OWNERDRAWFIXED
      CASE nMsg == WM_MEASUREITEM
      CASE nMsg == WM_DRAWITEM
      // add for Context Menu
      CASE nMsg == WM_RBUTTONDOWN
         IF ::bRbClick != nil
            EVAL( ::bRbClick, ::oWnd, Self )
         ENDIF
      CASE nMsg == WM_RBUTTONUP
   ENDCASE

RETURN ::Super:HandleEvent( nMsg, nWParam, nLParam )

now you say i "just" need to "override"

Code: Select all  Expand view

METHOD RButtonDown  ( nRow, nCol, nKeyFlags   )   CLASS YourClass

so i need not to handle WM_RBUTTONDOWN

[nageswaragunupudi]

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 needed return calling Super method.
Use HandleEvent very sparingly when there is no otherway.

[Jimmy]

hi,

Yes.

GREAT

Use HandleEvent very sparingly when there is no otherway.

Ok, understood