Botones popup en ribbon
Posted:
Thu May 10, 2012 12:42 pm
by horacio
En los botones popup de la ribbon, cuando cliqueo la primera vez se muestra el menú, pero las veces subsiguientes debo dar doble click. Esto se puede apreciar en ribbon.prg. Hay alguna solución para este comportamiento ??? Muchas Gracias.
Re: Botones popup en ribbon
Posted:
Tue May 15, 2012 2:54 pm
by Patricio Avalos Aguirre
Hola
Hay alguna solucion para este tema
posible solucion es dejar oWnd:oPopup:=nil
- Code: Select all Expand view
case ::nTypeButton == TYPE_POPUP
if nCol >= ::nPopupMargin .or. !lAction
oWnd := ::oWnd
oWnd:NcMouseMove() // close the tooltip
if oWnd:oPopup == nil
oWnd:oPopup = ::oPopup
::oPopup:Activate( ::nTop + ::nHeight(),;
::nLeft - If( ! oWnd:IsKindOf( "TRBGROUP" ), oWnd:nLeft, 0 ), oWnd, .F. )
//If oWnd:ClassName() == 'TDIALOG'
oWnd:oPopup := Nil
//EndIf
else
oWnd:oPopup = nil
endif
::Refresh()
else
::click()
endif
Re: Botones popup en ribbon
Posted:
Tue May 15, 2012 4:17 pm
by horacio
Gracias Patricio por contestar. Estaba por actualizar el post porque uso intensivamente estos botones y quería tenerlo solucionado. Gracias nuevamente.