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

品名文字大小自动缩放

生效的秘密：

1、文本框要有长度，不能有高度，如果高度允许换行，字号就不会变化

2、三个重要的值
autowidth 值为False
wordbreak 值为False
WordWrap 值为True

3、下面恢复为默认字号 不一定是10，应该看看原模板的大小，并手修改

需要粘贴的代码

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

TfrxMemoview(Sender).Font.Size := 10; //恢复为默认字号（如10）

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

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




{第二种解决方案，这里限制文字最小是6号}
var 
  Memo: TfrxMemoView;
  OriginalSize: Integer; // 保存默认字号
begin 
  Memo := TfrxMemoView(Sender);
  OriginalSize := 10; // 替换为您的默认字号（如10）

  // 重置字体大小
  Memo.Font.Size := OriginalSize;

  // 动态缩放：仅在内容超框时缩小字体 
  while (Memo.CalcHeight - Memo.LineSpacing > Memo.Height) and (Memo.Font.Size > 6) do // 设置最小字号限制 
  begin 
    Memo.Font.Size := Memo.Font.Size - 1;
  end;
end;