FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour cancelar botão contrário do mouse - tabs
Posts: 1286
Joined: Mon Feb 25, 2008 02:54 PM
cancelar botão contrário do mouse - tabs
Posted: Wed Mar 05, 2008 06:53 PM

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

tentei assim:

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

mais não funciona.

Obrigado

ubiratanmga@gmail.com

FWH24.04
BCC7.3
HARBOUR3.2
xMate
Pelles´C
TDolphin
Posts: 1364
Joined: Wed Jun 21, 2006 12:39 AM
cancelar botão contrário do mouse - tabs
Posted: Wed Mar 05, 2008 07:56 PM

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

Posts: 1286
Joined: Mon Feb 25, 2008 02:54 PM
cancelar botão contrário do mouse - tabs
Posted: Wed Mar 05, 2008 08:41 PM

horacio, não funciona:

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

ubiratanmga@gmail.com

FWH24.04
BCC7.3
HARBOUR3.2
xMate
Pelles´C
TDolphin
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
cancelar botão contrário do mouse - tabs
Posted: Wed Mar 05, 2008 09:53 PM
SGS,

Puedes hacerlo como has indicado:

otabs:bRClicked := { || nil }

pero necesitas modificar la clase TTabs de esta forma:
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 )
...
regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 1286
Joined: Mon Feb 25, 2008 02:54 PM
cancelar botão contrário do mouse - tabs
Posted: Thu Mar 06, 2008 11:24 AM

Obrigado Sr.Antonio!

ubiratanmga@gmail.com

FWH24.04
BCC7.3
HARBOUR3.2
xMate
Pelles´C
TDolphin

Continue the discussion