Pascal DzHTMLText：轻量级HTML文本渲染组件

icy 昨天 15 抢沙发

默认

摘要： Pascal DzHTMLText：轻量级HTML文本渲染组件项目概述 DzHTMLText 是一个用 Pascal（Delphi/Lazarus）编写的轻量级 HTML 文本渲...

Pascal DzHTMLText：轻量级HTML文本渲染组件

项目概述

DzHTMLText 是一个用 Pascal（Delphi/Lazarus）编写的轻量级 HTML 文本渲染组件，由开发者 Digao Dalpiaz 创建并维护。该项目旨在为 Pascal 应用程序提供简单而有效的 HTML 文本显示功能，特别适用于需要显示格式化文本但不想引入完整浏览器控件的场景。

核心特性

1. 轻量级设计

纯 Pascal 实现，无外部依赖
内存占用小，启动速度快
与 Delphi 和 Lazarus 完全兼容

2. 支持的 HTML 标签

基本文本格式化：, , , <s>
字体控制：（支持 color、face、size 属性）
超链接：<a href="...">
图像显示：<img src="...">
段落与换行：,  
列表：<ul>, <ol>, <li>
对齐方式：<div align="...">

3. 自定义样式支持

可定义默认字体和颜色
支持 CSS 样式（有限子集）
可自定义链接点击事件处理

安装与使用

安装方法

从 GitHub 克隆项目：

text

git clone https://github.com/digao-dalpiaz/DzHTMLText.git

在 Delphi 或 Lazarus 中：

打开 Packages\DzHTMLText.dpk（Delphi）
或 Packages\DzHTMLText.lpk（Lazarus）
编译并安装包

将 TDzHTMLText 组件添加到窗体

使用示例

示例 1：基本文本显示

text

procedure TForm1.FormCreate(Sender: TObject);
begin
  DzHTMLText1.Text := 
    '<b>粗体文本</b> 和 <i>斜体文本</i><br>' +
    '<u>下划线</u> 和 <s>删除线</s><br>' +
    '<font color="red">红色文本</font> 和 ' +
    '<font color="#0000FF">蓝色文本</font>';
end;

示例 2：带链接的文本

text

procedure TForm1.FormCreate(Sender: TObject);
begin
  DzHTMLText1.Text := 
    '欢迎访问我的 ' +
    '<a href="https://github.com">GitHub 主页</a><br>' +
    '或发送邮件至 ' +
    '<a href="mailto:example@email.com">联系我</a>';
    
  // 处理链接点击事件
  DzHTMLText1.OnLinkClick := HandleLinkClick;
end;

procedure TForm1.HandleLinkClick(Sender: TObject; Link: string);
begin
  if Pos('http', Link) = 1 then
    ShellExecute(0, 'open', PChar(Link), nil, nil, SW_SHOWNORMAL)
  else if Pos('mailto:', Link) = 1 then
    ShellExecute(0, 'open', PChar(Link), nil, nil, SW_SHOWNORMAL);
end;

示例 3：复杂格式化文本

text

procedure TForm1.FormCreate(Sender: TObject);
begin
  DzHTMLText1.Text := 
    '<div align="center"><b>产品说明</b></div>' +
    '<p><font color="green" size="+1">主要特性：</font></p>' +
    '<ul>' +
    '<li>高性能处理</li>' +
    '<li><font color="blue">易于集成</font></li>' +
    '<li>跨平台支持</li>' +
    '</ul>' +
    '<p>价格：<s>原价 $100</s> <b>特价 $79</b></p>';
end;

示例 4：自定义样式

text

procedure TForm1.FormCreate(Sender: TObject);
begin
  // 设置默认样式
  DzHTMLText1.DefFont.Name := '微软雅黑';
  DzHTMLText1.DefFont.Size := 10;
  DzHTMLText1.DefFontColor := clBlack;
  DzHTMLText1.LinkColor := clBlue;
  DzHTMLText1.LinkStyle := [fsUnderline];
  
  DzHTMLText1.Text := 
    '<p>默认样式文本</p>' +
    '<a href="test">带样式的链接</a>';
end;

高级功能

图像支持

text

// 启用图像支持
DzHTMLText1.Images := ImageList1;

// HTML 中使用图像
DzHTMLText1.Text := 
  '图标：<img src="0"> 和 <img src="1"><br>' +
  '文件图标：<img src="file://C:\icon.png">';

自定义绘制

text

// 自定义背景绘制
procedure TForm1.DzHTMLText1Paint(Sender: TObject);
begin
  with DzHTMLText1.Canvas do
  begin
    Brush.Color := clWhite;
    FillRect(ClientRect);
  end;
end;