Also ich übergeb jetzt die Werte in die procedure. Die sieht jetzt so aus:
Delphi-Quellcode:
procedure TSchieber.DrawLine(Canvas: TCanvas; a,l,r: double);
begin
//Berechnung der Strecken
b := sqrt(sqr(l)-sqr(a));
//Berechnung der Koordinaten
canvas.MoveTo(center.x, center.y + b);
canvas.LineTo(center.x + a, center.y);
end;
Jetzt hab ich zum einen noch das Problem dass die Werte a und b Integer sein müssen. Sollte ich vielleich runden?!? Aber nun hab ich das Problem "Ungültige Gleitkommaoperation in der Zeile wo b berechnet wird....
