Forum: Win32/Win64 API (native code)
Delphi
by Thunderchild,
19. Mär 2004
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.
Forum: Win32/Win64 API (native code)
Delphi
by Thunderchild,
16. Mär 2004
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...
Forum: Win32/Win64 API (native code)
Delphi
by Thunderchild,
16. Mär 2004
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...