Seleccionar shapes y moverlas

[rocio84]

Perdon por la tardanza de la respuesta , posiblemente ya lo hayas solucionado, de todos modos, asi es como puedes cargar la imagen de un TImage usando un openpicturedialog:

Código Delphi [-]
if OpenPictureDialog.Execute then    
Imagen.Picture.LoadFromFile(OpenPictureDialog.FileName);

Para seleccionar la imagen en lugar de usar un OpenDialog es mejor usar un OpenPictureDialog que esta especializado para imagenes.

[turminator]

Perfecto! Muchisimas gracias rocio84!

Lo único que me queda por dominar la aplicación seria que mediante dos edit (X, Y) se pudiera ir viendo las coordenadas de la imagen.

Como podria hacer esto?

Una vez mas,

Muchisimas gracias!

[rocio84]

De nada para eso estamos y para hace eso ultimo que me pides puedes asignar las coordenadas donde se va trasladando la imagen a los edits dentro del procedimiento que usas para moverla asi:

Código Delphi [-]
edCoordenadaX.Text := imagen.Left;
edCoordenadaY.Text := imagen.Top

puede que de error porque el texto de los edits es de tipo string y los valores son enteros, si eso ocurre haz una coversion con la funcion: inttostr(int) que devuelve una cadena de caracteres.

Un saludo.

[dec]

Hola,

Empezado por Rocío

puede que de error...

No, no es que pueda... es fatal el error si no se hace la oportuna conversión al tipo que nos interesa, como dices, con la función "IntToStr", por ejemplo.

[dicatek]

Ok!

Siguiente paso solucionado!

Al final creo que está quedando algo muy digno...jejeje.

Para finalizar y dejar lel proyecto bien arreglado me gustaria saber si hay algun modo de delimitar el campo de actuación de los image, es decir, evitar que puedan salir del form. Y si hay alguna opción de al pulsar encima de las image que saliera como seleccionada y mediante las flechitas del teclado, poder mover varios pixels.

Saludos y gracias de nuevo!

[rocio84]

Hola:

Limitar movimiento:
Para evitar que las imagenes no se salen de los bordes, desplazalas siempre que esa condicion se cumpla, para ello puedes hacer una funcion como la sigue:

Código Delphi [-]
function posicionIncorrecta(imagenTop,imagenLeft:integer):boolean;
begin 
result := (imagenTop = 0) or (ImagenLeft=0) or //bordes superior e izquierdo
              (imagenTop+imagen.Height=form.Height) or //borde inferior
              (imagenLeft+imagen.Width = form.Width); //borde derecho
end;

de modo que dentro del procedimiento en el que desplazas las imagenes añades un if--then en el que solo muevas la imagen si no se cumple esta condicion.

Seleccionar:
Para seleccionar una imagen puedes usar la clase Canvas de delphi con la que puedes dibujar un rectangulo que simule que tienes la imagen seleccionada en el evento OnClicK de la imagen.

Mover con el teclado:
Por ultimo para mover las imagenes con el teclado puedes hacer algo similar a moverlas con el raton solo que q tienes que usar el evento OnKeyDown. En este evento compruebas si se ha pulsado las flechas del teclado y dependiendo de cual se pulse mueves en una direccion u otra. Para comprobar que se pulsan las flechas compara 'key' con:

VK_DOWN
VK_UP
VK_LEFT
VK_RIGTH

Un Saludo.

[alec287]

Hola, mi nombre es alejandro, y estoy intentando implementar algo parecido a lo que ustedes vienen hablando. Utilice la funcion que sugirieron para controlar que los shapes no se puedan mover fuera del area del formulario (en mi caso un panel). El problema que tuve es que cuando llego a uno de los extremos, el shape no se sale del form, pero no lo puedo volver a mover mas, se queda fijo en esa posicion. Les agradeceria cualquier tipo de ayuda. Desde ya muchas gracias.

Alejandro.