Discussion :

[Arrown]

Bonjour à vous, j'ai galéré pour trouver un moyen de connaitre la largeur et la hauteur en pixel d'un text, j'ai réussi à pondre cela :

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
// Pour connaitre la largeur d'un texte
Function TextSize(Phrase : string; Police : TFont = nil) : TPoint;
var
  C : TBitmap;
  S, S1, S2 : string;
  J : Integer;
begin
S := Phrase;
 
C := TBitmap.create;
if police <> nil then
   C.canvas.Font := police;
S1 := S;
J := 0;
while S1 <> '' do
   begin
   if (pos(#13, S1) <= 0) and (S1 <> '') then
      S2 := S1 else
      S2 := copy(S1, 1, pos(#13, S1)-1);
   delete(s1, 1, length(s2)+2);
 
   if C.Canvas.textwidth(S2) > J then J := C.Canvas.textwidth(S2);
   end;
Result.X := J;
Result.Y := C.canvas.TextExtent(S).cY* (Countchar(S, #13)+1);
C.free;
end;

J'ai un peu peur que ce soit long car c'est pas franchement optimisé. Quelqu'un aurait-il mieux svp

Merci, Arrown

[sjrd]

Oui j'ai mieux :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
function TextSize(Text : string; AFont : TFont = nil) : TPoint;
begin
  with TBitmap.Create do
  try
    if AFont <> nil then
      Font := AFont;
    Result := Point(Canvas.TextWidth(Text), Canvas.TextHeight(Text));
  finally
    Free;
  end;
end;

C'est tout

[Arrown]

Non, ton truc ne marche pas, il faut que je regarde mieux pourquoi, mais il me renvoie des valeurs incorrectes

[LadyWasky]

Exact, ça ne renvoie qu'une approximation...
sauf si tu utilises une police à largeur fixe

[LadyWasky]

Sinon, ça m'a l'air bien ça...

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;

[LadyWasky]

Personne n'a trouvé mieux ? Ai-je gagné ?

[LadyWasky]

Je propose un UP de ce thread pour la FAQ delphi

[rbh]

Il existe auusi les fonctions de TCanvas TextHeight & TextWidth ou la fonction TextExtent qui renvoie les 2 en même temps
je pense que c'est ce que tu veux d'obtenir car ton texte tu dois bien l'écrire sur un Canvas

[LadyWasky]

Il existe auusi les fonctions de TCanvas TextHeight & TextWidth ou la fonction TextExtent qui renvoie les 2 en même temps
je pense que c'est ce que tu veux d'obtenir car ton texte tu dois bien l'écrire sur un Canvas

Lis bien les posts précédents : TextHeight & TextWidth ne donnent pas la taille éxacte au pixel près. Les valeurs qui sont renvoyées par ces fonctions ne sont qu'approximatives sauf si tu utilises dans ton canvas une police de caractères à largeur fixe.

Essayes, tu verras

[Arrown]

Personne n'a trouvé mieux ? Ai-je gagné ?

Si, ma procédure est plus rapide ;-)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
var
  P : Tpoint;
  I : Integer;
  VCardinal : Cardinal;
begin
label5.caption := 'SALUT'+Slinebreak+'dfsf';
 
Vcardinal := GTC;
for I := 0 to 999 do
   P := utout.TextSize(label5.caption, label5.font);
Showmessage(GTC - Vcardinal);
bitbtn5.caption := inttostr(P.X)+','+inttostr(P.y)

En faisant cela SUR MON ORDI (oui, c'est différent pour tt le monde) Ta procédure donne en moyenne "90"

Et en appellant ma procédure, cela donne (avec les même résultat bien sur) "80" de GTC.

J'ai donc gagné 8)

[poussinphp]

comment tu voit la vitesse d'execution d'un code ??

[Arrown]

Chez moi, GTC = GetTickCount (désolé, j'avais oublié de décrire)

donc je calcul le temps d'une proc en nombre de cycle qu'elle a mit

Code :

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

1
2
3
4
5
6
7
var
  VCardinal : Cardinal; 
begin 
Vcardinal := GetTickCount ; 
......................................... TON CODE
Showmessage(GetTickCount - Vcardinal); 
end;

Voilà, ca te donne une indication.

[dacid]

Salut Arrown,

Heu, juste un truc...

C'est quoi GTC et utout ???
Issus de quelle bibliothèque ???

[Arrown]

Utout est une de mes units perso ou il y a ... Tout.

Et GTC, comme dit plus haut est un raccourci de GetTickCount.