FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Botones popup en ribbon
Posts: 1364
Joined: Wed Jun 21, 2006 12:39 AM
Botones popup en ribbon
Posted: Thu May 10, 2012 12:42 PM

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.

Posts: 1074
Joined: Fri Oct 07, 2005 01:56 PM
Re: Botones popup en ribbon
Posted: Tue May 15, 2012 02:54 PM
Hola

Hay alguna solucion para este tema

posible solucion es dejar oWnd:=nil

Code (fw): Select all Collapse
                  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
Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl
Posts: 1364
Joined: Wed Jun 21, 2006 12:39 AM
Re: Botones popup en ribbon
Posted: Tue May 15, 2012 04:17 PM

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

Continue the discussion