如何品名文字自动缩放大小

商品名称根据长度的不同，字体大小自动缩放。

需要自动缩放大小的文本控件Memo操作步骤如下：

整体动画步骤如下：（电脑看更清晰）

图文步骤如下：

一、文本控件基础属性必须是

AutoWidth=False （假）
WordBreak=False （假）
wordWrap=True （真）

如下二图：

二、代码粘贴

先选中文本控件Memo，然后点击事件
在文本控件Memo上的OnAfterData和OnBeforePrint两个事件上，双击后粘贴如下同样的代码：

** 请用键盘上的Ctrl+c 复制以下整个代码**


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

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

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

三、最终粘贴的代码结果如下：

四、最终显示效果