Ergebnis der Suchanfrage

• Forum: Multimedia

  AW: Bildbearbeitungsprogramm Auswahlwerkzeug

    Delphi
    by shmia, 19. Mai 2011
  Beim Kreis merkst du dir den Punkt in OnMouseDown.
  Dazu die Parameter x und y in einem TPoint speichern.
  FUrsprung := Point(x,y);
  
  Im Event OnMouseMove bekommt du neue Koordinaten mit denen du den Radius des Kreises berechnen kannst.
  FAktPunkt := Point(x,y);
  radius := CalcDistance(FUrsprung, FAktPunkt);
  ...
  // Hilfsfunktion
  function CalcDistance(p1,p2:TPoint):integer;