Ayuda cambiar tamaño de una picture en Timage

[xavi28]

Bueno lo que necesito es hacer una clase de zoom en un Timage, necesito acercar y alejar, pero cambiar el tamaño de la picture no el de la timage,a gluien me podria ayudar???

[[enecumene]]

Hola, tal vez este truco te sirva:

http://www.q3.nu/trucomania/truco.cgi?512&ing

Saludos.

[xavi28]

muchas gracias lo intente peor la verdad noe s lo que necesito.

Me explicare un poco mejor.

Voy a poner 3 opciones en el popupmenu.
Acecar y alejar y normal, lo que se debe hacer en la imagen es un zoom in y un zoom out hay alguna forma?

[madriles]

hola
a ver si te vale esta idea, es sumamente sencilla.
pones en el Form un TPanel y dentro de este un TImage con Stretch y Proportional a True y Autosize a False y le pones una cantidad exagerada en el Width, 6000 por ejemplo.
Luego pones un ScrollBar con Min:=50,Max:=4000,Position:=200;
solo falta algo de codigo :

procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
Image1.Height := ScrollBar1.Position;
Image1.Left := Round((Panel1.Height - ScrollBar1.Position)/2);
Image1.Top := Round((Panel1.Width - ScrollBar1.Position)/2);
end;

te queda ajustar los valores a tu gusto
espero que te sirva

un saludo