FiveTech Software tech support forums

Posted: **Wed Mar 05, 2008 6:53 pm**

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

tentei assim:

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

mais não funciona.

Obrigado

Posted: **Wed Mar 05, 2008 7:56 pm**

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

Posted: **Wed Mar 05, 2008 8:41 pm**

horacio, não funciona:

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

Posted: **Wed Mar 05, 2008 9:53 pm**

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 )
...

Posted: **Thu Mar 06, 2008 11:24 am**

Obrigado Sr.Antonio!

FiveTech Software tech support forums

cancelar botão contrário do mouse - tabs

cancelar botão contrário do mouse - tabs