Delphi - Imagen que se pueda marcar

   
Vista:

Imagen que se pueda marcar

Publicado por Joan Carles (9 intervenciones) el 27/09/2012 09:59:31
Buenos días a todos/as,
Estoy realizando una pequeña aplicación donde hay una imagen de una persona, en esta imagen, cuando se pongan con el cursor encima y cliquen se tiene que dejar una marca en el lugar donde se ha clicado.
Alguien ha tenido que realizar una tarea como esta alguna vez, se le ocurre a alguien como podria realizarse.
Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Imagen que se pueda marcar

Publicado por E.T. (1108 intervenciones) el 27/09/2012 17:45:16
Es algo bastante sencillo, solo debes dibujar sobre el canvas del TImage, suponiendo que estas mostrando tu imagen en un TImage, prueba con lo siguiente

1
2
3
4
5
6
7
8
9
procedure TForm1.Image1Click(Sender: TObject);
var pos: TPoint;
begin
pos := Image1.ScreenToClient(Mouse.CursorPos);
Image1.Canvas.Rectangle(pos.X - 2, pos.Y - 2, pos.X + 3, pos.Y + 3);
Image1.Canvas.Brush.Style := bsSolid;
Image1.Canvas.Brush.Color := clRed;
Image1.Canvas.FillRect(Rect(pos.X - 1, pos.Y - 1, pos.X + 2, pos.Y + 2));
end;
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar