Xailer & OZ Software

Saludos al foro:
Estoy tratando de visualizar en pantalla todas las opciones que capturé en
la propiedad aItems de TMenu, que básicamente son los menus y los submenus
de mi aplicación, cuando verifico la cantidad de componentes con la función:
Len(oMenu:aItems) solo me indica que son 7, que son las opciones principales
de mi menú, alguién me puede orientar que estoy haciendo mal, ó como le hago
para que me despliegue todo el árbol de opciones (menús y submenús).
Saludos
--
Ing. Guillermo Guevara Carrillo
Grupo Computación 2000
Nuevo Mundo Nº 2821-1
Jardines de la Cruz
Guadalajara, Jal. C.P. 44950
(33) 1075-8363 / 1078-8364
www.PvWin.com
soporte@PvWin.com

Ve se isto serviria
FUNCTION MenuStr( o, nTree )
Local cStr:=''
Local oitem
Default nTree to 1
For Each oItem in o:aItems
if !empty(oItem:cText)
cStr+=space(nTree)+OItem:cText+CRLF
if !Empty( oItem:oSubMenu )
cStr+=PegaArvore(oItem:oSubMenu, nTree+1 )
endif
Endif
Next
Return cStr
"Guillermo Guevara C." <soporte@PvWin.com> escreveu na notí­cia da
mensagem:[email=47db10f0@ozsrv2.ozlan.local...]47db10f0@ozsrv2.ozlan.local...[/email]
> Saludos al foro:
>
> Estoy tratando de visualizar en pantalla todas las opciones que capturé en
> la propiedad aItems de TMenu, que básicamente son los menus y los submenus
> de mi aplicación, cuando verifico la cantidad de componentes con la
> función: Len(oMenu:aItems) solo me indica que son 7, que son las opciones
> principales de mi menú, alguién me puede orientar que estoy haciendo mal,
> ó como le hago para que me despliegue todo el árbol de opciones (menús y
> submenús).
>
> Saludos
> --
> Ing. Guillermo Guevara Carrillo
> Grupo Computación 2000
> Nuevo Mundo Nº 2821-1
> Jardines de la Cruz
> Guadalajara, Jal. C.P. 44950
> (33) 1075-8363 / 1078-8364
> www.PvWin.com
> soporte@PvWin.com
>
>

Wilson:
No viene documentada la función PegaArvore(oItem:oSubMenu, nTree+1 )
--
Ing. Guillermo Guevara Carrillo
Grupo Computación 2000
Nuevo Mundo Nº 2821-1
Jardines de la Cruz
Guadalajara, Jal. C.P. 44950
(33) 1075-8363 / 1078-8364
www.PvWin.com
soporte@PvWin.com
"Wilson-CPS" <wilson@casteloporto.com.br> escribió en el mensaje
news:[email=47dc2123@ozsrv2.ozlan.local...]47dc2123@ozsrv2.ozlan.local...[/email]
> Ve se isto serviria
>
> FUNCTION MenuStr( o, nTree )
> Local cStr:=''
> Local oitem
>
> Default nTree to 1
>
> For Each oItem in o:aItems
>
> if !empty(oItem:cText)
> cStr+=space(nTree)+OItem:cText+CRLF
> if !Empty( oItem:oSubMenu )
> cStr+=PegaArvore(oItem:oSubMenu, nTree+1 )
> endif
> Endif
>
> Next
> Return cStr
>
> "Guillermo Guevara C." <soporte@PvWin.com> escreveu na notícia da
> mensagem:[email=47db10f0@ozsrv2.ozlan.local...]47db10f0@ozsrv2.ozlan.local...[/email]
>> Saludos al foro:
>>
>> Estoy tratando de visualizar en pantalla todas las opciones que capturé
>> en la propiedad aItems de TMenu, que básicamente son los menus y los
>> submenus de mi aplicación, cuando verifico la cantidad de componentes con
>> la función: Len(oMenu:aItems) solo me indica que son 7, que son las
>> opciones principales de mi menú, alguién me puede orientar que estoy
>> haciendo mal, ó como le hago para que me despliegue todo el árbol de
>> opciones (menús y submenús).
>>
>> Saludos
>> --
>> Ing. Guillermo Guevara Carrillo
>> Grupo Computación 2000
>> Nuevo Mundo Nº 2821-1
>> Jardines de la Cruz
>> Guadalajara, Jal. C.P. 44950
>> (33) 1075-8363 / 1078-8364
>> www.PvWin.com
>> soporte@PvWin.com
>>
>>