Как отображать китайские иероглифы и Unicode в графическом движке Delphi и Pascal?

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

Для отображения китайских иероглифов и Unicode в графическом движке, таком как RayLib, в среде Delphi и Lazarus (Pascal), можно использовать несколько подходов. В данном случае, мы рассмотрим работу с RayLib 5.0, который предоставляет необходимые инструменты для работы с Unicode, включая поддержку китайских символов.

1. Использование функций RayLib для работы с Unicode

RayLib предоставляет набор функций для работы с Unicode, которые можно использовать для отображения текста на разных языках, включая китайский. Вот пример кода на Object Pascal (Delphi/Lazarus), демонстрирующий, как загрузить шрифт и отобразить Unicode-текст:

program UnicodeTextExample;

uses
  RayLib;

var
  Font: TFont;
  Text: string;

begin
  // Инициализация окна
  InitWindow(800, 450, 'RayLib Unicode Text Example');

  // Загрузка шрифта, поддерживающего китайские символы
  // (убедитесь, что файл шрифта, например, NotoSansCJK.ttf, находится в папке с программой)
  Font := LoadFont('NotoSansCJK.ttf');

  // Установка шрифта по умолчанию
  SetTextFont(Font);

  // Unicode-текст (включая китайские символы)
  Text := '你好, 世界! Hello, 世界!';

  // Основной цикл
  while not WindowShouldClose() do
  begin
    BeginDrawing();
      ClearBackground(RAYWHITE);
      // Отображение Unicode-текста
      DrawText(PAnsiChar(Text), 100, 100, 20, DARKGRAY);
    EndDrawing();
  end;

  // Освобождение ресурсов
  UnloadFont(Font);
  CloseWindow();
end.

2. Поддержка разных кодировок

Если ваш текст хранится в разных кодировках (например, UTF-8 или UTF-16), можно использовать функции для конвертации. В Pascal для этого подходят функции из модуля LazUTF8 (в Lazarus) или System.SysUtils (в Delphi).

Пример для Lazarus (с поддержкой UTF-8):

uses
  LazUTF8;

var
  UTF8Text: string;
begin
  UTF8Text := '你好, 世界!'; // Текст в UTF-8
  DrawText(PAnsiChar(UTF8Text), 100, 100, 20, DARKGRAY);
end;

3. Альтернативный способ: использование DrawTextCodepoint

RayLib также предоставляет функцию DrawTextCodepoint, которая позволяет отображать символы по их кодам Unicode. Это полезно, если вы работаете с символами напрямую.

var
  Font: TFont;
  Codepoint: Integer;
begin
  Font := LoadFont('NotoSansCJK.ttf');
  Codepoint := $4F60; // Код китайского иероглифа 你

  BeginDrawing();
    DrawTextCodepoint(Font, Codepoint, Vector2Create(100, 100), 20, DARKGRAY);
  EndDrawing();
end;

4. Важные замечания

• Шрифты: Убедитесь, что используемый шрифт поддерживает китайские символы. Рекомендуемые шрифты: NotoSansCJK, WenQuanYi Micro Hei.
• Сборка под Windows/Linux: Если вы компилируете программу под Windows, убедитесь, что шрифт доступен в системе. В Linux шрифты обычно находятся в /usr/share/fonts/.
• Ошибки кодировки: Если текст отображается некорректно, проверьте, что файл с исходным кодом сохранен в UTF-8.

Заключение

RayLib 5.0 полностью поддерживает Unicode, включая китайские иероглифы, при условии использования правильного шрифта. Приведенные примеры демонстрируют основные методы работы с Unicode в Pascal, и вы можете адаптировать их для своих нужд. Если у вас возникнут проблемы с отображением, проверьте кодировку текста и наличие подходящего шрифта.

Если вам нужна более сложная обработка текста (например, RTL-языки или вертикальное письмо), можно рассмотреть использование дополнительных библиотек, таких как HarfBuzz или Pango, но это выходит за рамки базового использования RayLib.

Удачной разработки! 🚀

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

Описание возможностей и методов отображения китайских иероглифов и Unicode в графическом движке RayLib 5.0 с использованием Delphi и Lazarus.

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

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

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