Bitmap et texte avec BGRABitmap
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:
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" ?