Dibujar en DBImage

[[Delphius]]

Hola amigo Carlos, por el momento está en BETA, pero para ser chapuza anda:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
// creo el bmp y lo asocio al timage
var bmp: TBitmap;
begin
 bmp := TBitmap.Create;
 bmp.Height := 100;
 bmp.Width := 100;
 Image1.Picture.Bitmap.Assign(bmp);
end;

Código Delphi [-]
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
// guardo la posición
begin
  XX := X;
  YY := Y;
end;

Código Delphi [-]
procedure TForm1.Image1Click(Sender: TObject);
// y pinto una X en el lugar
begin
Image1.Picture.Bitmap.Canvas.Font.Size := 15;
Image1.Picture.Bitmap.Canvas.Font.Color := clRed;
Image1.Picture.Bitmap.Canvas.TextOut(XX,YY,'X');
end;

recuerda que para que funcione esto debe ser un bitmap. Y que debe tener alguno asignado.

Saludos,