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.

sigo en lo mismo

Foro público de Xailer en español
Responder
tupr
Mensajes: 7
Registrado: Jue Feb 02, 2006 5:40 pm

sigo en lo mismo

Mensaje por tupr »

Hola
Recien empiezo con Xailer, pero no puedo hacerlo funcionar alguien me
podria ayudar.
Saludos
Marco A. Delgado
post....el ejemplo .. no hay menu ni rebar
#include "Xailer.ch"
CLASS TFormInicio FROM TForm
COMPONENT oMenu
COMPONENT oReBar1
DATA oToolBar, oRebarBand
METHOD CreateForm()
METHOD FormInitialize( oSender )
ENDCLASS
#include "FrmIncio.xfm"
//---------------------------------------------------------- --------------------
METHOD FormInitialize( oSender ) CLASS TFormInicio
MENU ::oMenu
MENUITEM "&Archivos"
MENU
MENUITEM "&Abrir"
MENUITEM "&Configurar"
SEPARATOR
MENUITEM "&Salir"
ENDMENU
ENDMENU
WITH OBJECT ::oToolBar := TToolBar():New( ::oRebar1 )
:lList := .t.
:lAutoSize := .t.
:Create()
:AddButton( "", "Bmp_Salir",,, "Salir del sistema", {||
MsgInfo("Hola") } )
:AddSeparator()
:AddButton( "", "Bmp_Config",,, "Configuración del Sistema", {||
MsgInfo("Hola") } )
:AddButton( "", "Bmp_About",,, "Acerca de...", {||
MsgInfo("Hola") } )
END
WITH OBJECT ::oRebarBand := TRebarBand():New( ::oRebar1 )
:oControl := ::oToolBar
:Create()
END
RETURN Nil
Arriba
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9463
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:
Contactar ignacio

sigo en lo mismo

Mensaje por ignacio »

Marco,
Por que no empieza por alguno de los ejemplos que incluye el producto, como
por ejemplo samplesDataControlsDbfData2
Saludos,
"Marco A. Delgado" <tupr@yahoo.com.mx> escribió en el mensaje
news:[email=43eb7b17@ozsrvnegro.ozlan.local...]43eb7b17@ozsrvnegro.ozlan.local...[/email]
> Hola
>
> Recien empiezo con Xailer, pero no puedo hacerlo funcionar alguien me
> podria ayudar.
>
> Saludos
>
> Marco A. Delgado
>
> post....el ejemplo .. no hay menu ni rebar
>
> #include "Xailer.ch"
>
> CLASS TFormInicio FROM TForm
>
> COMPONENT oMenu
> COMPONENT oReBar1
>
> DATA oToolBar, oRebarBand
>
> METHOD CreateForm()
> METHOD FormInitialize( oSender )
>
> ENDCLASS
>
> #include "FrmIncio.xfm"
>
> //---------------------------------------------------------- --------------------
>
> METHOD FormInitialize( oSender ) CLASS TFormInicio
>
> MENU ::oMenu
> MENUITEM "&Archivos"
> MENU
> MENUITEM "&Abrir"
> MENUITEM "&Configurar"
> SEPARATOR
> MENUITEM "&Salir"
> ENDMENU
> ENDMENU
>
> WITH OBJECT ::oToolBar := TToolBar():New( ::oRebar1 )
> :lList := .t.
> :lAutoSize := .t.
> :Create()
> :AddButton( "", "Bmp_Salir",,, "Salir del sistema", {||
> MsgInfo("Hola") } )
> :AddSeparator()
> :AddButton( "", "Bmp_Config",,, "Configuración del Sistema", {||
> MsgInfo("Hola") } )
> :AddButton( "", "Bmp_About",,, "Acerca de...", {||
> MsgInfo("Hola") } )
> END
>
> WITH OBJECT ::oRebarBand := TRebarBand():New( ::oRebar1 )
> :oControl := ::oToolBar
> :Create()
> END
>
> RETURN Nil
>
>
Ignacio Ortiz de Zúñiga
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Arriba
tupr
Mensajes: 7
Registrado: Jue Feb 02, 2006 5:40 pm

sigo en lo mismo

Mensaje por tupr »

