Уменьшить шрифт

Комментарии

• gpi

  August 2010 отредактировано 01:45

  Используйте функцию TfrxMemoView.CalcWidth в обработчике TfrxMemoView.OnAfterData
  
  procedure Memo1OnAfterData(Sender: TfrxComponent);
  begin
  Memo1.Font.Size:=10;
  if Memo1.CalcWidth>Memo1.Width-Memo1.GapX*2 then
  Memo1.Font.Size:=Trunc(Memo1.Font.Size*((Memo1.Width-Memo1.GapX*2)/Memo1.CalcWidth));
  end;
  
• mrDuke Рязань

  August 2010 отредактировано 01:45

  Огромное СПАСИБО! Работает!