Hallo,
if sqrt(sqr(x)+sqr(y)) <= sqrt(sqr(paintbox.width)+(sqr(paintbox.heigth)) then
Das ist aber nicht im Sinne des Erfinders. Denn damit ist der Radius des Kreis so groß wie die Diagonale der PaintBox. Das hat dann die Folge, dass alle Punkte, die man sieht, innerhalb des Kreises liegen. Besser ist das:
Delphi-Quellcode:
R:= Min(paintbox.width, paintbox.heigth)
...
x:= random(R);
y:= random(R);
if (sqrt(x*x+y*y) < R) then
...
Einbeliebigername.