Du musst noch die Wurzel von r ziehen, das geht mit
sqrt(r)
Und den Kreis machst du so (M ist ein TPoint und der Mittelpunkt deines Turmes):
Delphi-Quellcode:
const Radius=6;
begin
Canvas.Ellipse(M.X-Radius,M.Y-Radius,M.X+Radius,M.Y+Radius);
end;
Mfg
[Edit]Muss das hier
r:=sqr((s3.left-s2.Left)+(s3.Top-s2.top));
Nicht so aussehen?
r:=sqrt(sqr(s3.left-s2.Left)+sqr(s3.Top-s2.top));
[/edit]