Как корректно вычислить ширину текста?

Question

[krka92]

Как можно корректно вычислить ширину текста с помощью Windows API?
Шрифт НЕ моноширинный. Arial.
Например: Есть у меня какая-либо строка, пусть будет "Some string". Я вычисляю ширину с помощью функции GetTextExtentPoint32 - корректно. Вычисляю ширину для строки "11111" - результат оказывается больше реальной ширины.
Косяк воспроизвел только для Arial, но вариант "Не использовать Arial" - не подходит.

Answer 1

[krka92]

Использовал функцию DrawText с флагом DT_CALCRECT

Answer 2

[Константин Цветков]

function TCustomCanvas.TextWidth(const Text: string): Integer;
begin
  Result := TextExtent(Text).cX;
end;
function TCanvas.TextExtent(const Text: string): TSize;
begin
  RequiredState([csHandleValid, csFontValid]);
  Result.cX := 0;
  Result.cY := 0;
  Winapi.Windows.GetTextExtentPoint32(FHandle, Text, Length(Text), Result);
end;