Revisa estos tres eventos ejecutados sobre una imagen y luego me cuentas.
procedure TFrepfurgones.Image2MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
PenDown := True;
StartPoint := Point(X,Y);
end;
procedure TFrepfurgones.Image2MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
If penDown Then
Begin
IF Frepfurgones.CheckBox4.Checked = True Then
Begin
Image2.Canvas.Pen.Color := ClWhite;
Image2.Canvas.Pen.Width := 6;
End
Else
Begin
Image2.Canvas.Pen.Color := ClRed;
Image2.Canvas.Pen.Width := 2;
End;
Image2.Canvas.MoveTo(StartPoint.X, StartPoint.Y);
Image2.Canvas.LineTo(X,Y);
StartPoint := Point(X,Y);
End;
procedure TFrepfurgones.Image2MouseUp(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
PenDown := False;
end;
|