einen Kreis zu Fuß zeichen

[alcaeus]

Hi MrWhoopee,

anscheinend programmiere ich zuviel php :roll:
Hier der überarbeitete Code

Delphi-Quellcode:

function DegToRad(Deg: Real): Real;
begin
  Result := Deg*Pi/180;
end;

procedure ZeichneKreis(mx, my: Integer; r: Real; aCanvas: TCanvas);
var
  i: Integer;
  x, y: Real;
begin
  aCanvas.MoveTo(Round(mx+r), Round(my));
  for i := 1 to 359 do
  begin
    x := r*cos(DegToRad(i));
    y := r*sin(DegToRad(i));
    aCanvas.LineTo(Round(mx+x),Round(my-y));
  end;
  aCanvas.LineTo(Round(mx+r), Round(my));
end;

Zu deinen Fehlern, hast du die Unit Graphics eingebunden? Das ist der einzige Fehler der mir einfällt.

Greetz
alcaeus

[edit]Fehler im Code, siehe nächsten Beitrag[/edit]

[fiasko]

Zitat:

Zitat von alcaeus

Delphi-Quellcode:

function ZeichneKreis(mx, my: Integer; r: Real; aCanvas: TCanvas);

alcaeus meinte sicherlich :mrgreen: :

Delphi-Quellcode:

procedure ZeichneKreis(mx, my: Integer; r: Real; aCanvas: TCanvas);

[alcaeus]

:roll: Ich sollte wirklich wieder Delphi programmieren.
Fehler ist korrigiert.

Greetz
alcaeus

[Robert Marquardt]

Das ist ein Fehler der erst in Delphi 5 beseitigt wurde.
Vorher konnte man procedure deklarieren und function implementieren.

[FAlter]

Zitat:

Zitat von Robert Marquardt

Das ist ein Fehler der erst in Delphi 5 beseitigt wurde.
Vorher konnte man procedure deklarieren und function implementieren.

Dann finde ich es verwunderlich, dass Delphi 3 dabei herummeckert, wenn das erst ab 5 nicht mehr geht...

[Mr Whoopee]

dann erstmal mega danke :)
wenn du das so so hinbekommen würdest, dass man die kugel in 3d berechnet, dann in 2d runterrechnet und mit canvas darstellt,
dann biste der gott :D

EDIT: wie kann ich die canvasfarbe da ändern?

[JasonDX]

fürs farbe ändern: Canvas.Pen.Color is da das stichwort

[himitsu]

Und wenn es sich nicht nur im Punkte/Linien handelt, dann ist zusätzlich auch noch Canvas.Brush.Color wichtig ;)