OberonCore

Библиотека  Wiki  Форум  BlackBox  Компоненты  Проекты
Текущее время: Четверг, 28 Март, 2024 13:33

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




Начать новую тему Ответить на тему  [ Сообщений: 11 ] 
Автор Сообщение
 Заголовок сообщения: Как подключить файл Strings?
СообщениеДобавлено: Среда, 11 Октябрь, 2017 16:12 

Зарегистрирован: Воскресенье, 06 Август, 2017 19:33
Сообщения: 79
Для элементов управления по умолчанию поле Label заполняется
Код:
#System:Caption

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

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


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Как подключить файл Strings?
СообщениеДобавлено: Среда, 11 Октябрь, 2017 16:52 
Аватара пользователя

Зарегистрирован: Четверг, 08 Октябрь, 2009 15:00
Сообщения: 3774
Наверное нет переноса на новую строку после вашей строки. Приложите файл Strings к следующему сообщению?


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Как подключить файл Strings?
СообщениеДобавлено: Среда, 11 Октябрь, 2017 17:45 

Зарегистрирован: Воскресенье, 06 Август, 2017 19:33
Сообщения: 79
Иван Денисов писал(а):
Приложите файл Strings к следующему сообщению?
Пожалуйста


Вложения:
My.rar [1.52 КБ]
Скачиваний: 270
Strings.odc [18.49 КБ]
Скачиваний: 790
Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Как подключить файл Strings?
СообщениеДобавлено: Среда, 11 Октябрь, 2017 18:09 
Аватара пользователя

Зарегистрирован: Четверг, 08 Октябрь, 2009 15:00
Сообщения: 3774
Должно быть
Код:
#My:lab

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


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Как подключить файл Strings?
СообщениеДобавлено: Понедельник, 16 Октябрь, 2017 15:13 

Зарегистрирован: Воскресенье, 06 Август, 2017 19:33
Сообщения: 79
А как выводить программно? Когда я нажимаю на кнопку почему-то в текстовое поле выводится #My:com вместо "кнопка".


Вложения:
My.rar [2.13 КБ]
Скачиваний: 273
Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Как подключить файл Strings?
СообщениеДобавлено: Понедельник, 16 Октябрь, 2017 15:59 
Модератор
Аватара пользователя

Зарегистрирован: Понедельник, 14 Ноябрь, 2005 18:39
Сообщения: 9459
Откуда: Россия, Орёл
Извиняюсь, исходник не могу посмотреть, а Вы явно получаете строку через Dialog.MapString?


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Как подключить файл Strings?
СообщениеДобавлено: Понедельник, 16 Октябрь, 2017 17:27 

Зарегистрирован: Понедельник, 28 Ноябрь, 2005 10:28
Сообщения: 1428
Код:
PROCEDURE a*;
BEGIN
  Dialog.MapString("#My:com",str);
  Dialog.UpdateString(str)
END a;


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Как подключить файл Strings?
СообщениеДобавлено: Понедельник, 16 Октябрь, 2017 17:45 

Зарегистрирован: Воскресенье, 06 Август, 2017 19:33
Сообщения: 79
А почему не работает следующий код:
Код:
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
Сообщения: 3774
Александр К писал(а):
...
Никаких 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.


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Как подключить файл Strings?
СообщениеДобавлено: Понедельник, 16 Октябрь, 2017 18:26 

Зарегистрирован: Понедельник, 28 Ноябрь, 2005 10:28
Сообщения: 1428
Александр К писал(а):
А почему не работает следующий код

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


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Как подключить файл Strings?
СообщениеДобавлено: Понедельник, 16 Октябрь, 2017 18:38 
Аватара пользователя

Зарегистрирован: Четверг, 08 Октябрь, 2009 15:00
Сообщения: 3774
Trurl писал(а):
Александр К писал(а):
А почему не работает следующий код

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

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


Вернуться к началу
 Профиль  
 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 11 ] 

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


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

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


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

Найти:
Вся информация, размещаемая участниками на конференции (тексты сообщений, вложения и пр.) © 2005-2024, участники конференции «OberonCore», если специально не оговорено иное.
Администрация не несет ответственности за мнения, стиль и достоверность высказываний участников, равно как и за безопасность материалов, предоставляемых участниками во вложениях.
Без разрешения участников и ссылки на конференцию «OberonCore» любое воспроизведение и/или копирование высказываний полностью и/или по частям запрещено.
Powered by phpBB® Forum Software © phpBB Group
Русская поддержка phpBB