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
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.
Recursos invisbles
-
- Mensajes: 1831
- Registrado: Mar Oct 11, 2005 9:53 am
Recursos invisbles
Ramón Zea
Móvil: 01-993-231-62-29
ramonzea@yahoo.com
zeasoftware@hotmail.com
zeasoft.movil@hotmail.com
http://www.paginasprodigy.com/zeasoftware/
Móvil: 01-993-231-62-29
ramonzea@yahoo.com
zeasoftware@hotmail.com
zeasoft.movil@hotmail.com
http://www.paginasprodigy.com/zeasoftware/
- ignacio
- Site Admin
- Mensajes: 9246
- Registrado: Lun Abr 06, 2015 8:00 pm
- Ubicación: Madrid, Spain
- Contactar:
Recursos invisbles
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
>
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
>
-
- Mensajes: 1831
- Registrado: Mar Oct 11, 2005 9:53 am
Recursos invisbles
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
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
Ramón Zea
Móvil: 01-993-231-62-29
ramonzea@yahoo.com
zeasoftware@hotmail.com
zeasoft.movil@hotmail.com
http://www.paginasprodigy.com/zeasoftware/
Móvil: 01-993-231-62-29
ramonzea@yahoo.com
zeasoftware@hotmail.com
zeasoft.movil@hotmail.com
http://www.paginasprodigy.com/zeasoftware/
- ignacio
- Site Admin
- Mensajes: 9246
- Registrado: Lun Abr 06, 2015 8:00 pm
- Ubicación: Madrid, Spain
- Contactar:
Recursos invisbles
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
>
>
>
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
>
>
>
-
- Mensajes: 1831
- Registrado: Mar Oct 11, 2005 9:53 am
Recursos invisbles
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
//---------------------------------------------------------- --------------------
#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
//---------------------------------------------------------- --------------------
Ramón Zea
Móvil: 01-993-231-62-29
ramonzea@yahoo.com
zeasoftware@hotmail.com
zeasoft.movil@hotmail.com
http://www.paginasprodigy.com/zeasoftware/
Móvil: 01-993-231-62-29
ramonzea@yahoo.com
zeasoftware@hotmail.com
zeasoft.movil@hotmail.com
http://www.paginasprodigy.com/zeasoftware/
- ignacio
- Site Admin
- Mensajes: 9246
- Registrado: Lun Abr 06, 2015 8:00 pm
- Ubicación: Madrid, Spain
- Contactar:
Recursos invisbles
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
>
> //---------------------------------------------------------- --------------------
>
>
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
>
> //---------------------------------------------------------- --------------------
>
>