Tracer un rectangle sans bordure

Bonjour,

La question est dans le titre :
Lorsque je trace un rectangle sur le canvas d'un Timage de cette manière,

Code:

---

1 2	image.Canvas.Brush.Color:=clBlue; image.Canvas.Rectangle(50,50,100,100);

---

le rectangle apparaît bordé d'un trait noir, si bien que le code suivant ne produit pas un grand rectangle bleu, mais deux petite séparés par un trait noir :

Code:

---

1 2 3

image.Canvas.Brush.Color:=clBlue; image.Canvas.Rectangle(50,50,100,100); image.Canvas.Rectangle(100,50,150,100);

---

Y-a-t il une solution pour supprimer cette bordure (ou pour la tracer de la même couleur que le rectangle) ?

Merci pour votre aide.

Salut

Il te suffit de modifier la valeur de Pen.Style ou Pen.Color. Pour chaque procédure de dessin du genre Rectangle, Ellipse, RoundRect, la couleur et le style du remplissage se lisent dans la propriété Brush, et le contour dans la propriété Pen.

Donc un simple :

Code:

---

1 2 3

image.Canvas.Pen.Style:=psClear; image.Canvas.Brush.Color:=clBlue; image.Canvas.Rectangle(50,50,100,100);

---

suffit ;)

Bonne chance ;)

Mick605

Ok, merci beaucoup.

Il y a aussi la possibilité d'utiliser FillRect:
image.Canvas.FillRect(100,50,150,100)

Cela évite de devoir changer la couleur du crayon ;)

Pat.