Dibujar sobre una imagen.

[toorbye]

Hola, me gustaría que me pudieseis guiar un poco .He leído bastantes hilos en el foro, pero aun así no me aclaro.
Me gustaría sobre una imagen (un mapa en bmp) cargada mediante un Timage, situar varios puntos (puntos de interés). Con el tiempo tendría que poder poner mas donde yo quisiera. Supongo que para poner los puntos tendré que utilizar la propiedad Canvas del TImage, pero aun así no me aclaro muy bien… La idea es mediante un click colocar en esa zona el punto de interés.
Supongo que las coordenadas de los puntos tendrán que ir guardadas en una base de datos, para que en las sucesivas veces, al cargar el programa aparezcan ya los puntos en las zonas indicadas.

A ver si me podéis guiar un poco y que ideas se os o curren, o si existe algún tipo de componente para manejar esto de forma sencilla. Por cierto probé con el simplegraph pero no me aclaro como poder dibujar los puntos sobre el mapa.

Un saludo y gracias

[[Lepe]]

Si esos puntos debes poder borrarlos, editarlos, etc, considero muy oportuno guardar las coordenadas de los puntos. Otra opción es guardar el bitmap en un campo Blob, al rescatar la imagen, ya se ven los puntos, pero editar esos puntos es más "complejo".

Un punto de un solo pixel me parece casi imperceptible por el usuario, así que recomiendo una Elipse o bien un cuadrado, donde el centro de ese objeto, sea la coordenada a guardar.

Básicamente tienes que usar Canvas.Ellipsis para dibujar un punto redondo, o bien Canvas.Rectangle para dibujar un Cuadrado, si miras la ayuda, verás que tambien tienes que modificar las propiedades Canvas.Pen y Canvas.Brush ya que hay varios grosores de líneas (Pen) y varios formas de dibujar el cuadro (relleno completamente, a rayas horizontales, verticales, en diagonal, etc). Así como la forma de pintar (invirtiendo los colores, haciendo una mezcla del color de fondo con el color de la línea, superponer el color de la linea sobre el fondo, etc.

La mejor forma es haciendo un programita y probando todas las opciones.

Saludos

[[seoane]]

Aquí te dejo un pequeño juguete , arrastra con el ratón los símbolos de la derecha sobre la imagen para dibujarlos. En el código veras como dibujar círculos, cuadrados, lineas, etc.. entre otras cosas.

[dec]

Hola,

[Hint] ufrmMain.pas(144): Variable 'R' is declared but never used in 'TfrmMain.imgSimb01MouseUp'

Es una tontería. Me ha servido de excusa para decir que el ejemplo es fantástico como siempre Seoane.

[[seoane]]

Parece que se me olvido hacer limpieza

[toorbye]

Muchas gracias a todos por vuestras respuestas, le voy a echar un ojo al ejemplo y ya os iré contando.

Un saludo