Epaisseur trait avec TRACE

Bonjour à tous !

Simple question :

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

Code:

---

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 !

Salut

En jouant sur la propriété Width du crayon:

Code:

---

cnv.Pen.Width := 3; // par exemple

---

@+ Claudius

Hé hé !

Super !

J'avais bidouillé un truque en attendant, j'ajoutais en faite 3 ligne en les décalants pour épaissir mon trait !

Merci Cl@udius !

Citation:

---

Envoyé par jojo86

Bonjour à tous !

Simple question :

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

Code:

---

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 !

---

salut à toutes et à tous,
si tu cherches à tracer le cadre de la photo(ton logo), je te suggère d'utiliser le propriété "frame" de "QRImage":couleur,épaisseur,trait gauche...

NABIL74

Non, il cherche à biffer le prix original si soldé ;).

salut Andnotor :D
ah oui!j'ai compris,il veut rayer l'ancien prix et mettre un nouveau pour solde.

a+
NABIL74

@nabil74: Andnotor plaisanter en disant sa :mouarf:

:mouarf: :mouarf:

@ Andnotor: :king:

@shell13010

Pas du tout :|
Je possède moi-même plusieurs magasins, ai fait mon propre soft de gestion et tirer une ligne en diagonal pour biffer le prix original :mrgreen:.