Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Andi28,
7. Okt 2008
Achso :) so langsam versteh ich das ^^
dann wär das in meinem Fall wenn ich mich nicht ganz täusche ja :
function PointInCircle(p, center:TPoint; radius:integer):Boolean;
begin
// SQR() = Square-Funktion = quadrieren
// Hier wird die Formel a^2 + b^2 = c^2 von Pythagoras ausgenützt
Result := SQR(ax) + SQR(ay) <= SQR(radius);
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Andi28,
7. Okt 2008
Da mir geraten wurde mit dieser Funktion :
function PointInCircle(p, center:TPoint; radius:integer):Boolean;
begin
// SQR() = Square-Funktion = quadrieren
// Hier wird die Formel a^2 + b^2 = c^2 von Pythagoras ausgenützt
Result := SQR(p.x-center.x) + SQR(p.y-center.y) <= SQR(radius);
end;
meinen Quelltext :