Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: Problemm mit Mauskoordinanten

    Delphi
    by Kroko1999, 7. Sep 2005
  (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:
  
  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);