[VF] Redimencionar Imagenes

1,117 views
Skip to first unread message

Rita Cecila Restrepo De La Hoz

unread,
Apr 9, 2012, 6:17:54 AM4/9/12
to Comunidad de Visual Foxpro en Español
Hola Chicos


Tengo una imagen de 200 px x 200 px de una huella y la presente en una Objeto imagen de 150 px x 150 px sin problemas, peroooo....

Existe alguna forma que yo pueda agragarle a mi Form un Boton de Zoon y me muestre la imagen de 300 px x 300 px.

Cual seria el comando para yo investigarlo.

Les deseo un lindo día.

Gracias.


Rita

PD: Les deseo no tomen SOPA de CISPA por una PIPA, jajajaja, (Solo era un chiste de mal gusto, pero es un chiste al menos).

edgar suarez kummers

unread,
Apr 9, 2012, 6:56:37 AM4/9/12
to publice...@googlegroups.com
http://weblogs.foxite.com/vfpimaging/2006/02/06/resize-images-with-vfp9-and-gdi/

Linda Rita ... te envío la sopa de imágenes que deseas ...

suerte

edgar
--
edgar suarez kummers

Daniel Sánchez

unread,
Apr 9, 2012, 9:04:15 AM4/9/12
to publice...@googlegroups.com
Es muy sencillo podrías poner un botón con + y otro -, el primero amplia el objeto imagen un 25% y el segundo reduce el 25% entonces tendrías que escribir algo como esto en el botón +

thisform.myimagen.width=thisform.myimagen.width+(thisform.myimagen.width*.25)
thisform.myimagen.height=thisform.myimagen.height+(thisform.myimagen.height*.25)

y el en botón - lo inverso

thisform.myimagen.width=thisform.myimagen.width-(thisform.myimagen.width*.25)
thisform.myimagen.height=thisform.myimagen.height-(thisform.myimagen.height*.25)

Podrías también dar un tamaño mínimo y máximo a tu imagen para que no crezca ni reduzca demasiado, en todo caso podrías tener el tamaño base y sobre eso ampliar un 25% ya que en el ejemplo mostrado te ampliaría o reduciría el tamaño 25%+ sobre el nuevo tamaño.

Saludos

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

Walter R. Ojeda Valiente

unread,
Apr 9, 2012, 9:10:34 AM4/9/12
to publice...@googlegroups.com
El problema es que, según cual sea el formato gráfico utilizado, al aumentar el tamaño de la imagen se va perdiendo nitidez.

Saludos.

Walter.




Date: Mon, 9 Apr 2012 08:04:15 -0500
Subject: Re: [vfp] [VF] Redimencionar Imagenes
From: resets...@gmail.com
To: publice...@googlegroups.com

Walter R. Ojeda Valiente

unread,
Apr 9, 2012, 9:23:24 AM4/9/12
to publice...@googlegroups.com
Yo lo hubiera escrito así, porque se escribe menos, según mi criterio es más entendible y si se quiere cambiar el porcentaje de variación se lo hace en un solo lugar:

lnVariacion = 0.25

Para aumentar

with ThisForm.Image1
    .height = .height * (1 + lnVariacion)
    .width = .width * (1 + lnVariacion)
endwith

Para disminuir

with ThisForm.Image1
    .height = .height * (1 - lnVariacion)
    .width = .width * (1 - lnVariacion)
endwith

Saludos.

Walter.




From: wr...@hotmail.com
To: publice...@googlegroups.com
Subject: RE: [vfp] [VF] Redimencionar Imagenes
Date: Mon, 9 Apr 2012 13:10:34 +0000

Carlos Miguel FARIAS

