List & Label 18
Модератор: Дед Пахом
					Правила форума
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
	При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
List & Label 18
Пытаюсь освоить List & Label 18
Наткнулся на то что дизайнер отчетов упорно говорит по немецки...
Как изменить язык?
			
			
									
						Наткнулся на то что дизайнер отчетов упорно говорит по немецки...
Как изменить язык?
Re: List & Label 18
1. У тебя должны быть файлы cmll1821.lng и cmll1821s.lng . 
Число 21 - код языка, 00-немецкий, 01-английский.
Можно, по идее, заменить cmll1800.lng на cmll1821.lng и всё будет на вел. и мог.
2. При открытии задания можно ( и нужно) сообщить код языка.
 
Job#=LlJobOpen( 21 )
3. Если язык таки русский, следует озаботиться тремя служебными символами, которые перекрывают русские буквы,
иначе они будут выводиться кракозяблями
If LLSetOption(Self.Job,LL_OPTION_CodePage,204).
If LLSetOption(Self.Job,LL_OPTION_FORCEFONTCHARSET,204).
If LLSetOption(Self.Job,LL_OPTION_TABREPRESENTATIONCODE,08aH).
If LLSetOption(Self.Job,LL_OPTION_RetREPRESENTATIONCODE,0b6H).
If LLSetOption(Self.Job,LL_OPTION_EXPRSEPREPRESENTATIONCODE,0a6h).
Наконец, в шаблонах Философова
  есть параметр, переключающий язык ...
			
			
									
						Число 21 - код языка, 00-немецкий, 01-английский.
Можно, по идее, заменить cmll1800.lng на cmll1821.lng и всё будет на вел. и мог.
2. При открытии задания можно ( и нужно) сообщить код языка.
Job#=LlJobOpen( 21 )
3. Если язык таки русский, следует озаботиться тремя служебными символами, которые перекрывают русские буквы,
иначе они будут выводиться кракозяблями
If LLSetOption(Self.Job,LL_OPTION_CodePage,204).
If LLSetOption(Self.Job,LL_OPTION_FORCEFONTCHARSET,204).
If LLSetOption(Self.Job,LL_OPTION_TABREPRESENTATIONCODE,08aH).
If LLSetOption(Self.Job,LL_OPTION_RetREPRESENTATIONCODE,0b6H).
If LLSetOption(Self.Job,LL_OPTION_EXPRSEPREPRESENTATIONCODE,0a6h).
Наконец, в шаблонах Философова
Re: List & Label 18
Огромное СПАСИБО...
Заменил cmll1800.lng на cmll1821.lng и стало "говорить" по рксски...
			
			
									
						Заменил cmll1800.lng на cmll1821.lng и стало "говорить" по рксски...
- morkovin
 - Ветеран
 - Сообщения: 937
 - Зарегистрирован: 20 Июль 2005, 14:53
 - Откуда: Volgograd, Russia
 - Благодарил (а): 12 раз
 - Поблагодарили: 4 раза
 - Контактная информация:
 
Re: List & Label 18
А какое "лекарство" для ЛЛ18? от 15-го подходит?nik190994 писал(а):Пытаюсь освоить List & Label 18
WBR, morkovin
			
						Re: List & Label 18
Проблема была в шаблоне...
Нодо добавить
#Group(%SetLanguage)
#CASE(%Language)
# ================================
#OF('Russian')
#SET(%WhichLanguage,33)
# ================================
#ENDCASE
Забыли немцы русских...
P.S. Спасибо Yufil за наводку...
			
			
									
						Нодо добавить
#Group(%SetLanguage)
#CASE(%Language)
# ================================
#OF('Russian')
#SET(%WhichLanguage,33)
# ================================
#ENDCASE
Забыли немцы русских...
P.S. Спасибо Yufil за наводку...
- morkovin
 - Ветеран
 - Сообщения: 937
 - Зарегистрирован: 20 Июль 2005, 14:53
 - Откуда: Volgograd, Russia
 - Благодарил (а): 12 раз
 - Поблагодарили: 4 раза
 - Контактная информация:
 
Re: List & Label 18
А где взять cmll1821.lng? Или самому создавать?nik190994 писал(а):Огромное СПАСИБО...
Заменил cmll1800.lng на cmll1821.lng и стало "говорить" по рксски...
WBR, morkovin
			
						- morkovin
 - Ветеран
 - Сообщения: 937
 - Зарегистрирован: 20 Июль 2005, 14:53
 - Откуда: Volgograd, Russia
 - Благодарил (а): 12 раз
 - Поблагодарили: 4 раза
 - Контактная информация:
 
Re: List & Label 18
Повезло тебе...nik190994 писал(а):У меня они создались при инсталляции...
WBR, morkovin
			
						Re: List & Label 18
Я, когда сильно не везло, за пару-тройку часов с помощью Resource Hacker (Restorator почему-то не подходит) делал русские языковые файлы из предыдущей версии. На крайняк можно сделать копию 01 -> 21 и иметь вместо русского аглицкий), а потом изготовить правильный файл.
			
			
									
						Re: List & Label 18
Пока безуспешно пытаюсь перевести  LL16 из задачи под 6-кой  на  clarion9. Ругается на отсутствие файла библиотеки claLL16.lib. Кто-то юзает под клашей 8-9 ?
			
			
									
						П.З.Д.
			
						- Дед Пахом
 - Старичок
 - Сообщения: 3346
 - Зарегистрирован: 07 Июль 2005, 16:51
 - Откуда: Москва, Россия
 - Благодарил (а): 20 раз
 - Поблагодарили: 56 раз
 - Контактная информация:
 
Re: List & Label 18
Надо перекомпилировать ll.clw под 8-кой (9-кой соответственно). Если, конечно, есть ll.clw. Я бы дал dll/lib, да имею только для 15-го и 18-го L&L.DPZ писал(а):Пока безуспешно пытаюсь перевести LL16 из задачи под 6-кой на clarion9. Ругается на отсутствие файла библиотеки claLL16.lib. Кто-то юзает под клашей 8-9 ?
С уважением, ДП
			
						Re: List & Label 18
Рабочий каталог с ll.clw и библиотеками есть. Подскажи порядок компиляции. Не суди строго. Заранее спасибо.
			
			
									
						П.З.Д.
			
						- Дед Пахом
 - Старичок
 - Сообщения: 3346
 - Зарегистрирован: 07 Июль 2005, 16:51
 - Откуда: Москва, Россия
 - Благодарил (а): 20 раз
 - Поблагодарили: 56 раз
 - Контактная информация:
 
Re: List & Label 18
Надо пересобрать 2 проекта:
файл LLCLASS.PRJ
файл llclassl.prj
			
			
									
						файл LLCLASS.PRJ
Код: Выделить всё
-- LlClass
#noedit
#system win32
#model clarion dll
#pragma define(maincode=>off)
#set RELEASE = on
#pragma debug(vid=>off)
#pragma optimize(cpu=>386)
#pragma define(_ll_=>1)
#compile "llclass.clw"
#compile "ll.clw"
#pragma link("cmll16.lib")
#link "clall16x.dll"
Код: Выделить всё
-- LlClass
#noedit
#system win32
#model clarion lib
#pragma define(maincode=>off)
#set RELEASE = on
#pragma debug(vid=>off)
#pragma optimize(cpu=>386)
#pragma define(_ll_=>1)
#compile "llclass.clw"
#compile "ll.clw"
#pragma link("cmll16.lib")
#link "clall16l.lib"
С уважением, ДП
			
						