Poner Imagen a lo ancho de la pantalla

325 views
Skip to first unread message

integral

unread,
Apr 12, 2018, 4:13:17 PM4/12/18
to Comunidad de Visual Foxpro en Español

Estimados Amigos :

Estoy tratando de hacer que la imagen de fondo en un formulario ocupe todo el ancho cuando este maximizada el formulario para ello estoy utilizando un contenedor...

Aqui el codigo... 

WITH Thisform            
  .Container1.Width = Int(.Width)... 
Endwith

Si aumento la altura de la imagen cubre las 2 etiquetas que se visualizan al pie en la imagen. Por ello no cubro esa parte.

Alguien tiene ademas alguna idea de que codigo aplicar para que las 2 etiquetas aparescan siempre a dicha altura y no cambien por el tipo del tamaño del monitor...

Agradezco vuestra ayuda.

Saludos,

INTEGRAL
   
FONDO.jpg

Irwin Rodriguez

unread,
Apr 12, 2018, 4:23:19 PM4/12/18
to publice...@googlegroups.com
Has intentado con:

THIS.CONTAINER1.ANCHOR = 240

?
--
Irwin Rodríguez
Analista Programador

+593 0994903424
Latacunga - Ecuador
"Un equipo solo son piezas que intercambias hasta que terminas el trabajo, es eficiente, funciona."

integral

unread,
Apr 12, 2018, 5:44:10 PM4/12/18
to Comunidad de Visual Foxpro en Español

Amigo IRWIN :

Hice una prueba con el codigo mostrado...

Adjunto imagen del resultado.

Sldos,

INTEGRAL
FONDO_ACT.jpg

Irwin Rodriguez

unread,
Apr 12, 2018, 6:06:20 PM4/12/18
to publice...@googlegroups.com
De pronto en el RESIZE del contenedor:


WITH Thisform            
  .Container1.Width = Int(.Width)... 
Endwith

?

Fidel Charny

unread,
Apr 13, 2018, 7:13:00 AM4/13/18
to Comunidad de Visual Foxpro en Español
Prueba siguiendo este ejemplo. El codigo va en el Init del form y debes seguir el orden de modo que el anchor se establezca después de ajustar el contenedor y la imagen dentro  del contenedor.
WITH this
   
.cnt_proba.Top = 0
   
.cnt_proba.Left = 0
   
.cnt_Proba.Width = .Width
   
.cnt_proba.Height = .Height - 40
   
.cnt_proba.img_pict1.Width = .cnt_proba.Width
   
.cnt_proba.img_pict1.Height = .cnt_Proba.Height
   
.cnt_Proba.img_pict1.Stretch = 2    && también 0
   
   
.cnt_proba.img_pict1.Anchor = 15
   
.cnt_Proba.Anchor = 15
ENDWITH
Message has been deleted

integral

unread,
Apr 14, 2018, 12:30:07 AM4/14/18
to Comunidad de Visual Foxpro en Español

Amigo FIDEL :

Agradezco el código mostrado pero no logro hacer que funcione correctamente. El tema es hacer que la imagen ocupe todo el ancho de la pantalla para cualquier tipo de resolución y que además el top del fondo de la imagen no cubra las opciones del Menu FoxRibbon y tampoco el margen inferior para visualizar las 2 etiquetas de mensajes. La idea es buscar la forma que ambos mensajes estén hacia la parte inferior y esta altura se mantenga igual en cualquier tamaño de monitor... 

Agradezco vuestra ayuda y de cualquier colega del foro.

Saludos,

INTEGRAL
    
El jueves, 12 de abril de 2018, 15:13:17 (UTC-5), integral escribió:

integral

unread,
Apr 14, 2018, 12:34:05 AM4/14/18
to Comunidad de Visual Foxpro en Español

Trate de subir los archivos pero se bloquea el envio...

Algun colega que pueda ayudarme con la solución y me confirma para enviarle los archivos..

Sldos,

INTEGRAL


El jueves, 12 de abril de 2018, 15:13:17 (UTC-5), integral escribió:

ZeRoberto

unread,
Apr 14, 2018, 12:47:48 AM4/14/18
to publicesvfoxpro
Subelo a mediafire y compartes los links

Saludos

Irwin Rodriguez

unread,
Apr 14, 2018, 10:12:22 AM4/14/18
to publice...@googlegroups.com
Si estuvieras en el grupo de VFP por whatsaap ya hubieses resuelto desde hace rato. Por aqui solo podemos orientarte o pedirte en tal caso que subas tu formulario para analizarlo, pero por el grupo siempre ayudamos pidiendo conexion al AnyDesk y viendo el problema en caliente para tratar de resolver, y si no puede uno entonces hasy 200 más de reserva :-P

Saludos...!

Carlos Hidalgo

unread,
Apr 14, 2018, 10:26:27 AM4/14/18
to publice...@googlegroups.com
En el Whats resuelven muchas dudas... pero luego se les olvida comentar como lo solucionaron... y entre tanto msj cuesta encontrar algo..
Pero para respuestas rápidas excelente el grupo de Whats... solo que no queda un historial para futuras consultas..
Mi humilde opinión /de siempre/

Saludos
Message has been deleted

Luis suescún

unread,
Apr 15, 2018, 3:20:15 PM4/15/18
to publice...@googlegroups.com
Y es que hay un grupo de WhatsApp
Y como me puedo unir

integral

unread,
Apr 15, 2018, 7:44:46 PM4/15/18
to Comunidad de Visual Foxpro en Español

Que tal Amigos :

Tomando la idea del código mostrado del amigo Fidel pude expandir la imagen.

Ahora el tema pendiente esta en buscar la forma fijar el margen inferior para visualizar las 2 etiquetas de mensajes. La idea es buscar la forma que ambos mensajes estén hacia la parte inferior y esta altura se mantenga igual en cualquier tamaño de monitor... 

Sldos,

INTEGRAL

PD : AGRADEZCO SUS COMENTARIOS Y SUGERENCIAS...


El jueves, 12 de abril de 2018, 15:13:17 (UTC-5), integral escribió:
Fondo_Ampliado_COCHERA.jpg

José Carbonell

unread,
Apr 26, 2018, 11:35:43 PM4/26/18
to Comunidad de Visual Foxpro en Español
Prueba con esto...yo lo hago en mis aplicaciones y el resultado es correcto

cPathfondos = "c:\sistema\images\"
   
**** nuevas opciones para la pantalla responsive
   ejex=_screen.width
   ejey=_screen.Height

   _screen.AddObject("oImg", "image")
   _screen.oImg.Picture= cPathfondos+"tuimagen.jpg"
   _screen.oImg.visible = .t.
   _screen.oImg.stretch = 1
   _screen.oImg.width   = ejex
   _screen.oImg.height  = ejey

*********  





El jueves, 12 de abril de 2018, 15:13:17 (UTC-5), integral escribió:
Message has been deleted

integral

unread,
Apr 26, 2018, 11:38:57 PM4/26/18
to Comunidad de Visual Foxpro en Español

Amigo JOSE :

Gracias por mostrar el código de ejemplo pero ello aplica cuando se trabaja en el _SCREEN de VFP.

En este caso es expandir una Imagen como Fondo dentro de un formulario...

Saludos,

INTEGRAL


El jueves, 12 de abril de 2018, 15:13:17 (UTC-5), integral escribió:
Reply all
Reply to author
Forward
0 new messages