Quitar pantalla de foxpro al correr ejecutable

[jose daboin]

lo que quiero es que no me aparesca como el visor del visual foxpro
para ejecutables, solamente los formularios

[Walter R. Ojeda Valiente]

Si no existe el archivo CONFIG.FPW en la misma carpeta donde está tu ejecutable, debes crearlo. Es un simple archivo de texto, lo puedes crear con el Notepad o mismo con el MODIFY COMMAND.

A ese archivo le agregas la línea:

SCREEN = OFF

Con eso te asegurarás que no sea vea la pantalla del Visual FoxPro sino solamente tus forms.

Saludos.

Walter.




> Date: Sun, 22 Aug 2010 19:38:41 -0700
> Subject: [vfp] Quitar pantalla de foxpro al correr ejecutable
> From: metalb...@gmail.com
> To: publice...@googlegroups.com

[Walter R. Ojeda Valiente]

También tienes otra alternativa, puedes escribir:

_SCREEN.VISIBLE = .F.

dentro de tu programa, al principio del mismo, aunque haciéndolo de esta manera a veces se muestra un efecto de parpadeo que puede resultar desagradable a la vista. En cambio, escribiendo SCREEN = OFF dentro del CONFIG.FPW no ocurre el parpadeo y por lo tanto es más estético y la opción preferible.

Saludos.

Walter.

[jose daboin]

no me funciona y no se porque, estoy que tiro la tualla

[Daniel Sánchez]

Yo uso esta estructura en mi programa principal y nunca me sale el logo de vfp, o te refieres al _screen principal del fox, si es así deberias trabajar todos tus formularios como formularios tipo superior

ON SHUTDOWN DO SALIR

SET SYSMENU to

*/ corrigue el problema de dibujar correctamente los menues items y comboitems

DECLARE integer GdiSetBatchLimit IN WIN32API integer

GdiSetBatchLimit(1)

*/

with _screen

*/

*   .BorderStyle=0                      && Change the border to double

*   .Closable=.F.                       && Remove window control buttons

*   .ControlBox=.F.

*   .MaxButton=.F.

*   .MinButton=.F.

   .Movable=.T.

*   .Titlebar=0

*/

   .ICON="iconosXP\trabajosproduccion.ICO"

   .Caption="Nombre tu sistema"            && Set a caption

*   .LockScreen=.F.              && Enable screen redraw

   .windowstate=2

* .Visible=.f.

endwith

ZOOM WINDOW SCREEN MAX

*/variables de politicas de negocio

terminar_sistema=.t.

*/indico las clases a usar

*/seteos del programa

SET STATUS BAR OFF

SET EXCLUSIVE OFF

SET REPROCESS TO -1

SET DELETE ON

SET SYSMENU OFF

SET SAFETY OFF

SET EXACT ON

SET STATUS BAR OFF

SET ECHO OFF

SET TALK OFF

SET DATE TO BRITISH

SET SYSFORMAT ON

*/con este código desactivas la ventana principal de vfp en tu ejecutable

with _screen

   .LockScreen=.F.              && Enable screen redraw

   .windowstate=2

.Visible=.f.

endwith

*/y aqui lo activas puedes usar la referencia con el with o directo con _screen

_screen.Visible=.t.

_screen.Caption=cNameEmpresa

_screen.BackColor=RGB(244,244,244)

do while terminar_sistema

SET EXCLUSIVE OFF

SET REPROCESS TO -1

SET DELETE ON

SET SYSMENU OFF

SET SAFETY OFF

SET EXACT ON

SET STATUS BAR OFF

SET ECHO OFF

SET TALK OFF

SET DATE TO BRITISH

SET SYSFORMAT ON

get_usuario="Daniel Sán"

xaceptado=.f.

*/aqui veo el usuario y si pasa sino bye bye

DO FORM formacceso TO xaceptado

if !xaceptado

EXIT 

ENDIF

READ EVENTS

SET SYSMENU TO

EXIT 

ENDDO

