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) :
Ce qui m'intrigue est que je dois créer un "BGRABitmap" pour dessiner le bitmap et un autre pour dessiner le texte.
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;
N'y a-t-il pas une solution ne passant que par une seule création de "BGRABitmap" ?
Partager