BGRABitmap tutorial 6/de: what changed

Revision 1 to 2. Removed lines have a minus sign; added lines have a plus sign.

Old	New		Line
1	1		Dieses Tutorial zeigt, wie Sie unterschiedliche Linienarten und Formen verwenden können.
2	2
3	3		### Erzeugen Sie ein neues Projekt
4	4
5	5		Erzeugen Sie ein neues Projekt und fügen Sie eine Referenz auf [[BGRABitmap/de\|BGRABitmap]] hinzu, genau so wie im [[BGRABitmap tutorial/de\|ersten Tutorial]].
6	6
7	7		### Fügen Sie einen Zeichen-Handler hinzu
8	8
9	9		Im Objektinspektor fügen Sie einen OnPaint-Handler hinzu und schreiben Sie:
10	10
11	11		``` pascal
12	12		procedure TForm1.FormPaint(Sender: TObject);
13	13		var image: TBGRABitmap;
14	14		c: TBGRAPixel;
15	15		begin
16	16		image := TBGRABitmap.Create(ClientWidth, ClientHeight, clBtnFace);
17	17		c := clWindowText;
18	18
19	19		image.RectangleAntialias(80,80,300,200, c, 50);
20	20
21	21		image.Draw(Canvas,0,0,True);
22	22		image.free;
23	23		end;
24	24		```
25	25
26	26		### Starten Sie das Programm
27	27
28	28		Das sollte ein Rechteck mit einem breiten, schwarzen Stift zeichnen.
29	29
30		-	~~<figure>~~
31		-	~~<img src="BGRATutorial6a.png" title="BGRATutorial6a.png" />~~
32		-	~~<figcaption>BGRATutorial6a.png</figcaption>~~
33		-	~~</figure>~~
	30	+	![](/wiki-images/0/06/BGRATutorial6a.png)
34	31
35	32		### Ändern Sie die Verbindungsart
36	33
37	34		Wenn Sie abgerundete Ecken wollen, geben Sie an:
38	35
39	36		``` pascal
40	37		image.JoinStyle := pjsRound;
41	38		```
42	39
43	40		### Starten Sie das Programm
44	41
45	42		Das sollte ein Rechteck mit einem breiten, schwarzen Stift und abgerundeten Ecken zeichnen.
46	43
47		-	~~<figure>~~
48		-	~~<img src="BGRATutorial6b.png" title="BGRATutorial6b.png" />~~
49		-	~~<figcaption>BGRATutorial6b.png</figcaption>~~
50		-	~~</figure>~~
	44	+	![](/wiki-images/3/34/BGRATutorial6b.png)
51	45
52	46		### Mischen Sie die Verbindungsarten
53	47
54	48		Sie können die Verbindungsarten für ein Rechteck folgendermaßen mischen:
55	49
56	50		``` pascal
57	51		image.FillRoundRectAntialias(80,80,300,200, 20,20, c, [rrTopRightSquare,rrBottomLeftSquare]);
58	52		```
59	53
60	54		Diese Funktion benutzt abgerundete Ecken als Vorgabe, aber Sie können dies durch normale Ecken oder abgeschrägte Ecken überschreiben. Sie erhalten dadurch folgendes Bild.
61	55
62		-	~~<figure>~~
63		-	~~<img src="BGRATutorial6e.png" title="BGRATutorial6e.png" />~~
64		-	~~<figcaption>BGRATutorial6e.png</figcaption>~~
65		-	~~</figure>~~
	56	+	![](/wiki-images/5/54/BGRATutorial6e.png)
66	57
67	58		### Ändern Sie die Linienart
68	59
69	60		Sie können auch eine punktierte Linie zeichnen:
70	61
71	62		``` pascal
72	63		image.JoinStyle := pjsBevel;
73	64		image.PenStyle := psDot;
74	65		image.DrawPolyLineAntialias([PointF(40,200), PointF(120,100), PointF(170,140), PointF(250,60)],c,10);
75	66		```
76	67
77	68		Sie erhalten dadurch folgendes Bild. Beachten Sie den gerundeten Linienanfang.
78	69
79		-	~~<figure>~~
80		-	~~<img src="Tutorial6c.png" title="Tutorial6c.png" />~~
81		-	~~<figcaption>Tutorial6c.png</figcaption>~~
82		-	~~</figure>~~
	70	+	![](/wiki-images/3/30/Tutorial6c.png)
83	71
84	72		### Ändern Sie die Linienenden
85	73
86	74		Zeichnen Sie einen Linienzug mit eckigen Linienenden:
87	75
88	76		``` pascal
89	77		image.JoinStyle := pjsBevel;
90	78		image.LineCap := pecSquare;
91	79		image.PenStyle := psSolid;
92	80		image.DrawPolyLineAntialias([PointF(40,200), PointF(120,100), PointF(170,140), PointF(250,60)],c,10);
93	81		```
94	82
95		-	~~<figure>~~
96		-	~~<img src="BGRATutorial6d.png" title="BGRATutorial6d.png" />~~
97		-	~~<figcaption>BGRATutorial6d.png</figcaption>~~
98		-	~~</figure>~~
	83	+	![](/wiki-images/7/73/BGRATutorial6d.png)
99	84
100	85		### Zeichnen offener Linien
101	86
102	87		Sie können eine offene Linie zeichnen, d.h. das Linienende ist ausgehöhlt.
103	88
104	89		``` pascal
105	90		image.DrawPolyLineAntialias([PointF(40,200), PointF(120,100), PointF(170,140), PointF(250,60)],c,10,False);
106	91		```
107	92
108		-	~~<figure>~~
109		-	~~<img src="BGRATutorial6f.png" title="BGRATutorial6f.png" />~~
110		-	~~<figcaption>BGRATutorial6f.png</figcaption>~~
111		-	~~</figure>~~
	93	+	![](/wiki-images/2/2f/BGRATutorial6f.png)
112	94
113	95		Auf diese Weise lassen sich mehrere Linien miteinander verbinden, ohne die Verbindung doppelt zu zeichnen. Das ist besonders nützlich bei semi-transparenten Zeichnungen. Vergleichen Sie die Ergebnisse:
114	96
115	97		``` pascal
116	98		c := BGRA(0,0,0,128);
117	99
118	100		image.DrawLineAntialias(40,150, 120,50, c, 10);
119	101		image.DrawLineAntialias(120,50, 170,90, c, 10);
120	102		image.DrawLineAntialias(170,90, 250,10, c, 10);
121	103
122	104		image.DrawLineAntialias(40,250, 120,150, c, 10, False);
123	105		image.DrawLineAntialias(120,150, 170,190, c, 10, False);
124	106		image.DrawLineAntialias(170,190, 250,110, c, 10, True);
125	107		```
126	108
127		-	~~<figure>~~
128		-	~~<img src="Tutorial6g.png" title="Tutorial6g.png" />~~
129		-	~~<figcaption>Tutorial6g.png</figcaption>~~
130		-	~~</figure>~~
	109	+	![](/wiki-images/8/8f/Tutorial6g.png)
131	110
132	111		[[BGRABitmap tutorial 5/de\|Voriges Tutorial (Ebenen und Masken)]] \\| [[BGRABitmap tutorial 7/de\|Nächstes Tutorial (Splines)]]
133	112
134	113		---
135	114		From the Free Pascal wiki, page "BGRABitmap tutorial 6/de", as it stood on 2024-02-15 after a change by Circular, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).

Back to history