В отчёте требуется вписать текст в фиксированный по ширине TfrxMemoView, используя уменьшение размера шрифта. Как это реализовать?

Question

Accepted Answer

Используйте функцию 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;