[Delphi 5] Trait avec des extrémités carrées

Bonjour,

Je dessine des lignes mais je n'arrive pas à obtenir des extrémités carrées.

Quelqu'un sait il comment faire

En vous remerciant

Bonjour, donnes nous quelques lignes de code, la version de Delphi que tu utilises et nous essaierons de t'aider

J'utilise Delphi 5

Par exemple :

Code:

---

1 2 3 4

Pen.Color:=clRed; Pen.Width:=3; MoveTo(10,10) LineTo(100,10);

---

Le TCanvas.LineTo c'est une encapsulation de LineTo défini dans wingdi.h
Faudrait voir en fournissant une Pen spécifique

Sinon, un ligne à coin carré, c'est aussi un rectangle rempli, un TCanvas.Polygon pourrait faire l'affaire.

Code:

---

1 2 3

Pen.Color :=clRed; Pen.Width:=1; Rectangle (10,10,100,10+3);

---