Bonjour à tous,

J'ai des Timage sur lesquels je voudrais écrire du texte en étant maître de la couleur de la font et de la couleur du fond.
a priori, rien d'extraordinaire.
Voici mon code :
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.Button1Click(Sender: TObject);
var i:integer;
begin
 for i:=0 to 31  do begin
 With Carte[i].Picture.Bitmap do  begin
  Canvas.brush.color:=clYellow; // couleur du fond
  Canvas.Font.Color := clBlack; // couleur du texte
  Canvas.Font.Size := 13;      
  Canvas.Font.Style:=[fsBold];
  Canvas.TextOut(5,5, ' +1 ');
 end;
 end;
end;
Je m'attendais à ce que tous les textes soient écrits en noir sur fond jaune.
Ce n'est pas le cas, sur certaines images, le fond jaune a disparu au profit d'un fond blanc (ou transparent ?).
(La propriété 'transparent' des Timages est sur False)

Une idée ?

Merci JLouis