如何品名文字自动缩放视频版

品名文字大小自动缩放

需要粘贴的代码

{字体自动缩放代码块开始，这行注释可不粘}

while ((TfrxMemoview(Sender).CalcHeight - TfrxMemoview(Sender).LineSpacing)-TfrxMemoview(Sender).Height>0) do
begin
 TfrxMemoview(Sender).Font.Size := TfrxMemoview(Sender).Font.Size-1;
end;

{字体自动缩放代码块结束，这行注释可不粘}