Botones popup en ribbon

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

[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
 

[horacio]

Gracias Patricio por contestar. Estaba por actualizar el post porque uso intensivamente estos botones y quería tenerlo solucionado. Gracias nuevamente.