Cambiar altura en formulario

[integral]

Que tal amigos :

Buenas Tardes

Hace unos días vi en un formulario de un Sistema hecho en VisualBasic y MySql que cambiaba de altura e insertaba nuevos controles al aceptar.  Y cuando cancelaba el ingreso de los datos volvía a su altura original y desaparecían los nuevos controles (TextBox)

Aqui mi consulta :

Algun colega que ya hizo lo comentado en un formulario en VFP 9.0

Tratando de imitar el efecto del formulario, se me ocurrió crear 2 formularios y el 2do. formulario lo sobrepongo pero se nota como un parpadeo intente usar el siguiente comando :

ThisForm.LockScreen = .T. 

Aquí unas imágenes

Agradezco sus comentarios y sugerencias.

Saludos,

Integral

[Zarlu]

Buenas tardes Integral!

Qué no sería simplemente cambiar el Height o el Width del formulario?

y luego restaurarlo, según hacía donde aumente su tamaño

Lo podrías hacer manual, pero si lo quieres calculado...

En el caso del Height podrías sumar top+heigth del control agregado para obtener el alto del formulario

Suerte

zarlu

Chetumal,  Quintana Roo, Mexico

[Gabriel Barreto]

No te compliques con 2 formularios superpuestos ni nada de eso, se soluciona cambiando la propiedad HEIGHT del formulario y ocultando / mostrando los controles adecuados.

Mira este ejemplo de form de login, donde los 3 controles del medio están inicialmente ocultos y el form tiene un altura de 280 pix, al hacer click en el botón de la flecha se "expande" a 480 pix y se muestran los 3 controles ocultos inicialmente. Si se pulsa de nuevo, se "contrae" nuevamente a 280 pix y se ocultan los 3 controles. Importante: los 3 botones de abajo tienen la propiedad ANCHOR en 4 asi siempre están en la ubicación correcta. Te paso foto del form y el código del botoncito que hace el efecto:

Click del boton señalado:

IF THISFORM.HEIGHT = 280
THISFORM.cmbServer.VISIBLE = .F.
THISFORM.cmbPort.VISIBLE = .F.
THISFORM.cmbDatabase.VISIBLE = .F.
thisform.label3.Visible = .f.
thisform.label4.Visible = .f.
thisform.label5.Visible = .f.
THISFORM.HEIGHT = 170
this.Caption = 'â'

ELSE
THISFORM.cmbServer.VISIBLE = .T.
THISFORM.cmbPort.VISIBLE = .T.
THISFORM.cmbDatabase.VISIBLE = .T.
thisform.label3.Visible = .t.
thisform.label4.Visible = .t.
thisform.label5.Visible = .t.
THISFORM.HEIGHT = 280
this.Caption = 'á'

ENDIF

--
Blog de la Comunidad Visual FoxPro en Español http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver este debate, visita https://groups.google.com/d/msgid/publicesvfoxpro/25bc2d47-d4f1-4653-8760-2d64cb86685en%40googlegroups.com.

[integral]

Buenos Días Amigos

Gracias amigos por sus comentarios y sugerencias.

Amigo HgbSoft tu ejemplo no hace mas que ilustrar la idea que tenia en mente de como se podía efectuar dicho efecto. Y confirma que si es posible hacerlo en VFP 9

PD : No entiendo porque MicroSoft decidió abandonar a VFP, claro este Software no fue creado por ellos. Lo compraron de otra empresa de Software...  

Según opinión de algunas colegas, porque VFP les resultaba un mas complicado en aprender...

Para los que empezamos desde Foxpro para D.O.S. 2.6 como mi caso no resulta tan complicado...

Hasta la próxima.

Saludos,

Integral

[integral]

Que tal Amigos

Muy Buenas Noches

Pude realizar el efecto realizado con la altura del formulario. Pero surge un pequeño problema.

Al cambiar la altura del formulario con los 4 nuevos controles que están ocultos, aparece recortado la parte inferior del formulario.

He notado que solo muestra el formulario hasta la altura del formulario inicial cuando aun están ocultos los 4 controles

Adjunto imágenes del problema presentado.

Agradezco sus comentarios y sugerencias

Saludos,

Integral

[Zarlu]

Buenos días Integral!

No entiendo tu planteamiento. Veo en la imágenes completo el formulario expandido.

Quieres decir que tapa los controles del formulario que está detrás?

