blikk info infothek forum galerie sitemap

Lösung Kirche

 anfang zurueck weiter ende nach oben
procedure TForm1.BTZeichnenClick(Sender: TObject);
begin
with form1.canvas do begin
     brush.color:=clwhite; (*die Farbe weiß wird bestimmt*)
     rectangle(5,5,form1.width-150,form1.top+325); (*die Maße der Leinwand
           als Rechteck werden bestimm*)
     BTZeichnen.enabled:=false; (*der Button "Zeichnen" ist nicht mehr
           anzuklicken*)

     sleep(2000); (*Pause von 2 Sekunden*)

     (*Straße wird gezeichnet*)
     moveto(5,300);
     lineto(form1.width-150,300);
     moveto(5,380);
     lineto(form1.width-150,380);

     sleep(2000); (*Pause*)

     (*Rechteck des linken Kirchenturms*)
     rectangle(80,100,120,200);

     sleep(2000);

     (*Tür und Türbogen des linken Kirchenturms*)
     rectangle(90,180,110,200); (*Rechteck*)
     moveto(100,180);
     lineto(100,200);
     pie(90,170,110,190,110,180,90,180); (*Türbogen*)

     sleep(2000);

     (*Uhr*)
     ellipse(90,110,110,130); (*Kreis*)
     moveto(100,112);
     lineto(100,120);
     lineto(105,120);

     sleep(2000);

     (*Dreieck als Dach des linekn Kirchturms*)
     moveto(80,100);
     lineto(100,80);
     lineto(120,100);


     sleep(2000);

     (*Rechteck des rechten Kirchbaues*)
     rectangle(120,150,200,200);

     sleep(2000);

     (*Dach des rechten Kirchbaues*)
     moveto(200,150);
     lineto(170,120);
     lineto(119,120);
    
     sleep(2000);

     (*alle drei Fenster werden gezecihnet*)
     rectangle(130,160,140,190); (*erstes Fenster ganz links als Rechteck*)
     rectangle(150,160,160,190); (*mitteleres Fenster*)
     rectangle(170,160,180,190); (*rechtes Fenster*)

     sleep(2000);

     (*1. Haus als Rechteck*)
     rectangle(300,150,350,200);

     sleep(2000);

     (*Dach des 1. Hauses als Dreieck*)
     moveto(300,150);
     lineto(325,125);
     lineto(350,150);

     sleep(2000);

     (*Tür des 1. Hauses als Rechteck*)
     rectangle(310,180,320,200);

     (*alle drei Fenster des 1. Hauses als Rechtecke*)
     rectangle(330,180,340,190);
     rectangle(330,160,340,170);
     rectangle(310,160,320,170);

     sleep(2000);

     (*2. Haus als Rewchteck*)
     rectangle(400,150,450,200);

     sleep(2000);

     (*Dach des 2. Hauses als Dreieck*)
     moveto(400,150);
     lineto(425,125);
     lineto(450,150);

     sleep(2000);

     (*Tür des 2. Haus als Rechteck*)
     rectangle(410,180,420,200);

     (*alle drei Fenster des 2. Hauses als Rechtecke*)
     rectangle(430,180,440,190);
     rectangle(430,160,440,170);
     rectangle(410,160,420,170);
end
end;

(*das gezeichnete Bild kann gelöscht werden, wenn es fartig gezeichnet wurde*)
procedure TForm1.BtLoeschenClick(Sender: TObject);
begin
with form1.canvas do begin

brush.color:=clwhite; (*die Fabre wird bestimmt*)
rectangle(5,5,form1.width-150,form1.top+325); (*Maße der Leinwand als Rechteck*)
BTZeichnen.enabled:=true; (*der Buttons zum zeichnen des Bildes kann wieder
        angeklickt werden*)
end
end;
end.
nach oben

Gemäß der Verordnung (EU) 2016/679 des Europäischen Parlaments und des Rates vom 27. April 2016 teilen wir mit, dass diese Webseite eigene technische Cookies und Cookies Dritter verwendet, damit Sie effizient navigieren und die Funktionen der Webseite einwandfrei nutzen können.

Cookie-Einstellungen ändernCookies annehmen