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
