Bonjour à tous !

Simple question :

Comment augmenter l'éppaisseur d'un trait tracé par programation :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TForm1.trace(cnv: tcanvas; x, y, x1, y1, c: Integer);
begin
if c<>-1 then
cnv.Pen.Color:=c;
cnv.MoveTo(x,y);
cnv.LineTo(x1,y1);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
trace(QRImage1.Canvas,200,80,30,50,ClBlack);
end;
Merci !