FiveTech Software tech support forums

Posted: **Mon Dec 14, 2009 4:25 pm**

Estimados

en el ejemplo ribbon al maximizar pierde la posición del menu popup

Posted: **Mon Dec 14, 2009 7:49 pm**

Patricio,

En Windows 7 va bien, parece que solo falla con XP.

Vamos a revisarlo, gracias :-)

Posted: **Tue Dec 29, 2009 7:14 pm**

MASTER ANTONIO,, SOBRE ESTE TEMA.. ALGO

ATTE.

Posted: **Wed Dec 30, 2009 3:16 am**

Mantonio,

Vamos a probarlo en un XP instalado en VirtualBox, lo antes posible

Posted: **Thu Dec 31, 2009 7:44 pm**

Solucionado :-)

Este cambio es necesario en la Clase TRBtn en 3 sitios en donde se hace la misma llamada:

Code: Select all Expand view: ::oPopup:Activate( ::nTop + ::nHeight(), ::nLeft - oWnd:nLeft, oWnd, .f. )

Posted: **Mon Jan 04, 2010 3:35 pm**

Excelente

muchas gracias master.-..

Posted: **Mon Jan 04, 2010 4:34 pm**

Antonio

Ahora falla esta parte..

Posted: **Mon Jan 04, 2010 6:08 pm**

Patricio,

Este código lo arregla :-)

Posted: **Mon Jan 04, 2010 8:14 pm**

Antonio

se arregla el de los ribbon pero Igual persiste el problema en los BUTTON

coloca en el oBtn19 MENU oMenu

Code: Select all Expand view: @ 10, 75 ADD BUTTON oBtn19 GROUP oGr2 BITMAP "..\bitmaps\multilevellist16.bmp" GROUPBUTTON END SIZE 35, 20 ROUND POPUP MENU oMenu

Posted: **Mon Jan 04, 2010 8:33 pm**

solucionado

Code: Select all Expand view: case ::nTypeButton == TYPE_POPUP if nCol >= ::nPopupMargin .or. !lAction oWnd := ::oWnd oWnd:NcMouseMove() // close the tooltip oWnd:oPopup = ::oPopup //::oPopup:Activate( ::nTop + ::nHeight(), ::nLeft, oWnd, .f. ) //::oPopup:Activate( ::nTop + ::nHeight(), ::nLeft - oWnd:nLeft, oWnd, .f. ) ::oPopup:Activate( ::nTop + ::nHeight() + ; If( GetClassName( GetParent( GetParent( ::hWnd ) ) ) != "TRPANEL",; oWnd:nHeight(), 0 ), ::nLeft, oWnd, .F. )

Posted: **Mon Jan 04, 2010 9:34 pm**

Patricio,

Aun hay que hacer esta modificación, para que en el botón izquierdo (color azul oscuro) se muestre bien el popup:

Code: Select all Expand view: case ::nTypeButton == TYPE_POPUP if nCol >= ::nPopupMargin .or. !lAction oWnd := ::oWnd oWnd:NcMouseMove() // close the tooltip oWnd:oPopup = ::oPopup ::oPopup:Activate( ::nTop + ::nHeight() + ; If( GetClassName( GetParent( GetParent( ::hWnd ) ) ) != "TRPANEL",; If( ! oWnd:IsKindOf( "TRIBBONBAR" ), oWnd:nHeight(), 0 ), 0 ), ::nLeft, oWnd, .F. ) oWnd:oPopup = nil ::Refresh() else ::click() endif

Posted: **Mon Jan 04, 2010 9:46 pm**

Patricio,

Aun hace falta un cambio más:

Code: Select all Expand view: case ::nTypeButton == TYPE_POPUP if nCol >= ::nPopupMargin .or. !lAction oWnd := ::oWnd oWnd:NcMouseMove() // close the tooltip oWnd:oPopup = ::oPopup ::oPopup:Activate( ::nTop + ::nHeight() + ; If( GetClassName( GetParent( GetParent( ::hWnd ) ) ) != "TRPANEL",; If( ! oWnd:IsKindOf( "TRIBBONBAR" ), oWnd:nHeight(), 0 ), 0 ),; ::nLeft - If( ! oWnd:IsKindOf( "TRBGROUP" ), oWnd:nLeft, 0 ), oWnd, .F. ) oWnd:oPopup = nil ::Refresh() else ::click() endif

ejemplo ribbon