Discussion :

[Modulpro]

Bonjour,

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

Code :

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

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 :

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

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.

[mick605]

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 :

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

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

suffit

Bonne chance

Mick605

[Modulpro]

Ok, merci beaucoup.

[DOLPat®]

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.