Problemm mit Mauskoordinanten

[ferby]

Hallo,

Ich habe auf eine paintbox mit:

Delphi-Quellcode:

 paintbox1.canvas.Ellipse(10,10,200,200);

einen Kreis gezeichnet. Ich will jetzt wenn man irgendwo in den Kreis, mit der Maus, drück den Radius vom Mittelpunkt bis zur stelle der Maus wissen. Ich komme einfach nicht weiter. Ich glaube ich muss das MouseUp Ereigniss verwenden und mit den Koordinaten der Maus (X,Y) den Radius irgendwie berechnen... nur ich weiß nicht wie.

kann mir wer weiterhelfen???
ferby

[Kroko1999]

(1) der Mittelpunkt des Kreises liegt bei (xm,ym)= ((xe-xa) div 2+xa,(ye-ya) div 2+ya)
(2) der Abstand wäre dann (mausx-xm,mausy-ym)
(3) schreibe eine eigene Kreisprocedure:

Delphi-Quellcode:

procedure Circle (const ACanvas: TCanvas; const Xm,Ym,Radius: Integer);
var
  H: Integer;
begin
  H := Radius div 2;
  ACanvas.Ellipse (Xm-H,Ym-H,Xm+H,Ym+H);
end;

das macht die Sache übersichtlicher

//Edit
Problem mit einem M

[ferby]

Hallo,

Danke, ich schau mir deine Lösung mal in ruhe an.. mir ist mittlerweile selbst so etwas ähnliches eingefallen.. einfach das ganze mit Vektoren Lösen :-) ......