ecfisa |
27-06-2015 19:14:31 |
Hola martin1982.
Cita:
Empezado por martin1982
(Mensaje 493760)
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;
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 :)
|