Hola Ignacio
Precisamente desde ahi estoy empezando, estoy tomando varias partes de
codigo de las mismos ejemplos..
Saludos
Marco A. Delgado.
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
news:43eb7e13$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Marco,
>
> Por que no empieza por alguno de los ejemplos que incluye el producto,
> como por ejemplo samplesDataControlsDbfData2
>
> Saludos,
>
>
> "Marco A. Delgado" <tupr@yahoo.com.mx> escribió en el mensaje
> news:[email=43eb7b17@ozsrvnegro.ozlan.local...]43eb7b17@ozsrvnegro.ozlan.local...[/email]
>> Hola
>>
>> Recien empiezo con Xailer, pero no puedo hacerlo funcionar alguien me
>> podria ayudar.
>>
>> Saludos
>>
>> Marco A. Delgado
>>
>> post....el ejemplo .. no hay menu ni rebar
>>
>> #include "Xailer.ch"
>>
>> CLASS TFormInicio FROM TForm
>>
>> COMPONENT oMenu
>> COMPONENT oReBar1
>>
>> DATA oToolBar, oRebarBand
>>
>> METHOD CreateForm()
>> METHOD FormInitialize( oSender )
>>
>> ENDCLASS
>>
>> #include "FrmIncio.xfm"
>>
>> //---------------------------------------------------------- --------------------
>>
>> METHOD FormInitialize( oSender ) CLASS TFormInicio
>>
>> MENU ::oMenu
>> MENUITEM "&Archivos"
>> MENU
>> MENUITEM "&Abrir"
>> MENUITEM "&Configurar"
>> SEPARATOR
>> MENUITEM "&Salir"
>> ENDMENU
>> ENDMENU
>>
>> WITH OBJECT ::oToolBar := TToolBar():New( ::oRebar1 )
>> :lList := .t.
>> :lAutoSize := .t.
>> :Create()
>> :AddButton( "", "Bmp_Salir",,, "Salir del sistema", {||
>> MsgInfo("Hola") } )
>> :AddSeparator()
>> :AddButton( "", "Bmp_Config",,, "Configuración del Sistema", {||
>> MsgInfo("Hola") } )
>> :AddButton( "", "Bmp_About",,, "Acerca de...", {||
>> MsgInfo("Hola") } )
>> END
>>
>> WITH OBJECT ::oRebarBand := TRebarBand():New( ::oRebar1 )
>> :oControl := ::oToolBar
>> :Create()
>> END
>>
>> RETURN Nil
>>
>>
>
>
Arriba
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9463
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:
Contactar ignacio

sigo en lo mismo

Mensaje por ignacio »

Marco,
Pues entonces mandanos tu proyecto con la opción de menú Proyecto-Publicar.
Un saludo,
"Marco A. Delgado" <tupr@yahoo.com.mx> escribió en el mensaje
news:[email=43ebc974@ozsrvnegro.ozlan.local...]43ebc974@ozsrvnegro.ozlan.local...[/email]
> Hola Ignacio
>
> Precisamente desde ahi estoy empezando, estoy tomando varias partes de
> codigo de las mismos ejemplos..
>
> Saludos
>
> Marco A. Delgado.
>
>
> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
> news:43eb7e13$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>> Marco,
>>
>> Por que no empieza por alguno de los ejemplos que incluye el producto,
>> como por ejemplo samplesDataControlsDbfData2
>>
>> Saludos,
>>
>>
>> "Marco A. Delgado" <tupr@yahoo.com.mx> escribió en el mensaje
>> news:[email=43eb7b17@ozsrvnegro.ozlan.local...]43eb7b17@ozsrvnegro.ozlan.local...[/email]
>>> Hola
>>>
>>> Recien empiezo con Xailer, pero no puedo hacerlo funcionar alguien me
>>> podria ayudar.
>>>
>>> Saludos
>>>
>>> Marco A. Delgado
>>>
>>> post....el ejemplo .. no hay menu ni rebar
>>>
>>> #include "Xailer.ch"
>>>
>>> CLASS TFormInicio FROM TForm
>>>
>>> COMPONENT oMenu
>>> COMPONENT oReBar1
>>>
>>> DATA oToolBar, oRebarBand
>>>
>>> METHOD CreateForm()
>>> METHOD FormInitialize( oSender )
>>>
>>> ENDCLASS
>>>
>>> #include "FrmIncio.xfm"
>>>
>>> //---------------------------------------------------------- --------------------
>>>
>>> METHOD FormInitialize( oSender ) CLASS TFormInicio
>>>
>>> MENU ::oMenu
>>> MENUITEM "&Archivos"
>>> MENU
>>> MENUITEM "&Abrir"
>>> MENUITEM "&Configurar"
>>> SEPARATOR
>>> MENUITEM "&Salir"
>>> ENDMENU
>>> ENDMENU
>>>
>>> WITH OBJECT ::oToolBar := TToolBar():New( ::oRebar1 )
>>> :lList := .t.
>>> :lAutoSize := .t.
>>> :Create()
>>> :AddButton( "", "Bmp_Salir",,, "Salir del sistema", {||
>>> MsgInfo("Hola") } )
>>> :AddSeparator()
>>> :AddButton( "", "Bmp_Config",,, "Configuración del Sistema", {||
>>> MsgInfo("Hola") } )
>>> :AddButton( "", "Bmp_About",,, "Acerca de...", {||
>>> MsgInfo("Hola") } )
>>> END
>>>
>>> WITH OBJECT ::oRebarBand := TRebarBand():New( ::oRebar1 )
>>> :oControl := ::oToolBar
>>> :Create()
>>> END
>>>
>>> RETURN Nil
>>>
>>>
>>
>>
>
>
Ignacio Ortiz de Zúñiga
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Arriba
tupr
Mensajes: 7
Registrado: Jue Feb 02, 2006 5:40 pm

