秋·风

  博客园 :: 首页 :: 博问 :: 闪存 :: 新随笔 :: 联系 :: 订阅 订阅 :: 管理 ::
  278 随笔 :: 0 文章 :: 308 评论 :: 20万 阅读
< 2025年3月 >
23 24 25 26 27 28 1
2 3 4 5 6 7 8
9 10 11 12 13 14 15
16 17 18 19 20 21 22
23 24 25 26 27 28 29
30 31 1 2 3 4 5
在lazarus使用fr时发现memo如果有空格可能出现换行的问题。

修改方法:
打开frxGraphicUtils.pas文件,查找以下代码:

复制代码
  while i <= n do
  begin
    if (frxGetSymbol(s, i) = ' ')  then
      if (FHandler.AllowTags) and (FHandler.Count > 0) then
      begin
        if (not FHandler[FHandler.Count - 1].Items[i - LineBegin].DontWRAP) then
          LastSpace := i;
      end
      else
        LastSpace := i;



    if FTempArray[i - 1 + addI] - Offset > FirstLineWidth then  // need wrap
    begin
复制代码

改为:

复制代码
  while i <= n do
  begin
    if (frxGetSymbol(s, i) = ' ') and (FWordBreak) then
      if (FHandler.AllowTags) and (FHandler.Count > 0) then
      begin
        if (not FHandler[FHandler.Count - 1].Items[i - LineBegin].DontWRAP) then
          LastSpace := i;
      end
      else
        LastSpace := i;



    if FTempArray[i - 1 + addI] - Offset > FirstLineWidth then  // need wrap
    begin
复制代码

重新编译就可以


 

posted on   秋·风  阅读(70)  评论(0编辑  收藏  举报
相关博文:
阅读排行:
· TypeScript + Deepseek 打造卜卦网站:技术与玄学的结合
· Manus的开源复刻OpenManus初探
· AI 智能体引爆开源社区「GitHub 热点速览」
· 从HTTP原因短语缺失研究HTTP/2和HTTP/3的设计差异
· 三行代码完成国际化适配,妙~啊~
历史上的今天:
2022-04-19 Lazarus Delphi mode和OBJFPC mode的区别
点击右上角即可分享
微信分享提示