relativen Urprung eines Canvas ermitteln

[Takeshi]

Tag.

Ich möchte in einer Funktion der ein Canvas übergeben wird dessen Ursprung auf dem Bildschrim ermmitteln. Ich habe das Problem folgendermaßen vereinfacht:

Delphi-Quellcode:

function GetCvasOrgn(CVas:TCanvas):TPoint;
begin
GetDCOrgEx(CVas.Handle,Result);
end;

procedure TForm1.btnCheckOrgnClick(Sender: TObject);
begin
Mouse.CursorPos:=GetCvasOrgn(PaintBox1.Canvas);
end;

Beim Klick auf den btnCheckOrgn springt der Mauszeiger aber an den ClientOrigin der Form und nicht an den Origin der PaintBox.
Was mach ich da falsch?

Viele Grüße + Danke, Christoph

[Assarbad]

Im PSDK steht:

The GetDCOrgEx function retrieves the final translation origin for a specified device context (DC). The final translation origin specifies an offset that the system uses to translate device coordinates into client coordinates (for coordinates in an application's window).

[Sprint]

Zitat von Takeshi:

Beim Klick auf den btnCheckOrgn springt der Mauszeiger aber an den ClientOrigin der Form und nicht an den Origin der PaintBox.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Origin: TPoint;
begin

  GetViewportOrgEx(PaintBox1.Canvas.Handle, Origin);
  Origin := ClientToScreen(Origin);
  SetCursorPos(Origin.X, Origin.Y);

end;

Wie du das jetzt in deine Funktion einbauen kannst, überlasse ich dir.

[Takeshi]

Hmmm danke, aber.. mir ist nicht verständlich, warum das bei ner PaintBox funzt aber bei nem Image nicht.