Delphi

1. Delphi Grafikprogrammierung Ein Vortrag von Thomas Götze und Karsten Wolf

2. Problem: Wie kann ein Bild oder eine reale Situation in den Speicher eines Computers abgebildet (digitalisiert) werden? Möglichkeit 1 - Pixelgrafik: Aufbau des Bildes (Rasterung) aus Punktobjekten gleicher Größe, sog. Pixel. Jedes Pixel hat bestimmte Eigenschaften (Attribute), z. B. x-Position, y-Position oder Farbe, die mit Werten belegt werden. Möglichkeit 2 - Vektorgrafik: Aufbau des Bildes aus Grafikobjekten variabler Größe und Form (Vektorisierung). Jedes Objekt kann durch Anweisungen (Prozeduren), z.B. Zeichne Linie im Winkel 45°, 200 Einheiten lang, und Eigenschaften (Attribute), z.B. Linienbreite oder Farbe, beschrieben werden.

3. Theoretische Grundlagen Das Canvas-Objekt Das Koordinatensystem Linien und Stifte Farben, Muster und Pinsel Grundlegende Zeichenfunktionen Koordinatentransformation

4. Das Canvas- Objekt Ein zentrales Objekt der Grafikausgabe mit Delphi ist immer eine Zeichenfläche (Leinwand) der Klasse TCanvas.

5. Um Grafiken auf dem Bildschirm auszugeben, wird eine Komponente benötigt, welche die Eigenschaft Canvas besitzt, also eine Zeichenfläche. Zu diesen Komponenten gehören die Forms (die späteren Windows-Fenster), die Paintbox, die Image-Komponente und der Drucker. Am einfachsten zu benutzen ist davon die Image-Komponente, weil man sich bei dieser nicht um das Wiederherstellen der Zeichnung kümmern muss, wenn z.B. die Größe des Fensters verändert oder dieses von einem anderen Fenster überlagert wurde. Wir werden sie deshalb fast immer benutzen.

6. TCanvas stellt Eigenschaften, Ereignisse und Methoden zur Verfügung, die beim Erzeugen von Bildern hilfreich sind, indem sie: • die Art des verwendeten Pinsels und Stiftes sowie die Schriftart festlegen. • eine Vielzahl von Formen und Linien zeichnen und füllen. • Text ausgeben. • Grafiken zeichnen. • eine Reaktion auf Änderungen am aktuellen Bild ermöglichen.

7. Einige Delphikomponenten enthalten diese „Leinwand“, auf der gezeichnet werden kann. Am einfachsten zu benutzen ist die Image-Komponente (unter zusätzlich).

8. Im TCanvas-Objekt sind noch folgende Objekte enthalten: • Canvas.Pen • Pen.Width • Pen.Color • Pen.Style

9. Canvas.Brush • Brush.Color • Brush.Style

10. Canvas.Font • Font.Name • Font.Color • Font.Style • Font.Size Beispiel: Der Schrift einer Image-Komponente wird rot zugewiesen. Form1.Image1.Canvas.Font.Color:= clRed;

11. Das Koordinatensystem =Form1.clientwidth 0,0

12. 0,0 !!!Positive y-Werte werden nach unten abgetragen!!!!

13. Beispiel: Zentrierung der Image-Komponente innerhalb eines Formulars. Image1.left:=(Form1.clientwidth – Image1.width) div 2; Image1.top:=(Form1.clientheight – Image1.Height) div 2

14. Farben, Muster und Pinsel Windows verwaltet die Farben über das RGB (Rot – Grün – Blau )-Modell. Die Farbe kann u.a. über die ColorDialog – Komponente auswählen. Delphi besitzt aber auch zahlreiche vordefinierte Farben, welche mit dem Kürzel cl beginnen.

15. ColorDialog • - Colordialog – Komponente aus Register Dialoge wählen. • - Aufruf des Dialoges zur Laufzeit mit der Execute – Methode. • - ColorDialog1.Execute; • Den Rückgabewert verwenden: • Image1.Canvas.Brush.Color:=Colordialog1.Color;

16. Füllungen Brush.Style Brush.Color

17. Linien und Stifte

18. Pen.Style

19. Grundlegende Zeichenfunktionen

