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.

Recursos invisbles

Foro público de Xailer en español
Responder
zeasoftware
Mensajes: 1831
Registrado: Mar Oct 11, 2005 9:53 am

Recursos invisbles

Mensaje por zeasoftware »

Tengo problemillas con las imagnenes ke ingreso a los recursos, no me los
presenta, aunke tengan el tamaño del boton o ke sean mas pekeños.
Al momento de correr el programa en el modulo principal no aparecen, aunke
en las ventnas siguientes si.
Le podra ser?.
Gracias.
Ramon Zea
Avatar de Usuario
ignacio
Site Admin
Mensajes: 8777
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:

Recursos invisbles

Mensaje por ignacio »

Ramón,
Intenta mandarnos un pequeño ejemplo que reproduzca tu error.
Un saludo,
--
Ignacio Ortiz
www.xailer.com
"Ramon Zea" <zeasoftware@hotmail.com> escribió en el mensaje
news:41ab3cb7$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Tengo problemillas con las imagnenes ke ingreso a los recursos, no me los
> presenta, aunke tengan el tamaño del boton o ke sean mas pekeños.
> Al momento de correr el programa en el modulo principal no aparecen, aunke
> en las ventnas siguientes si.
>
> Le podra ser?.
>
> Gracias.
> Ramon Zea
>
Ignacio Ortiz de Zúñiga
[Equipo de Xailer / Xailer team]
https://www.xailer.com
zeasoftware
Mensajes: 1831
Registrado: Mar Oct 11, 2005 9:53 am

Recursos invisbles

Mensaje por zeasoftware »

Es solo poner la toolbar en la ventana, alinearlo TOP, e intentar cambiarle
el tamaño.
estas son los ke he cambiado, lo demas a como me los da.
nAnchorfs = akLEFTBOTTOM
nAlign = alBOTTOM
WITH OBJECT ::oStatusBar1
:AddItem("Sistema de Cotizaciones Express", 250, "")
:AddItem("Ver. 0.0", 60, "")
:AddItem(Application:CurrentDir, 100, "")
:AddItem(DToC(Date()), 100, "")
:UpdatePanels()
END WITH
anexo la imagen, solo se ve una linea, si amplio la ventana entonces se ve
completa.
Saludos y Gracias
Ramón Zea


Attached files
Avatar de Usuario
ignacio
Site Admin
Mensajes: 8777
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:

Recursos invisbles

Mensaje por ignacio »

Ramón,
Hablas de toolbar, pero luego en lel codigo usas una StatusBar. Insisto, por
favor, mandanos un ejemplo donde podamos reproducir el problema (incluidas
las imagenes)
Saludos
--
Ignacio Ortiz
www.xailer.com
"Ramon Zea" <zeasoftware@hotmail.com> escribió en el mensaje
news:[email=41ac8b79@ozsrv2.ozlan.local...]41ac8b79@ozsrv2.ozlan.local...[/email]
> Es solo poner la toolbar en la ventana, alinearlo TOP, e intentar
> cambiarle el tamaño.
> estas son los ke he cambiado, lo demas a como me los da.
>
> nAnchorfs = akLEFTBOTTOM
> nAlign = alBOTTOM
>
> WITH OBJECT ::oStatusBar1
> :AddItem("Sistema de Cotizaciones Express", 250, "")
> :AddItem("Ver. 0.0", 60, "")
> :AddItem(Application:CurrentDir, 100, "")
> :AddItem(DToC(Date()), 100, "")
>
> :UpdatePanels()
>
> END WITH
>
> anexo la imagen, solo se ve una linea, si amplio la ventana entonces se ve
> completa.
>
> Saludos y Gracias
> Ramón Zea
>
>
>
Ignacio Ortiz de Zúñiga
[Equipo de Xailer / Xailer team]
https://www.xailer.com
zeasoftware
Mensajes: 1831
Registrado: Mar Oct 11, 2005 9:53 am

Recursos invisbles

Mensaje por zeasoftware »

