FR ботает на иврите
На одном из принтеров FR при печати вместо русских букв использует израильские.
Чем горю помочь? Как не прослыть юдофобом?
Версия официальная, 2.51.
Принтер HP 1300.
Чем горю помочь? Как не прослыть юдофобом?
Версия официальная, 2.51.
Принтер HP 1300.
Комментарии
Работают два проверенных способа:
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;
заработало!