CLOSE DATABASES 

ON SHUTDOWN 

QUIT 

-- 

Daniel Sánchez Escobar
Investigación y Desarrollo
Reset Software & Sistemas
Móvil 044-949398047
Trujillo - Perú

[jose daboin]

muy buena tu respuesta, lo q pasa es que soy novato, lo que se de
foxpro mayormente es crear formularios y bases de datos y hacer sus
relaciones, ademas de los informes, esto por q lo dan en una materia
en la universidad, pero no soy muy bueno en cuanto a su codigo y donde
colocarlo.

por esto te agradeceria me dijeras donde lo coloco, en load, destroy,
entre otros, y si solo en un formulario basta

[Daniel Sánchez]

Esto es en el prg principal, podrías llamarlo inicio.prg y ahí pones esta estructura y lo adaptas a tu necesidad, si inicias con un formulario lo llamas desde ahí, o trabajas con las opciones del menú, con esta estructura cualquiera de las opciones puedes trabajar.

Y en que país, ciudad y universidad llevas esa materia.

[jose daboin]

En Venezuela Edo. Trujillo en la universidad Valle del Momboy
(UVM= www.uvm.edu.ve) la materia se llama Base de Datos y
utilizan foxpro como base para la creacion y relacion de BD

[Alfonso Arias Lemas]

_screen

.Visible=.f.

 

Saludos,

   Alfonso

---

De: jose daboin <metalb...@gmail.com>
Para: Comunidad de Visual Foxpro en Español <publice...@googlegroups.com>
Enviado: lun,23 agosto, 2010 01:38
Asunto: [vfp] Quitar pantalla de foxpro al correr ejecutable

[william zuluaga]

yo utilizo siempre este codigo para desactivar el menu de vfp y colocar mi form...este codigo lo coloco en el evento activate de mi form principal o en el prg principal.

 

set sysmenu to default
Local oldScreenLeft
Local oldScreenTop
Local oldScreenHeight
Local oldScreenWidth
Local oldScreenColor
WITH _Screen
   oldScreenLeft=.Left                 && Guardar el tamaño y la posición actuales
   oldScreenTop=.Top
   oldScreenHeight=.Height
   oldScreenWidth=.Width
   oldScreenColor = .Backcolor
.LockScreen=.T.                     && Desactiva el redibujado de pantalla
   .BackColor=rgb(192,192,192)         && Cambiar el color de fondo a gris
   .BorderStyle=2                      && Cambiar el borde a doble
   .Closable=.F.                       && Quitar botones de control de ventana
   .ControlBox=.F.
   .MaxButton=.T.
   .MinButton=.T.
   .Movable=.T.
   .Height=650
   .Width=900
   .Caption="presentacion y persona que diseña el programa en la barra superior."            && Establecer un título
   .LockScreen=.F.                     && Activa el redibujado de pantalla
ENDWITH
With _Screen
   .Left = oldScreenLeft               && Restablecer el tamaño
   .Top = oldScreenTop                 && y posición original
   .Height = oldScreenHeight
   .Width  = oldScreenWidth
   .LockScreen=.T.                     && Desactivar el redibujado de pantalla
   .MaxButton=.T.
   .MinButton=.T.
   .Movable=.T.
   .LockScreen=.F. 
ENDWITH
SET SYSMENU OFF

 

espero sea lo que necesita, suerte.

 

william zuluaga

---

De: jose daboin <metalb...@gmail.com>
Para: Comunidad de Visual Foxpro en Español <publice...@googlegroups.com>

Enviado: lun,23 agosto, 2010 09:41
Asunto: [vfp] Re: Quitar pantalla de foxpro al correr ejecutable

[jose daboin]

amigo y si creo una aplicacion y la monto en internet para q la
revisen y me digan q esta mal, se los agradeceria

> De: jose daboin <metalbox9...@gmail.com>

[jose daboin]

Bieno aqui les dejo el ejemplo, cualquier cosa me avisan, las
contraseñas estan al abrir el .rar en la seccion de comentarios