Si es así entonces deberás ajustar el Top en la misma proporción que expandes la altura

Suerte

zarlu

Chetumal, Quintana Roo, México

[integral]

Que tal Amigo Zarlu

Al expandir el formulario logre que aparezcan los controles que estaban ocultos. Pero el problema que observo es que el formulario que contiene los controles a pesar 

que le doy la altura para expandirse se queda entrecortado y no aparecen los controles que están encerrados en Rojo. ( Ver imagen adjunta).

Deseo hacer que sea un formulario de tipo flotante...

Entonces creo que habría que cambiar algunos valores en las propiedades para lograr ello.  

Estuve leyendo además acerca de los formularios MDI y SDI. Y creo a no equivocarme por ahí viene la solución al problema.

Agradezco tus comentarios y sugerencias.

Atte.,

Integral

[Zarlu]

Qué tal Integral!

Veo que son dos formularios. El formulario que expandes para mostrar los controles y el otro que contiene los controles que encierras en rojo.

Según veo lo que está pasando es que al expandir el formulario tapa los controles del formulario que está debajo.

Entonces lo que hay que hacer es subir el formulario que expandes. Ajustar la propiedad TOP

Suerte

zarlu

Chetumal, Quintana Roo, México

[integral]

Que tal Amigo Zarlu

Muy Buenos Días

Te comento utilizo 2 formularios :

El 1er. formulario de fondo de color Azul que llama al 2do. formulario de color Celeste

El 2do. formulario tiene una altura máxima con todos los controles de 740 y con los controles ocultos la altura es de 644 ósea menor.. 

Al aplicar el efecto mediante un botón de comando solo aparecen algunos controles que estaban ocultos.

Aquí viene el problema, debiera expandirse a la altura máxima de 740, este 2do. formulario no alcanza dicha altura y pareciera que toma la altura mínima de 664

En la figura adjunta, lo resaltado de color celeste se puede apreciar que el pie del formulario No aparece a pesar de estar definido.  Se aprecia como recortado.

Aquí le puse el TOP como me lo sugeriste y nada.

En la siguiente imagen adjunta, lo resaltado en color rojo muestra los controles que debieran aparecer como el CommanGroup para cerrar el formulario.

Pensé que quizás convirtiéndolo en un formulario flotante que se pueda mover fuera del 1er. formulario se arreglaría el problema. Pero no soluciono el problema.

La diferencia en relacion al ejemplo mostrado por HGB, es  que aquí utilizo el Skin 2.0. Y además la altura por defecto es de 740. Cuando llamo a este formulario llamo a un método que hace que se oculten algunos controles y el formulario que aparece reflejado tiene la altura reducida en  644

Sera esto lo ocasiona el problema...

Agradezco tus comentarios y sugerencias.

Saludos,

Integral

[Zarlu]

Buenas tardes Integral!

Quizá debas considerar....

-  El formulario hijo es de mayor altura al padre .

-  El formulario hijo tiene activada la propiedad centrar

.. y si en lugar de aumentar la altura del formulario la disminuyes...digo sólo para probar el efecto

Podrías montar la pantalla completa

Suerte

zarlu

Chetumal, Quintana Roo, México

[integral]

Que tal Amigo Zarlu

Muy Buenas Noches

Tal cual mis sospechas, el problema lo generaba el Skin 2.0

Tema resuelto

Hasta la próxima

Saludos,

Integral

[integral]

Que tal Amigos :

Muy Buenos Días :

Respondiendo al colega que me escribió a mi correo para preguntarme de cual fue la solución al problema con el uso del Skin 2.0

Me he acostumbrado al uso del SKIN 2.0 a pesar de presentar algunas fallas que poco a poco he ido resolviendo en el camino hasta hacerlo mas estable.

Tan solo le di un valor a la propiedad ANCHOR que se ajuste a las medida de mi formulario.

Y Listo...

PD: Si algun colega posee el paquete completo de los SKIN de la versión 2.0 y los pueda compartir seria genial...

 Saludos,

Integral

[integral]

Que tal Amigos :

Buenas Tardes

Siguiendo como el tema del VFPSkin 2.0

Un colega me escribe y me pide que muestre los 10 Skins que vienen con dicha versión que es gratuita...

 Aquí una imagen de los Skin que contiene...

No se realmente si son mas de 10 Skin. 

En todo caso si algún colega tuviera los Skin completos y los pudiera compartir...

Saludos,

Integral