Bonjour à toutes et à tous,

Dans une application, je dessine un bitmap et en dessous un texte représentant son nom et cela fonctionne très bien. Pour cela, je procède de la manière suivante (ne pas prendre en compte la boucle, elle n'a rien à voir avec mon problème) :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
  k:= 0;
  for i:= 0 to high(Detecteurs) do
    if Detecteurs[i].Zone = NoZone then
    begin
      Bmp:= TBGRABitmap.Create(Detecteurs[i].Symbole, True);
      Bmp.Draw(Canvas, 25+100*k, 10, False);
      Bmp.Free;
      Bmp:= TBGRABitmap.Create(100, 40, BGRAWhite);
      Bmp.TextRect(Rect(0, 0, 100, 40), Detecteurs[i].Nom, taCenter, tlCenter, BGRABlack);
      Bmp.Draw(Canvas, 10+100*k, 88, False);
      Bmp.Free;
      Inc(k);
    end;
Ce qui m'intrigue est que je dois créer un "BGRABitmap" pour dessiner le bitmap et un autre pour dessiner le texte.

N'y a-t-il pas une solution ne passant que par une seule création de "BGRABitmap" ?