Hola, estoy empezando con Xailer y he estoy viendo los ejemplos que trae
Ahora tengo este codigo, pero no aparecen los menus... que estoy haciendo
mal?
include "Xailer.ch"
CLASS TForm1 FROM TForm
COMPONENT oStatusBar1
COMPONENT oMenu1
METHOD CreateForm()
METHOD FormInitialize( oSender )
ENDCLASS
#include "Form1.xfm"
//---------------------------------------------------------- --------------------
METHOD FormInitialize( oSender ) CLASS TForm1
MENU ::oMenu1
MENUITEM "&File"
MENU
MENUITEM "&Append"
MENUITEM "&Edit"
MENUITEM "&Delete"
SEPARATOR
MENUITEM "&Exit"
ENDMENU
MENUITEM "&Help"
ENDMENU
RETURN Nil
Saludos
Marco A. Delgado.
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.
Recien Empiezo
Recien Empiezo
ups..
disculpen me hace falta estudiar bien el manual.....
Gracias
Saludos.
Marco A. Delgado
"Marco A. Delgado" <tupr@yahoo.com.mx> escribió en el mensaje
news:[email=43ea6128@ozsrvnegro.ozlan.local...]43ea6128@ozsrvnegro.ozlan.local...[/email]
> Hola, estoy empezando con Xailer y he estoy viendo los ejemplos que trae
>
> Ahora tengo este codigo, pero no aparecen los menus... que estoy haciendo
> mal?
>
> include "Xailer.ch"
>
> CLASS TForm1 FROM TForm
>
> COMPONENT oStatusBar1
> COMPONENT oMenu1
>
>
> METHOD CreateForm()
> METHOD FormInitialize( oSender )
>
> ENDCLASS
>
> #include "Form1.xfm"
>
> //---------------------------------------------------------- --------------------
> METHOD FormInitialize( oSender ) CLASS TForm1
>
> MENU ::oMenu1
> MENUITEM "&File"
> MENU
> MENUITEM "&Append"
> MENUITEM "&Edit"
> MENUITEM "&Delete"
> SEPARATOR
> MENUITEM "&Exit"
> ENDMENU
> MENUITEM "&Help"
> ENDMENU
>
> RETURN Nil
>
>
> Saludos
>
> Marco A. Delgado.
>
disculpen me hace falta estudiar bien el manual.....
Gracias
Saludos.
Marco A. Delgado
"Marco A. Delgado" <tupr@yahoo.com.mx> escribió en el mensaje
news:[email=43ea6128@ozsrvnegro.ozlan.local...]43ea6128@ozsrvnegro.ozlan.local...[/email]
> Hola, estoy empezando con Xailer y he estoy viendo los ejemplos que trae
>
> Ahora tengo este codigo, pero no aparecen los menus... que estoy haciendo
> mal?
>
> include "Xailer.ch"
>
> CLASS TForm1 FROM TForm
>
> COMPONENT oStatusBar1
> COMPONENT oMenu1
>
>
> METHOD CreateForm()
> METHOD FormInitialize( oSender )
>
> ENDCLASS
>
> #include "Form1.xfm"
>
> //---------------------------------------------------------- --------------------
> METHOD FormInitialize( oSender ) CLASS TForm1
>
> MENU ::oMenu1
> MENUITEM "&File"
> MENU
> MENUITEM "&Append"
> MENUITEM "&Edit"
> MENUITEM "&Delete"
> SEPARATOR
> MENUITEM "&Exit"
> ENDMENU
> MENUITEM "&Help"
> ENDMENU
>
> RETURN Nil
>
>
> Saludos
>
> Marco A. Delgado.
>