Ayuda con Menu

[macrosys]

/*
* Proyecto: WVENTAS
* Fichero: Form1.prg
* Descripción:
* Autor:
* Fecha: 21/05/2006
*/
#include "Xailer.ch"
#include "Module1.ch"
CLASS TForm1 FROM TForm
COMPONENT oStatusBar1
COMPONENT oStatusBar1Panel1
METHOD CreateForm()
METHOD FormInitialize(oSender)
ENDCLASS
#include "Form1.xfm"
//---------------------------------------------------------- --------------------
METHOD FormInitialize( oSender ) CLASS TForm1
MENU ::oMenu
MENUITEM "&Archivo"
MENU
MENUITEM "&Abrir"
MENUITEM "&Configurar"
SEPARATOR
MENUITEM "&Salir" ACTION ::Close()
ENDMENU
ENDMENU
RETURN Nil
--

[macrosys]

/*
* Proyecto: WVENTAS
* Fichero: Form1.prg
* Descripción:
* Autor:
* Fecha: 21/05/2006
*/
#include "Xailer.ch"
#include "Module1.ch"
CLASS TForm1 FROM TForm
COMPONENT oStatusBar1
COMPONENT oStatusBar1Panel1
METHOD CreateForm()
METHOD FormInitialize(oSender)
ENDCLASS
#include "Form1.xfm"
//---------------------------------------------------------- --------------------
METHOD FormInitialize( oSender ) CLASS TForm1
LOCAL oMenu
MENU oMenu
MENUITEM "&Archivo"
MENU
MENUITEM "&Abrir"
MENUITEM "&Configurar"
SEPARATOR
MENUITEM "&Salir" ACTION ::Close()
ENDMENU
ENDMENU
::oMenu := oMenu
RETURN Nil
--

[ignacio]

