FR ботает на иврите

Портос

На одном из принтеров FR при печати вместо русских букв использует израильские.
Чем горю помочь? Как не прослыть юдофобом?
Версия официальная, 2.51.
Принтер HP 1300.

Slv

Необходимо принудительно в фонтах отчета указать кирилицу.

Портос

С уверенностью могу сказать: не помогает. Но!
Работают два проверенных способа:
1)Отключение оптимизации в настройках принтера.
2)Поголовный переход отчетов на MS SansSerif (может, и другие шрифты есть).

Вот-с!

Павел

долго копался, но, вроде, нашел!!!
в модуле FR_CLASS надо дописать:
procedure TfrMemoView.AssignFont(Canvas: TCanvas);
begin
with Canvas do
begin
SetBkMode(Handle, Transparent);
Font := Self.Font;
Font.Charset := RUSSIAN_CHARSET; //добавлено мною
if not IsPrinting then
if ScaleY = 1 then
Font.Height := -Round(Font.Size * 96 / 72 * ScaleY) else
Font.Height := -Trunc(Font.Size * 96 / 72 * ScaleY);
end;
end;

заработало!