Drawing with canvas/fr: what changed

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

Title: Drawing with canvas/fr

New		Line
1	+	published by leo_tecnologica@yahoo.com.ar --- Leonardo Gabriel Calautti
2	+
3	+	Line (x1, y1, x2, y2)-\> dessine une ligne du point (x1, y1) à (x2, y2)
4	+
5	+	Rectangle (x1, y1, x2, y2)-\> dessine un rectangle avec un sommet au point (x1, y1) et son opposé au point (x2, y2)
6	+
7	+	Ellipse (x1, y1, x2, y2)-\> dessine une ellipse dans le rectangle défini par le point (x1, y1) et le point (x2, y2)
8	+
9	+	<figure>
10	+	<img src="canvas2.png" title="canvas2.png" />
11	+	<figcaption>canvas2.png</figcaption>
12	+	</figure>
13	+
14	+	Par exemple, le code suivant dessine les diagonales. Entrez le code entre le `begin` et le `end` de la procédure `Button1Click`:
15	+
16	+	``` pascal
17	+	procedure TForm1.Button1Click(Sender: TObject);
18	+	begin
19	+	canvas.Line(0,0, form1.Width,form1.Height);
20	+	canvas.Line(0,form1.height,form1.width,0);
21	+	end;
22	+	```
23	+
24	+	Comment pouvez-vous peindre l'intérieur des rectangles et des ellipses ? Il y a dans l'objet Canvas, des objets appelé Brush (brosse) et Pen (crayon), avec pour les deux une propriété `color` qui indique les couleurs de remplissage et de contour. Pour peindre un objet avec une couleur, la première chose est de changer la brosse et le crayon avant de donner les ordres de dessin. L'ordre est important. Notez comment la couleur est changée en premier puis sont données les instructions de dessin:
25	+
26	+	``` pascal
27	+	canvas.Brush.color:= clred;
28	+	canvas.Ellipse(195, 117, 205, 128);
29	+	canvas.Brush.color:= clblue;
30	+	canvas.Rectangle (192, 130,208,160);
31	+	canvas.Brush.color:= clgreen;
32	+	Canvas.Rectangle (187, 130,191,162);
33	+	canvas.Brush.color:= clyellow;
34	+	Canvas.Rectangle (209, 130,213,162);
35	+	canvas.Brush.color:= clmaroon;
36	+	Canvas.Rectangle (193,161,199,200);
37	+	canvas.Brush.color:= clpurple;
38	+	Canvas.Rectangle (201,161,207,200);
39	+	```
40	+
41	+	Si vous suivez les étapes, vous aurez quelques chose comme cela:\
42	+	![](/wiki-images/d/dd/Canvas.png)
43	+
44	+	---
45	+	From the Free Pascal wiki, page "Drawing with canvas/fr", as it stood on 2020-02-14 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