Проблема кернинга шрифтов в Delphi: как избавиться от зазоров при печати текста с использованием TextOut

Delphi , Графика и Игры , Canvas

При работе с графическими элементами в Delphi часто возникают вопросы, связанные с отображением текста. Одной из таких проблем является кернинг шрифтов, который может приводить к появлению зазоров между символами при их выводе на экран. Особенно это заметно при использовании шрифтов, предназначенных для имитации текстовых интерфейсов, например, MS-DOS.

Описание проблемы

Когда используются символы для рисования рамок (box drawing characters), такие как ╬, и они печатаются последовательно в одном вызове TextOut, все работает корректно. Однако, если каждый символ печатается отдельно, между ними появляется зазор, что делает рисунок неаккуратным. Это особенно заметно при горизонтальном выравнивании символов.

Пример кода

Canvas.Font.Size := 12;
w := Canvas.TextWidth('╬');
h := Canvas.TextHeight('╬');

Canvas.TextOut(100, 100, '╬╬');
Canvas.TextOut(100, 100 + h, '╬');
Canvas.TextOut(100 + w, 100 + h, '╬');
Canvas.TextOut(100, 100 + h * 2, '╬');
Canvas.TextOut(100 + w, 100 + h * 2, '╬');

При таком подходе к выводу символов, вертикальное соединение символов сохраняется, но горизонтальное соединение нарушается из-за кернинга.

Вывод массива символов

Для вывода массива символов используется цикл, где каждый символ печатается отдельно:

th := Canvas.TextHeight('A');
tw := Canvas.TextWidth('A');
for i := 0 to MaxWidth - 1 do
  for j := 0 to MaxHeight - 1 do
    begin
      Canvas.Brush.Color := fChars[i, j].BGColor;
      Canvas.Font.Color := fChars[i, j].FGColor;
      Canvas.TextOut(i * tw, j * th, fChars[i, j].Character);
    end;

Решение проблемы

Для устранения зазоров между символами можно использовать функцию DrawText вместо Canvas.TextOut. Это связано с тем, что DrawText обрабатывает кернинг шрифтов более корректно, что особенно актуально для шрифтов, таких как "Consolas" и "Courier New".

Пример использования DrawText:

for i := 0 to FWidth do
  for j := 0 to FHeight do
    begin
      Canvas.Brush.Color := fChars[i, j].BGColor;
      Canvas.Font.Color := fChars[i, j].FGColor;
      FRect := Rect(i * w, j * h, i * w + w, j * h + h);
      DrawText(Canvas.Handle, (fChars[i, j].Character), 2, FRect, DT_LEFT);
    end;

Альтернативный подход

Если по каким-то причинам не хочется отказываться от использования TCanvas, можно воспользоваться методом TextRect. Этот метод также позволяет корректно обработать кернинг и избежать зазоров между символами.

Заключение

Использование DrawText вместо Canvas.TextOut позволяет решить проблему кернинга шрифтов в Delphi и избежать появления зазоров при выводе текста. Это особенно важно при создании интерфейсов, имитирующих старые текстовые системы, где важна точность и аккуратность отображения символов.

Создано по материалам из источника по ссылке.

Проблема заключается в том, что при выводе текста с использованием функции `TextOut` в Delphi возникают зазоры между символами из-за кернинга шрифта, что нарушает целостность изображения, особенно заметно при использовании символов для рисования рамок.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Canvas ::