Страница 1 из 2
POPUP - CharSet
Добавлено: 22 Ноябрь 2016, 21:03
gopstop2007
Проблема при выводе только POPUP в кириллице, кто как решает данную проблему?
C10 ABC, пока увидел проблемы на WINDOWS 2008-2012, в терминальном режиме, в самой виндовс(без терминального режима) проблем нет
POPUP - CharSet
Добавлено: 22 Ноябрь 2016, 21:15
Игорь Столяров
Наверно здесь нужна информация о версии Clarion в которой собрана программа и Windows под которой она работает.
Также хорошо было бы проверить проблему на другом компьютере, настроенным грамотным сисадмином ...
POPUP - CharSet
Добавлено: 22 Ноябрь 2016, 21:33
kreator
gopstop2007 писал(а):Проблема при выводе только POPUP в кириллице, кто как решает данную проблему?
Хочешь сказать, что в обычном меню проблем нет? Только в попап? Так не бывает. Попап - штука не настраиваемая, настройки хватает с меню фрейма.
POPUP - CharSet
Добавлено: 23 Ноябрь 2016, 6:47
Admin
kreator писал(а): Так не бывает
Я бы сказал - не все так просто!
http://forum.clarionlife.net/phpbb/view ... f=1&t=1999
http://forum.clarionlife.net/phpbb/viewtopic.php?t=1190
И в который раз. Читайте правила вверху!
- 2016-11-23_13-46-47.png (7.05 КБ) 7843 просмотра
POPUP - CharSet
Добавлено: 23 Ноябрь 2016, 10:21
gopstop2007
сори, подправил
Я бы сказал - не все так просто!
viewtopic.php?f=1&t=1999
viewtopic.php?t=1190
не помогает.
Код который вешается на кнопку
Код: Выделить всё
PopupRefers.Init()
PopupRefers.AddItem('Настройки','Setup')
PopupRefers.AddItem('-','Sep00')
PopupRefers.AddItem('Мастер...','FirstStep')
PopupRefers.Kill
POPUP - CharSet
Добавлено: 23 Ноябрь 2016, 11:20
gopstop2007
нашел решение. которое не только кодировку, но и размер шрифта, стиль для popup и прочие радости, только это надо для каждой строки меню popup-a
Код: Выделить всё
PopupRefers.Init()
PopupRefers.AddItem(['& PROP:Icon &'(a1.ico),'& PROP:FontSize &'('& SET:PopupFontsSize &'),'& PROP:FontCharSet &'('&CHARSET:CYRILLIC&')]'Настройки','Setup')
PopupRefers.AddItem('-','Sep00')
PopupRefers.AddItem(['& PROP:Icon &'(a2.ico),'& PROP:FontSize &'('& SET:PopupFontsSize &'),'& PROP:FontCharSet &'('&CHARSET:CYRILLIC&')]'Мастер...','FirstStep')
PopupRefers.Kill
POPUP - CharSet
Добавлено: 23 Ноябрь 2016, 11:34
RaFaeL
Я уж не знаю, когда и кем вставлено или это штатное. В abpopup.clw
Код: Выделить всё
ExtendedItems ROUTINE
IF NewStyle AND SELF.PopupItems.Text <> '-'
MenuText = MenuText & '['
IF SELF.PopupItems.Icon
MenuText = MenuText&PROP:Icon & '(~' & SELF.PopupItems.Icon & '),' & PROP:FontCharset & '(' & SYSTEM{PROP:Charset} & ')'
ELSE
MenuText = MenuText & PROP:FontCharset & '(' & SYSTEM{PROP:Charset} & ')'
END
MenuText = MenuText & ']'
END
Т.е. всё упирается в выставленный SYSTEM{PROP:Charset}
POPUP - CharSet
Добавлено: 23 Ноябрь 2016, 12:25
gopstop2007
RaFaeL писал(а):Т.е. всё упирается в выставленный SYSTEM{PROP:Charset}
судя по всему нет, POPUP живет своей жизнью. Charset - у меня выстален в app, потом пихал его только где возможно, окно и прочее, толку ноль.
POPUP - CharSet
Добавлено: 23 Ноябрь 2016, 12:41
gopstop2007
у меня используется для popup - AddItem
Код: Выделить всё
PopupClass.AddItem PROCEDURE(STRING MenuText)
CODE
RETURN SELF.AddItem(MenuText,GetUniqueName(SELF,CHOOSE(MenuText='-','Separator',MenuText)))
PopupClass.AddItem PROCEDURE(STRING MenuText, STRING ItemName)
CODE
RETURN SELF.AddItem(MenuText,ItemName,'',0)
PopupClass.AddItem PROCEDURE(STRING MenuText, STRING Name, STRING NameToFollow, BYTE Level)
CODE
RETURN SELF.SetItem(SELF.LocateName(NameToFollow),Level,Name,MenuText)
POPUP - CharSet
Добавлено: 23 Ноябрь 2016, 14:00
Admin
gopstop2007 писал(а): C10 ABC, пока увидел проблемы на WINDOWS 2008-2012, в терминальном режиме, в самой виндовс(без терминального режима) проблем нет
Вот обратите внимание на исправление в первом посте. Версии!
POPUP - CharSet
Добавлено: 24 Ноябрь 2016, 13:10
kreator
Admin писал(а):Admin » 23 Ноябрь 2016, 14:00
gopstop2007 писал(а):
Qr Bbpost C10 ABC, пока увидел проблемы на WINDOWS 2008-2012, в терминальном режиме, в самой виндовс(без терминального режима) проблем нет
Вот обратите внимание на исправление в первом посте. Версии!
Есть у нас терминальный сервер на Windows Server 2008R2, есть удалёнка на Windows Server 2008R2 и Windows Server 2012. Проблем не наблюдаю. Наверно, банально на терминалке нет того шрифта, который подсовывается в меню. Привёл бы текст куска программы.
POPUP - CharSet
Добавлено: 24 Ноябрь 2016, 13:16
Игорь Столяров
kreator писал(а):Наверно, банально на терминалке нет того шрифта, который подсовывается в меню.
Возможен и другой вариант. Каждая терминальная сессия может иметь свою кодовую страницу (например для работы
с сервером из разных стран). Если не выставлена локализация по умолчанию - все установки для новых сессий идут в default,
а что там - никому не известно. Я поэтому и упомянул сисадмина в первом ответе ...
POPUP - CharSet
Добавлено: 24 Ноябрь 2016, 13:33
RaFaeL
Вспомнил. Была проблема на Windows 8/10, если через пропы выставлять шрифт в "жирный" не выставляя кодировки, то сбивалось на иероглифы. Причем в любом месте - в списках, на кнопках и т.п., т.е. в этом случае игнорировался системный пропчарсет. Пришлось везде по коду пробежаться и выставить вместе с жирностью еще и чарсет
POPUP - CharSet
Добавлено: 25 Ноябрь 2016, 2:27
Admin
RaFaeL писал(а): по коду пробежаться и выставить вместе с жирностью еще и чарсет
Мы уже давно (из за терминальных серверов) завели правило выставлять charset везде где есть установка шрифтов.
Спасает от неожиданных кракозябликов.
Тем более у нас (с подачи одного товарища
) везде используется Tahoma
POPUP - CharSet
Добавлено: 05 Сентябрь 2017, 17:31
dik1970
gopstop2007, день добрый. А как можно здесь задать цвет background ?