FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour ejemplo ribbon
Patricio Avalos Aguirre
Posts: 1074
Joined: Fri Oct 07, 2005 01:56 PM
ejemplo ribbon
Posted: Mon Dec 14, 2009 04:25 PM
Estimados

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

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
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: ejemplo ribbon
Posted: Mon Dec 14, 2009 07:49 PM

Patricio,

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

Vamos a revisarlo, gracias :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com
mantonio_08
Posts: 330
Joined: Fri May 25, 2007 09:06 PM
Re: ejemplo ribbon
Posted: Tue Dec 29, 2009 07:14 PM

MASTER ANTONIO,, SOBRE ESTE TEMA.. ALGO

ATTE.

Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: ejemplo ribbon
Posted: Wed Dec 30, 2009 03:16 AM

Mantonio,

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

regards, saludos

Antonio Linares
www.fivetechsoft.com
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: ejemplo ribbon
Posted: Thu Dec 31, 2009 07:44 PM
Solucionado :-)

Este cambio es necesario en la Clase TRBtn en 3 sitios en donde se hace la misma llamada:
Code (fw): Select all Collapse
      ::oPopup:Activate( ::nTop + ::nHeight(), ::nLeft - oWnd:nLeft, oWnd, .f. )
regards, saludos

Antonio Linares
www.fivetechsoft.com
Patricio Avalos Aguirre
Posts: 1074
Joined: Fri Oct 07, 2005 01:56 PM
Re: ejemplo ribbon
Posted: Mon Jan 04, 2010 03:35 PM

Excelente

muchas gracias master.-..

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
Patricio Avalos Aguirre
Posts: 1074
Joined: Fri Oct 07, 2005 01:56 PM
Re: ejemplo ribbon
Posted: Mon Jan 04, 2010 04:34 PM
Antonio

Ahora falla esta parte..

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
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: ejemplo ribbon
Posted: Mon Jan 04, 2010 06:08 PM

Patricio,

Este c贸digo lo arregla :-)

viewtopic.php?p=92718#p92718

regards, saludos

Antonio Linares
www.fivetechsoft.com
Patricio Avalos Aguirre
Posts: 1074
Joined: Fri Oct 07, 2005 01:56 PM
Re: ejemplo ribbon
Posted: Mon Jan 04, 2010 08:14 PM
Antonio

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

coloca en el oBtn19 MENU oMenu

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



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
Patricio Avalos Aguirre
Posts: 1074
Joined: Fri Oct 07, 2005 01:56 PM
Re: ejemplo ribbon
Posted: Mon Jan 04, 2010 08:33 PM
solucionado

Code (fw): Select all Collapse
 聽 聽 聽 聽 聽 聽 聽 聽 聽case ::nTypeButton == TYPE_POPUP
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽if nCol >= ::nPopupMargin .or. !lAction
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 oWnd := ::oWnd
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 oWnd:NcMouseMove() // close the tooltip
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 oWnd:oPopup = ::oPopup
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 //::Activate( ::nTop + ::nHeight(), ::nLeft, oWnd, .f. )
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 //::Activate( ::nTop + ::nHeight(), ::nLeft - oWnd:nLeft, oWnd, .f. )
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 ::oPopup:Activate( ::nTop + ::nHeight() + ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽If( GetClassName( GetParent( GetParent( ::hWnd ) ) ) != "TRPANEL",;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽oWnd:nHeight(), 0 ), ::nLeft, oWnd, .F. )
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
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: ejemplo ribbon
Posted: Mon Jan 04, 2010 09: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 (fw): Select all Collapse
聽 聽 聽 聽 聽 聽 聽 聽 聽 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
regards, saludos

Antonio Linares
www.fivetechsoft.com
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: ejemplo ribbon
Posted: Mon Jan 04, 2010 09:46 PM
Patricio,

Aun hace falta un cambio m谩s:
Code (fw): Select all Collapse
                  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
regards, saludos

Antonio Linares
www.fivetechsoft.com

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions