Sign in Join
Wiki copytemporary

BGRABitmap tutorial 6/fr: what changed

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

OldNewLine
1-Ce tutoriel montre comment utiliser les différents styles de lignes et les formes.
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>)
22
3-### Création d'un nouveau projet
3+Ce tutoriel montre comment utiliser les différents styles de lignes et les formes.
44
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]].
5+## Contents
66
7-### Ajout d'un dessin
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
816
9-Avec l'inspecteur de projet, ajoutez un gestionnaire *OnPaint* :
17+### Création d'un nouveau projet
1018
11-``` pascal
12-procedure TForm1.FormPaint(Sender: TObject);
13-var image: TBGRABitmap;
14- c: TBGRAPixel;
15-begin
16- image := TBGRABitmap.Create(ClientWidth, ClientHeight, clBtnFace);
17- c := clWindowText;
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]].
1820
19- image.RectangleAntialias(80,80,300,200, c, 50);
21+### Ajout d'un dessin
2022
21- image.Draw(Canvas,0,0,True);
22- image.free;
23-end;
23+Avec l'inspecteur de projet, ajoutez un gestionnaire _OnPaint_ :
2424```
25+procedure 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;
37+```
2538
2639### Exécution du programme
2740
28-Vous devriez obtenir un rectangle avec un pinceau noir épais :
41+Vous devriez obtenir un rectangle avec un pinceau noir épais :
2942
30-<figure>
31-<img src="BGRATutorial6a.png" title="BGRATutorial6a.png" />
32-<figcaption>BGRATutorial6a.png</figcaption>
33-</figure>
43+[![BGRATutorial6a.png](/wiki-images/0/06/BGRATutorial6a.png)](</File:BGRATutorial6a.png>)
3444
3545### Changer le style de jointures
3646
37-Si vous voulez des coins ronds, vous pouvez spécifier :
38-
39-``` pascal
40- image.JoinStyle := pjsRound;
47+Si vous voulez des coins ronds, vous pouvez spécifier :
4148```
49+image.JoinStyle := pjsRound;
50+```
4251
4352### Exécution du programme
4453
45-Le programme devrait dessiner à présent un rectangle avec des coins arrondis :
54+Le programme devrait dessiner à présent un rectangle avec des coins arrondis :
4655
47-<figure>
48-<img src="BGRATutorial6b.png" title="BGRATutorial6b.png" />
49-<figcaption>BGRATutorial6b.png</figcaption>
50-</figure>
56+[![BGRATutorial6b.png](/wiki-images/3/34/BGRATutorial6b.png)](</File:BGRATutorial6b.png>)
5157
5258### Mélanger les styles de jointures
5359
54-Vous pouvez mélanger les styles de jointures comme ceci :
55-
56-``` pascal
57- image.FillRoundRectAntialias(80,80,300,200, 20,20, c, [rrTopRightSquare,rrBottomLeftSquare]);
60+Vous pouvez mélanger les styles de jointures comme ceci :
5861```
62+image.FillRoundRectAntialias(80,80,300,200, 20,20, c, [rrTopRightSquare,rrBottomLeftSquare]);
63+```
5964
60-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 :
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 :
6166
62-<figure>
63-<img src="BGRATutorial6e.png" title="BGRATutorial6e.png" />
64-<figcaption>BGRATutorial6e.png</figcaption>
65-</figure>
67+[![BGRATutorial6e.png](/wiki-images/5/54/BGRATutorial6e.png)](</File:BGRATutorial6e.png>)
6668
6769### Changer le style de ligne
6870
69-Vous pouvez dessiner une ligne en pointillés comme cela :
70-
71-``` pascal
72- image.JoinStyle := pjsBevel;
73- image.PenStyle := psDot;
74- image.DrawPolyLineAntialias([PointF(40,200), PointF(120,100), PointF(170,140), PointF(250,60)],c,10);
71+Vous pouvez dessiner une ligne en pointillés comme cela :
7572```
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);
76+```
7677
77-Notez que l'extrémité de la ligne est arrondie.
78+Notez que l'extrémité de la ligne est arrondie.
7879
79-<figure>
80-<img src="Tutorial6c.png" title="Tutorial6c.png" />
81-<figcaption>Tutorial6c.png</figcaption>
82-</figure>
80+[![Tutorial6c.png](/wiki-images/3/30/Tutorial6c.png)](</File:Tutorial6c.png>)
8381
8482### Changer les extrémités des lignes
8583
86-Vous pouvez dessiner une polyligne avec des extrémités carrées comme cela :
87-
88-``` pascal
89- image.JoinStyle := pjsBevel;
90- image.LineCap := pecSquare;
91- image.PenStyle := psSolid;
92- image.DrawPolyLineAntialias([PointF(40,200), PointF(120,100), PointF(170,140), PointF(250,60)],c,10);
84+Vous pouvez dessiner une polyligne avec des extrémités carrées comme cela :
9385```
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);
90+```
9491
95-<figure>
96-<img src="BGRATutorial6d.png" title="BGRATutorial6d.png" />
97-<figcaption>BGRATutorial6d.png</figcaption>
98-</figure>
92+[![BGRATutorial6d.png](/wiki-images/7/73/BGRATutorial6d.png)](</File:BGRATutorial6d.png>)
9993
10094### Dessin d'une ligne ouverte
10195
102-Vous pouvez dessiner une ligne qui est ouverte, c'est-à-dire que la fin de la ligne est arrondie à l'intérieur.
103-
104-``` pascal
105- image.DrawPolyLineAntialias([PointF(40,200), PointF(120,100), PointF(170,140), PointF(250,60)],c,10,False);
96+Vous pouvez dessiner une ligne qui est ouverte, c'est-à-dire que la fin de la ligne est arrondie à l'intérieur.
10697```
107-
108-<figure>
109-<img src="BGRATutorial6f.png" title="BGRATutorial6f.png" />
110-<figcaption>BGRATutorial6f.png</figcaption>
111-</figure>
112-
113-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 :
114-
115-``` pascal
116- c := BGRA(0,0,0,128);
98+image.DrawPolyLineAntialias([PointF(40,200), PointF(120,100), PointF(170,140), PointF(250,60)],c,10,False);
99+```
117100
118- image.DrawLineAntialias(40,150, 120,50, c, 10);
119- image.DrawLineAntialias(120,50, 170,90, c, 10);
120- image.DrawLineAntialias(170,90, 250,10, c, 10);
101+[![BGRATutorial6f.png](/wiki-images/2/2f/BGRATutorial6f.png)](</File:BGRATutorial6f.png>)
121102
122- image.DrawLineAntialias(40,250, 120,150, c, 10, False);
123- image.DrawLineAntialias(120,150, 170,190, c, 10, False);
124- image.DrawLineAntialias(170,190, 250,110, c, 10, True);
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 :
125104```
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);
114+```
126115
127-<figure>
128-<img src="Tutorial6g.png" title="Tutorial6g.png" />
129-<figcaption>Tutorial6g.png</figcaption>
130-</figure>
116+[![Tutorial6g.png](/wiki-images/8/8f/Tutorial6g.png)](</File:Tutorial6g.png>)
131117
132118[[BGRABitmap tutorial 5/fr|Tutoriel précédent (couches et masques)]] [[BGRABitmap tutorial 7/fr|Tutoriel suivant (splines)]]
133119
134120---
135-*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).*
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).*

Back to history