unread,
Apr 9, 2012, 10:54:51 AM4/9/12
to publice...@googlegroups.com
Si una imagen que estas mostrando crece, hay que tener en cuenta que
el área a mostrar va a ser mayor.
En mi caso, tenia que mostrar fotos de monumentos y el espacio
disponible estaba acotado.
Entonces, al incrementar el tamaño, debía ocultar parte de la imagen,
y además permitir acceder (hacer scroll arriba-abajo,
derecha-izquierda) de la parte que quedaba oculta.
Entonces, lo que hice es poner "en el fondo" el control imagen y
arriba poner contenedores que tapaban lo que no debía verse.
Cuando hacia zoom, incrementaba el tamaño del control imagen (y el
tamaño de la imagen), e inclui botones para permitir los
desplazamientos en las direcciones requeridas.
De esa manera, en el area de imagen (de tamaño fijo). Podía ver la
imagen en tamaño base (completa) o estirar la imagen y ver la parte de
interes con zoom.
Saludos: Miguel, La Pampa (RA)

El 09/04/12, Walter R. Ojeda Valiente <wr...@hotmail.com> escribió:


>
> Yo lo hubiera escrito así, porque se escribe menos, según mi criterio es más
> entendible y si se quiere cambiar el porcentaje de variación se lo hace en
> un solo lugar:
>
> lnVariacion = 0.25
>
> Para aumentar
>
> with ThisForm.Image1
> .height = .height * (1 + lnVariacion)
> .width = .width * (1 + lnVariacion)
> endwith
>
> Para disminuir
>
> with ThisForm.Image1
>
> .height = .height * (1 - lnVariacion)
>
> .width = .width * (1 - lnVariacion)
>
> endwith
>
>
> Saludos.
>
> Walter.
>
>
>

> From: wr...@hotmail.com
> To: publice...@googlegroups.com
> Subject: RE: [vfp] [VF] Redimencionar Imagenes
> Date: Mon, 9 Apr 2012 13:10:34 +0000
>
>
>
>
>
>
>
> El problema es que, según cual sea el formato gráfico utilizado, al aumentar
> el tamaño de la imagen se va perdiendo nitidez.
>
> Saludos.
>
> Walter.
>
>
>

Rita Cecila Restrepo De La Hoz

unread,
Apr 9, 2012, 11:23:49 AM4/9/12
to publice...@googlegroups.com
Hola Chicos, mil gracias a todos por sus ejemplos, ya me sale como quiero de acuerdo a sus recomendaciones.

Por cierto si es gratis el viaje al matrimonio de Walter me apunto (Jajajaja), WALTER sera que no puedes posponer el matrimonio hasta Septiembre para poder ir yo colaboro con las velas por el apagón pronosticado (Jajajaja).

Gracias Daniel me sirvió mucho tu ejemplo, Edgar gracias también por tu colaboración.

Con referencia a la nueva ley que esta cursando, precisamente es contra la "NUBES DE ALMACENAMIENTO", ya que al estar en un medio "INTANGIBLE" cuando se captura a una persona ya no tiene la prueba física del delito, es algo delicado esa Ley ya que al tratar de contrarrestar un mal, se esta creando una incertidumbre de violación a los derechos fundamentales.

Yo no estoy de acuerdo, prefiero buscar otros medios para capturar a los delincuentes que violar los derechos fundamentales de las personas, por muy delincuente que sea.

Ya casi termino la primera parte que le voy a mostrar para su evaluación.

Un Gran Abrazo para todos (Aunque parezca para muchos muy licenciosa, Jajajajaja)

Rita.

Walter R. Ojeda Valiente

unread,
Apr 9, 2012, 5:46:17 PM4/9/12
to publice...@googlegroups.com
Rita, podrás comer y beber todo lo que quieras el día de mi boda, hasta hartarte; pero el viaje te lo pagas tú. Aunque quizás yo pueda colaborar presentándote a algún paraguayito con muchos billetes para que tu viaje haya valido la pena, ja, ja, ja, ja.

Y si fuera por mí, ya me habría casado, estoy súper impaciente desde hace un mes, estos días pasan muy lentamente, el día tan ansiado no llega nunca pero bueno .... paciencia.

Así que ¿esperar hasta Septiembre? noooooooooooooooooooo, no quiero correr el riesgo de que Fátima cambie de idea :-)

Besos.

Walter.




Date: Mon, 9 Apr 2012 10:23:49 -0500

Subject: Re: [vfp] [VF] Redimencionar Imagenes
Reply all
Reply to author
Forward
0 new messages