Escribir en un componente Image
 

Hola a todos
Tengo una consulta a ver si me podéis ayudar.:)
Tengo un componente Image en un form, en este puedo dibujar lineas y demás, con una modificación que le hice a un ejemplo de delphi.
Lo que tengo escribe pero sacado de un edit, osea escribo en un edit y luego lo coloco en el image.
Lo que me gustaría es poder escribir directamente sobre este, colocando el cursor en un sitio de la imagen y escribir directamente.
Se podrá?, como?.
Gracias por vuestra ayuda.
Saludos

Hola
Lo que tengo:

Código Delphi [-]
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var AnteriorBkMode: integer; 
begin 
Drawing := True; Image.Canvas.MoveTo(X, Y);
 Origin := Point(X, Y); MovePt := Origin; 
with Image.Canvas do 
begin Brush.Color := clRed; // TextOut(X, Y, Edit1.Text);
AnteriorBkMode := SetBkMode(Handle, TRANSPARENT);
TextOut(X, Y, Edit1.Text);
SetBkMode(Handle, AnteriorBkMode);
end;
end;

Saludos

Caramba Caral, lo que pides no es sencillo. Se me ocurren varias alternativas:

1. Al pulsar sobre la imagen se muestre un edit en la posición del puntero y al pulsar enter, ocultarlo y dibujar el texto.
2. Capturar las pulsaciones de teclado e ir dibujando directamente sobre la imagen. Esto es bastante complejo, pero se podría hacer.
3. Permitir desplazar el texto sobre la imagen, como si de un objeto se tratar. Esta también es compleja, pero ya esta hecho

¿Que te parece? Por ahora es todo lo que se me ocurre :)

Hola
Muchas Gracias Seoane
El ejemplo es muy bueno, voy a tratar de implementar algo con el, si tengo alguna duda te la comento.
Por el momento ya esta bien.
Te reitero mi agradecimiento.
Saludos

Hola,

Tal vez también podrías usar el componente "TSimpleGraph" de DelphiArea. En realidad es para dibujar gráficos, pero, si no recuerdo mal, permite escribir texto en el "panel" en que se dibuja. Como puedes guardar dicho panel como una imagen... ya digo, lo mismo te interesa echarle un vistazo por lo menos. ;)

Hola
Muchas gracias Dec.
Efectivamente se pude escribir, esta muy bueno.
Voy a tratar de ver como se usa el componente, se ve muy funcional.
Gracias.
Saludos