Discussion :

[pavlacki]

Bonjour,

je dessine du texte dans un canvas (avec TextOut)
mais mon texte a la couleur du dernier brush
je voudrais que la background du texte soit transparent.

=> comment fait-on pour mettre la couleur d'un brush et un pen à transparent.

c'est bete mais je ne trouve pas

Merci

[HumanTool]

salut,
je crois que le brus doit avoir un style à bsclear, un truc comme ça...

[OutOfRange]

Salut

Je ne comprends pas où est le pb...

Code :

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

1
2
3
4
5
procedure TForm1.FormPaint(Sender: TObject);
begin
  canvas.Font.Color:=clblack;
  canvas.TextOut(10,10,'TEXTE');
end;

L'arrière-plan du texte est toujours transparent
On peut le vérifier en changeant la propriété Form1.Color :

canvas.font n'a ni propriété pen ni propriété brush

[petitcoucou31]

salut ,

En fait tu as raison OutOfRange , tant que tu modifies pas la valeur de la couleur du pinceau Brush.color car Les valeurs par defaut de:
- Brush.color = couleur du parent
- Brush.style = BsSolid

Ce qui donne un aspect de transparence mais qui ne l'est pas .

Donc soit definir la propriété de Brush.style = BsClear pour qu'il ne tienne pas compte de la couleur du pinceau pendant de l'ecriture ou lui donner la meme couleur que le fond.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
procedure TForm1.Button1Click(Sender: TObject);
begin
   form1.Canvas.Brush.color:=cllime;
   form1.Canvas.fillrect(Rect(90,90,200,220));
 
   form1.Canvas.Brush.color:=clnavy; //<= change la couleur de fond du texte
   form1.Canvas.Font.Color:=clred;
   form1.Canvas.Font.size:=30;
 
   // defini la couleur de font
   form1.Canvas.Brush.Style:=BsClear; // ne tiens pas compte de la couleur de pinceau
   //ou
   // form1.Canvas.Brush.color:=cllime;  // refini la couleur du pinceau
 
   form1.Canvas.textout(100,100,'toto');
end;

bye.

[OutOfRange]

Oups
C'est toi qui a raison petitcoucou31
J'ignorais que l'arrière-plan d'un textout était rempli avec la couleur de brush...
Mais tu donnes la bonne soluce avec brushstyle:=bsclear

Bonne prog