Daniel,
La diferencia entre las dos versiones de su programa es que en el primero se
asigna el menú al formulario cuando este aún no ha sido realmente rellenado
con todos sus elementos, en cambio en la segunda versión si lo está.
Tenga en cuenta que realmente los menús son gestionados directamente por
Windows y la clase de Xailer TMenu lo único que hace es encapsular toda la
información y procesar los eventos provenientes del propio Menú estándar de
Windows. Por lo tanto si asigna el menú al formulario antes de haber creado
todos sus elementos el menú interno de Windows no lo reconoce. No obstante
este problema ya está solucionado en la actual verión sólo disponible para
usuarios
registrados.
En cuanto a la documentación de los comandos, tiene usted razón, se nos ha
olvidado. Intentaremos solucionarlo lo antes posible. Mientras tanto le
recomiendo
que eche un vistazo directamente a la definición del comando que suele ser
auto-
explicativo en el archivo: IncludeControls.ch
Un saludo,
"Daniel Du Pré" <macrosys@adinet.com.uy> escribió en el mensaje
news:[email=44a2ece5@news.xailer.com...]44a2ece5@news.xailer.com...[/email]
> Después que puse la pregunta vi una ayuda anterior en el foro y ahora si
> funciona, pero ¿podrían explicarme porque?, es que estoy haciendo mis
> primeras pruebas y como verán hay cosas muy simples (para muchos de
> ustedes) que no las entiendo.
>
> Adjunto el cambio que hice en mi form1.prg
>
> Muchas Gracias
> Daniel.
>
>
> Daniel Du Pré escribió:
>> Hola foro:
>>
>> Siguiendo con los consejos de José F. Gimenez en una nota anterior (ref.
>> #ifdef #define) copié y pegue el menú que viene en el ejemplo "visor",
>> pero creo que algo hice mal porque cuando ejecuto mi programa no aparece
>> el menú en el formulario.
>>
>> Les adjunto el .PRG para que puedan ver lo que hice.
>>
>> He buscado en la ayuda de Xailer documentación sobre el comando MENU tal
>> cual aparece en el ejemplo "visor" pero no encontré algo que me diga
>> como se usa y todas las opciones que tiene, ¿alguien sabe en que parte
>> de la ayuda está?
>>
>> Gracias
>> Daniel.
>>
>>
>> ------------------------------------------------------------ ------------
>>
>> /*
>> * Proyecto: WVENTAS
>> * Fichero: Form1.prg
>> * Descripción:
>> * Autor:
>> * Fecha: 21/05/2006
>> */
>>
>> #include "Xailer.ch"
>> #include "Module1.ch"
>>
>> CLASS TForm1 FROM TForm
>>
>> COMPONENT oStatusBar1
>> COMPONENT oStatusBar1Panel1
>>
>> METHOD CreateForm()
>> METHOD FormInitialize(oSender)
>> ENDCLASS
>>
>> #include "Form1.xfm"
>>
>> //---------------------------------------------------------- --------------------
>>
>> METHOD FormInitialize( oSender ) CLASS TForm1
>>
>> MENU ::oMenu
>> MENUITEM "&Archivo"
>> MENU
>> MENUITEM "&Abrir"
>> MENUITEM "&Configurar"
>> SEPARATOR
>> MENUITEM "&Salir" ACTION ::Close()
>> ENDMENU
>> ENDMENU
>> RETURN Nil
>
------------------------------------------------------------ --------------------
> /*
> * Proyecto: WVENTAS
> * Fichero: Form1.prg
> * Descripción:
> * Autor:
> * Fecha: 21/05/2006
> */
>
> #include "Xailer.ch"
> #include "Module1.ch"
>
> CLASS TForm1 FROM TForm
>
> COMPONENT oStatusBar1
> COMPONENT oStatusBar1Panel1
>
> METHOD CreateForm()
> METHOD FormInitialize(oSender)
> ENDCLASS
>
> #include "Form1.xfm"
>
> //---------------------------------------------------------- --------------------
>
> METHOD FormInitialize( oSender ) CLASS TForm1
> LOCAL oMenu
>
> MENU oMenu
> MENUITEM "&Archivo"
> MENU
> MENUITEM "&Abrir"
> MENUITEM "&Configurar"
> SEPARATOR
> MENUITEM "&Salir" ACTION ::Close()
> ENDMENU
> ENDMENU
> ::oMenu := oMenu
>
> RETURN Nil

[macrosys]

Ignacio:
Muchas gracias por la explicación, voy a seguir su consejo y mirar el
Controls.ch.
Una duda: ¿Los usuarios registrados son aquellos que han comprado alguna
versión de Xailer, o los que estamos registrados con la versión de
Demo?. En mi caso particular está previsto comprar Xailer, pero aún me
considero muy novato como para hacerlo y es por eso que estoy
aprendiendo con la PR7 de Demo.
Saludos
Daniel.
Ignacio Ortiz de Zúñiga escribió:
> Daniel,
>
> La diferencia entre las dos versiones de su programa es que en el primero se
> asigna el menú al formulario cuando este aún no ha sido realmente rellenado
> con todos sus elementos, en cambio en la segunda versión si lo está.
>
> Tenga en cuenta que realmente los menús son gestionados directamente por
> Windows y la clase de Xailer TMenu lo único que hace es encapsular toda la
> información y procesar los eventos provenientes del propio Menú estándar de
> Windows. Por lo tanto si asigna el menú al formulario antes de haber creado
> todos sus elementos el menú interno de Windows no lo reconoce. No obstante
> este problema ya está solucionado en la actual verión sólo disponible para
> usuarios
> registrados.
>
> En cuanto a la documentación de los comandos, tiene usted razón, se nos ha
> olvidado. Intentaremos solucionarlo lo antes posible. Mientras tanto le
> recomiendo
> que eche un vistazo directamente a la definición del comando que suele ser
> auto-
> explicativo en el archivo: IncludeControls.ch
>
> Un saludo,
>
> "Daniel Du Pré" <macrosys@adinet.com.uy> escribió en el mensaje
> news:[email=44a2ece5@news.xailer.com...]44a2ece5@news.xailer.com...[/email]
>> Después que puse la pregunta vi una ayuda anterior en el foro y ahora si
>> funciona, pero ¿podrí­an explicarme porque?, es que estoy haciendo mis
>> primeras pruebas y como verán hay cosas muy simples (para muchos de
>> ustedes) que no las entiendo.
>>
>> Adjunto el cambio que hice en mi form1.prg
>>
>> Muchas Gracias
>> Daniel.
>>
>>
>> Daniel Du Pré escribió:
>>> Hola foro:
>>>
>>> Siguiendo con los consejos de José F. Gimenez en una nota anterior (ref.
>>> #ifdef #define) copié y pegue el menú que viene en el ejemplo "visor",
>>> pero creo que algo hice mal porque cuando ejecuto mi programa no aparece
>>> el menú en el formulario.
>>>
>>> Les adjunto el .PRG para que puedan ver lo que hice.
>>>
>>> He buscado en la ayuda de Xailer documentación sobre el comando MENU tal
>>> cual aparece en el ejemplo "visor" pero no encontré algo que me diga
>>> como se usa y todas las opciones que tiene, ¿alguien sabe en que parte
>>> de la ayuda está?
>>>
>>> Gracias
>>> Daniel.
>>>
>>>
>>> ------------------------------------------------------------ ------------
>>>
>>> /*
>>> * Proyecto: WVENTAS
>>> * Fichero: Form1.prg
>>> * Descripción:
>>> * Autor:
>>> * Fecha: 21/05/2006
>>> */
>>>
>>> #include "Xailer.ch"
>>> #include "Module1.ch"
>>>
>>> CLASS TForm1 FROM TForm
>>>
>>> COMPONENT oStatusBar1
>>> COMPONENT oStatusBar1Panel1
>>>
>>> METHOD CreateForm()
>>> METHOD FormInitialize(oSender)
>>> ENDCLASS
>>>
>>> #include "Form1.xfm"
>>>
>>> //---------------------------------------------------------- --------------------
>>>
>>> METHOD FormInitialize( oSender ) CLASS TForm1
>>>
>>> MENU ::oMenu
>>> MENUITEM "&Archivo"
>>> MENU
>>> MENUITEM "&Abrir"
>>> MENUITEM "&Configurar"
>>> SEPARATOR
>>> MENUITEM "&Salir" ACTION ::Close()
>>> ENDMENU
>>> ENDMENU
>>> RETURN Nil
>
>
> ------------------------------------------------------------ --------------------
>
>
>> /*
>> * Proyecto: WVENTAS
>> * Fichero: Form1.prg
>> * Descripción:
>> * Autor:
>> * Fecha: 21/05/2006
>> */
>>
>> #include "Xailer.ch"
>> #include "Module1.ch"
>>
>> CLASS TForm1 FROM TForm
>>
>> COMPONENT oStatusBar1
>> COMPONENT oStatusBar1Panel1
>>
>> METHOD CreateForm()
>> METHOD FormInitialize(oSender)
>> ENDCLASS
>>
>> #include "Form1.xfm"
>>
>> //---------------------------------------------------------- --------------------
>>
>> METHOD FormInitialize( oSender ) CLASS TForm1
>> LOCAL oMenu
>>
>> MENU oMenu
>> MENUITEM "&Archivo"
>> MENU
>> MENUITEM "&Abrir"
>> MENUITEM "&Configurar"
>> SEPARATOR
>> MENUITEM "&Salir" ACTION ::Close()
>> ENDMENU
>> ENDMENU
>> ::oMenu := oMenu
>>
>> RETURN Nil
>
>
>

[ignacio]

Daniel,
Los usuarios registrados son aquellos que han comprado alguna versión de
Xailer.
Un saludo,
"Daniel Du Pré" <macrosys@adinet.com.uy> escribió en el mensaje
news:[email=44a40770@news.xailer.com...]44a40770@news.xailer.com...[/email]
> Ignacio:
> Muchas gracias por la explicación, voy a seguir su consejo y mirar el
> Controls.ch.
>
> Una duda: ¿Los usuarios registrados son aquellos que han comprado alguna
> versión de Xailer, o los que estamos registrados con la versión de Demo?.
> En mi caso particular está previsto comprar Xailer, pero aún me considero
> muy novato como para hacerlo y es por eso que estoy aprendiendo con la PR7
> de Demo.
>
> Saludos
> Daniel.
>
>
> Ignacio Ortiz de Zúñiga escribió:
>> Daniel,
>>
>> La diferencia entre las dos versiones de su programa es que en el primero
>> se
>> asigna el menú al formulario cuando este aún no ha sido realmente
>> rellenado
>> con todos sus elementos, en cambio en la segunda versión si lo está.
>>
>> Tenga en cuenta que realmente los menús son gestionados directamente por
>> Windows y la clase de Xailer TMenu lo único que hace es encapsular toda
>> la
>> información y procesar los eventos provenientes del propio Menú estándar
>> de
>> Windows. Por lo tanto si asigna el menú al formulario antes de haber
>> creado
>> todos sus elementos el menú interno de Windows no lo reconoce. No
>> obstante
>> este problema ya está solucionado en la actual verión sólo disponible
>> para usuarios
>> registrados.
>>
>> En cuanto a la documentación de los comandos, tiene usted razón, se nos
>> ha
>> olvidado. Intentaremos solucionarlo lo antes posible. Mientras tanto le
>> recomiendo
>> que eche un vistazo directamente a la definición del comando que suele
>> ser auto-
>> explicativo en el archivo: IncludeControls.ch
>>
>> Un saludo,
>>
>> "Daniel Du Pré" <macrosys@adinet.com.uy> escribió en el mensaje
>> news:[email=44a2ece5@news.xailer.com...]44a2ece5@news.xailer.com...[/email]
>>> Después que puse la pregunta vi una ayuda anterior en el foro y ahora si
>>> funciona, pero ¿podrían explicarme porque?, es que estoy haciendo mis
>>> primeras pruebas y como verán hay cosas muy simples (para muchos de
>>> ustedes) que no las entiendo.
>>>
>>> Adjunto el cambio que hice en mi form1.prg
>>>
>>> Muchas Gracias
>>> Daniel.
>>>
>>>
>>> Daniel Du Pré escribió:
>>>> Hola foro:
>>>>
>>>> Siguiendo con los consejos de José F. Gimenez en una nota anterior
>>>> (ref.
>>>> #ifdef #define) copié y pegue el menú que viene en el ejemplo "visor",
>>>> pero creo que algo hice mal porque cuando ejecuto mi programa no
>>>> aparece
>>>> el menú en el formulario.
>>>>
>>>> Les adjunto el .PRG para que puedan ver lo que hice.
>>>>
>>>> He buscado en la ayuda de Xailer documentación sobre el comando MENU
>>>> tal
>>>> cual aparece en el ejemplo "visor" pero no encontré algo que me diga
>>>> como se usa y todas las opciones que tiene, ¿alguien sabe en que parte
>>>> de la ayuda está?
>>>>
>>>> Gracias
>>>> Daniel.
>>>>
>>>>
>>>> ------------------------------------------------------------ ------------
>>>>
>>>> /*
>>>> * Proyecto: WVENTAS
>>>> * Fichero: Form1.prg
>>>> * Descripción:
>>>> * Autor:
>>>> * Fecha: 21/05/2006
>>>> */
>>>>
>>>> #include "Xailer.ch"
>>>> #include "Module1.ch"
>>>>
>>>> CLASS TForm1 FROM TForm
>>>>
>>>> COMPONENT oStatusBar1
>>>> COMPONENT oStatusBar1Panel1
>>>>
>>>> METHOD CreateForm()
>>>> METHOD FormInitialize(oSender)
>>>> ENDCLASS
>>>>
>>>> #include "Form1.xfm"
>>>>
>>>> //---------------------------------------------------------- --------------------
>>>>
>>>> METHOD FormInitialize( oSender ) CLASS TForm1
>>>>
>>>> MENU ::oMenu
>>>> MENUITEM "&Archivo"
>>>> MENU
>>>> MENUITEM "&Abrir"
>>>> MENUITEM "&Configurar"
>>>> SEPARATOR
>>>> MENUITEM "&Salir" ACTION ::Close()
>>>> ENDMENU
>>>> ENDMENU
>>>> RETURN Nil
>>
>>
>> ------------------------------------------------------------ --------------------
>>
>>
>>> /*
>>> * Proyecto: WVENTAS
>>> * Fichero: Form1.prg
>>> * Descripción:
>>> * Autor:
>>> * Fecha: 21/05/2006
>>> */
>>>
>>> #include "Xailer.ch"
>>> #include "Module1.ch"
>>>
>>> CLASS TForm1 FROM TForm
>>>
>>> COMPONENT oStatusBar1
>>> COMPONENT oStatusBar1Panel1
>>>
>>> METHOD CreateForm()
>>> METHOD FormInitialize(oSender)
>>> ENDCLASS
>>>
>>> #include "Form1.xfm"
>>>
>>> //---------------------------------------------------------- --------------------
>>>
>>> METHOD FormInitialize( oSender ) CLASS TForm1
>>> LOCAL oMenu
>>>
>>> MENU oMenu
>>> MENUITEM "&Archivo"
>>> MENU
>>> MENUITEM "&Abrir"
>>> MENUITEM "&Configurar"
>>> SEPARATOR
>>> MENUITEM "&Salir" ACTION ::Close()
>>> ENDMENU
>>> ENDMENU
>>> ::oMenu := oMenu
>>>
>>> RETURN Nil
>>
>>