¿Cómo dibujar un punto en una imagen bmp en un timage?

[ecfisa]

Hola martin1982.

Empezado por martin1982

ok gracias
pero lo que quiero hacer es que cuando aprete un boton me aparezca este punto en la imagen bmp, con un boton cargo la imagen bmpy con el otro preciso que me dibuje el punto

¡ Pero si escafandra ya te dió toda la información necesaria para hacerlo ! Solo tenes que trabajar un poquito y situar el código en otro evento (el click del botón).

También podes hacer un procedimiento para así llamarlo desde donde quieras, ej:

Código Delphi [-]
procedure PutPixel(Image: TImage; const Pto: TPoint; const Color: TColor);
begin
  Image.Canvas.Pixels[Pto.X, Pto.Y] := Color;
end;

// Ejemplo de uso
procedure TForm1.Button2Click(Sender: TObject);
begin
  PutPixel(Image1, Point(1,1), clRed);
end;

Sobre cargar la imágen, todo depende de como quieras hacerlo, pero una forma puede ser:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  with OpenPictureDialog1 do
    if Execute then
      Image1.Picture.LoadFromFile(FileName);
end;

Saludos