Автоматизация локализации заголовков столбцов виртуального дерева в интерфейсе с использованием DKLang

Delphi , Компоненты и Классы , TTreeView

Введение

В современных приложениях, особенно тех, которые ориентированы на международный рынок, важной задачей является поддержка нескольких языков. Одним из популярных инструментов для локализации интерфейса в среде Delphi является пакет DKLang Localization Package. Он позволяет автоматизировать процесс перевода текстов, используемых в приложении.

Проблема

Пользователь столкнулся с проблемой автоматической локализации заголовков столбцов в виртуальном дереве (Virtual treeview) с помощью DKLang. В частности, ему необходимо, чтобы DKLang обрабатывал свойства Text элементов столбцов заголовка виртуального дерева, но стандартные подходы, такие как использование масок (TMask-совместимых строк), не работали.

Решение

Для решения этой проблемы можно использовать подход с объявлением констант для каждого текста столбца и последующей обработкой этих констант в редакторе DKLang как "user defined constants". Однако, это может быть неудобно, если у вас много экземпляров виртуального дерева.

Автоматизация

Для автоматизации процесса можно использовать следующий подход:

1. Создать функцию, которая будет проходить по всем элементам столбцов заголовка виртуального дерева и устанавливать для каждого свойство Text как константу, обрабатываемую DKLang.

   pascal procedure SetHeaderTextAsConstant(const Tree: TVirtualStringTree; AConstantPrefix: string); var i: Integer; begin for i := 0 to Tree.Header.Columns.Count - 1 do begin Tree.Header.Columns[i].Text := AConstantPrefix + Tree.Header.Columns[i].Name; end; end;

2. В этой функции AConstantPrefix - это префикс, который будет добавлен к имени каждого столбца для формирования уникального имени константы.

3. После установки констант, DKLang сможет обработать их как локализованные строки.

4. Важно не забыть убрать этот префикс перед ним при отображении текста на форме, так как DKLang будет возвращать строки уже с префиксом. Для этого можно определить функцию, которая будет извлекать оригинальное имя столбца:

   pascal function GetOriginalColumnText(const Tree: TVirtualStringTree; AConstantPrefix: string; AConstantName: string): string; begin Result := AConstantName.Replace(AConstantPrefix, ''); end;

5. При использовании DKLang необходимо будет указать эти константы в редакторе DKLang как "user defined constants" и добавить соответствующие локализованные значения для каждого языка.

Примеры кода

var
  MyVirtualStringTree: TVirtualStringTree;
  ConstantPrefix: string = 'HeaderColumnText_';

SetHeaderTextAsConstant(MyVirtualStringTree, ConstantPrefix);

// Дальше, при отображении текста столбца, используйте:
MyVirtualStringTree.Header.Columns[i].Text := GetOriginalColumnText(MyVirtualStringTree, ConstantPrefix, DKLanguageController.Translate(ConstantPrefix + MyVirtualStringTree.Header.Columns[i].Name));

Заключение

Автоматизация процесса локализации заголовков столбцов виртуального дерева с помощью DKLang позволяет значительно упростить и ускорить разработку мультиязычных приложений. Использование констант и их обработка в DKLang - эффективный способ решения этой задачи.

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

Автоматизация локализации заголовков столбцов виртуального дерева в интерфейсе с использованием инструмента DKLang.

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

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

:: Главная :: TTreeView ::