Página 1 de 1

Recursos invisbles

Publicado: Lun Nov 29, 2004 5:16 pm
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

Recursos invisbles

Publicado: Mar Nov 30, 2004 10:54 am
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
>

Recursos invisbles

Publicado: Mar Nov 30, 2004 5:04 pm
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

Recursos invisbles

Publicado: Mar Nov 30, 2004 5:35 pm
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
>
>
>

Recursos invisbles

Publicado: Mié Dic 01, 2004 1:05 am
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
//---------------------------------------------------------- --------------------

Recursos invisbles

Publicado: Mié Dic 01, 2004 9:38 am
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
>
> //---------------------------------------------------------- --------------------
>
>