Page 1 of 1

Botones popup en ribbon

PostPosted: 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

PostPosted: 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

PostPosted: 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.