Discussion :

[Poisson Rouge]

Bonjour, j'aimerais savoir comment faire pour ajuster automatiquemnt la taille de la police automatiquement dans un tlabel apres avoir modier le texte ?

(si label1 depasse la taille prevu alors reduire la police pour atteindre la taille normal)

Merci d'avance

[ThomasB]

salut,

c'est pas super propre mais c'est une idée :

Code :

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

1
2
3
4
while (Label1.width > tailleMax) and (Label1.Font.Size > 2) do begin
           Label1.Font.Size := Label1.Font.Size - 1;
           Label1.Repaint;
           end;

bon dev'. a+

[rbag]

Tu peux te débrouiller de la manière suivante, à condition de mettre la propriété Autosize du label à false. Attention, c'est pas testé et fait de tête mais ça peut te donner une idée de la marche à suivre.

Code :

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

1
2
3
4
5
6
 
  if (Label1.Canvas.TextWidth(Label1.Caption) > Label1.Width) then
    repeat
      Label1.Font.Size := Label1.Font.Size - 1;
      Label1.Canvas.Font.Assign(Label1.Font);
    until (Label1.Canvas.TextWidth(Label1.Caption) <= Label1.Width);

Par contre je ne suis pas sur que ça marche avec les font qui ne sont pas true type.

[Poisson Rouge]

Ok merci pour votre aide, j'vais voir ce que je peu faire avec ca !!