Bei mousedown Canvas Verschieben?

[Bummi]

Eine andere Option ist die Zeichenroutine immer gleich zu lassen und das Canvas vor dem Zeichnen zu transformieren.

Delphi-Quellcode:

uses Math;


Procedure SetCanvasZoomAndRotation(ACanvas:TCanvas;Zoom:Double;Angle:Double;CenterpointX,CenterpointY:Double);
var
    form : tagXFORM;
    AngleRad:Double;
begin
      AngleRad := DegToRad(Angle);
      SetGraphicsMode(ACanvas.Handle, GM_ADVANCED);
      SetMapMode(ACanvas.Handle,MM_ANISOTROPIC);
      form.eM11 := Zoom * cos( AngleRad);
      form.eM12 := Zoom *Sin( AngleRad)  ;
      form.eM21 := Zoom * (-sin( AngleRad));
      form.eM22 := Zoom * cos( AngleRad) ;
      form.eDx := CenterpointX;
      form.eDy := CenterpointY;
      SetWorldTransform(ACanvas.Handle,form);
end;
Procedure ResetCanvas(ACanvas:TCanvas);
begin
   SetCanvasZoomAndRotation(ACanvas , 1, 0, 0,0);
end;