Epaisseur trait avec TRACE

**jojo86** · 21/04/2009, 17h40

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 !

**Cl@udius** · 21/04/2009, 17h48

Salut

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

@+ Claudius

**jojo86** · 21/04/2009, 18h00

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 !

**NABIL74** · 21/04/2009, 18h30

Envoyé par jojo86

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 !

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