topic-23857

Posts: 1364

Joined: Wed Jun 21, 2006 12:39 AM

Problema con Rbbtn
Posted: Tue Apr 10, 2012 11:13 PM

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

Posts: 1074

Joined: Fri Oct 07, 2005 01:56 PM

Re: Problema con Rbbtn
Posted: Wed Apr 11, 2012 03:15 PM

Hola

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

Code (fw): Select all Collapse

                        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

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

horacio

Posts: 1364

Joined: Wed Jun 21, 2006 12:39 AM

Re: Problema con Rbbtn
Posted: Wed Apr 11, 2012 07:12 PM

Gracias Patricio, pruebo y te comento.

Saludos

RenOmaS

Posts: 205

Joined: Fri Oct 07, 2005 05:07 PM

Re: Problema con Rbbtn
Posted: Wed Apr 11, 2012 07:27 PM

Creo que mejor queda asi.

Code (fw): Select all Collapse

                      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

Saludos/regards

RenOmaS

skype: americo.balboa

horacio

Posts: 1364

Joined: Wed Jun 21, 2006 12:39 AM

Re: Problema con Rbbtn
Posted: Wed Apr 11, 2012 09:06 PM

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

Saludos

Patricio Avalos Aguirre

Posts: 1074

Joined: Fri Oct 07, 2005 01:56 PM

Re: Problema con Rbbtn
Posted: Wed Apr 11, 2012 09:28 PM

Renomas:

Creo que es la mejor solución :-)

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

FiveTech Support Forums

Continue the discussion