Bonjour,
ce code m'affiche 0 :Au passage,
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 procedure TForm1.FormCreate(Sender: TObject); begin Caption := IntToStr(TextWidth('1234567890ABCDEF')); end;
- il FAUT ajouter l'unité Graph (nécessaire pour TextWidth), ce qui a comme conséquence de dévalider l'auto-suggestion de la complétion (suggestions après le '.') ;
- l'unité Graph N'EST PAS accessible par Ctrl-clic ;
- et en farfouillant, tout ce que je trouve dans Graphh.inc c'est function TextWidth(const TextString : string) : word;.
Et enfin, le code donné dans ce lien (de 2010) ne peut plus fonctionner : il n'y a plus de propriété Canvas à l'objet TEdit,
Une idée, une suggestion ?
Merci,
[EDIT] J'ai fouiné, après avoir posté (oui je sais, j'aurais dû le faire avant, lol), et j'ai trouvé qu'il fallait ruser :[/EDIT]
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 procedure TForm1.FormCreate(Sender: TObject); begin Caption := IntToStr(Form1.Canvas.TextWidth('1234567890ABCDEF')); end;
Partager