FiveTech Software tech support forums

by **Patricio Avalos Aguirre** » Mon Dec 14, 2009 4:25 pm

Estimados

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

by **Antonio Linares** » Mon Dec 14, 2009 7:49 pm

Patricio,

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

Vamos a revisarlo, gracias :-)

by **mantonio_08** » Tue Dec 29, 2009 7:14 pm

MASTER ANTONIO,, SOBRE ESTE TEMA.. ALGO

ATTE.

by **Antonio Linares** » Wed Dec 30, 2009 3:16 am

Mantonio,

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

by **Antonio Linares** » 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. )

by **Patricio Avalos Aguirre** » Mon Jan 04, 2010 3:35 pm

Excelente

muchas gracias master.-..

by **Patricio Avalos Aguirre** » Mon Jan 04, 2010 4:34 pm

Antonio

Ahora falla esta parte..

by **Antonio Linares** » Mon Jan 04, 2010 6:08 pm

Patricio,

Este código lo arregla :-)

by **Patricio Avalos Aguirre** » 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

by **Patricio Avalos Aguirre** » 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. )

by **Antonio Linares** » 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

by **Antonio Linares** » 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