Informatik	Material Portal Portfolio Präsentation Grafik Tabellenkalkulation Informatik56 9 10 11 12 13 Messen, Steuern, Regeln Linux Theorie Didaktik Open Source Spiele Wettbewerbe Netzbetreuung intern Literatur Links Energie corewar UNIX/Linux Pfad: Startseite / Fächer / Informatik
Autor: be 21.09.2005 10:49 464

Grafikprozeduren

1. Schreiben Sie eine Prozedur moveToCenter, die den Stift in die Mitte der Image- Zeichenfläche setzt.
2. Schreiben Sie eine Prozedur kreis, die einen Kreis zeichnet, dessen Mittelpunkt die aktuelle Stiftposition ist (Image1.Canvas.PenPos.X und Image1.Canvas.PenPos.Y). Der Radius wird als Parameter an die Prozedur übergeben.
3. Schreiben Sie eine Prozedur lineToDot, die von der aktuellen Stiftposition einen Strich zu der als Parameter übergebenen Position zeichnet, und an die Endposition einen Kreis zeichnet, dessen Radius dem Vierfachen der aktuellen Stiftdicke entspricht.
4. Schreiben Sie ein Programm, das zunächst den Stift in die Mitte setzt (moveToCenter aufrufen). Wenn der Benutzer auf eine Position in der Zeichenfläche klickt (Ereignis OnMouseUp der Image-Komponente), soll die Prozedur LineToDot mit dieser Position als Parameter aufgerufen werden.