FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Problemas con menues ( Solucionado )
horacio
Posts: 1364
Joined: Wed Jun 21, 2006 12:39 AM
Problemas con menues ( Solucionado )
Posted: Wed Feb 01, 2017 03:17 PM
Colegas, tengo una tabla y una ribbonbar. En uno de sus botones tengo un men煤 que hace de switch entre datos de esa misma tabla. Adjunto imagen.



Una vez que cambio los datos, cambio tambi茅n el action y el prompt del men煤, al pulsarlo nuevamente se ve de esta manera.



Alguna pista ? Much铆simas gracias

Saludos
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Problemas con menues
Posted: Wed Feb 01, 2017 07:31 PM

Qu茅 version de Fw tienes?
Dime c贸mo lo est谩s haciendo

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
horacio
Posts: 1364
Joined: Wed Jun 21, 2006 12:39 AM
Re: Problemas con menues
Posted: Wed Feb 01, 2017 08:04 PM
Gracias Cristobal por responder. Estoy compilando con FWH 17.01 ( BUILD 2 ), Harbour 3.2 y Bcc7. Compilando con la versi贸o 16.12 no sucede.

As铆 defino el men煤

Code (fw): Select all Collapse
//----------------------------------------------------------------------------//
Function PopupNoMat()

聽 聽Local oMenu
聽 聽Local oMnu := Array( 2, 0 )

聽 聽Menu oMenu PopUp _2010
聽 聽 聽 聽 MenuItem oMnu[ 1 ] Prompt '&Tabla de hist贸ricos' Action If( !lHistorico, IrTablaHistoricos( oMnu ), IrTablaAlumnos( oMnu ) )
聽 聽 聽 聽 MenuItem oMnu[ 2 ] Prompt '&Enviar a hist贸ricos' Action If( !lHistorico, EnviaAHistoricos(), EnviaAAlumnos() )
聽 聽EndMenu
聽 聽Return oMenu


Aqui cambio el prompt del men煤

Code (fw): Select all Collapse
//----------------------------------------------------------------------------//
Function IrTablaAlumnos( oMnu )

聽 聽 lHistorico := .f.
聽 聽 oMnu[ 1 ] : SetText( '&Tabla de hist贸ricos' )
聽 聽 oMnu[ 2 ] : SetText( '&Enviar a hist贸ricos' )
聽 聽 oQry : SetFilter( '' )
聽 聽 oQry : SetFilter( 'es_historico == 0' )
聽 聽 oBrw : GoTop()
聽 聽 oBrw : Refresh()
聽 聽 oBrw : SetFocus()
聽 聽 oWnd : SetText( 'Tabla Alumnos' )
聽 聽 Return 0聽 聽 

//----------------------------------------------------------------------------//
Function IrTablaHistoricos( oMnu )

聽 聽 lHistorico := .t.
聽 聽 oMnu[ 1 ] : SetText( '&Tabla alumnos' )
聽 聽 oMnu[ 2 ] : SetText( '&Enviar a padron actual' )
聽 聽 oQry : SetFilter( '' )
聽 聽 oQry : SetFilter( 'es_historico == 1' )
聽 聽 oBrw : GoTop()
聽 聽 oBrw : Refresh()
聽 聽 oBrw : SetFocus()
聽 聽 oWnd : SetText( 'Tabla Hist贸ricos' )
聽 聽 Return 0


Saludos
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Problemas con menues
Posted: Wed Feb 01, 2017 08:13 PM
Intenta asi

Code (fw): Select all Collapse
oMnu[ 01 ]:SetChangePrompt( "Nuevo Item" )


viewtopic.php?f=3&t=33528#p197792
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
horacio
Posts: 1364
Joined: Wed Jun 21, 2006 12:39 AM
Re: Problemas con menues
Posted: Wed Feb 01, 2017 08:29 PM
Crisstobal, me tira este error

Code (fw): Select all Collapse
   Error description: Error BASE/1004  No existe el m鈥歵odo: HWND
   Args:
     [   1] = U   

