Bonjour à tous !
Simple question :
Comment augmenter l'éppaisseur d'un trait tracé par programation :
Merci !
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;
Partager