cancelar botão contrário do mouse - tabs

[MGA]

Amigos, como cancelar o botão contrario do mouse em uma TAB

tentei assim:

otabs:bRClicked := { || ( NIL ) }


mais não funciona.

Obrigado

[horacio]

podrias probar oTab : bRClicked := { || .t. }
saludos

[MGA]

horacio, não funciona:

oTab:bRClicked := { || .f. }

[Antonio Linares]

SGS,

Puedes hacerlo como has indicado:

otabs:bRClicked := { || nil }

pero necesitas modificar la clase TTabs de esta forma:

Code: Select all

METHOD RButtonDown( nRow, nCol, nFlags ) CLASS TTabs

   local oMenu, n, l2007 := .f.

   if ::lDrag
      return Super:LButtonDown( nRow, nCol, nFlags )
   else
      if ( n := ::nOverPrompt( nRow, nCol ) ) > 0
         if ::bRClicked != nil
            Eval( ::bRClicked, nRow, nCol, nFlags, Self, n )
         endif
      elseif ::bRClicked != nil  // new !!!
         Eval( ::bRClicked, nRow, nCol, nFlags, Self, 0 ) // new !!!
      else
         if ( ::oWnd:oBottom == Self .or. ::oWnd:oLeft == Self .or. ;
              ::oWnd:oTop == Self .or. ::oWnd:oRight == Self )
...

[MGA]

Obrigado Sr.Antonio!