Problema con Rbbtn

[horacio]

He estado mirando estos botones y me he dado cuenta que cuando poseen un menu y se ejecuta sobre un dialogo, este no se puede cerrar. No sé si es el S.O. que es de 64 bits o también se dá en el de 32. El ejemplo donde se produce este error es testrbtn.prg y ribbon.prg cuando muestra estos botones en un dialogo. Hay que desplegar el menú para que este error se haga visible. Alguna Idea. Muchas gracias

[Patricio Avalos Aguirre]

Hola

para salir del paso busca en la clase TRBTN if oWnd:oPopup == nil y comenta el else

Code: Select all  Expand view

                       if oWnd:oPopup == nil
                           oWnd:oPopup = ::oPopup
                           ::oPopup:Activate( ::nTop + ::nHeight(), ::nLeft, oWnd, .F. )
                        //else
                           oWnd:oPopup = nil  
                        endif    
 

ahora habria que ver en que puede afectar, yo no utilizo ribbon, solo los botones y no he tenido problemas

[horacio]

Gracias Patricio, pruebo y te comento.

Saludos

[RenOmaS]

Creo que mejor queda asi.

Code: Select all  Expand view

                      if oWnd:oPopup == nil
                           oWnd:oPopup = ::oPopup
                           ::oPopup:Activate( ::nTop + ::nHeight(), ::nLeft, oWnd, .F. )
                           If oWnd:ClassName() == 'TDIALOG'                  
                               oWnd:oPopup := Nil
                           EndIf
                      else
                           oWnd:oPopup = nil  
                      endif    
 

[horacio]

Muchas gracias por tu respuesta. Probaré el código.

Saludos

[Patricio Avalos Aguirre]

Renomas:

Creo que es la mejor solución