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

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

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

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

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

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

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

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

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

Автор

Сообщение

Александр К

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

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

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

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

Код:

#System:Caption

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

Код:

#My:Exception

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

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

Иван Денисов

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

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

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

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

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

Александр К

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

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

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

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

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

Пожалуйста

Вложения:

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

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

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

Иван Денисов

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

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

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

Должно быть

Код:

#My:lab

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

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

Александр К

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

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

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

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

Вложения:

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

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

Илья Ермаков

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

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

Модератор

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

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

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

Trurl

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

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

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

Код:

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

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

Александр К

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

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

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

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

Код:

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
Сообщения: 3806

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

...
Никаких 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
Сообщения: 1431

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

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

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

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

Иван Денисов

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

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

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

Trurl писал(а):

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

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

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

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

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

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

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

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

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

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

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

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

OberonCore

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

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