Zoom en la imagen

[[cHackAll]]

Le doy la razón a Northern, para amodificar el tamaño de la IMAGEN y no así del "componente" te aconsejo revisar la API o método Canvas.CopyRect; un ejemplo de escala de grises y otro ejemplo de acceso a gráficos.


Saludos

[fasthorse]

Si, pero lo que me parece más raro haciendo el zoom menos, es que teniendo esto:

Imagen->Height=Imagen->Height/2;
Imagen->With=Imagen->With/2;

Siempre aumenta el tamaño del ancho y el alto de la imagen, y no se por qué... lo he depurado y veo que aumentan los valores, en vez de ser reducidos... cosa rarísimaa porque mira que le pongo que se divida entre 2. Y he mirado más ejemplos en Internet, pero más o menos son así y no me funcionan , y otra cosa que me pasa es que solo me aumenta una vez, la primera, no cada vez que le doy al botón... ¿será por alguna propiedad de la imagen? Aunque creo q las tengo bien puestas, tengo el Strech y proporcional a True, y el autosize también a True...
Es que por más vueltas que le doy... no se por qué me aumenta si le estoy diviendo su tamaño.

Gracias y saludos.

[[cHackAll]]

Empezado por fasthorse

...tengo el Strech y proporcional a True, y el autosize también a True...

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 Imagen->Picture->LoadFromFile("c:\\windows\\\Zapotec.bmp");
 Imagen->Height = Imagen->Picture->Height;
 Imagen->Width /= 2;
 Imagen->Width /= 2;
}

Stretch = True
AutoSize = False
Proportional = False

Saludos

[fasthorse]

Nada, con ese mismo código y esas mismas propiedades sigue aumentandome con el zoom menos, y solo me deja hacer una vez la operación, vamos q sigo igual...

Saludos.

[JoysticK]

A ver te pongo el codigo que yo utilizo y me funciona perfectamente:
Creo dos variables al cargar la imgen, tipo Integer, almacenando el Ancho y el Alto de la imagen original...

Un componente TImagen, con las propiedades

Autosize := False;
Strethc := True;
Proportional := True;

en el FormShow: (Con la imagen ya cargada en el picture)

Imagen.AutoSize := True;
Alto := Imagen.Width;
Ancho := Imagen.Height;

Despues le he puesto un slider (Zoom) y un Label (xzoom) y en el onchange del slider este codigo:

    Imagen.AutoSize := False;
    Imagen.Height := Round(Ancho * (Zoom.Value/100) );
    Imagen.Width := Round(Alto * (Zoom.Value / 100) );
    xzoom.Caption := '>> ZOOM ' + IntToStr(Zoom.Value) + ' % <<';

Pruebalo y me cuentas, a mi me funciona...