Ecrire du texte avec TextRect d'un Canvas

cs_christophedlr Messages postés 262 Date d'inscription samedi 3 janvier 2004 Statut Membre Dernière intervention 26 juillet 2022 - 13 août 2008 à 21:46
cs_christophedlr Messages postés 262 Date d'inscription samedi 3 janvier 2004 Statut Membre Dernière intervention 26 juillet 2022 - 14 août 2008 à 00:17
Bonsoir,

Je voudrais écrire du texte dans un canvas avec la fonction TextRect.
Mon soucis est que le texte ne s'affiche pas, j'ai même essayé le code suivante :

var

TheRect: TRect;
begin
  TheRect := Rect(10,10,100,100);
  Form1.Canvas.TextRect(TheRect,10,10,'Bonjour !');
end;

Code provenant de la documentation de Delphi 6.
Sauf que le texte ne s'affiche pas.

A la base je voulais m'en servir dans un TCheckListBox, j'ai trouvé une source dessus ici qui fonctionne, mais chez moi le TextRect refuse d'afficher le texte.
Merci d'avance.

6 réponses

cs_cantador Messages postés 4720 Date d'inscription dimanche 26 février 2006 Statut Modérateur Dernière intervention 31 juillet 2021 14
13 août 2008 à 21:52
Bonsoir,
pose un bouton et

procedure TForm1.Button1Click(Sender: TObject);
var
TheRect: TRect;
begin
  TheRect := Rect(10,10,100,100);
  Form1.Canvas.TextRect(TheRect,10,10,'Bonjour !');
end;

cantador
0