jajajaja, perdon, aun no me acostumbro a dejar la programacion a pie, :)
#include "Xailer.ch"
CLASS tFrmPrincipal FROM TForm
COMPONENT oToolBar1
COMPONENT oStatusBar1
METHOD CreateForm()
METHOD FormInitialize( oSender )
ENDCLASS
#include "CXPrinc.xfm"
//---------------------------------------------------------- --------------------
METHOD FormInitialize( oSender ) CLASS tFrmPrincipal
MENU ::oMenu
MENUITEM "&Catálogo"
MENU
MENUITEM "&Lineas" ACTION tFrmLineas():New( Self ):ShowModal()
MENUITEM "&Productos" ACTION TFrmArticulos():New(
Self ):ShowModal()
SEPARATOR
MENUITEM "&Salir" ACTION ::Close()
ENDMENU
MENUITEM "&Diario"
MENU
MENUITEM "&Cotizaciones Expres" ACTION tFrmCotiXpres():New(
Self ):ShowModal()
ENDMENU
MENUITEM "&Utilerias"
MENU
MENUITEM "&Reindexar" ACTION TFrmReindex():New(
Self ):ShowModal()
ENDMENU
ENDMENU
WITH OBJECT ::oToolBar1
:AddButton("","bLineas",,, "Mantenimiento de Lineas", {||
tFrmLineas():New( Self ):ShowModal() })
:AddButton("","bProductos",,, "Mantenimiento a Productos", {||
tFrmArticulos():New( Self ):ShowModal() })
:AddButton("","bQCotizar",,, "Cotizar Expres", {||
tFrmCotiXpres():New( Self ):ShowModal() })
:AddSeparator()
:AddButton("","bHerramientas",,, "", {|| .t. })
:AddSeparator()
:AddButton("","bSalir",,, "Salir del Programa",{|| ::Close() })
//:nAlign := alTOP
END WITH
WITH OBJECT ::oStatusBar1
//:SetBounds( 0, 296, 513, 23 )
//:CreateImageList( 18, 18 )
//:AddBitmap( "bSi" )
:AddItem("Sistema de Cotizaciones Express", 250, "")
:AddItem("Ver. 0.0", 60, "")
:AddItem(Application:CurrentDir, 100, "")
:AddItem(DToStr(Date()), 100, "")
:UpdatePanels()
END WITH
WITH OBJECT TStatusPanel():Create( ::oStatusBar1 )
:cText := "(c) ZeaSoft"
:nWidth := 150
:nImageIndex := 1
:cTooltip := "Acerca de..."
END
RETURN Nil
//---------------------------------------------------------- --------------------
Avatar de Usuario
ignacio
Site Admin
Mensajes: 8777
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:

Recursos invisbles

Mensaje por ignacio »

Ramón,
Por favor intenta hacer un ejemplo pequeño que reproduzca el problema y
luego nos lo mandas con la opción de menú de publicar proyecto. Los bitmaps
que uses 'de momento' deberás incluirlos a mano en el archivo zip.
Un saludo,
--
Ignacio Ortiz
www.xailer.com
"Ramon Zea" <zeasoftware@hotmail.com> escribió en el mensaje
news:41acfc3a$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> jajajaja, perdon, aun no me acostumbro a dejar la programacion a pie, :)
>
>
> #include "Xailer.ch"
>
> CLASS tFrmPrincipal FROM TForm
>
> COMPONENT oToolBar1
> COMPONENT oStatusBar1
>
> METHOD CreateForm()
> METHOD FormInitialize( oSender )
>
> ENDCLASS
>
> #include "CXPrinc.xfm"
>
> //---------------------------------------------------------- --------------------
>
> METHOD FormInitialize( oSender ) CLASS tFrmPrincipal
> MENU ::oMenu
> MENUITEM "&Catálogo"
> MENU
> MENUITEM "&Lineas" ACTION tFrmLineas():New( Self ):ShowModal()
> MENUITEM "&Productos" ACTION TFrmArticulos():New(
> Self ):ShowModal()
>
> SEPARATOR
>
> MENUITEM "&Salir" ACTION ::Close()
> ENDMENU
>
> MENUITEM "&Diario"
> MENU
> MENUITEM "&Cotizaciones Expres" ACTION tFrmCotiXpres():New(
> Self ):ShowModal()
>
> ENDMENU
>
> MENUITEM "&Utilerias"
> MENU
> MENUITEM "&Reindexar" ACTION TFrmReindex():New(
> Self ):ShowModal()
>
> ENDMENU
> ENDMENU
>
> WITH OBJECT ::oToolBar1
>
> :AddButton("","bLineas",,, "Mantenimiento de Lineas", {||
> tFrmLineas():New( Self ):ShowModal() })
> :AddButton("","bProductos",,, "Mantenimiento a Productos", {||
> tFrmArticulos():New( Self ):ShowModal() })
> :AddButton("","bQCotizar",,, "Cotizar Expres", {||
> tFrmCotiXpres():New( Self ):ShowModal() })
> :AddSeparator()
>
> :AddButton("","bHerramientas",,, "", {|| .t. })
> :AddSeparator()
>
> :AddButton("","bSalir",,, "Salir del Programa",{|| ::Close() })
>
> //:nAlign := alTOP
>
> END WITH
>
>
> WITH OBJECT ::oStatusBar1
> //:SetBounds( 0, 296, 513, 23 )
> //:CreateImageList( 18, 18 )
> //:AddBitmap( "bSi" )
>
> :AddItem("Sistema de Cotizaciones Express", 250, "")
> :AddItem("Ver. 0.0", 60, "")
> :AddItem(Application:CurrentDir, 100, "")
> :AddItem(DToStr(Date()), 100, "")
>
> :UpdatePanels()
>
> END WITH
>
> WITH OBJECT TStatusPanel():Create( ::oStatusBar1 )
> :cText := "(c) ZeaSoft"
> :nWidth := 150
> :nImageIndex := 1
> :cTooltip := "Acerca de..."
> END
>
> RETURN Nil
>
> //---------------------------------------------------------- --------------------
>
>
Ignacio Ortiz de Zúñiga
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Responder