Discussion :

[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 !

[Cl@udius]

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]

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]

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

[Andnotor]

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

[NABIL74]

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

a+
NABIL74

[shell13010]

@nabil74: Andnotor plaisanter en disant sa

[NABIL74]

@ Andnotor:

[Andnotor]

@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 .