Delphi 7'de bir metin/resim yazısı piksel cinsinden genişlik

Question

Sorunum, metnin gerçek uzunluğunu piksel cinsinden bilmek istiyorum (bazı yazı tiplerinde farklı harflerin farklı uzunluklara sahip olduğunu unutmayın). Bunu DBGrid'de daha iyi sütun genişliği ayarı için kullanacağım.

Answer 1

Canvas.TextWidth ve Canvas.TextHeight işlevlerini kullanabilirsiniz. Bir Delphi bileşeni "Tuval" vardır varsa (a Tbitmap kullanarak) geçici tuval

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; 

Answer 2

oluşturarak, kontrol

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

Seçenek 2'nin tuval kullanarak Seçenek 1

, Özellik, sonra Component.Canvas.TextWidth kullanabilirsiniz. Örneğin: DBGrid metnin genişliğini almak için kullanabilirsiniz: Length of Delphi string in pixels