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