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.
>
>
>