在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
重新编译就可以
分类:
Lazarus
【推荐】国内首个AI IDE,深度理解中文开发场景,立即下载体验Trae
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步
· TypeScript + Deepseek 打造卜卦网站:技术与玄学的结合
· Manus的开源复刻OpenManus初探
· AI 智能体引爆开源社区「GitHub 热点速览」
· 从HTTP原因短语缺失研究HTTP/2和HTTP/3的设计差异
· 三行代码完成国际化适配,妙~啊~
2022-04-19 Lazarus Delphi mode和OBJFPC mode的区别