http://www.mediafire.com/?moyf3xl850plhgs

[jose daboin]

hice lo que dijiste pero no me funciono es mas ahora no me cierra la
pantalla blanca al cerrar ej ejecutable, aqui te dejo el proyecto con
el fpw y el main

http://www.mediafire.com/download.php?ckqgz42h8wg3ax4




On 24 ago, 14:47, "Hugo C." <hcchav...@gmail.com> wrote:
> Agregar un archivo config.fpw con estas instrucciones
>
> HELP = OFF
> SCREEN = OFF
> TALK = OFF
> MULTILOCKS = ON
> EXCLUSIVE = OFF
> SAFETY = OFF
>
> Agregar un programa main.prg con estas instrucciones
>
> DO FORM FORM1.SCX
> READ EVENTS
>
> Hacer a main.prg el archivo principal
>   en el manejador de proyectos
>       boton derecho
>              Set Main
>
> En el evento DESTROY del FORM1.
>
>   CLEAR EVENTS
>
> Saludo

> > > > > Walter.- Ocultar texto de la cita -
>
> > - Mostrar texto de la cita -

[Hugo C.]

El error es que tu archivo config esta guardado como
config.fpw.txt no como

config.fpw

Saludos.

> > > - Mostrar texto de la cita -- Ocultar texto de la cita -

[jose daboin]

bueno, lo cambie a fpw con el editor de texto q se encuentra en la
pestaña otros, pero ahora me dice q no tiene acceso al archivo cuando
corro el programa.

Como lo paso a fpw?????

[edgar suarez kummers]

Estimado José:

Espero tengas simbolo de sistema o sea ..... 

en inicio buscas EJECUTAR

luego dictar CMD en la ventanita y click en aceptar.

para regresar la ruta le dices:

cd..     (ENTER)

las veces necesarias para quedar en la raíz de C:

Luego para avanzar y tomar la ruta donde está el archivo:

config.fpw.txt le dictas

cd carpeta1  ( suponiendo que vas en avance )

cd carpeta2 (y así hasta que llegues adonde se encuentra)

luego dictas:

RENAME CONFIG.FPW.TXT CONFIG.FPW

Puede ocurrir que no tengas un sistema que permita el DOS,

en cuyo caso avísame y te subo a INTERNET una ventana virtual .... que te permitirá hacer el cambio.

Espero haber entendido bien, caso contrario vuelves a explicarme.

Saludos

Edgar

---

De: jose daboin <metalb...@gmail.com>

Para: Comunidad de Visual Foxpro en Español <publice...@googlegroups.com>

Enviado: mar,24 agosto, 2010 21:05

[jose daboin]

Muchas gracias por la explicacion, yo tengo tres sistemas XP,7,DEBIAN,
xp aguanta todo asi q si me sirvio, lo pude renombrar pero cuando
ejecuto el programa no aparece nada, y cuando lo vuelvo a correr da
error de acceso, revise bien q pasaba y en el administrador de tareas
ya se encontraba el proyecto ejecutado por eso el error, por lo tanto
tenia q terminar el proceso.

En resumen, ahora no me aparece nada cuando ejecuto el programa

Te dejo el link con el archivo, echale un ojo a ver
http://www.mediafire.com/download.php?r9naigdwaebqgoz

On 24 ago, 23:57, edgar suarez kummers <edgarkumm...@yahoo.es> wrote:
> Estimado José:
>
> Espero tengas simbolo de sistema o sea .....
>
> en inicio buscas EJECUTAR
>
> luego dictar CMD en la ventanita y click en aceptar.
>
> para regresar la ruta le dices:
>
> cd..     (ENTER)
>
> las veces necesarias para quedar en la raíz de C:
>
> Luego para avanzar y tomar la ruta donde está el archivo:
>
> config.fpw.txt le dictas
>
> cd carpeta1  ( suponiendo que vas en avance )
>
> cd carpeta2 (y así hasta que llegues adonde se encuentra)
>
> luego dictas:
>
> RENAME CONFIG.FPW.TXT CONFIG.FPW
>
> Puede ocurrir que no tengas un sistema que permita el DOS,
>
> en cuyo caso avísame y te subo a INTERNET una ventana virtual .... que te
> permitirá hacer el cambio.
>
> Espero haber entendido bien, caso contrario vuelves a explicarme.
>
> Saludos
>
> Edgar
>
> ________________________________

