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

　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;