Begrenzung/Bereich einer Ellipse !!!

[taza]

Ist es möglich den Bereich einer Ellipse zu definieren, um sagen zu können, ob sich ein Punkt auf oder neben dieser befindet ??? Ich will auf eine Stelle in meinem Programm klicken und dann angezeigt bekommen, ob der Klick "getroffen" hat (also auf der Ellipse liegt) oder er "daneben gegangen" ist (also neben die Ellipse liegt) :!: :!: :!:

Bitte um schnelle Antwort

;-)

[edit=r_kerber]Habe ich gestern abend ganz vergessen zu sagen: Die anderen Dreifach-Posts gelöscht! Mfg, r_kerber[/edit]

[Thunderchild]

Man könnte sich das ja leicht ausrechnen.
Ellipsengleichung: x²/a²+y²/b²=1 (gibt Ellipse um Nullpunkt mit a=Radius entlang x, b=Radius entlang y)

Diese Gleichung zum Beispiel nach y umstellen.

Aus dem Mausklick das x nehmen und in diese Gleichung für y einsetzen.
Das errechnete y mit dem y des Mausklicks vergleichen.

Beispiel:
Ellipse um den Punkt (100,100) mit Radius 50 entlang x und Radius 30 entlang y.

Delphi-Quellcode:

function MausklickDrin(x,y:integer):boolean; // x,y=Mauskoordinaten
var yEllipse:integer; // Mauskoordinaten
const Mitte_x=100; Mitte_y=100; a=50; b=30;
begin
  // 1. Mausklick in Relation zum Ellipsenmittelpunkt setzen:
  x:=x-Mitte_x; y:=y-Mitte_y;
  // 2. Abstand der Ellipse zur x_achse bei x ermitteln
  yEllipse:=sqrt((1-x*x/a/a)*b*b);
  // 3. Prüfen, ob y innerhalb von ±yEllipse liegt
  MausklickDrin:=(y>=-abs(yEllipse)) and (y<=abs(yEllipse))
end;

(ungetestet)

[taza]

Also wir es hier beschrieben wurde, klappt es leider nicht........schade eigentlich; na vielleicht gibt es ja noch weitere Varianten ;-)

Danke aber trotzdem schonmal.................... 8)

[czapie]

Das ist aber glaub ich der richtige Weg!
Guck es dir mal genauer an, alles andere wird nur schwieriger, aber warum bei "Windows API" ?

Czapie.

[taza]

Oh; da hab' ich wohl gänzlich das falsche Forum erwischt; danke für den Hinweis !!!

:oops:

[taza]

Bloß wo wird denn da jetzt angezeigt, ob der Klick sich nun auf oder neben der Ellipse befindet :?: :?: :?:

:roll:

[NicoDE]

Zitat:

Zitat von taza

wo wird denn da jetzt angezeigt, ob der Klick sich nun auf oder neben der Ellipse befindet?

Nirgendwo.
(IMHO sollte es ausreichen die Methode zu beschreiben, anstatt das Programm für Dich zu schreiben)

[Thunderchild]

Zitat:

Zitat von taza

Bloß wo wird denn da jetzt angezeigt, ob der Klick sich nun auf oder neben der Ellipse befindet :?: :?: :?:

:roll:

Das macht der Rückgabewert der Funktion; er ist true, wenn der Klick innerhalb der Ellipse ist.

Ich habe das ganze mal getestet und dadurch überarbeitet. Ein Fehler war die Wurzel. Da kam noch n abs() rein und ein round() drum rum. Außerdem hab ich die Endbedingung erweitert.

Beginne eine neue Anwendung, erzeuge einen Eventhandler für Form1.Create und Form1.OnPaint. Ersetze dann den ganzen Implementation-Code durch den folgenden:

Delphi-Quellcode:

procedure TForm1.FormPaint(Sender: TObject);
begin canvas.Ellipse(20,20,120,80) end;

function MausklickDrin(x,y:integer):boolean; // x,y=Mauskoordinaten
var yEllipse:integer; // Mauskoordinaten
const Mitte_x=70; Mitte_y=50; a=50; b=30;
begin
  x:=x-Mitte_x; y:=y-Mitte_y;
  yEllipse:=round(sqrt(abs((1-x*x/a/a)*b*b)));
  MausklickDrin:=(y>=-abs(yEllipse)) and (y<=abs(yEllipse)) and (x>=-a) and (x<=a)
end;

procedure TForm1.FormMouseDown;
begin if MausklickDrin(x,y) then form1.caption:='Ist drin' else form1.caption:='Ist nicht drin.' end;

[taza]

Vielen Dank; ich hoffe, es fu´nktioniert jetzt!!!

:-D

[taza]

[/delphi]ich habe jetzt ein kleines Problem: der Source-Code funktioniert ja, aber ich will ihn in mein schon vorhandenes Programm intigrieren; und da zeigt er den Fehler an:

Delphi-Quellcode:

 MausklickDrin(x,y)

--> er zeigt an: Operator oder Simikolion fehlt

was ist nun los?

Naja.........außerdem möchte ich es gern so hinbekommen, dass er es am besten mit Hilfe von:

Delphi-Quellcode:

 Canvas.TextOut(......................);

ausgibt; und das auch nur, wenn man raufgeklickt hat, dh nicht schon wenn man drüber fährt!!!


Na vielleicht kriegt es ja noch jemand hin - danke :thuimb:

[himitsu]

zum 2.:

Delphi-Quellcode:

procedure TForm1.FormMouseDown;
begin 
  if MausklickDrin(x,y) then {form1.}Canvas.TextOut(10, 20, 'Ist drin') {form1.}Canvas.TextOut(10, 20, 'Ist nicht drin.';
end;

zum 1.: wo meckert der genau?


Ach ja, für das Funktionsergebnis macht sich auch Result ganz gut, das ist extra dafür erschaffen wurden

Delphi-Quellcode:

function MausklickDrin(x,y:integer):boolean;
begin 
  Result := irgendwas;
end;

ist zwar das Selbe wie

Delphi-Quellcode:

function MausklickDrin(x,y:integer):boolean;
begin 
  MausklickDrin := irgendwas;
end;

aber wenn man z.B. mal die Funktion umbenennt, so braucht man den Name innerhalb der Funktion nicht mehr zu ändern.

[taza]

ich habe

Delphi-Quellcode:

 begin if MausklickDrin(x,y) then form1.caption:='Ist drin' else form1.caption:='Ist nicht drin.' end;

zu

Delphi-Quellcode:

 procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

hinkopiert, wo nämlich auch schon andere Sachen stehen !!!

Und da zeigt er mir den Fehler an:

Operator oder Semikolion fehlt; und zwar genau zwischen

Delphi-Quellcode:

 MausklickDrin(x    und    ,y)

Naja; vielleicht fällt mir ja noch was ein !!!!!!!!!!!!!!

[Thunderchild]

Das mit dem Semikolon ist nur ne Schreibfaulheit von mir. Ich laß das da, wo es erlaubt ist, einfach weg. Also am Zeilen(bzw. Befehls-)ende vor einem end, until, finally ect.