sigo en lo mismo

Mensaje por tupr »

ok....gracias por responder
Saludos
Marco A. Delgado.
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
news:43ec4cd0$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Marco,
>
> Pues entonces mandanos tu proyecto con la opción de menú
> Proyecto-Publicar.
>
> Un saludo,
>
> "Marco A. Delgado" <tupr@yahoo.com.mx> escribió en el mensaje
> news:[email=43ebc974@ozsrvnegro.ozlan.local...]43ebc974@ozsrvnegro.ozlan.local...[/email]
>> Hola Ignacio
>>
>> Precisamente desde ahi estoy empezando, estoy tomando varias partes de
>> codigo de las mismos ejemplos..
>>
>> Saludos
>>
>> Marco A. Delgado.
>>
>>
>> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
>> news:43eb7e13$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>>> Marco,
>>>
>>> Por que no empieza por alguno de los ejemplos que incluye el producto,
>>> como por ejemplo samplesDataControlsDbfData2
>>>
>>> Saludos,
>>>
>>>
>>> "Marco A. Delgado" <tupr@yahoo.com.mx> escribió en el mensaje
>>> news:[email=43eb7b17@ozsrvnegro.ozlan.local...]43eb7b17@ozsrvnegro.ozlan.local...[/email]
>>>> Hola
>>>>
>>>> Recien empiezo con Xailer, pero no puedo hacerlo funcionar alguien me
>>>> podria ayudar.
>>>>
>>>> Saludos
>>>>
>>>> Marco A. Delgado
>>>>
>>>> post....el ejemplo .. no hay menu ni rebar
>>>>
>>>> #include "Xailer.ch"
>>>>
>>>> CLASS TFormInicio FROM TForm
>>>>
>>>> COMPONENT oMenu
>>>> COMPONENT oReBar1
>>>>
>>>> DATA oToolBar, oRebarBand
>>>>
>>>> METHOD CreateForm()
>>>> METHOD FormInitialize( oSender )
>>>>
>>>> ENDCLASS
>>>>
>>>> #include "FrmIncio.xfm"
>>>>
>>>> //---------------------------------------------------------- --------------------
>>>>
>>>> METHOD FormInitialize( oSender ) CLASS TFormInicio
>>>>
>>>> MENU ::oMenu
>>>> MENUITEM "&Archivos"
>>>> MENU
>>>> MENUITEM "&Abrir"
>>>> MENUITEM "&Configurar"
>>>> SEPARATOR
>>>> MENUITEM "&Salir"
>>>> ENDMENU
>>>> ENDMENU
>>>>
>>>> WITH OBJECT ::oToolBar := TToolBar():New( ::oRebar1 )
>>>> :lList := .t.
>>>> :lAutoSize := .t.
>>>> :Create()
>>>> :AddButton( "", "Bmp_Salir",,, "Salir del sistema", {||
>>>> MsgInfo("Hola") } )
>>>> :AddSeparator()
>>>> :AddButton( "", "Bmp_Config",,, "Configuración del Sistema", {||
>>>> MsgInfo("Hola") } )
>>>> :AddButton( "", "Bmp_About",,, "Acerca de...", {||
>>>> MsgInfo("Hola") } )
>>>> END
>>>>
>>>> WITH OBJECT ::oRebarBand := TRebarBand():New( ::oRebar1 )
>>>> :oControl := ::oToolBar
>>>> :Create()
>>>> END
>>>>
>>>> RETURN Nil
>>>>
>>>>
>>>
>>>
>>
>>
>
>
Arriba
Responder

Volver a “Xailer Spanish”