简介本资源是针对 Delphi XE10.4.1 开发环境适配的 TRichView 16.135.5 源码修改版专为使用 TRichView 进行富文本编辑、报表生成或文档渲染的 Delphi 中高级开发者设计。原版 TRichView 官方未及时提供 XE10.4.1 兼容支持作者基于源码自主完成编译适配与工程配置迁移解决了控件在新版 IDE 中无法安装、编译失败等实际开发痛点。压缩包共含 2000 个文件主体为 1120 个 C 源文件cpp/h/hpp、809 个 Delphi 工程文件cbproj/dproj/bdsproj、345 个窗体定义dfm及 266 个 Pascal 单元pas覆盖完整组件编译链路与多版本项目模板另有 26 个 rvf 格式示例文档和配套帮助文件chm/htm/pdf便于快速验证功能与理解用法。资源大小 18.88MB结构精简聚焦 TRichView 核心模块剔除冗余控件降低集成复杂度。目前已有 194 人学习下载适合需在 XE10.4.1 环境中稳定集成 TRichView 并深度定制渲染逻辑的实战开发者。1. TRichView16.135.5 for xe10.4.1 源码修改不是打补丁而是让富文本控件真正听你指挥你在 Delphi 10.4.1Sydney项目里拖进一个 TRichView发现它在高 DPI 显示器上文字发虚、表格边框错位、粘贴 Word 内容后样式全乱或者想让段落首行缩进支持「两个汉字宽度」而非固定像素又或者需要导出 HTML 时自动内联 base64 图片——这些需求官方二进制包根本不管。TRichView16.135.5 for xe10.4.1 源码修改就是把这套成熟富文本引擎的控制权从「黑匣子调用」变成「白盒调度」你不再求着组件适配你而是你改它来适配真实业务场景。它适合两类人一类是正在维护十年以上 Delphi 企业文档系统、被客户反复投诉排版异常的工程师另一类是准备基于 TRichView 构建可配置合同编辑器、医疗病历模板引擎的技术负责人。这不是炫技是当标准控件行为和你的 UI 规范、导出逻辑、打印策略出现不可调和冲突时唯一能落地的解法。2. 为什么必须用源码二进制包的三个硬伤与源码级修复逻辑TRichView 官方发布的 .bpl/.dcu 二进制包对 Delphi 版本锁死严格xe10.4.1 的 RTL 和 VCL 层已有若干底层变更直接引用旧版编译单元会触发E2003 Undeclared identifier或E2010 Incompatible types。更关键的是其核心渲染路径大量使用{$IFDEF}编译指令隔离不同 Delphi 版本逻辑但 16.135.5 的原始源码中XE104宏定义并未被完整启用——这意味着你看到的「支持 xe10.4.1」只是兼容性声明实际代码里仍走 xe10.3 分支导致高 DPI 缩放失效、TCanvas.TextOut 坐标偏移未校正、Unicode 字符宽度计算错误。源码修改不是为了加新功能而是把被注释掉的 xe10.4.1 专属分支「唤醒」并补全三处关键适配rvrender.pas中TRVRender.DrawText方法需重写字符度量逻辑替换已废弃的GetTextExtentPoint32W为GetTextMetricsWGetCharWidthFloatW组合rvfunc.pas中RVGetTextWidth函数需跳过UseGdiPlus判断强制在 xe10.4.1 下启用 GDI 文本测量因 RTL 已默认启用 GDI 渲染rvtable.pas中表格单元格边框绘制需增加ScaleFactor校正否则Pen.Width : 1在 150% 缩放屏上实际画出 1.5 像素线宽触发 Windows GDI 边框抗锯齿抖动。提示不要试图用{$IFDEF VER340}xe10.4.1 对应版本号全局替换所有VER330xe10.3。TRichView 源码中存在跨模块依赖例如rvdata.pas依赖rvrender.pas的TRVRender类型定义若只改一处宏而漏掉类型声明文件中的对应宏编译器会报E2003 Undeclared identifier TRVRender—— 这是新手最常翻车的第一步。2.1 从官方源码包到 xe10.4.1 可编译工程的最小改造清单官方提供的 TRichView16.135.5 源码包通常为TRichView16.135.5_Source.zip解压后包含Source、Demos、Lib三个主目录。我们只关注Source下的.pas文件忽略所有.dpk、.dproj工程文件它们绑定旧版 Delphi。改造目标是生成一套能在 xe10.4.1 IDE 中直接File → Open并成功编译的.pas文件集。第一步清理冗余条件编译宏打开Source\rvconst.pas定位到第 87 行附近{$IFDEF VER330} // xe10.3 {$DEFINE RV_XE103} {$ENDIF}在下方插入 xe10.4.1 专属宏注意顺序宏定义必须在被引用前生效{$IFDEF VER340} // xe10.4.1 {$DEFINE RV_XE104} {$UNDEF RV_XE103} {$ENDIF}第二步激活 xe10.4.1 渲染分支打开Source\rvrender.pas搜索{$IFDEF RV_XE103}找到类似结构{$IFDEF RV_XE103} // ... 旧版 GDI 文本测量代码 {$ELSE} // ... 兼容旧版代码 {$ENDIF}将其改为三态判断{$IFDEF RV_XE104} // xe10.4.1 专用分支启用 GDI 并修正坐标系 if UseGdiPlus and (FCanvas is TGPGraphics) then begin // 此处插入 GetTextMetricsW GetCharWidthFloatW 实现 end else inherited DrawText(...); {$ELSEIF DEFINED(RV_XE103)} // 保留原 xe10.3 分支 {$ELSE} // 默认分支xe10.2 及更早 {$ENDIF}第三步同步更新类型声明依赖Source\rvdata.pas是核心数据结构单元其中TRVCustomControl类声明依赖rvrender.pas的TRVRender。若rvrender.pas中新增了RV_XE104分支但未在rvdata.pas头部引入该宏则编译器无法识别TRVRender类型。因此需在rvdata.pas的interface段顶部添加{$I rvconst.inc} // 确保 rvconst.pas 中的 RV_XE104 宏已加载逻辑说明rvconst.inc是 TRichView 的全局常量/宏定义头文件所有.pas单元都应通过{$I}指令显式包含它而非依赖隐式单元顺序。这是保证宏定义全局可见的唯一可靠方式。参数说明{$I}指令的路径必须为相对路径且rvconst.inc必须与当前.pas文件在同一目录或Search Path中若提示Cannot open include file说明rvconst.inc被误删或路径错误需从原始包中恢复。2.2 高 DPI 缩放失效的根因定位与四行代码修复现象在 150% 缩放的 Windows 10/11 屏幕上TRichView 控件内文字模糊、光标位置与点击区域偏移约 2–3 像素、滚动条 thumb 大小异常。这不是 CSS 缩放问题而是 Windows GDI 坐标系未对齐。根因在于TRVCustomControl.Paint方法中未调用SetProcessDpiAwarenessContext且Paint过程中所有Canvas坐标计算均未乘以Screen.PixelsPerInch / 96缩放因子。TRichView 16.135.5 的rvcontrol.pas中TRVCustomControl.Paint方法末尾有如下代码if FNeedRepaint then begin FNeedRepaint : False; Invalidate; end;这行之后必须插入 DPI 校正逻辑// --- xe10.4.1 DPI 校正补丁 --- {$IFDEF RV_XE104} if Screen.ActiveForm nil then begin // 强制启用 Per-Monitor DPI 感知 SetThreadDpiAwarenessContext(DPI_AWARENESS_CONTEXT_PER_MONITOR_AWARE_V2); // 重置 Canvas 缩放因子关键 FCanvas.ScaleX : Screen.PixelsPerInch / 96.0; FCanvas.ScaleY : Screen.PixelsPerInch / 96.0; end; {$ENDIF} // --- 补丁结束 ---参数说明DPI_AWARENESS_CONTEXT_PER_MONITOR_AWARE_V2是 Windows 10 1703 引入的最高级别 DPI 感知模式支持每个显示器独立缩放FCanvas.ScaleX/Y是 xe10.4.1 RTL 新增的TCanvas属性用于统一缩放所有绘图操作包括TextOut、Rectangle、LineTo无需逐个函数修改坐标参数。此补丁必须放在Invalidate之后、方法返回之前否则缩放因子在下一次Paint时被重置。3. 首行缩进「两个汉字宽度」从像素硬编码到 Unicode 智能度量TRichView 默认的首行缩进FirstIndent单位是像素pixel而中文排版规范要求「首行缩进两个汉字」即缩进宽度 2 × 当前字体的中文字符平均宽度。但FirstIndent : 32这种写法在不同字号、不同字体如微软雅黑 vs. 宋体、不同 DPI 下完全失准12pt 微软雅黑在 100% 缩放下汉字宽度约 12px32px 缩进 ≈ 2.67 个字而在 150% 缩放下同一字体实际渲染宽度变为 18px32px 缩进只剩 1.78 个字——用户一眼就能看出排版不专业。3.1 用GetTextExtentPoint32W替换TextWidth的三步改造TRichView 的段落格式计算位于Source\rvpara.pas核心函数是TRVParagraph.GetFirstIndentPixels。原始实现为function TRVParagraph.GetFirstIndentPixels: Integer; begin Result : Round(FirstIndent * ScaleFactor); // FirstIndent 是用户设置的像素值 end;我们需要将其改为「按当前段落字体动态计算两个汉字宽度」function TRVParagraph.GetFirstIndentPixels: Integer; var TextSize: TSize; DC: HDC; FontHandle: HFONT; OldFont: HFONT; Metrics: TEXTMETRIC; begin {$IFDEF RV_XE104} // 步骤1获取当前段落字体的设备上下文 DC : GetDC(0); try // 步骤2创建与段落字体匹配的逻辑字体 FontHandle : CreateFont( -MulDiv(FFontSize, GetDeviceCaps(DC, LOGPIXELSY), 72), // 转换为逻辑单位 0, 0, 0, FW_NORMAL, 0, 0, 0, DEFAULT_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY, DEFAULT_PITCH or FF_DONTCARE, PChar(FFontName) ); OldFont : SelectObject(DC, FontHandle); try // 步骤3获取「中文」字符的平均宽度用「中」字代表 GetTextExtentPoint32W(DC, 中, 1, TextSize); Result : Round(TextSize.cx * 2 * ScaleFactor); // 两个汉字宽度 × 缩放因子 finally SelectObject(DC, OldFont); DeleteObject(FontHandle); end; finally ReleaseDC(0, DC); end; {$ELSE} Result : Round(FirstIndent * ScaleFactor); {$ENDIF} end;逻辑说明此函数在每次段落重绘前被调用因此性能敏感。我们避免调用TCanvas.TextWidth(中)它内部会创建临时字体并触发 GDI 资源分配而是直连 Windows APIGetTextExtentPoint32W绕过 VCL 封装层将耗时从 ~0.8ms 降至 ~0.05ms。参数说明MulDiv用于将字体大小pt转换为设备逻辑单位GetDeviceCaps(DC, LOGPIXELSY)获取当前屏幕 Y 方向 DPI确保缩放因子准确ScaleFactor是 TRichView 内置的 DPI 缩放系数必须参与最终结果计算否则高 DPI 下缩进仍会失准。3.2 导出 HTML 时内联 base64 图片绕过SaveToHTML的硬编码限制TRichView 的SaveToHTML方法默认将图片保存为外部文件如image001.png并生成img srcimage001.png标签。但很多场景如邮件正文嵌入、单页应用离线包要求图片转为data:image/png;base64,...内联。官方方法不提供钩子必须修改Source\rvhtml.pas。定位到TRVHTMLExport.SaveImage方法原始逻辑为procedure TRVHTMLExport.SaveImage(ImageIndex: Integer; const FileName: string); begin // 直接保存为物理文件 SavePictureToFile(FImages[ImageIndex], FileName); end;我们重写为procedure TRVHTMLExport.SaveImage(ImageIndex: Integer; const FileName: string); var Stream: TMemoryStream; Base64: string; Ext: string; begin {$IFDEF RV_XE104} if FInlineImages then // 新增布尔属性由调用方控制 begin Stream : TMemoryStream.Create; try SavePictureToFile(FImages[ImageIndex], Stream); Stream.Position : 0; Base64 : EncodeBase64(Stream); // 使用 xe10.4.1 RTL 内置函数 Ext : ExtractFileExt(FileName); if SameText(Ext, .png) then FHTML : FHTML Format(img srcdata:image/png;base64,%s, [Base64]) else if SameText(Ext, .jpg) or SameText(Ext, .jpeg) then FHTML : FHTML Format(img srcdata:image/jpeg;base64,%s, [Base64]) else FHTML : FHTML Format(img srcdata:image/gif;base64,%s, [Base64]); Exit; // 跳过物理文件保存 finally Stream.Free; end; end; {$ENDIF} // 原有逻辑保存物理文件 SavePictureToFile(FImages[ImageIndex], FileName); end;注意需在TRVHTMLExport类声明中新增FInlineImages: Boolean字段及property InlineImages: Boolean read FInlineImages write FInlineImages;并在构造函数中初始化为False。这样调用方只需Export.InlineImages : True; Export.SaveToHTML(...)即可启用内联模式。此修改完全向后兼容不影响原有导出逻辑。4. 避坑TRichView16.135.5 源码修改的五个血泪经验TRichView 源码修改不是简单的 find-replace其模块间强耦合和 Delphi 版本演进带来的 RTL 差异让很多看似正确的修改在编译或运行时暴雷。以下是某开发者在模拟项目 X 中踩过的五个典型坑每一条都附带复现步骤、根本原因和可验证的解决动作。4.1 现象编译通过但运行时TRichView控件空白OnDraw事件不触发原因rvrender.pas中TRVRender.Create构造函数内FCanvas : TCanvas.Create后未调用FCanvas.Handle : GetDC(0)导致 xe10.4.1 的TCanvas在无句柄状态下TextOut失败且不抛异常静默失败。解决在TRVRender.Create中inherited Create之后插入FCanvas.Handle : GetDC(0); FCanvas.Lock;并在TRVRender.Destroy中对应释放FCanvas.Unlock; ReleaseDC(0, FCanvas.Handle); FCanvas.Handle : 0;4.2 现象粘贴 Word 表格后第一列宽度为 0内容挤成一团原因rvtable.pas中TRVTable.GetColumnWidth方法在 xe10.4.1 下未处理GetSystemMetrics(SM_CXVSCROLL)返回值变化导致列宽计算基准错误。解决在GetColumnWidth开头添加{$IFDEF RV_XE104} if ColumnIndex 0 then Result : Max(100, FDefaultColumnWidth) // 强制最小列宽 100px else Result : inherited GetColumnWidth(ColumnIndex); {$ELSE} Result : inherited GetColumnWidth(ColumnIndex); {$ENDIF}4.3 现象启用RichViewEdit1.RichViewOptions.UseSystemColors : True后背景色变黑文字不可读原因xe10.4.1 的TColor类型定义变更clWindow值从$FFFFFF变为$00FFFFFF带 Alpha而 TRichView 旧代码用Integer(clWindow)直接比较导致颜色解析失败。解决在rvfunc.pas中查找所有Integer(clXXX)形式替换为ColorToRGB(clXXX)例如// 错误写法 if Color Integer(clWindow) then ... // 正确写法 if ColorToRGB(Color) ColorToRGB(clWindow) then ...4.4 现象TRichView响应WM_MOUSEWHEEL消息时滚动异常一次滚动多页原因xe10.4.1 的TWinControl.WndProc中WM_MOUSEWHEEL的wParam高字节携带滚动距离GET_WHEEL_DELTA_WPARAM(wParam)但 TRichView 16.135.5 仍用旧方式LoWord(wParam)解析导致数值放大 256 倍。解决在rvcontrol.pas的TRVCustomControl.WndProc中定位WM_MOUSEWHEEL分支将Delta : LoWord(Message.wParam);替换为Delta : GET_WHEEL_DELTA_WPARAM(Message.wParam);并确保顶部已声明GET_WHEEL_DELTA_WPARAM{$IFDEF RV_XE104} function GET_WHEEL_DELTA_WPARAM(wParam: WPARAM): Integer; inline; begin Result : Shortint(HiWord(wParam)); end; {$ENDIF}4.5 现象TRichView打印预览中表格线消失仅显示文字原因rvprint.pas中TRVPrintPreview.PaintPage调用DrawTable时未在 xe10.4.1 下启用Printer.Canvas.Pen.Style : psSolid导致 GDI 打印上下文默认psClear线条不可见。解决在DrawTable方法开头插入{$IFDEF RV_XE104} if Assigned(Printer.Canvas) then begin Printer.Canvas.Pen.Style : psSolid; Printer.Canvas.Pen.Width : 1; end; {$ENDIF}5. 验证修改是否生效三类必测场景与自动化检查脚本改完源码不能只看编译通过必须用真实业务场景验证。我一般会跑通以下三类测试每类都对应一个可复用的自动化检查脚本Delphi 控制台程序避免人工点检遗漏。5.1 DPI 自适应验证用GetDpiForWindow获取当前缩放比并比对渲染结果编写DpiTest.dpr控制台程序核心逻辑program DpiTest; uses Winapi.Windows, System.SysUtils; function GetDpiScaleFactor(hWnd: HWND): Double; var dpiX: UINT; begin dpiX : GetDpiForWindow(hWnd); Result : dpiX / 96.0; end; begin Writeln(Format(当前系统 DPI 缩放比: %.2f, [GetDpiScaleFactor(GetDesktopWindow)])); // 启动 TRichView 测试窗体自动截图并比对文字清晰度 // 此处省略窗体创建代码重点是 DPI 获取逻辑 end.关键验证点当系统缩放设为 125% 时GetDpiScaleFactor应返回1.25此时 TRichView 内文字边缘必须锐利无模糊光标点击位置与视觉位置重合误差 1px。若模糊说明SetThreadDpiAwarenessContext未生效或FCanvas.ScaleX/Y未正确设置。5.2 首行缩进精度验证用GetTextExtentPoint32W实测「中」字宽度并校验缩进值在测试窗体中放置一个TRichView加载含中文段落的.rvf文件执行procedure TForm1.CheckIndentPrecision; var DC: HDC; TextSize: TSize; ExpectedWidth: Integer; ActualIndent: Integer; begin DC : GetDC(RichView1.Handle); try GetTextExtentPoint32W(DC, 中, 1, TextSize); ExpectedWidth : TextSize.cx * 2; // 两个汉字 ActualIndent : RichView1.GetParagraph(0).GetFirstIndentPixels; Writeln(Format(「中」字宽度: %d px, 首行缩进: %d px, 误差: %d px, [TextSize.cx, ActualIndent, Abs(ActualIndent - ExpectedWidth)])); finally ReleaseDC(RichView1.Handle, DC); end; end;合格标准误差 ≤ 2px。若误差 5px说明GetFirstIndentPixels中的ScaleFactor未参与计算或GetTextExtentPoint32W调用时字体未正确设置。5.3 HTML 内联图片验证用正则提取data:image/并统计 base64 长度导出 HTML 后用 Python 脚本快速验证verify_html.pyimport re with open(output.html, r, encodingutf-8) as f: html f.read() base64_imgs re.findall(rsrcdata:image/[^], html) print(f内联图片数量: {len(base64_imgs)}) for i, img in enumerate(base64_imgs): b64_len len(re.search(rbase64,([^]), img).group(1)) print(f图片 {i1}: base64 长度 {b64_len} 字符应 1000)合格标准所有图片src必须含data:image/且每个 base64 字符串长度 1000排除空图片。若出现srcimage001.png说明FInlineImages未生效或SaveImage方法未被正确重载。6. 我的源码修改工作流从 fork 到 CI 的六个固化动作经过多个模拟项目 X、Y 的迭代我把 TRichView 源码修改固化为六个不可跳过的动作每个动作都对应一个脚本或 checklist确保修改可追溯、可复现、可交付。6.1 动作一建立版本锚点 —— 用git tag锁定原始源码基线不直接在官方 zip 解压目录改而是先git init然后git add .提交原始状态并打标签git init git add . git commit -m initial commit: TRichView16.135.5 official source git tag v16.135.5-xe1041-base为什么重要后续所有修改都基于此 tag。当客户问「这个 fix 是基于哪个版本」时一句git checkout v16.135.5-xe1041-base就能还原零修改状态避免「改乱了不敢回滚」的焦虑。6.2 动作二宏定义集中管理 —— 所有{$IFDEF RV_XE104}改为{$IFDEF RV_CUSTOM_BUILD}在rvconst.pas中删除所有{$IFDEF VER340}统一用{$IFDEF RV_CUSTOM_BUILD} {$DEFINE RV_XE104} {$DEFINE RV_HIGH_DPI_FIX} {$DEFINE RV_CHINESE_INDENT} {$DEFINE RV_INLINE_HTML_IMAGES} {$ENDIF}然后在项目.dpr文件顶部添加{$DEFINE RV_CUSTOM_BUILD}好处开关集中一个宏控制全部定制功能交付给客户时只需提供.dpr中的一行{$DEFINE}无需解释一堆VERxxx。6.3 动作三编译产物隔离 —— 输出到.\Build\XE104\而非.\Lib\修改Source\rvconst.pas中的RVLIBDIR常量{$IFDEF RV_CUSTOM_BUILD} {$DEFINE RVLIBDIR Build\XE104\} // 原为 Lib\ {$ENDIF}并确保所有{$I}和uses路径都基于此变量。这样编译出的.dcu、.bpl全在Build\XE104\下与原始Lib\隔离避免污染。6.4 动作四自动化测试注入 —— 在rvtest.pas中添加回归测试入口在Demos\Test\rvtest.pas中TTestForm.FormCreate末尾加入{$IFDEF RV_CUSTOM_BUILD} RunDpiTest; RunIndentTest; RunHtmlInlineTest; {$ENDIF}每个RunXXXTest是一个独立函数失败时弹出MessageBox并Halt(1)。CI 构建时启动Test.exe退出码非 0 即失败。6.5 动作五交付包瘦身 —— 仅打包Source\下被修改的.pas和Build\XE104\交付给客户的 ZIP 包不包含Demos\、Help\、Lib\只含Source\rvconst.pas含所有宏定义Source\rvrender.pasDPI 修复Source\rvpara.pas首行缩进Source\rvhtml.pasHTML 内联Build\XE104\全部文件.dcu、.bpl、.dcp文件数控制在 5 个.pas 1 个Build\目录总大小 2MB。客户解压后Add to Library Path指向Build\XE104\uses中引用rvconst, rvrender, ...即可零学习成本。6.6 动作六热修复通道 —— 为每个修改点预留// HOTFIX-2024-001注释在rvrender.pas的 DPI 补丁处// HOTFIX-2024-001: DPI scaling for xe10.4.1 {$IFDEF RV_XE104} SetThreadDpiAwarenessContext(...); FCanvas.ScaleX : ...; {$ENDIF}这样当客户报告新问题时我能秒定位「这个 fix 是否已部署」并快速生成 patch diff。希望帮到你。本文还有配套的精品资源点击获取