Forum: Object-Pascal / Delphi-Language
Delphi
by alcaeus,
5. Okt 2004
:roll: Ich sollte wirklich wieder Delphi programmieren.
Fehler ist korrigiert.
Greetz
alcaeus
Forum: Object-Pascal / Delphi-Language
Delphi
by alcaeus,
5. Okt 2004
Hi MrWhoopee,
anscheinend programmiere ich zuviel php :roll:
Hier der überarbeitete Code
function DegToRad(Deg: Real): Real;
begin
Result := Deg*Pi/180;
end;
procedure ZeichneKreis(mx, my: Integer; r: Real; aCanvas: TCanvas);
Forum: Object-Pascal / Delphi-Language
Delphi
by alcaeus,
13. Sep 2004
Hi Jungs,
Ist noch zu früh :roll: :mrgreen:
Und zum Canvas & co.: "It's not a feature, it's a bug". So ist es kein Copy&Waste-Code :mrgreen:
Das Problem muss aber nicht notwendigerweise mit Trigonometrie gelöst werden:
for i := mx-r to mx+r do
begin
Forum: Object-Pascal / Delphi-Language
Delphi
by alcaeus,
13. Sep 2004
Hi Christian,
Chimaira hat Recht, das hab ich in meinem Code nicht berücksichtigt.
Hier eine Version die funktionieren (müsste)
function DegToRad(Deg: Real): Real;
begin
return Deg*Pi/180;
end;
Forum: Object-Pascal / Delphi-Language
Delphi
by alcaeus,
13. Sep 2004
Hi Matthias,
um genau zu sein wäre es
Canvas.Pixels := clBlack;
da x und y als Real deklariert sind. :zwinker:
Greetz
alcaeus
Forum: Object-Pascal / Delphi-Language
Delphi
by alcaeus,
13. Sep 2004
Hi Christian,
du musst in einer Schleife den Winkel durchgehn und darin die Koordinaten ausrechnen:
function DegToRad(Deg: Real): Real;
begin
return Deg*Pi/180;
end;
function ZeichneKreis(r: Real);