Discussion :

[Alex Laforest]

Hello tout le monde

J'ai une TListBox d'une largeur donnée et j'aimerais verifier si les strings que j'y ajoute rentrent dans cette TListBox. J'ai pensé d'emblée me servir de Length(NouvelleString) mais ca retourne un Integer qui est le nombre de caracteres dans NouvelleString, non pas sa dimension en pixels (comme la propriété Width de la TListBox). Y'a-t-il moyen de faire une équivalence entre un nombre de caracteres et l'espace que ces caracteres prennent en pixels??

Merci

[Alex Laforest]

Pour tous ceux qui, comme moi, feront une recherche trop sommaire pour trouver, voici la reponse :

Delphi -> Menu Help -> Index -> 'TextWidth'

TextWidth donne la largeur en pixels d'une ligne ou d'un item d'un component contenant du texte. C'est donc exactement ce dont j'avais besoin.

Merci et desole!!!

"L'oisivité est mère de tou(te)s les v(ertues)ices."

[LadyWasky]

Hé bien non !
TextWidth ne te renverra, tout comme TextHeight, qu'une approximation !

Si tu avais fait une recherche sur le forum, tu serais tombé sur ce thread :
http://www.developpez.net/forums/vie...937&highlight=

pour rappel, voicile code qu'on avait trouvé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
function TextSize(Phrase:string;police:TFont=nil):TPoint;
var
  DC: HDC;
  X: Integer;
  Rect: TRect;
  C : TBitmap;
begin
  C := TBitmap.create;
try
  if police <> nil then  C.canvas.Font := police;
 
    Rect.Left := 0;
    Rect.Top:=0;
    Rect.Right:=0;
    Rect.Bottom:=0;
    DC := GetDC(0);
    C.Canvas.Handle := DC;
    DrawText(C.Canvas.Handle, PChar(Phrase), Length(Phrase), Rect, (DT_EXPANDTABS or DT_CALCRECT));
    C.Canvas.Handle := 0;
    ReleaseDC(0, DC);
    result.X:=Rect.Right;
    result.Y:=Rect.Bottom;
finally
  C.Free;
end;
end;