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

Комментарии

• Slv

  July 2004 отредактировано 06:59

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

  August 2004 отредактировано 06:59

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

  November 2004 отредактировано November 2004

  долго копался, но, вроде, нашел!!!
  в модуле 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;
  
  заработало!