程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> Delphi的繪圖功能[15] - 再談文字的高度與寬度: Canvas.TextExt

Delphi的繪圖功能[15] - 再談文字的高度與寬度: Canvas.TextExt

編輯:Delphi

procedure TForm1.Button1Click(Sender: TObject);

var
str: string;
wh: TSize;
w,h: Integer;
begin

{前面用過 Canvas.TextWidth、Canvas.TextHeight}

str := '萬';
w := Canvas.TextWidth(str);
h := Canvas.TextHeight(str);
ShowMessage(Format('寬度: %d; 高度: %d', [w,h])); {寬度: 12; 高度: 13}

{對等寬字體, 多個字符的寬度肯定是倍數關系}

str := '萬一';
w := Canvas.TextWidth(str);
h := Canvas.TextHeight (str);
ShowMessage(Format('寬度: %d; 高度: %d', [w,h])); {寬度: 24; 高度: 13}

{Canvas.TextExtent 函數可以同時獲取字體的高度與寬度, 不過它返回的是一個 TSize 結構}

wh := Canvas.TextExtent(str);
w := wh.cx;
h := wh.cy;
ShowMessage (Format('寬度: %d; 高度: %d', [w,h])); {寬度: 24; 高度: 13}

{如果字號改變了, 當然高度與寬度也會隨之變化}

Canvas.Font.Size := 16;
wh := Canvas.TextExtent(str);
w := wh.cx;
h := wh.cy;
ShowMessage(Format('寬度: %d; 高度: %d', [w,h])); {寬度: 42; 高度: 25}

{Font.Height 是可讀寫的}

Canvas.Font.Height := 32;
wh := Canvas.TextExtent(str);
w := wh.cx;
h := wh.cy;
ShowMessage(Format('寬度: %d; 高度: %d', [w,h])); {寬度: 52; 高度: 32}
end;

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved