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.

Informaci

Foro público de Xailer en español
Responder
Guillermo Guevara Car
Mensajes: 176
Registrado: Sab Ene 19, 2008 5:52 pm

Informaci

Mensaje por Guillermo Guevara Car »

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
Arriba
Wilson-CPS
Mensajes: 120
Registrado: Vie Mar 14, 2008 1:14 am

Informaci

Mensaje por Wilson-CPS »

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
>
>
Arriba
Guillermo Guevara Car
Mensajes: 176
Registrado: Sab Ene 19, 2008 5:52 pm

Informaci

Mensaje por Guillermo Guevara Car »

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
>>
>>
Arriba
Responder

Volver a “Xailer Spanish”