[Hugo C.]

Te falta cambiar la propiedad ShowWindow del form1 al valor 2

Saludos.

On 25 ago, 08:35, jose daboin <metalbox9...@gmail.com> wrote:
> Muchas gracias por la explicacion, yo tengo tres sistemas XP,7,DEBIAN,
> xp aguanta todo asi q si me sirvio, lo pude renombrar pero cuando
> ejecuto el programa no aparece nada, y cuando lo vuelvo a correr da
> error de acceso, revise bien q pasaba y en el administrador de tareas
> ya se encontraba el proyecto ejecutado por eso el error, por lo tanto
> tenia q terminar el proceso.
>
> En resumen, ahora no me aparece nada cuando ejecuto el programa
>

> Te dejo el link con el archivo, echale un ojo a verhttp://www.mediafire.com/download.php?r9naigdwaebqgoz

[jose daboin]

Exelente men gracias, ahora ya faltan pocos detalles si me lo
resuelves hago un manual completo de como se llego al final, claro
haciendo mencion a todos los q me ayudaron y lo coloco aqui.

El problema ahora ya no es la pantalla, xq ya aparece el formulario
solo, lo q pasa es q cuando ingreso en el sistema me deberia aparecer
el segundo formulario pero no lo hace, he probado quitando el modal y
otras cosas pero nada, hechale tu otro ojo a este link q te dejo y que
espero sea el ultimo sin incluir el tuto jeje.

http://www.mediafire.com/download.php?moc3rkq377u3i1c

[edgar suarez kummers]

Buenas José Daboin:

Por favor reemplaza el main.prg por el texto que te envié y debes hacer un menú, donde en un procedimiento dictas "do form c:\carpeta\form1.scx" y en otro procedimiento dictas "do form c:\carpeta\form2.scx", adicionalmente debes colocar los *.dll que te envié.

Espero no equivocarme en la extensión de los form, por cuanto no estoy en mi computador, sino en uno del Instituto.

Mientras no hagas lo descrito, difícilmente te va a funcionar como quieres.

No importa cuantas veces debas consultar a los del grupo por orientación, es normal, porque el arranque en estos menesteres es bastante arduo. Así que pregunta las veces que creas necesarias, hasta que te funcione.

Saludos y éxitos

Edgar

---

De: jose daboin <metalb...@gmail.com>

Para: Comunidad de Visual Foxpro en Español <publice...@googlegroups.com>

Enviado: jue,26 agosto, 2010 21:04

[Hugo C.]

En el boton INGRESAR .... :

USE
_screen.activeform.release
do form form2

En el boton Salir :

THISFORM.Release()

Saludos.

[jose daboin]

Exelente hugo, muchas gracias, esperen el tuto por aca en pdf y por
mediafire.

[jose daboin]

Exelente hugo, gracias, esperen el tuto por aqui en pdf y por

mediafire.

On 27 ago, 12:57, "Hugo C." <hcchav...@gmail.com> wrote:

[Hugo C.]

Agregar un archivo config.fpw con estas instrucciones

HELP = OFF
SCREEN = OFF
TALK = OFF
MULTILOCKS = ON
EXCLUSIVE = OFF
SAFETY = OFF

Agregar un programa main.prg con estas instrucciones

DO FORM FORM1.SCX
READ EVENTS

Hacer a main.prg el archivo principal
en el manejador de proyectos
boton derecho
Set Main

En el evento DESTROY del FORM1.

CLEAR EVENTS


Saludo

On 24 ago, 11:50, jose daboin <metalbox9...@gmail.com> wrote: