FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Ayuda cambiar tamaño de una picture en Timage
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???
|
#2
|
||||
|
||||
__________________
Mi BLOG - ¡Joder, leanse la guia de estilo! Las Palabras son enanas, los ejemplos gigantes. |
#3
|
|||
|
|||
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? |
#4
|
|||
|
|||
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 |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
cambiar de color un Timage | fasthorse | Gráficos | 2 | 24-06-2008 15:59:34 |
Guardar Picture de TImage en un archivo bmp | kapullok_2006 | Gráficos | 2 | 21-05-2008 08:33:19 |
Como redimensionar una imagen al tamaño de un TImage??? | vejerf | Gráficos | 6 | 22-11-2007 01:41:37 |
Cambiar Origen de coodenadas en TImage | joeell | Gráficos | 4 | 04-11-2007 15:06:05 |
Como cambiar las cloordenadas de un Timage ? | gontxalo | Gráficos | 2 | 03-08-2005 12:08:06 |
|