如何獲取字符串的像素寬度和高度？

Question

如何在Delphi 7中使用GetTextExtentPoint32W在輸出之前獲取寬字符串的像素寬度和高度？

Answer 1

你可以做

procedure TForm1.FormPaint(Sender: TObject); 
var 
    extent: TSize; 
    S: WideString; 
begin 
    S := 'This is the integral sign: '#$222b; 
    if not GetTextExtentPoint32W(Canvas.Handle, PWideChar(S), length(S), extent) then 
    RaiseLastOSError; 
    TextOutW(Canvas.Handle, (Width - extent.cx) div 2, (Height - extent.cy) div 2, 
    PWideChar(S), length(S)); 
end; 

的GetTextExtentPoint32W將會把寬度和高度extent.cx和extent.cy，分別。

最後一行然後將使用TextOutW在客戶區域上繪製水平和垂直居中的字符串。