Sign in Join
Wiki copytemporary

BGRABitmap tutorial 6/fr: what changed

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

OldNewLine
1-[[BGRABitmap tutorial/fr|**Accueil**]] | [[BGRABitmap tutorial 1/fr|**Tutoriel 1**]] | [[BGRABitmap tutorial 2/fr|**Tutoriel 2**]] | [[BGRABitmap tutorial 3/fr|**Tutoriel 3**]] | [[BGRABitmap tutorial 4/fr|**Tutoriel 4**]] | [[BGRABitmap tutorial 5/fr|**Tutoriel 5**]] | **Tutoriel 6** | [[BGRABitmap tutorial 7/fr|**Tutoriel 7**]] | [[BGRABitmap tutorial 8/fr|**Tutoriel 8**]] | [[BGRABitmap tutorial 9/fr|**Tutoriel 9**]] | [[BGRABitmap tutorial 10/fr|**Tutoriel 10**]] | [[BGRABitmap tutorial 11/fr|**Tutoriel 11**]] | [[BGRABitmap tutorial 12/fr|**Tutoriel 12**]] | [Edit](<http://wiki.lazarus.freepascal.org/index.php?title=Template:BGRABitmap_tutorial_index/fr&action=edit>)
2-
3-Ce tutoriel montre comment utiliser les différents styles de lignes et les formes.
4-
5-## Contents
6-
7- * 1 Création d'un nouveau projet
8- * 2 Ajout d'un dessin
9- * 3 Exécution du programme
10- * 4 Changer le style de jointures
11- * 5 Exécution du programme
12- * 6 Mélanger les styles de jointures
13- * 7 Changer le style de ligne
14- * 8 Changer les extrémités des lignes
15- * 9 Dessin d'une ligne ouverte
1+Ce tutoriel montre comment utiliser les différents styles de lignes et les formes.
162
173### Création d'un nouveau projet
184
19-Créez un nouveau projet et ajoutez la référence à [[BGRABitmap]], de la même façon que dans [[BGRABitmap tutorial/fr|le premier tutoriel]].
5+Créez un nouveau projet et ajoutez la référence à [[BGRABitmap]], de la même façon que dans [[BGRABitmap tutorial/fr|le premier tutoriel]].
206
217### Ajout d'un dessin
228
23-Avec l'inspecteur de projet, ajoutez un gestionnaire _OnPaint_ :
24-```
9+Avec l'inspecteur de projet, ajoutez un gestionnaire *OnPaint* :
10+
11+``` pascal
2512procedure TForm1.FormPaint(Sender: TObject);
26- var image: TBGRABitmap;
27- c: TBGRAPixel;
28- begin
29- image := TBGRABitmap.Create(ClientWidth, ClientHeight, clBtnFace);
30- c := clWindowText;
31-
32- image.RectangleAntialias(80,80,300,200, c, 50);
33-
34- image.Draw(Canvas,0,0,True);
35- image.free;
36- end;
13+var image: TBGRABitmap;
14+ c: TBGRAPixel;
15+begin
16+ image := TBGRABitmap.Create(ClientWidth, ClientHeight, clBtnFace);
17+ c := clWindowText;
18+
19+ image.RectangleAntialias(80,80,300,200, c, 50);
20+
21+ image.Draw(Canvas,0,0,True);
22+ image.free;
23+end;
3724```
3825
3926### Exécution du programme
4027
41-Vous devriez obtenir un rectangle avec un pinceau noir épais :
28+Vous devriez obtenir un rectangle avec un pinceau noir épais :
4229
43-[![BGRATutorial6a.png](/wiki-images/0/06/BGRATutorial6a.png)](</File:BGRATutorial6a.png>)
30+![](/wiki-images/0/06/BGRATutorial6a.png)
4431
4532### Changer le style de jointures
4633
47-Si vous voulez des coins ronds, vous pouvez spécifier :
48-```
49-image.JoinStyle := pjsRound;
34+Si vous voulez des coins ronds, vous pouvez spécifier :
35+
36+``` pascal
37+ image.JoinStyle := pjsRound;
5038```
5139
5240### Exécution du programme
5341
54-Le programme devrait dessiner à présent un rectangle avec des coins arrondis :
42+Le programme devrait dessiner à présent un rectangle avec des coins arrondis :
5543
56-[![BGRATutorial6b.png](/wiki-images/3/34/BGRATutorial6b.png)](</File:BGRATutorial6b.png>)
44+![](/wiki-images/3/34/BGRATutorial6b.png)
5745
5846### Mélanger les styles de jointures
5947
60-Vous pouvez mélanger les styles de jointures comme ceci :
61-```
62-image.FillRoundRectAntialias(80,80,300,200, 20,20, c, [rrTopRightSquare,rrBottomLeftSquare]);
48+Vous pouvez mélanger les styles de jointures comme ceci :
49+
50+``` pascal
51+ image.FillRoundRectAntialias(80,80,300,200, 20,20, c, [rrTopRightSquare,rrBottomLeftSquare]);
6352```
6453
65-Cette fonction utilise des coins ronds par défaut, mais vous pouvez les remplacer par des coins carrés ou en biseau. Vous devriez obtenir l'image suivante :
54+Cette fonction utilise des coins ronds par défaut, mais vous pouvez les remplacer par des coins carrés ou en biseau. Vous devriez obtenir l'image suivante :
6655
67-[![BGRATutorial6e.png](/wiki-images/5/54/BGRATutorial6e.png)](</File:BGRATutorial6e.png>)
56+![](/wiki-images/5/54/BGRATutorial6e.png)
6857
6958### Changer le style de ligne
7059
71-Vous pouvez dessiner une ligne en pointillés comme cela :
72-```
73-image.JoinStyle := pjsBevel;
74- image.PenStyle := psDot;
75- image.DrawPolyLineAntialias([PointF(40,200), PointF(120,100), PointF(170,140), PointF(250,60)],c,10);
60+Vous pouvez dessiner une ligne en pointillés comme cela :
61+
62+``` pascal
63+ image.JoinStyle := pjsBevel;
64+ image.PenStyle := psDot;
65+ image.DrawPolyLineAntialias([PointF(40,200), PointF(120,100), PointF(170,140), PointF(250,60)],c,10);
7666```
7767
78-Notez que l'extrémité de la ligne est arrondie.
68+Notez que l'extrémité de la ligne est arrondie.
7969
80-[![Tutorial6c.png](/wiki-images/3/30/Tutorial6c.png)](</File:Tutorial6c.png>)
70+![](/wiki-images/3/30/Tutorial6c.png)
8171
8272### Changer les extrémités des lignes
8373
84-Vous pouvez dessiner une polyligne avec des extrémités carrées comme cela :
85-```
86-image.JoinStyle := pjsBevel;
87- image.LineCap := pecSquare;
88- image.PenStyle := psSolid;
89- image.DrawPolyLineAntialias([PointF(40,200), PointF(120,100), PointF(170,140), PointF(250,60)],c,10);
74+Vous pouvez dessiner une polyligne avec des extrémités carrées comme cela :
75+
76+``` pascal
77+ image.JoinStyle := pjsBevel;
78+ image.LineCap := pecSquare;
79+ image.PenStyle := psSolid;
80+ image.DrawPolyLineAntialias([PointF(40,200), PointF(120,100), PointF(170,140), PointF(250,60)],c,10);
9081```
9182
92-[![BGRATutorial6d.png](/wiki-images/7/73/BGRATutorial6d.png)](</File:BGRATutorial6d.png>)
83+![](/wiki-images/7/73/BGRATutorial6d.png)
9384
9485### Dessin d'une ligne ouverte
9586
96-Vous pouvez dessiner une ligne qui est ouverte, c'est-à-dire que la fin de la ligne est arrondie à l'intérieur.
97-```
98-image.DrawPolyLineAntialias([PointF(40,200), PointF(120,100), PointF(170,140), PointF(250,60)],c,10,False);
87+Vous pouvez dessiner une ligne qui est ouverte, c'est-à-dire que la fin de la ligne est arrondie à l'intérieur.
88+
89+``` pascal
90+ image.DrawPolyLineAntialias([PointF(40,200), PointF(120,100), PointF(170,140), PointF(250,60)],c,10,False);
9991```
10092
101-[![BGRATutorial6f.png](/wiki-images/2/2f/BGRATutorial6f.png)](</File:BGRATutorial6f.png>)
93+![](/wiki-images/2/2f/BGRATutorial6f.png)
10294
103-De cette façon, vous pouvez connecter des lignes les unes après les autres sans dessiner la jonction deux fois, ce qui est utile avec le dessin semi-transparent. Vous pouvez comparer comme cela :
104-```
105-c := BGRA(0,0,0,128);
106-
107- image.DrawLineAntialias(40,150, 120,50, c, 10);
108- image.DrawLineAntialias(120,50, 170,90, c, 10);
109- image.DrawLineAntialias(170,90, 250,10, c, 10);
110-
111- image.DrawLineAntialias(40,250, 120,150, c, 10, False);
112- image.DrawLineAntialias(120,150, 170,190, c, 10, False);
113- image.DrawLineAntialias(170,190, 250,110, c, 10, True);
95+De cette façon, vous pouvez connecter des lignes les unes après les autres sans dessiner la jonction deux fois, ce qui est utile avec le dessin semi-transparent. Vous pouvez comparer comme cela :
96+
97+``` pascal
98+ c := BGRA(0,0,0,128);
99+
100+ image.DrawLineAntialias(40,150, 120,50, c, 10);
101+ image.DrawLineAntialias(120,50, 170,90, c, 10);
102+ image.DrawLineAntialias(170,90, 250,10, c, 10);
103+
104+ image.DrawLineAntialias(40,250, 120,150, c, 10, False);
105+ image.DrawLineAntialias(120,150, 170,190, c, 10, False);
106+ image.DrawLineAntialias(170,190, 250,110, c, 10, True);
114107```
115108
116-[![Tutorial6g.png](/wiki-images/8/8f/Tutorial6g.png)](</File:Tutorial6g.png>)
109+![](/wiki-images/8/8f/Tutorial6g.png)
117110
118111[[BGRABitmap tutorial 5/fr|Tutoriel précédent (couches et masques)]] [[BGRABitmap tutorial 7/fr|Tutoriel suivant (splines)]]
119112
120113---
121-*From the Free Pascal wiki, page "BGRABitmap tutorial 6/fr", as the Internet Archive kept it on 2024-09-06. 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).*
114+*From the Free Pascal wiki, page "BGRABitmap tutorial 6/fr", 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