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