кракозябры в RichView

ded_mazai

В отчёте имеется ричвью, содержащий следующее:

Сумма прописью: [sumtxt]

где sumtxt - переменная, значение которой присваивается на OnGetValue.
В WinXP(2000) всё чудесно печатается, а вот в Win98 значсение переменной в Preview выводится кракозябрами, причём со статическим текстом "Сумма прописью" всё ок. Где грабли?

-=Serg=-

Memo charset должен быть русский.

ded_mazai

Хорошо, тогда новый вопрос: как и где мне его сделать русским?

-=Serg=-

В дизайнере - инспектор объектов.

ded_mazai

к сожалению, такое свойство как Font, для ричвью отсутствует в инспекторе

-=Serg=-

Попробуй открыть редактор ричвью и найти на его панели кнопку Font.

ded_mazai

Вообщем, отловил багу в fr_rich.pas: по умолчанию RichEdit1 в ней создавался с чарсетом фонта 1, а не тем, который нужен (204 - RUSSIAN_CHARSET). При нажатии на кнопочку выбора фонта происходила его переинициализация из формы выбора фонта и чарсет становился нормальным. А вот если менять параметры фонта прямо в форме frRichForm (сверху комбобоксы для выбора названия фонта и его размера) - то чарсет оставался кривой - отсюдова и кракозябры.
Фикс заключается в помещении строки

RichEdit1.Font.Charset := frCharset;

в обработчик события OnShow формы TfrRichForm.