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

[martin1982]

hola quiero saber como dibujar un punto en una imagen bmp previamente cargada en un timage

[[escafandra]]

Esto pinta un punto de color negro:

Código Delphi [-]
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Image1.Canvas.Pixels[X,Y]:= 0;
end;

Saludos.

[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

saludos

[Casimiro Notevi]

Empezado por martin1982

ok gracias

Bienvenido a clubdelphi

[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

[martin1982]

ok ya pude lograrlo muchas gracias

[martin1982]

hola quisiera saber como puedo hacer tengo dos t image en uno cargo una imagen y en esa imagen un punto quiero que desde ese punto se midan distancias y me las represente en el timage2 , resumiendo necesito que se me forme la misma imagen en el t image 2

[[escafandra]]

Para medir distancias debes usar el teorema de Pitágoras. Para copiar una imagen, le copias directamente entre canvas.

Saludos.

[ecfisa]

Hola martin1982.

Empezado por martin1982

hola quisiera saber como puedo hacer tengo dos t image en uno cargo una imagen y en esa imagen un punto quiero que desde ese punto se midan distancias y me las represente en el timage2 , resumiendo necesito que se me forme la misma imagen en el t image 2

Guía de estilo:

...
12. Solo se permite una pregunta por hilo, es una cuestión de simplicidad y objetividad en las respuestas y facilita las búsquedas.
...

Saludos y gracias por tu colaboración