popup и Vista

mike_ch

подскажите кто знает ...
в приложении под Vist'ой контекстное меню popup на русском отображается некорректно ... с кодировкой непорядок
как это исправить?
программно?
в реестре?

реестр рулит. где!? не подскажу...
Думаю будут еще ответы!

Игорь Столяров

А с какой версией Clarion ты собираешь приложение ?
В С5.0 была проблема с шрифтами и в WinXP ...

Apron63

В 6-ке в инициализации головной процедуры я пишу так:

SYSTEM{PROP:FontName+PROP:TipsFont}='MS Sans Serif'
SYSTEM{PROP:Charset}=CHARSET:Cyrillic

этого хватает и на меню, и на POPUP со значками

mike_ch

Игорь Столяров писал(а):А с какой версией Clarion ты собираешь приложение ?
В С5.0 была проблема с шрифтами и в WinXP ...

C5.5
В XP проблема решалась заменой кодовой страницы в реестре
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\FontSubstitutes]
"Arial,0="Arial,204"
"Arial,204="Arial,204"

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Nls\CodePage]
"1252"="c_1251.nls"

В Vist'е этого не хватает ...

mike_ch

Apron63 писал(а):В 6-ке в инициализации головной процедуры я пишу так:

SYSTEM{PROP:FontName+PROP:TipsFont}='MS Sans Serif'
SYSTEM{PROP:Charset}=CHARSET:Cyrillic

этого хватает и на меню, и на POPUP со значками

чиго-то не помогло ... в с5.5

Igor Vesnin

Пропиши явно чарсет для каждого пункта меню
Например,
BRW1::PopupText = CLIP(BRW1::PopupText) & '[' & PROP:Icon & '(~' & ?Insert{PROP:Icon} & '),' & PROP:FontCharSet &'(204)]' & 'Добавить'

mike_ch

Igor Vesnin писал(а):Пропиши явно чарсет для каждого пункта меню
Например,
BRW1::PopupText = CLIP(BRW1::PopupText) & '[' & PROP:Icon & '(~' & ?Insert{PROP:Icon} & '),' & PROP:FontCharSet &'(204)]' & 'Добавить'

Так работает!
Спасибо, Игорь, огромаднейшее!!!