OberonCore • - Как подключить файл Strings?

Сообщения без ответов | Активные темы

Список форумов » Проект Информатика-21 » Для начинающих

Часовой пояс: UTC + 3 часа

Как подключить файл Strings?

Страница 1 из 1

[ Сообщений: 11 ]

Версия для печати

Пред. тема | След. тема

Автор

Сообщение

Александр К

Заголовок сообщения: Как подключить файл Strings?

Добавлено: Среда, 11 Октябрь, 2017 16:12

Зарегистрирован: Воскресенье, 06 Август, 2017 19:33
Сообщения: 98

Для элементов управления по умолчанию поле Label заполняется

Код:

#System:Caption

Я нашёл этот файл - System/Rsrc/Strings, скопировал его в свой подкаталог (назовём его My/Rsrc/). Далее пишу в поле Label, например, следующее:

Код:

#My:Exception

Нажимаю OK, но вместо надписи Исключение получаю Exception. Этот файл параметров Strings пробовал делать свой - та же фигня. Файл параметров можно применять только программно или я что-то делаю не так?

Вернуться к началу

Иван Денисов

Заголовок сообщения: Re: Как подключить файл Strings?

Добавлено: Среда, 11 Октябрь, 2017 16:52

Зарегистрирован: Четверг, 08 Октябрь, 2009 15:00
Сообщения: 3837

Наверное нет переноса на новую строку после вашей строки. Приложите файл Strings к следующему сообщению?

Вернуться к началу

Александр К

Заголовок сообщения: Re: Как подключить файл Strings?

Добавлено: Среда, 11 Октябрь, 2017 17:45

Зарегистрирован: Воскресенье, 06 Август, 2017 19:33
Сообщения: 98

Иван Денисов писал(а):

Приложите файл Strings к следующему сообщению?

Пожалуйста

Вложения:

My.rar [1.52 КБ]
Скачиваний: 412

Strings.odc [18.49 КБ]
Скачиваний: 932

Вернуться к началу

Иван Денисов

Заголовок сообщения: Re: Как подключить файл Strings?

Добавлено: Среда, 11 Октябрь, 2017 18:09

Зарегистрирован: Четверг, 08 Октябрь, 2009 15:00
Сообщения: 3837

Должно быть

Код:

#My:lab

Файл Strings ведь предназначен для всей подсистемы My.

Вернуться к началу

Александр К

Заголовок сообщения: Re: Как подключить файл Strings?

Добавлено: Понедельник, 16 Октябрь, 2017 15:13

Зарегистрирован: Воскресенье, 06 Август, 2017 19:33
Сообщения: 98

А как выводить программно? Когда я нажимаю на кнопку почему-то в текстовое поле выводится #My:com вместо "кнопка".

Вложения:

My.rar [2.13 КБ]
Скачиваний: 429

Вернуться к началу

Илья Ермаков

Заголовок сообщения: Re: Как подключить файл Strings?

Добавлено: Понедельник, 16 Октябрь, 2017 15:59

Зарегистрирован: Понедельник, 14 Ноябрь, 2005 18:39
Сообщения: 9459
Откуда: Россия, Орёл

Извиняюсь, исходник не могу посмотреть, а Вы явно получаете строку через Dialog.MapString?

Вернуться к началу

Trurl

Заголовок сообщения: Re: Как подключить файл Strings?

Добавлено: Понедельник, 16 Октябрь, 2017 17:27

Зарегистрирован: Понедельник, 28 Ноябрь, 2005 10:28
Сообщения: 1444

Код:

PROCEDURE a*;
BEGIN
  Dialog.MapString("#My:com",str);
  Dialog.UpdateString(str)
END a;

Вернуться к началу

Александр К

Заголовок сообщения: Re: Как подключить файл Strings?

Добавлено: Понедельник, 16 Октябрь, 2017 17:45

Зарегистрирован: Воскресенье, 06 Август, 2017 19:33
Сообщения: 98

А почему не работает следующий код:

Код:

MODULE MyGu;
IMPORT Dialog;

VAR str*: ARRAY 64 OF CHAR;

PROCEDURE a*;
BEGIN
   str := "#My:com";
   Dialog.UpdateString(str)
END a;

END MyGu.

В справке к ВВ в учебнике в параграфе Формы:

Цитата:

Для использования строковых ресурсов в нашем примере, необходимо использовать специальный синтаксис, который показывает, что строка в действительности является ключем, который должен быть заменен подходящим значением из строкового ресурса. Таким образом, в подсистеме Obx в строковом ресурсе имеются ключи "On" и "Off", следующий код их использует:

Код:

PROCEDURE ToggleGuard* (VAR par: Dialog.Par);
   BEGIN
      IF someInteractor.isOn THEN
         par.label := "#Obx:Off"
      ELSE
         par.label := "#Obx:On"
      END
   END ToggleGuard;

Листинг 4-18. Охранник заголовка с применением карты строк

Ведущий символ "#" показывает, что необходима подстановка строк. Затем следует название подсистемы, в нашем случае "Obx". Затем следует двоеточие, после которого идет ключ для замены. Кнопка с таким охранником будет отображать заголовки "Switch Off" или "Switch On" в английской версии BlackBox, "Ausschalten" или "Einschalten" в немецкой версии и т.п.

Никаких Dialog.MapString там нет.

Вернуться к началу

Иван Денисов

Заголовок сообщения: Re: Как подключить файл Strings?

Добавлено: Понедельник, 16 Октябрь, 2017 18:13

Зарегистрирован: Четверг, 08 Октябрь, 2009 15:00
Сообщения: 3837

Александр К писал(а):

...
Никаких Dialog.MapString там нет.

В случае охранника, Блэкбокс сам вызывает Dialog.MapString внутри каркаса в служебных модулях.

Попробуйте вот так

Код:

MODULE MyGu;
IMPORT Dialog;

VAR str*: ARRAY 64 OF CHAR;

PROCEDURE a*;
BEGIN
   Dialog.MapString("#My:com", str);
   Dialog.UpdateString(str)
END a;

END MyGu.

Вернуться к началу

Trurl

Заголовок сообщения: Re: Как подключить файл Strings?

Добавлено: Понедельник, 16 Октябрь, 2017 18:26

Зарегистрирован: Понедельник, 28 Ноябрь, 2005 10:28
Сообщения: 1444

Александр К писал(а):

А почему не работает следующий код

Вы думаете это хорошая идея - внезапно изменять данные, введенные в форму?

Вернуться к началу

Иван Денисов

Заголовок сообщения: Re: Как подключить файл Strings?

Добавлено: Понедельник, 16 Октябрь, 2017 18:38

Зарегистрирован: Четверг, 08 Октябрь, 2009 15:00
Сообщения: 3837

Trurl писал(а):

Александр К писал(а):

А почему не работает следующий код

Вы думаете это хорошая идея - внезапно изменять данные, введенные в форму?

Ну тут вроде у Александра данные изменяются после нажатия на кнопку, к которой привязана процедура "a". Не вижу проблемы...

Вернуться к началу

Страница 1 из 1

[ Сообщений: 11 ]

Список форумов » Проект Информатика-21 » Для начинающих

Часовой пояс: UTC + 3 часа

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 3

Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения