Нужна помощь

zmusic

Подскажите, как можно решить проблему! (Fr3 prof)

TfrxMemoView связал с полем базы данных!

Вопрос: Как сделать так чтобы если текст четко не входит в фиксированный размер TfrxMemoView, менялся его размер шрифта, до тех пока он не войдет полностью?

AlexTZ

procedure Memo8OnAfterData(Sender: TfrxComponent);
begin
  Memo8.Font.Size := 10;
  while Memo8.CalcWidth > Memo8.Width do
    Memo8.Font.Size := Memo8.Font.Size - 1;
end;

zmusic

Спасибо, работает!