Entwickler-Ecke

Sonstiges (Delphi) - Ellipsen ineinander zeichnen


Funnygirly - Sa 22.05.10 12:51
Titel: Ellipsen ineinander zeichnen
Hallo,

ich schreibe bald eine Arbeit in Infromatik und will jetzt dafür üben. Komme aber nicht weiter. Ich soll mehrere Ellipsen mit passenden Schleifen ineinander zeichnen.
Ich nehme an, dass ich die kreise mit einer for-to-do Schleife zeichnen soll. Ich habe angefangen, allerdings zeichnet das Programm nur einen Kreis. Wie muss ichs denn machen?

So siehts bis jetzt aus:


Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
 
procedure TForm1.Button1Click(Sender: TObject);
var Ellipse:integer;
begin
for Ellipse:=1 to 10 do begin
   begin
      Image1.Canvas.Ellipse(50,50,100,100)
   end;
end;
end.



Lg

Moderiert von user profile iconChristian S.: Delphi-Tags hinzugefügt


uall@ogc - Sa 22.05.10 12:57

Delphi-Quelltext 
1:
 
Image1.Canvas.Ellipse(50+i,50+i,100-i,100-i)


Moderiert von user profile iconChristian S.: Delphi-Tags hinzugefügt


Funnygirly - Sa 22.05.10 13:45
ok danke :)

ich habs jetzt raus bekommen :)


Delete - Sa 22.05.10 17:59
Verbesser bitte doch noch mal den Titel deines ersten Beitrages. Ich hatte erst überlegt, warum er zwei ältere Damen in einander zeichen will. ;)


Funnygirly - Mo 24.05.10 10:30
ok stimmt is mir auch grad aufgefallen xD


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!