BGRABitmap tutorial 2/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 ein Bild laden und und es auf ein Formular zeichnen 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		### Laden Sie die Bitmap
8	8
9	9		Kopieren Sie ein Bild in Ihr Projektverzeichnis. Nehmen wir an, sein Name sei image.png.
10	10
11	11		Fügen Sie dem Hauptformular eine private Variable zum Speichern des Bildes hinzu:
12	12
13	13		``` pascal
14	14		TForm1 = class(TForm)
15	15		private
16	16		{ private Deklarationen }
17	17		image: TBGRABitmap;
18	18		public
19	19		{ öffentliche Deklarationen }
20	20		end;
21	21		```
22	22
23	23		Laden Sie das Bild, wenn das Formular erzeugt wird. Dazu doppelklicken Sie auf das Formular und eine Prozedur erscheint im Codeeditor. Fügen Sie die Anweisung zum Laden hinzu:
24	24
25	25		``` pascal
26	26		procedure TForm1.FormCreate(Sender: TObject);
27	27		begin
28	28		image := TBGRABitmap.Create('image.png');
29	29		end;
30	30		```
31	31
32	32		### Zeichnen Sie die Bitmap
33	33
34	34		Fügen Sie einen OnPaint-Handler hinzu. Dazu wählen Sie das Hauptformular aus, gehen zum Objektinspektor, zum Karteireiter Ereignisse und doppelklicken Sie auf die Zeile 'OnPaint'. Dann fügen Sie den Zeichenbefehl ein:
35	35
36	36		``` pascal
37	37		procedure TForm1.FormPaint(Sender: TObject);
38	38		begin
39	39		image.Draw(Canvas,0,0,True);
40	40		end;
41	41		```
42	42
43	43		Beachten Sie, dass der letzte Parameter auf 'True' gesetzt ist (was undurchsichtig = opak bedeutet). Wenn Sie wollen, dass die im Alphakanal kodierten transparenten Pixel berücksichtigt werden, dann verwenden Sie stattdessen 'False'. Aber das transparente Zeichnen auf der Standardzeichenfläche kann langsam sein. Well es also nicht notwendig ist, zeichnen Sie nur opak.
44	44
45	45		### Resultierender Code
46	46
47	47		Sie sollten jetzt den folgenden Code haben:
48	48
49	49		``` pascal
50	50		unit UMain;
51	51
52	52		{$mode objfpc}{$H+}
53	53
54	54		interface
55	55
56	56		uses
57	57		Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
58	58		BGRABitmap, BGRABitmapTypes;
59	59
60	60		type
61	61		{ TForm1 }
62	62
63	63		TForm1 = class(TForm)
64	64		procedure FormCreate(Sender: TObject);
65	65		procedure FormPaint(Sender: TObject);
66	66		private
67	67		{ private Deklarationen }
68	68		image: TBGRABitmap;
69	69		public
70	70		{ öffentliche Deklarationen }
71	71		end;
72	72
73	73		var
74	74		Form1: TForm1;
75	75
76	76		implementation
77	77
78	78		{ TForm1 }
79	79
80	80		procedure TForm1.FormCreate(Sender: TObject);
81	81		begin
82	82		image := TBGRABitmap.Create('image.png');
83	83		end;
84	84
85	85		procedure TForm1.FormPaint(Sender: TObject);
86	86		begin
87	87		image.Draw(Canvas,0,0,True);
88	88		end;
89	89
90	90		initialization
91	91		{$I UMain.lrs}
92	92
93	93		end.
94	94		```
95	95
96	96		### Starten Sie das Programm
97	97
98	98		Sie sollten ein Formular mit dem Bild in der oberen, linken Ecke sehen.
99	99
100		-	~~<figure>~~
101		-	~~<img src="BGRATutorial2.png" title="BGRATutorial2.png" />~~
102		-	~~<figcaption>BGRATutorial2.png</figcaption>~~
103		-	~~</figure>~~
	100	+	![](/wiki-images/d/db/BGRATutorial2.png)
104	101
105	102		### Zentrieren des Bildes
106	103
107	104		Vielleicht wollen Sie das Bild auf dem Formular zentrieren. Dazu verändern Sie die Prozedur 'FormPaint':
108	105
109	106		``` pascal
110	107		procedure TForm1.FormPaint(Sender: TObject);
111	108		var ImagePos: TPoint;
112	109		begin
113	110		ImagePos := Point( (ClientWidth - Image.Width) div 2,
114	111		(ClientHeight - Image.Height) div 2 );
115	112
116	113		// Test auf eine negative Position
117	114		if ImagePos.X < 0 then ImagePos.X := 0;
118	115		if ImagePos.Y < 0 then ImagePos.Y := 0;
119	116
120	117		image.Draw(Canvas,ImagePos.X,ImagePos.Y,True);
121	118		end;
122	119		```
123	120
124	121		Um die Position zu bestimmen, berechnen wir den Platz zwischen dem Bild und dem linken Fensterrand (X-Koordinate) und den Platz zwischen dem Bild und dem oberen Fensterrand (Y-Koordinate). Der Ausdruck 'ClientWidth - Image.Width' gibt den verfügbaren horizontalen Platz zurück, und wir dividieren durch 2 und erhalten den linken Randabstand.
125	122
126	123		Das Ergebnis kann negativ sein, wenn das Bild breiter ist als ClientWidth. In diesem Fall setzen wir den Randabstand auf Null.
127	124
128	125		Starten Sie das Programm und beobachten Sie ob es funktioniert. Achten Sie darauf was passiert, wenn Sie den Test auf eine negative Position entfernen.
129	126
130	127		### Strecken des Bildes
131	128
132	129		Um das Bild zu strecken, müssen wir ein temporäres gestrecktes Bild erzeugen:
133	130
134	131		``` pascal
135	132		procedure TForm1.FormPaint(Sender: TObject);
136	133		var stretched: TBGRABitmap;
137	134		begin
138	135		stretched := image.Resample(ClientWidth, ClientHeight) as TBGRABitmap;
139	136		stretched.Draw(Canvas,0,0,True);
140	137		stretched.Free;
141	138		end;
142	139		```
143	140
144	141		Als Vorgabe wird das Bild mit feiner Auflösung neu gezeichnet, aber Sie können angeben, ob Sie stattdessen eine einfache Streckung, die schneller ist, verwenden wollen:
145	142
146	143		``` pascal
147	144		stretched := image.Resample(ClientWidth, ClientHeight, rmSimpleStretch) as TBGRABitmap;
148	145		```
149	146
150	147		Ebenso können Sie auch den Interpolationsfilter angeben mit der Eigenschaft 'ResampleFilter':
151	148
152	149		``` pascal
153	150		image.ResampleFilter := rfMitchell;
154	151		stretched := image.Resample(ClientWidth, ClientHeight) as TBGRABitmap;
155	152		```
156	153
157	154		[[BGRABitmap tutorial 1/de\|Erstes Tutorial]] \\| [[BGRABitmap tutorial 3/de\|Nächstes Tutorial (Zeichnen mit der Maus)]]
158	155
159	156		---
160	157		From the Free Pascal wiki, page "BGRABitmap tutorial 2/de", as it stood on 2020-02-10 after a change by Trev, 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