FoxPro/Visual FoxPro - Ventanas en lugar de Forms

 
Vista:

Ventanas en lugar de Forms

Publicado por Pablo (Argentina) (433 intervenciones) el 08/05/2009 23:28:10
Hola Amigos, como va, les comento, estoy con VFP9.0 no hace mucho, les quiero preguntar a ver si se puede hacer o existe como hacer para cuando en un textbox o en un boton que cuando pierda el foco o haga click en el boton me abra una ventana como se hacia en DOS el querido y viejo foxpro 2,6, jaja, aca en visual no encuentro como hacerlo la unica forma que veo es haciendo otro formulario y pasando los paramentros entre si. si hago como antes queda feo la ventana tipo DOS . ¿ Hay alguna forma de hacer que aparezca una ventana, tipo un formulario con datos adentro?, o solamente se puede hacer llamando a otro foms y pasar los datos.

Bueno espero hacerme explicado y espero una sugerencia al respecto. Muchas Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Ventanas en lugar de Forms

Publicado por alberto (404 intervenciones) el 09/05/2009 03:31:20
hola amigo yo soy de santa fe argentina, tu de donde eres ?
mira puedes usar el comando define windows para crear una ventana , te dejo un ejemplo :
evento clik de un boton ...
define wind o title "Listar Pendientes de Pago " from 3,3 to 20,60
activate wind o
@ 2,2 say "Listar pend. de pago a la fecha : ( Fecha Emision)" size 2,50
@ 4,18 say "Esc = Cierra Ventana " size 2,20
public da
da=date()
@ 4,2 get da
read modal

REPORT FORM c:ESTADO FOR ESTADO="IMPAGA" .and. ctactec.fecha <= da PREVIE

deactivate wind o

ESPERO SEA LO QUE BUSCAS , ESPERO TUS RESPUESTAS
SALUDOS

ALBERTO MANCUSO

VETER 1.5
SOFTWARE PARA CLINICAS VETERINARIAS

DELIVERY
SOFT PARA CASAS DE COMIDAS

VENTAS 1.0
STOCK Y FACTURACION COMPLETO PARA COMERCIOS

FACTURA 1.0
SISTEMA PARA FACTURACION DE OBRAS SOCIALES EN VETERINARIAS.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Ventanas en lugar de Forms

Publicado por Pablo (Argentina) (433 intervenciones) el 09/05/2009 15:36:54
Hola amigo de sta fe, soy de La Pampa, mira, ese que me publicas esta bien ya lo se pero con esas ventas en VFP 9, las visualizas con si fuera DOS, me explico y lo que yo quiero hacer y ver si se puede es que se vean las ventanas en ambiente tipo windows o como si fuera un formulario (Creo por lo que estuve leyendo que hay que usar SKINS pero no estoy seguro), es por eso que pregunte esto en el foro?.
Porque sino la unica que me queda es crear forms y pasar parametros pero queria antes sacarme esa duda.

Bueno espero respuesta y ayuda si alguien o vos me podes orientar.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Ventanas en lugar de Forms

Publicado por alberto (404 intervenciones) el 09/05/2009 19:22:04
si le agregas la clausula system close maximize se creara una ventana tipo windows con la posibilidad de cerrarla o maximizarla, pruebalo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Ventanas en lugar de Forms

Publicado por andy (228 intervenciones) el 09/05/2009 19:24:14
ES UNA ALTERNATIVA A LO PROPUESTO POR ALBERTO, CON UNA MEJORA EN EL ASPECTO DE LA VENTANA:

DEFINE WINDOW BB from 0,0 to 12,60 title 'Vencimientos ' ;
FONT "MS ARIAL", 10 STYLE 'B' ;
FLOAT NOCLOSE NOMINIMIZE SYSTEM ;
COLOR RGB(,,,216,208,200)
MOVE WINDOW bb CENTER
ACTIVATE WINDO BB

@ 1,2 say 'Cierre Cobranza: ' FONT 'ARIAL', 10 style 'BTI'
@ 3.500,2 say 'Sorteo Final : ' FONT 'ARIAL', 10 style 'BTI'
@ 7,14 GET ask ;
PICTURE "@*HT <Aceptar;<Cancelar" ;
SIZE 1.769,8.667,0.667 ;
DEFAULT 1 ;
FONT "ARIAL", 8 ;
STYLE "B"
READ cycle
IF LASTKEY()=27
release WINDO bb
RETU
ENDIF
if ask=1
release windo bb
RETU
else
release windo bb
retu
endif

ESPERO TE SIRVA
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Ventanas en lugar de Forms

Publicado por Pablo (Argentina) (433 intervenciones) el 09/05/2009 19:54:21
Hola Andy, si me sirvio tu codigo, muchas gracias la verdad no habia experimentado mucho con el tema y no podia salir de la clasica vista tipo DOS con tu codigo las ventanas quedan mucho mejor en el entorno visual.

Te hago una consulta por si lees mi respuesta, a los botones de aceptar, cancelar se le puede poner una imagen digamos BMP o un icono o algo como mejorarlo aun un poquito mas

Bueno muchas gracias y seguire viendo.

Pablo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Ventanas en lugar de Forms

Publicado por andy (228 intervenciones) el 09/05/2009 20:23:56
Directamente sobre el boton no se puede usar bitmaps, creo.
Dentro de la ventana, si lo puedes hacer, con algo asi:

@ 2, 2 SAY 'okey.bmp' BITMAP ISOMETRIC SIZE 60, 80

o cualquier archivo de imagen soportado: GIF,JPG, etc
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar