Curioso Menú

[Bingen Ugaldebere]

Seguro que algo estoy haciendo mal, resulta que redacto un menú en
código y en vez de salir las opciones principales (Primero, Segundo,
Tercero, etc...) una a la derecha de otra me sale una encima de otra
pero funcionar funciona.
La idea es llegar a crear un menú desde un DBF por eso no quiero usar el
editor para el menú.
Muchas gracias.
WITH OBJECT ::oMenu := TMenu():New( Self )
:Create()
WITH OBJECT :AddItem( "&Primero" )
WITH OBJECT :AddMenu()
:AddItem( "&Uno" )
:AddItem( "&Dos" )
:AddSeparator()
:AddItem( "&Tres" )
END
END
WITH OBJECT :AddItem( "&Segundo" )
WITH OBJECT :AddMenu()
:AddItem( "&Cuatro" )
:AddItem( "&Cinco" )
:AddSeparator()
:AddItem( "&Seis" )
END
END
WITH OBJECT :AddItem( "&Tercero" )
WITH OBJECT :AddMenu()
:AddItem( "&Siete" )
END
END
WITH OBJECT :AddItem( "&Cuatro" )
WITH OBJECT :AddMenu()
:AddItem( "&Ocho" )
:AddItem( "&Nueve" )
END
END
:SetMenu()
END

[jfgimenez]

Bingen,
> WITH OBJECT ::oMenu := TMenu():New( Self )
Con los últimos cambios ha aparecido un pequeño bug. Simplemente cambia el
nombre del componente, en vez de usar ::oMenu utiliza p.ej. ::oMenu1
(declarándolo previamente en la clase).
--
Un saludo,
José F. Giménez

[joseluis]

Bingen,
Manda un proyecto para ver que puede ser.
Saludos,
José Luis Capel
bingen escribió:
> Lo siento
>
> He probado con ::oMenu1 o con ::oMainMenu y tampoco, me sale igual así­
> que será otra cosa.
>
> Sigo investigando.
>
> Salu2.

[Bingen Ugaldebere]

Lo siento
He probado con ::oMenu1 o con ::oMainMenu y tampoco, me sale igual así­
que será otra cosa.
Sigo investigando.
Salu2.

[Bingen Ugaldebere]

No hace falta al final tampoco me servia para lo que querí­a ya lo he
hecho de otra manera.
Muchas gracias por vuestro interés.