Página 1 de 1

Recien Empiezo

Publicado: Mié Feb 08, 2006 10:22 pm
por tupr
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.

Recien Empiezo

Publicado: Mié Feb 08, 2006 10:30 pm
por tupr
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.
>