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

mrDuke

Возможно ли сделать чтобы размер шрифта автоматически подгонялся так чтобы вся надпись уменьшалась в на одной строчке?

gpi

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

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