Largeur en pixels d'un texte/sous-titrage en Delphi 7

Voici mon problème, je veux savoir la longueur réelle du texte en pixels (notez que plusieurs lettres ont une longueur différente dans certaines polices). Je vais l'utiliser pour mieux colonne de réglage de la largeur dans le DBGrid.

OriginalL'auteur Tofig Hasanov | 2009-10-14

  1. 26

    Vous pouvez utiliser le Toile.TextWidth et Toile.TextHeight fonctions.

    L'Option 1, à l'aide de la toile du contrôle

    WidthInPixels := Label1.Canvas.TextWidth('My Text');

    L'Option 2, la création d'un temporaire de la toile (à l'aide d'un Tbitmap)

    Function GetWidthText(const Text:String; Font:TFont) : Integer;
var 
  LBmp: TBitmap; 
begin
  LBmp := TBitmap.Create;
  try
   LBmp.Canvas.Font := Font;
   Result := LBmp.Canvas.TextWidth(Text); 
  finally
   LBmp.Free;
  end;
end;
    Pari moi aussi ça en 10 secondes!

    OriginalL'auteur RRUZ

  2. 5

    si vous avez un composant Delphi a une "Toile" de la propriété, alors vous pouvez utiliser le Composant.Toile.TextWidth. Par exemple: pour obtenir la largeur du texte de DBGrid vous pouvez utiliser:

    DBGrid1.Canvas.TextWidth('Stack');

    Ici vous pouvez trouver une référence à propos de ce problème:
    Longueur de Delphi chaîne de caractères en pixels

    OriginalL'auteur Wael Dalloul