Dibujar sobre una imagen.

[[seoane]]

Ese icono que quieres insertar, ¿seria siempre el mismo o cada icono puede ser diferente?, si son diferentes ¿seria un numero limitado de iconos preestablecidos o podría ser cualquier icono?. si solo es un icono la solución es inmediata, si es una lista de ellos podemos usar un TImageList para almacenarlos, pero si se puede insertar cualquier icono la cosa se complica, no es imposible, pero se complica.

[oregon]

Gracias Seoane,

Se trata de usar únicamente dos iconos distintos, para marcar dos cosas distintas en la imagen de fondo.

he encontrado un programa demostrativo de algo parecido a lo que quiero hacer. Está disponible en la página web de Neftalí, y creo que es muy útil para esto, y creo que puede solucionar el problema.

De toda formas, tus ideas también son bienvenidas para resolver el asunto.

Gracias de nuevo,

[[seoane]]

Me alegro de que ya hayas resuelto el problema, sin embargo yo he seguido con el ejemplo un poco mas. Ahora en vez de usar arrays dinámicos uso TObjectList, y además ya se pueden insertar imágenes. También permite exportar la imagen resultante como un bmp.

Aquí te lo dejo, puede que te sirva, yo pido la ruta de la imagen cada vez que se quiere insertar una nueva, tu puedes usar el mismo método pero utilizando una ruta fija.

[oregon]

Pues funciona de maravilla. Es exáctamente lo que quería. Me dedicaré a destripar el codigo fuente para ver si aprendo a programar de verdad . Y a ver como lo aprovecho para mi programa.

La verdad es que da gusto este foro.

ciao!

[oregon]

Saludos,

Tras varios días pengándome con esto, creo que he conseguido apañarlo para mi aplicación. Muchas gracias seoane por los ejemplos.
Ahora tengo un par de problemas asociados. ¿cómo capturo las coordenadas de cada uno de los iconos pintados en runtime? Necesito pasar las coordenadas de cada uno de los iconos a un label o un stringgrid, pero no se como se llama cada uno de estos componentes creados en ejecución.

¿alguna idea?
Gracias!!

[[seoane]]

En el ejemplo 31 cada una de las figuras se corresponde a un objeto creado en tiempo de ejecución e incluido en un TObjectList llamado Figuras. Pues bien si necesitamos saber las coordenadas de los objetos solo tenemos que recorrer la lista y para cada objeto revisar su propiedad BoundRect. Algo así:

Código Delphi [-]
var
  i: integer;
  Figura: TFigura;
begin
   for i:= 0 to Figuras.Count - 1 do
    begin
      Figura:= TFigura(Figuras[i]);
      with Figura.BoundsRect do
        Memo1.lines.add(Format('Left=%d,Top=%d,Right=%d,Bottom=%d',
          [Left,Top,Right,Bottom]));
    end;
end;

El código anterior es solo un ejemplo, se le pueden añadir un par de cosas. Por ejemplo si lo que quieres es el punto central puedes hacer algo como esto:

Código Delphi [-]
  x:= (Figura.BoundsRect.Left + Figura.BoundsRect.Right) div 2;
  y:= (Figura.BoundsRect.Top + Figura.BoundsRect.Bottom) div 2;

También puede ser que quieras diferenciar cada figura por separado, para eso añade a la clase TFigura un nombre, a la hora de crear una figura nueva tendrás que asignarle un nombre y luego dentro del bucle for solo tendrás que comprobar el nombre para saber cual es cada una.

[oregon]

Muchas gracias,

creo que con esto ya puedo solucionar el problema.
Qué haría yo sin este foro!

[cenedelphi]

Para pintar o rellenar la figuras como sería.
ejemplo recangulos zules, elipses rojas.