einen Kreis zu Fuß zeichen

[alcaeus]

Hi MrWhoopee,

anscheinend programmiere ich zuviel php
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 von alcaeus:

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

alcaeus meinte sicherlich :

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

[alcaeus]

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 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

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