Hola a todos,
Tengo una aplicación que consta de varios módulos y dependiendo del módulo seleccionado se cargan distintas opciones en el menú de la ventana principal de la aplicación.
Actualmente para cada menú tengo algo similar a esto:
WITH OBJECT ::oMenu1
:aItems := {}
:refresh()
WITH OBJECT :AddItem( "&Archivo" )
WITH OBJECT :AddMenu()
WITH OBJECT :AddItem( "Abrir" )
END
END
END
:SetMenu()
END
Pero por alguna razón cuando cierro y abro otros módulos aparece el nuevo menú pero se acumulan vacíos los menús anteriores y luego de abrir varios módulos la barra de menú empieza a crecer dándole un aspecto no muy agradable.
Intente borrar los menús con la opción DeleteMenu() pero no me funciono. Así como destruir el menú y crear uno nuevo pero no lo carga.
Si alguien ha hecho algo parecido o tiene una idea de como evitar lo anterior se lo agradecería enormemente.
Gracias .
In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Problema con menús
Problema con menús
Adjunto una imagen de como se ve el problema...
Si alguien tiene una idea, le agradezco.
Attached files
Si alguien tiene una idea, le agradezco.
Attached files
Problema con menús
Jorge,
en vez de esto:
> :aItems := {}
utiliza esto:
WHILE Len( :aItems ) > 0
:Delete( 1 )
ENDDO
esto sirve para eliminar todos los elementos de ese menú.
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info
en vez de esto:
> :aItems := {}
utiliza esto:
WHILE Len( :aItems ) > 0
:Delete( 1 )
ENDDO
esto sirve para eliminar todos los elementos de ese menú.
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info
Problema con menús
Muchas Gracias José.
Funciona Perfecto
Funciona Perfecto