20. Punkt Punkte werden mit Hilfe der Pixel – Eigenschaft gesetzt. x-> 0,0 Canvas.Pixels[x,y]:=farbe; y Canvas.Pixels[7,9]:=clBlack; Bem.: Farbe kann somit auch gelesen werden: var farbe: TColor; farbe:= Canvas.Pixels[7,9];

21. Linie Zuerst wird der Startpunkt mit MoveTo festgelegt. Gezeichnet wird von dieser Position mit LineTo, die den Endpunkt bestimmt. Canvas.MoveTo(x1,y1); Canvas.LineTo(x2,y2); x2,y2 x1,y1 Image1.Canvas.MoveTo(10,10); Canvas.LineTo(100,100)

22. Kreis, Ellipse Es werden die linke obere und die rechte untere Ecke des umrahmenden Rechtecks festgelegt. Der Kreis wird als Spezialfall der Ellipse angesehen. Canvas.Ellipse(x1,y1,x2,y2) x1,y1 x2,y2 Oder Kreis mit Mittelpunkt x1, y1 und Radius r: canvas.ellipse(x1-r,y1-r,x1+r,y1+r)

23. Rechteck Canvas.Rectangle(x1,y1,x2,y2) x1,y1 x2,y2

24. abgerundetes Rechteck Die Ecken werden als Ellipsenviertel der Breite x3 und der Höhe y3 dargestellt. Ist Brush.Stile <>bsClear, wird das Rechteck mit dem aktuellen Pinsel gefüllt. Canvas.RoundRect(x1,y1,x2,y2,x3,y3:Integer; x1,y1 y3 x3 x2,y2 canvas.Roundrect(10,10,100,100,10,5);

25. Segment x3,y3 x1,y1 x2,y2 x4,y4 Die Methode Pie zeichnet ein Segment, das durch eine Ellipse und zwei Linien begrenzt wird. Für Brush.Style<> bsClear wird das Segment gefüllt. Canvas.Pie(x1,y1,x2,y2,x3,y3,x4,y4); Canvas.Pie(0,0,500,400,0,250,400);

26. Bogenstück x1,y1 x3,y3 x2,y2 x4,y4 Die Methode Arc zeichnet nur den Bogen, nicht die Verbindungen zum Ellipsenmittelpunkt. Keine Füllung. Canvas.Arc(x1,y1,x2,y2,x3,y3,x4,y4)

27. Kreisstück x3,y3 x1,y1 x2,y2 x4,y4 Mit der Chord-Methode wird der Teil des Kreises gezeichnet, der durch eine Sehne abgeteilt ist. Canvas.Chord(x1,y1,x2,y2,x3,y3,x4,y4)

28. Mehrfachlinie x2,y2 x5,y5 x1,y1 x4,y4 x3,y3 Ähnlich zur Linie, werden jedoch mehrere Punkte auf einmal übergeben. Canvas.Polyline([Point(x1,y1), Point(x2,y2).......]);

29. x3,y3 N-Eck (Polygon) x2,y2 x1,y1 ..... x4,y4 Mit der Polygon-Methode kann ein gefülltes n-Eck gezeichnet werden. Canvas.Polygon([Point(x1,y1), Point(x2,y2).....]);

30. Texte Die Methode TextOut ist die einfachste Methode, einen Text auf den Bildschirm zu bringen. Canvas.TextOut(x,y,Text); Canvas.TextOut(100,100,‘Wort‘);

31. Konvertieren der Koordinaten Probleme: • Der Ursprung des math. Koordinatensystems liegt meist in der Mitte des beschriebenen Blattes, auf dem Bildschirm liegt er in der linken oberen Ecke des Canvas. • Die y-Achse ist beim math. Koord.s. nach oben gerichtet, auf dem Bildschirm aber nach unten. • Die Längeneinheit ist in m. Ks. durch das Intervall von Null bis Eins gegeben, auf dem Bildschirm beträgt sie ein Pixel.

32. 1 Canvas y x 1 y1 1 yp y0 1 image1.width Div 2; x0:= y0:= image1.Hight Div 2; x1:= x0+x0 div 3; y1:= y0-y0 div 3; xp x1 x0

33. 1 y x 1

34. Anwendungsbeispiele Standardfunktionen Funktion

35. Quellen Programmieren lernen in Borland Delphi 6 Hanser Verlag