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
>
> //---------------------------------------------------------- --------------------
>
>