Forum: Multimedia
by Fussball-Robby,
19. Mär 2008
Gut, das es jetzt klappt. Ich würde aber die Variablen mx1,mx2,my1,my2 durch 2 TPoints ersetzen. Das sähe dann so aus:
const
Radius=100;
var
t:Real;
M1,M2:TPoint;
begin
if s1.Visible then begin
M1.X:=s1.left+(s1.Width div 2);
M1.Y:=s1.top+(s1.Height div 2);
Forum: Multimedia
by Fussball-Robby,
19. Mär 2008
Ja, du verstehst es richtig. 5 - Das sind auf denm Bildschirm ca. 3 Milimeter :wink:
Forum: Multimedia
by Fussball-Robby,
19. Mär 2008
Die Verbesserungen von mir und xX0815Xx müssten aber funktionieren. Und ABS brauchst du nicht, da beim quadrieren IMMER eine positive Zahl rauskommt.
Mfg
Ich sehe grade, es heißt nicht if sqr(t) <= 6 then begin sondern if sqrt(t) <= 6 then begin.
Sqr rechnet hoch 2, Sqrt zeiht die Wurzel.
Forum: Multimedia
by Fussball-Robby,
19. Mär 2008
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):
const Radius=6;
begin
Canvas.Ellipse(M.X-Radius,M.Y-Radius,M.X+Radius,M.Y+Radius);
end;
Mfg
Forum: Multimedia
by Fussball-Robby,
19. Mär 2008
^2 heißt zum quadrat oder hoch 2, also ist (x1-x2)^2 das gleiche wie (x1-x2)*(x1-x2)