Stack Calls
===========
   Called from:  => HWND( 0 )
   Called from: .\source\classes\MENUITEM.PRG => TMENUITEM:SETCHANGEPROMPT( 805 )
   Called from: C:\t-rex_sql\alumnos.prg => IRTABLAHISTORICOS( 309 )
   Called from: C:\t-rex_sql\alumnos.prg => (b)POPUPNOMAT( 286 )
   Called from: .\source\classes\MENU.PRG => TMENU:ACTIVATE( 1270 )
   Called from: .\source\classes\TRBTN.PRG => TRBTN:LBUTTONUP( 883 )
   Called from: .\source\classes\TRBTN.PRG => TRBTN:LBUTTONDOWN( 799 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1718 )
   Called from: .\source\classes\TRBTN.PRG => TRBTN:HANDLEEVENT( 1575 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3325 )
   Called from:  => WINRUN( 0 )
   Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE( 1036 )
   Called from: C:\t-rex_sql\main.prg => START( 104 )
   Called from: C:\t-rex_sql\main.prg => MAIN( 12 )

Saludos
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Problemas con menues
Posted: Wed Feb 01, 2017 08:31 PM
Bien, es un menu POPUP?
Ponme la definicion del menu? ( la primera linea )

Qu茅 raro porque la linea 805 est谩 dentro de un bloque de lineas comentadas

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
horacio
Posts: 1364
Joined: Wed Jun 21, 2006 12:39 AM
Re: Problemas con menues
Posted: Wed Feb 01, 2017 08:37 PM

La definici贸n del men煤 se encuentra en el primer post

Saludos

cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Problemas con menues
Posted: Wed Feb 01, 2017 08:43 PM

Tienes razon, no me habia fijado bien

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
horacio
Posts: 1364
Joined: Wed Jun 21, 2006 12:39 AM
Re: Problemas con menues
Posted: Wed Feb 01, 2017 08:49 PM

La linea 805 en mi fuente es la 811 en tu muestra

Saludos

cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Problemas con menues
Posted: Wed Feb 01, 2017 08:50 PM
Ok, voy a hacer unas pruebas y te comento

Hazme el favor de probar asi, para saber qu茅 puede estar pasando

Code (fw): Select all Collapse
Menu oMenu PopUp _2010 OF oWnd 聽 // a帽ade de momento OF <ventana>


o en el ACTIVATE POPUP .... OF oWnd

y dime
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Problemas con menues
Posted: Wed Feb 01, 2017 10:03 PM
De todas formas, al margen de depurar el posible error que esa instrucci贸n puede generar, podr铆as probar algo asi:

Code (fw): Select all Collapse
   Menu oMenu PopUp _2010
        MenuItem oMnu[ 1 ] Prompt { || if( !lHistorico, '&Tabla alumnos', '&Tabla de hist贸ricos' }  Action If( !lHistorico, IrTablaHistoricos( oMnu ), IrTablaAlumnos( oMnu ) )
        MenuItem oMnu[ 2 ] Prompt { || if( !lHistorico, '&Enviar a padron actual', '&Enviar a hist贸ricos'  }  Action If( !lHistorico, EnviaAHistoricos(), EnviaAAlumnos() )
   EndMenu
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
horacio
Posts: 1364
Joined: Wed Jun 21, 2006 12:39 AM
Re: Problemas con menues
Posted: Wed Feb 01, 2017 11:33 PM

Cristobal, referenciando la ventana funciona. Muchas Gracias

Saludos

cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Problemas con menues (Solucionado)
Posted: Thu Feb 02, 2017 12:09 AM

Ok, pero dime si es correcto
- Tienes una ventana con una ribbonbar y debajo un browse, cierto?, o es un di谩logo?
- Si es una ventana, es mdichild?

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
horacio
Posts: 1364
Joined: Wed Jun 21, 2006 12:39 AM
Re: Problemas con menues (Solucionado)
Posted: Thu Feb 02, 2017 12:58 AM

Cristobal, es una ventana MDICHILD con una ribbonbar y un xbrowse.

Saludos

horacio
Posts: 1364
Joined: Wed Jun 21, 2006 12:39 AM
Re: Problemas con menues
Posted: Thu Feb 02, 2017 08:43 PM
Vuelvo sobre este tema. Si bien se solucion贸 el men煤 popup no me percate que el men煤 de la ventana desaparece. Adjunto imagen.



Cuando referencio la ventana en el Men煤 Popup el men煤 de la ventana desaparece



Saludos
Static archive 路 New replies & topics via GitHub Discussions