Estimados
en el ejemplo ribbon al maximizar pierde la posición del menu popup
::oPopup:Activate( ::nTop + ::nHeight(), ::nLeft - oWnd:nLeft, oWnd, .f. )
@ 10, 75 ADD BUTTON oBtn19 GROUP oGr2 BITMAP "..\bitmaps\multilevellist16.bmp" GROUPBUTTON END SIZE 35, 20 ROUND POPUP MENU oMenu
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. )
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
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
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Google [Bot] and 51 guests