Image zoom beim Editieren ?

[thomas2009]

Was ist nicht klar ?
Der zoom-Code ist komplet da
Ok, dann versuch mal eine Freihandlinie auf Image nach dem Zoom zu zeichnen :

Delphi-Quellcode:

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Canvas.LineTo(X, Y);
end;
 
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Canvas.MoveTo(X, Y);
end;

Also bei mir bei 120% zoom sieht die Lage wie im Bild
also die Linie wird so weit von dem Cursor gezeichnet