简介TEECHART 8.06 FULL SOURCE 是一款专业图表库的完整源代码包面向使用 Delphi、C Builder、Kylix 等开发环境的程序员尤其适合需要深度定制图表展示、解决报表中文字体渲染问题的项目团队。压缩包内含 2362 个文件总大小约 11.49MB涵盖 567 个 dcu 编译单元、333 个 pas 源文件、229 个 dpk 包文件以及 182 个 dfm/xfm 窗体资源并附带了编译工具 TeeRecompile.exe 与图标资源源码目录结构完整便于按模块查阅和二次构建。除常规折线图、柱状图、饼图等图表类型外该版本特别修正了导出 PDF 时中文显示乱码的问题并支持跨平台运行同时附带决策立方体功能相关的工程文件适用于商业智能与多维数据可视化场景。目前已有 186 人学习下载对希望深入图表库实现原理或进行定制化开发的开发者来说是一份高价值的参考资料。1. TeeChart 8.06 Full Source源码在手图表黑匣子才能打开TeeChart 8.06 Full Source 这套包里最值钱的不是“8.06”这个版本号而是“Full Source”四个字。用 Delphi 维护老系统的开发者拿到它通常不是图新功能而是想在图表渲染异常时能按 F7 跟进 Series 的绘制代码把黑匣子打开。这类场景下一份能断点调试的图表控件源码比任何打包好的二进制都顶用。这篇笔记按“包结构 → 编译 → 数据接入 → 踩坑 → 进阶绘制”的顺序拆开讲新手可以照步骤把 TChart 装进 IDE熟手可以直接翻到避坑和自定义绘制部分。适合正在接手带图表报表功能的旧工程或者想把图表做深度定制的人。2. 源码包结构与编译链路先读懂 .DPK再从压缩包走到 IDE 面板拿到一个 Full Source 压缩包第一件事不是把文件拖进 IDE而是先看目录和包文件。TeeChart 8.06 这类控件源码包一般由三部分组成.pas 全量源码、按 Delphi 版本组织的 .dpk 包文件、以及少量 Demo 或工具脚本。如果你拿到的包里有 CompiledDCU 目录那里面是别人用某个特定 IDE 版本预编译好的单元未必能直接给你用因为你本机的 Delphi 版本、RTL 补丁、路径都不一定一致。我一般直接忽略预编译 DCU全源码自己编一遍这样后续断点调试才靠得住。2.1 运行时包与设计时包两个 .DPK 的分工Delphi 控件安装里最容易被忽略的概念是运行时包Runtime Package和设计时包Design-Time Package不是一回事。运行时包编译出来是 .bpl它提供 TChart、TSeries 这些真正的实现你的工程运行时需要它设计时包通常叫 dcl 开头编译出来是给 IDE 用的负责把组件注册到工具面板并处理属性编辑器。TeeChart 8.06 的 Full Source 包中一般同时存在这两类包——可以在包里搜一下带 dcl 前缀的 .dpk。安装时如果只装设计时包而没编运行时包IDE 会提示找不到某些 .bpl反过来只编运行时包组件面板上又看不到 TChart。记住一条先编运行时包再装设计时包。包内 DPK 的 Uses 子句大致长这样不同发行版命名略有差异以你手里的为准package TeeChartPro; requires rtl, // Delphi 基础运行时单元 vcl; // VCL 可视化组件单元 contains TeeProcs in TeeProcs.pas, // 公共工具函数与基础类 TeEngine in TeEngine.pas, // 序列引擎与坐标轴引擎 Chart in Chart.pas, // TChart 组件本体 Series in Series.pas; // 各种序列实现 end.注意 contains 里的 in 关键字表示这个单元直接取自源码目录下的 .pas 文件。这意味着只要包文件没被改动编译时就会自动去编译这些 .pas并不需要你手动把每个 .pas 都加入工程。你真正要做的其实只有两件事让编译器找得到这些 .pas配置源码路径以及按顺序编译包。2.2 编译顺序先把运行时包编译到底实际操作我是这样做的。以 Delphi 2010 为例假设源码包解压在 D:\Libs\TeeChart8打开 IDEFile Open选中对应 2010 版本的运行时包名字大概是 TeeChartPro.dpk 或 Tee8Pro.dpk带 Tee 字样且不带 dcl。在 Project Manager 里找到这个包右键选 Build。留意输出窗口是否干净结尾任何 Unit not found 都先停下来不要继续装设计时包。Build 成功后确认输出目录里生成了 .bpl 文件路径通常在 Delphi 的 Projects\BPL 下也可能是包自己的 Output 目录。再打开 dcl 开头的设计时包同样右键 Build。最后右键设计时包选 Install或通过菜单 Component Install Packages 安装。重启 IDE组件面板应该出现 TeeChart 页。如果你的机器上同时装了多个 Delphi 版本每一步都必须用与当前 IDE 对应的版本打开。老版本 Delphi 打开新版包会提示“文件版本不匹配”或者拒绝打开。我的习惯是解压后先在包目录名前标上目标 IDE 版本号避免拿错。提示如果 Build 时报错定位到你根本用不到的单元先检查 IDE 的 Library 搜索路径里是否残留了另一个版本的 TeeChart 源码。多个源码目录同时存在于搜索路径是这类控件包安装失败的头号原因。2.3 Library 路径配置与安装验证包编译通过只是第一步。你还需要让 IDE 在创建工程时能找到 TeeChart 的源码头文件。打开 Tools Options Delphi Options Library不同版本菜单位置略有出入把 D:\Libs\TeeChart8\Source 添加到 Library Path 的最前面。放在最前面是为了避免和其他同名 DCU 冲突。如果省略这一步IDE 编译你的业务工程时会因为找不到 Chart 或 Series 单元而报错。装完以后建议立刻做一次最小验证新建一个 VCL 工程放一个 TChart 到窗体上在 FormCreate 里写一行代码procedure TForm1.FormCreate(Sender: TObject); begin Chart1.Align : alClient; Chart1.Title.Text.Clear; Chart1.Title.Text.Add(TeeChart 8.06 Full Source OK); end;编译并运行窗体中间出现带有标题的图表面板就说明组件已经完整安装。如果编译时 IDE 提示找不到 Chart.pas 或 Series.pas回到上一步检查路径顺序如果运行时报“包 xxx.bpl 未注册”这类错误回到 2.2 重新确认设计时包是否装进了当前 IDE。这条编译链路大约 20 分钟能走完一次第一次会费点时间但走完一遍后后面所有数据接入、样式调整都能在源码里直接断点这是非源码版控件体会不到的效率。3. 核心架构与序列选型Series、Axis、Canvas 三层决定你在哪儿改代码把 TChart 装上去之后再深的工程问题都落在它的三层模型里最外层是 TChart 组件本身负责面板、标题、图例和鼠标交互中间层是 Series 集合负责数据和几何逻辑最底层是 Canvas负责把点、线、面真正画到屏幕或位图上。8.06 的源码把这几个责任分得很清楚——你改数据问题去 Series 和 TChartValueList改显示问题去 Axis 和 Canvas改交互问题去 TChart 的鼠标事件。3.1 三层模型为什么改样式要找准层看源码包里的类定义能很直观感受到分层type // 类层次示意具体以 8.06 源码包内单元为准 TCustomChart class(TCustomControl) private FSeries: TChartSeriesList; // 序列容器 FAxes: TChartAxisList; // 四个方向轴的集合 FCanvas: TCanvas3D; // 底层绘制对象 public property Series: TChartSeriesList read FSeries; property Axes: TChartAxisList read FAxes; property Canvas: TCanvas3D read FCanvas; end; TChartSeries class(TComponent) private FXValues: TChartValueList; FYValues: TChartValueList; public property XValues: TChartValueList read FXValues; property YValues: TChartValueList read FYValues; // Add、AddXY、Clear 等操作都在这一层 end;这段代码不是让你复制的而是给你一个找代码的坐标系。比如图表的标题文字存放在 TChart 的 Title 对象里坐标轴标题存放在 TChartAxis.Title而序列的颜色画在哪则由 Canvas 在绘制时的 Pen、Brush 状态决定。新手最容易犯的错是想在 TChart 上找一个能直接设置“所有序列颜色”的属性实际上颜色分散在每一条 Series 里且由 Canvas 的当前画笔/画刷状态执行。改数据、改线宽的入口在 Series渲染质量在 Canvas这是源码里最常见的两个修改点。3.2 序列类型对照别只看名字要看渲染路径TeeChart 8.06 的系列类型大多声明在 Series.pas 和 TeeSeries 相关单元里。我常遇到的项目选型无外乎下面几类序列类型绘制原理最适合的场景数据量边界TLineSeries逐点连线趋势、波动上万点仍可但卡建议用 FastLineTFastLineSeries简化折线渲染十万级采样曲线不绘制点标记线性快TBarSeries矩形柱分类对比分类超过 30 个会挤TPieSeries扇形占比结构小比例分片难看清需配合 LabelTPointSeries散布点散点、相关性多点时注意点大小与遮挡TAreaSeries填充区域累计量、分层趋势与折线叠加时注意透明度选型的核心不是哪个好看而是哪个渲染路径能撑住你的数据量。比如同一条折线用 TLineSeries 画 5 万个点界面卡顿明显换 TFastLineSeries 后同样数据量流畅很多代价是它不支持每个点的标记、气泡和透明效果绘制时也不会逐点抗锯齿。反过来如果你需要每个点显示标签就老老实实用 TLineSeries并配合 Marks 属性的遮蔽与格式化。还有一个小坑TFastLineSeries 在 8.06 中如果开启透明度性能会退化到接近普通折线别为了视觉效果牺牲这条性能通路。3.3 Canvas 层GDI 与 GDI 的取舍Canvas 层的选择直接影响显示质量和绘制速度。8.06 默认不启用 GDI因为 GDI 路径在大多数常见绘制场景里更快CPU 占用也低。但 GDI 的线条边缘在低分辨率屏幕或缩放时会出现锯齿导出的位图放大后更粗糙。如果项目对显示平滑度要求高可以启用 GDIuses TeeGDIPlus; // 仅加入 usesinitialization 段会自动替换默认 Canvas 类加入这一行后8.06 的所有图表绘制会切换到 GDI 路径。需要注意两点一是全局启用后大数据量折线的性能会比 GDI 有明显下降我的经验是 2 万点以上的实时刷新场景不要开二是如果你在运行时动态切换 Canvas 类注意释放旧 Canvas 和重新创建新 Canvas 的时机直接在 FormCreate 里修改 Chart1.Canvas 的赋值是不推荐的因为 TChart 内部可能还持有旧的画布对象正确入口是源码里 CanvasClass 注册点。这一块就是 Full Source 的价值——想知道到底怎么切换直接去 TeeGDIPlus.pas 搜 CanvasClass能看到注册逻辑。4. 把业务数据接进图表三种接入方式与坐标轴参数细节安装和选型之后进入最关键的内容数据怎么进到 Series 里。8.06 里有三种典型接入方式分别适合不同数据来源。搞清它们不只是语法问题更是性能和可维护性之间的取舍。4.1 少量动态点Add 手工追加最常见的入门方式是调用 Add 或 AddXY 逐点加入。比如做一个实时监控曲线每秒来一个新值直接 Add 最直观var Ln: TLineSeries; begin Ln : TLineSeries.Create(nil); Ln.ParentChart : Chart1; Ln.Add(12.5, 09:00:01, clTeeColor); Ln.Add(18.0, 09:00:02, clTeeColor); Ln.Add(16.2, 09:00:03, clTeeColor); end;这里 Add 的三个参数分别是纵坐标值、点的标签和点颜色。标签不写也可以Add 有两个参数的重载版本颜色传 clTeeColor 表示让 TeeChart 按调色板自动分配而不是写死某一种颜色。注意 Add(Value, Label) 的 Value 在 8.06 里是 DoubleX 值默认按 0、1、2 的索引递增。如果你需要指定横坐标就用 AddXY(X, Y, Label, Color)时序数据里横坐标是时间戳用 AddXY 才能保证 X 轴刻度与真实时间对齐。实时场景下我一般把 Add 包在 BeginUpdate/EndUpdate 里避免每秒钟触发多次全图重绘。4.2 大量数据点BeginUpdate 与循环灌入一次性灌入成千上万个点时逐条 Add 会触发多次全图重绘肉眼可见地卡。正确做法是先暂停绘制清空旧数据再循环添加最后恢复绘制var I: Integer; N: Integer; XArr, YArr: array of Double; begin N : 5000; SetLength(XArr, N); SetLength(YArr, N); // ...假设这里已经有业务数据填充 XArr / YArr Chart1.Series[0].BeginUpdate; try Chart1.Series[0].Clear; for I : 0 to N - 1 do Chart1.Series[0].AddXY(XArr[I], YArr[I], , clTeeColor); finally Chart1.Series[0].EndUpdate; end; end;BeginUpdate 把 TeeChart 内部的重绘标志位挂起EndUpdate 再统一恢复并重绘一次。这个机制在 8.06 源码里对应 TChartSeries.BeginUpdate/EndUpdate减少的是整个序列的刷新次数而不是单个点坐标计算的耗时。所以循环里调用 AddXY 仍然会做值列表插入和极值更新如果你已经知道数据上下限也可以先设置好 LeftAxis 的 Maximum/Minimum避免自动缩放时重复扫描数据。对于更大的数据量比如十万点以上建议把 Series 换成 TFastLineSeries并关闭 Marks.Visible这样可以大幅减少绘制工作量。4.3 数据集绑定DataSource、XLabelSource 与 ValueSource如果数据在数据库查询结果里TeeChart 提供了最省事的绑定方式直接指定序列的数据集和字段名ADOQuery1.SQL.Text : SELECT MONTH, SALES FROM MONTH_SALES ORDER BY MONTH; ADOQuery1.Open; with Chart1.Series[0] do begin DataSource : ADOQuery1; XLabelSource : MONTH; // 作为 X 轴标签的字段 YValues.ValueSource : SALES; // 作为 Y 值来源的字段 end;DataSource 接收任意 TDataSet 子类不限于 ADOQuery。XLabelSource 指定的是字符串字段它的值会出现在 X 轴刻度下方和图例中YValues.ValueSource 指定的是数值字段。这里最容易踩的坑是字段名写错运行时不会弹错误图会安静地空白或者只画出一个空轴。我排查这类问题时会先把 ADOQuery1 放到窗体上打开预览确认字段确实存在且数据类型是数值再检查绑定属性拼写。另外注意这条绑定路径会跟着数据集游标移动而更新图表如果你的查询结果游标来回跳动图表也会反复刷新建议在绑定时把数据一次性取到内存表后再绑定。4.4 坐标轴定制固定范围、刻度步长与显示格式数据画出来后下一步几乎都是调坐标轴。8.06 的坐标轴对象是 TChartAxis左侧轴和底部轴分开设置。下面是一组我在报表场景里常用的配置with Chart1.LeftAxis do begin Automatic : False; // 关闭自动缩放 Minimum : 0; // 与 Maximum 配合生效 Maximum : 120; Increment : 20; // 刻度间隔 Title.Caption : 销售额万元; AxisValuesFormat : #,##0; // 刻度数字格式化 end; with Chart1.BottomAxis do begin Automatic : True; LabelsAngle : -45; // 标签旋转防止文字重叠 end;LeftAxis 的 Automatic 是整个设置的前提它一旦为 TrueMinimum、Maximum、Increment 都会被忽略所以想固定范围必须先把 Automatic 设为 False。Increment 用于控制刻度密度设为 0 则完全由自动算法决定设为固定值可能有小数累积误差我一般用整数。AxisValuesFormat 是 Delphi 的 Format 格式化串# 表示占位符0 表示强制保留数位所以 #,##0 会在千位处加逗号。BottomAxis 的 LabelsAngle 非常实用——月份、地区这类中文标签一长就互相重叠旋转负 45 度是常见做法也能配合 MarksAutoPosition 使用。5. 避坑实录版本冲突、中文乱码、导出发糊这些坎这样过源码包从编译到真实项目上线最容易翻车的不是图表逻辑而是环境问题。下面五件事是我在实际使用 8.06 过程中反复撞过的墙。5.1 编译报 cannot find unit源码目录没进搜索路径现象编译 .dpk 或业务工程时IDE 弹出 “File not found: TeeProcs.pas” 之类的错误哪怕你明明看到这个文件就在源码目录里。原因IDE 的搜索路径只认 Library Path 列表你在资源管理器里能看到文件不代表 IDE 能搜到。更隐蔽的情况是机器上有两个版本的 TeeChart 源码目录IDE 先搜到了旧版本的同名 .pas编译就会报出莫名其妙的类型不匹配。解决先用命令确认文件位置dir /s /b D:\Libs\TeeChart8\*.pas | findstr /i TeeProcs如果没有任何输出说明压缩包解压不完整或路径不对如果输出了文件路径就去 Tools Options Library 里把包含 TeeProcs.pas 的那个目录放到列表最前面并删除旧的 TeeChart 路径。5.2 设计时包装完组件面板里没有 TChart现象右键设计时包 Install 提示成功但组件面板找不到 TeeChart 页或者工程里能放 TChart一编译就提示缺少 .bpl 包。原因最常见的是运行时包与设计时包版本不一致设计时包链接到的 .bpl 与当前 IDE 加载的不匹配其次是安装设计时包时IDE 缓存没有刷新。解决在组件面板空白处右键选择 Properties在 Install Packages 里把 TeeChart 相关的包全部 Remove 掉关闭 IDE按 2.2 的六步重来一遍先 Build 运行时包再 Build 设计时包最后 Install。装完别急着用重启 IDE 一次再新建 VCL 工程确认面板可见。5.3 中文标题和图例乱码现象Form 上其它中文正常唯独 Chart1.Title、Axis 标题和图例里的中文显示成乱码或问号。原因8.06 早期实现里图表文字绘制依赖 Canvas 的当前字体字符集而默认字体 Charset 不是中文所以中文被按错误代码页解释了。Delphi 2009 之后字符串默认 Unicode但 TChart 内部若调用的是 Ansi 版本的文本绘制 API同样会出现不一致。解决在运行时统一设置图表各文本对象的字体字符集Chart1.Title.Font.Charset : GB2312_CHARSET; Chart1.LeftAxis.Title.Font.Charset : GB2312_CHARSET; Chart1.Legend.Font.Charset : GB2312_CHARSET;这一步要放在给图表赋任何数据之前执行因为序列数据一旦被加入部分绘制参数会按当时字体缓存。如果乱码还出现在你的 .pas 源文件里那就要检查源码保存编码——Delphi 7 时代保存成 ANSI 的文件被 Delphi 2010 打开后要用“另存为 UTF-8 with 签名”统一转一次。5.4 高分屏和导出位图变糊现象在 2K/4K 分辨率屏幕上图表文字边缘发虚导出 PNG 后放大看线条有锯齿。原因8.06 默认 GDI 绘制是按当前 DC 的逻辑分辨率做的没有做 DPI 感知缩放而且导出位图时如果不指定尺寸默认按控件屏幕像素导出分辨率只有 96 DPI 左右。解决纯展示型图表可以接受 GDI 速度但把导出尺寸加大打印或印刷场景改用 EMF 矢量格式导出对显示要求高的内网项目可启用 GDI 平滑。我常用的导出组合是屏幕显示走默认 GDI导出报表文件时生成 1600 宽以上的 PNG同时再导一份 EMF 留档既能预览又保证打印清晰。5.5 多个序列颜色完全一样现象往 Chart1 里添加了三条 TLineSeries结果三条线全是同一颜色分不出来。原因TeeChart 的自动调色板只在序列创建时分配一次如果你手动设置过某个序列的 Color或者把 ColorEach 设为 False 后再添加序列后续新序列拿到的可能就与旧序列相同。解决检查每条序列的 Color 是否被显式赋过值把不想要的固定色改成 clTeeColor如果是柱状或饼图把 Series.ColorEach 设为 True让每个数据点各自取色。还有一个干净的做法是手动重置调色板Chart1.ColorPalette[0] : RGB(31, 119, 180); Chart1.ColorPalette[1] : RGB(255, 127, 14); Chart1.ColorPalette[2] : RGB(44, 160, 44);这段代码把调色板前三个颜色固定成你指定的 RGB之后新建的序列按顺序取色。要注意 ColorPalette 是 TChart 的属性各版本索引范围略有差异若越界会抛异常赋值前先确认 Chart1.ColorPalette.Count。6. 进阶AfterDraw 自定义绘制与批量导出把源码价值用到底装好、接入数据、绕过常见坑之后TeeChart 8.06 Full Source 的真正优势才显现可以在不修改控件源码的前提下借助事件钩子实现自定义绘制也可以批量导出图表用于报表流程。6.1 AfterDraw在图表上叠加自定义图形在图表上画一条参考线例如某个业务阈值线是报表里的常见需求。自己写一个 TLineSeries 专门放阈值是一种做法但更好的方式是直接用图表自身的 OnAfterDraw 事件在图表绘制完成后往画布上叠线procedure TForm1.Chart1AfterDraw(Sender: TObject); var XPos: Integer; begin if Chart1.Series.Count 0 then Exit; XPos : Chart1.Series[0].CalcXPos(10); // 第 10 个数据点的屏幕 X 坐标 with Chart1.Canvas do begin Pen.Color : clRed; Pen.Width : 2; MoveTo(XPos, Chart1.ChartRect.Top); LineTo(XPos, Chart1.ChartRect.Bottom); end; end;CalcXPos 是 Series 提供的数据坐标到屏幕坐标的换算方法第 10 个点的索引从 0 开始。ChartRect 是当前绘图区的矩形范围用它的 Top/Bottom 保证线贯穿整个绘图区而不是只到数据点的高度。这种做法的好处是参考线跟着图表缩放和滚动实时重画坏处是每次重绘都会执行一遍事件如果你在事件里做复杂计算要注意性能。我一般只在事件里画几条固定线不做循环和字符串操作。6.2 批量导出 PNG 与 EMF报表场景常需要一次导出几十张图。TeeChart 8.06 的 TeePNG 单元提供了 PNG 导出格式类配合循环可以轻松批量出图uses TeePNG; procedure TForm1.ExportCharts; var PNG: TPNGExportFormat; J: Integer; begin for J : 0 to 9 do begin Chart1.Series[0].Marks.Visible : J mod 2 0; // 偶数组显示标签 PNG : TPNGExportFormat.Create; try PNG.Panel : Chart1; // 指定导出对象 PNG.Width : 1600; // 导出像素宽度 PNG.Height : 1000; // 导出像素高度 PNG.SaveToFile(Format(report_%d.png, [J])); finally PNG.Free; end; end; end;PNG.Panel 指向 Chart1表示导出的是整个图表控件区域包括标题和图例。Width/Height 是导出位图的实际像素尺寸数值越大文件越大、渲染越慢一般报表 1600 宽够用。如果想导出矢量图直接用 TChart 自带方法更简单Chart1.SaveToMetafile(report.emf);SaveToMetafile 生成 EMF 矢量文件放到 Word 或打印时不会因为放大而变糊。注意导出前先把图表数据刷新好并且不要在导出循环里修改数据点数量否则每张图的坐标范围可能都不一致。我一般先把数据冻结到内存表再循环导出保证各张图的 X 轴范围统一。我第一回拿 Full Source 包时上来就在 IDE 里双击设计时包结果编译报错自己折腾了一下午。从那以后我每次拿到带源码的控件包都强制走一遍“编译运行时包 → 编译设计时包 → 面板确认 → 建空工程导出一次图”的流程环境闭环了再往里接业务。希望帮到你。本文还有配套的精品资源点击获取
简介TEECHART 8.06 FULL SOURCE 是一款专业图表库的完整源代码包面向使用 Delphi、C Builder、Kylix 等开发环境的程序员尤其适合需要深度定制图表展示、解决报表中文字体渲染问题的项目团队。压缩包内含 2362 个文件总大小约 11.49MB涵盖 567 个 dcu 编译单元、333 个 pas 源文件、229 个 dpk 包文件以及 182 个 dfm/xfm 窗体资源并附带了编译工具 TeeRecompile.exe 与图标资源源码目录结构完整便于按模块查阅和二次构建。除常规折线图、柱状图、饼图等图表类型外该版本特别修正了导出 PDF 时中文显示乱码的问题并支持跨平台运行同时附带决策立方体功能相关的工程文件适用于商业智能与多维数据可视化场景。目前已有 186 人学习下载对希望深入图表库实现原理或进行定制化开发的开发者来说是一份高价值的参考资料。1. TeeChart 8.06 Full Source源码在手图表黑匣子才能打开TeeChart 8.06 Full Source 这套包里最值钱的不是“8.06”这个版本号而是“Full Source”四个字。用 Delphi 维护老系统的开发者拿到它通常不是图新功能而是想在图表渲染异常时能按 F7 跟进 Series 的绘制代码把黑匣子打开。这类场景下一份能断点调试的图表控件源码比任何打包好的二进制都顶用。这篇笔记按“包结构 → 编译 → 数据接入 → 踩坑 → 进阶绘制”的顺序拆开讲新手可以照步骤把 TChart 装进 IDE熟手可以直接翻到避坑和自定义绘制部分。适合正在接手带图表报表功能的旧工程或者想把图表做深度定制的人。2. 源码包结构与编译链路先读懂 .DPK再从压缩包走到 IDE 面板拿到一个 Full Source 压缩包第一件事不是把文件拖进 IDE而是先看目录和包文件。TeeChart 8.06 这类控件源码包一般由三部分组成.pas 全量源码、按 Delphi 版本组织的 .dpk 包文件、以及少量 Demo 或工具脚本。如果你拿到的包里有 CompiledDCU 目录那里面是别人用某个特定 IDE 版本预编译好的单元未必能直接给你用因为你本机的 Delphi 版本、RTL 补丁、路径都不一定一致。我一般直接忽略预编译 DCU全源码自己编一遍这样后续断点调试才靠得住。2.1 运行时包与设计时包两个 .DPK 的分工Delphi 控件安装里最容易被忽略的概念是运行时包Runtime Package和设计时包Design-Time Package不是一回事。运行时包编译出来是 .bpl它提供 TChart、TSeries 这些真正的实现你的工程运行时需要它设计时包通常叫 dcl 开头编译出来是给 IDE 用的负责把组件注册到工具面板并处理属性编辑器。TeeChart 8.06 的 Full Source 包中一般同时存在这两类包——可以在包里搜一下带 dcl 前缀的 .dpk。安装时如果只装设计时包而没编运行时包IDE 会提示找不到某些 .bpl反过来只编运行时包组件面板上又看不到 TChart。记住一条先编运行时包再装设计时包。包内 DPK 的 Uses 子句大致长这样不同发行版命名略有差异以你手里的为准package TeeChartPro; requires rtl, // Delphi 基础运行时单元 vcl; // VCL 可视化组件单元 contains TeeProcs in TeeProcs.pas, // 公共工具函数与基础类 TeEngine in TeEngine.pas, // 序列引擎与坐标轴引擎 Chart in Chart.pas, // TChart 组件本体 Series in Series.pas; // 各种序列实现 end.注意 contains 里的 in 关键字表示这个单元直接取自源码目录下的 .pas 文件。这意味着只要包文件没被改动编译时就会自动去编译这些 .pas并不需要你手动把每个 .pas 都加入工程。你真正要做的其实只有两件事让编译器找得到这些 .pas配置源码路径以及按顺序编译包。2.2 编译顺序先把运行时包编译到底实际操作我是这样做的。以 Delphi 2010 为例假设源码包解压在 D:\Libs\TeeChart8打开 IDEFile Open选中对应 2010 版本的运行时包名字大概是 TeeChartPro.dpk 或 Tee8Pro.dpk带 Tee 字样且不带 dcl。在 Project Manager 里找到这个包右键选 Build。留意输出窗口是否干净结尾任何 Unit not found 都先停下来不要继续装设计时包。Build 成功后确认输出目录里生成了 .bpl 文件路径通常在 Delphi 的 Projects\BPL 下也可能是包自己的 Output 目录。再打开 dcl 开头的设计时包同样右键 Build。最后右键设计时包选 Install或通过菜单 Component Install Packages 安装。重启 IDE组件面板应该出现 TeeChart 页。如果你的机器上同时装了多个 Delphi 版本每一步都必须用与当前 IDE 对应的版本打开。老版本 Delphi 打开新版包会提示“文件版本不匹配”或者拒绝打开。我的习惯是解压后先在包目录名前标上目标 IDE 版本号避免拿错。提示如果 Build 时报错定位到你根本用不到的单元先检查 IDE 的 Library 搜索路径里是否残留了另一个版本的 TeeChart 源码。多个源码目录同时存在于搜索路径是这类控件包安装失败的头号原因。2.3 Library 路径配置与安装验证包编译通过只是第一步。你还需要让 IDE 在创建工程时能找到 TeeChart 的源码头文件。打开 Tools Options Delphi Options Library不同版本菜单位置略有出入把 D:\Libs\TeeChart8\Source 添加到 Library Path 的最前面。放在最前面是为了避免和其他同名 DCU 冲突。如果省略这一步IDE 编译你的业务工程时会因为找不到 Chart 或 Series 单元而报错。装完以后建议立刻做一次最小验证新建一个 VCL 工程放一个 TChart 到窗体上在 FormCreate 里写一行代码procedure TForm1.FormCreate(Sender: TObject); begin Chart1.Align : alClient; Chart1.Title.Text.Clear; Chart1.Title.Text.Add(TeeChart 8.06 Full Source OK); end;编译并运行窗体中间出现带有标题的图表面板就说明组件已经完整安装。如果编译时 IDE 提示找不到 Chart.pas 或 Series.pas回到上一步检查路径顺序如果运行时报“包 xxx.bpl 未注册”这类错误回到 2.2 重新确认设计时包是否装进了当前 IDE。这条编译链路大约 20 分钟能走完一次第一次会费点时间但走完一遍后后面所有数据接入、样式调整都能在源码里直接断点这是非源码版控件体会不到的效率。3. 核心架构与序列选型Series、Axis、Canvas 三层决定你在哪儿改代码把 TChart 装上去之后再深的工程问题都落在它的三层模型里最外层是 TChart 组件本身负责面板、标题、图例和鼠标交互中间层是 Series 集合负责数据和几何逻辑最底层是 Canvas负责把点、线、面真正画到屏幕或位图上。8.06 的源码把这几个责任分得很清楚——你改数据问题去 Series 和 TChartValueList改显示问题去 Axis 和 Canvas改交互问题去 TChart 的鼠标事件。3.1 三层模型为什么改样式要找准层看源码包里的类定义能很直观感受到分层type // 类层次示意具体以 8.06 源码包内单元为准 TCustomChart class(TCustomControl) private FSeries: TChartSeriesList; // 序列容器 FAxes: TChartAxisList; // 四个方向轴的集合 FCanvas: TCanvas3D; // 底层绘制对象 public property Series: TChartSeriesList read FSeries; property Axes: TChartAxisList read FAxes; property Canvas: TCanvas3D read FCanvas; end; TChartSeries class(TComponent) private FXValues: TChartValueList; FYValues: TChartValueList; public property XValues: TChartValueList read FXValues; property YValues: TChartValueList read FYValues; // Add、AddXY、Clear 等操作都在这一层 end;这段代码不是让你复制的而是给你一个找代码的坐标系。比如图表的标题文字存放在 TChart 的 Title 对象里坐标轴标题存放在 TChartAxis.Title而序列的颜色画在哪则由 Canvas 在绘制时的 Pen、Brush 状态决定。新手最容易犯的错是想在 TChart 上找一个能直接设置“所有序列颜色”的属性实际上颜色分散在每一条 Series 里且由 Canvas 的当前画笔/画刷状态执行。改数据、改线宽的入口在 Series渲染质量在 Canvas这是源码里最常见的两个修改点。3.2 序列类型对照别只看名字要看渲染路径TeeChart 8.06 的系列类型大多声明在 Series.pas 和 TeeSeries 相关单元里。我常遇到的项目选型无外乎下面几类序列类型绘制原理最适合的场景数据量边界TLineSeries逐点连线趋势、波动上万点仍可但卡建议用 FastLineTFastLineSeries简化折线渲染十万级采样曲线不绘制点标记线性快TBarSeries矩形柱分类对比分类超过 30 个会挤TPieSeries扇形占比结构小比例分片难看清需配合 LabelTPointSeries散布点散点、相关性多点时注意点大小与遮挡TAreaSeries填充区域累计量、分层趋势与折线叠加时注意透明度选型的核心不是哪个好看而是哪个渲染路径能撑住你的数据量。比如同一条折线用 TLineSeries 画 5 万个点界面卡顿明显换 TFastLineSeries 后同样数据量流畅很多代价是它不支持每个点的标记、气泡和透明效果绘制时也不会逐点抗锯齿。反过来如果你需要每个点显示标签就老老实实用 TLineSeries并配合 Marks 属性的遮蔽与格式化。还有一个小坑TFastLineSeries 在 8.06 中如果开启透明度性能会退化到接近普通折线别为了视觉效果牺牲这条性能通路。3.3 Canvas 层GDI 与 GDI 的取舍Canvas 层的选择直接影响显示质量和绘制速度。8.06 默认不启用 GDI因为 GDI 路径在大多数常见绘制场景里更快CPU 占用也低。但 GDI 的线条边缘在低分辨率屏幕或缩放时会出现锯齿导出的位图放大后更粗糙。如果项目对显示平滑度要求高可以启用 GDIuses TeeGDIPlus; // 仅加入 usesinitialization 段会自动替换默认 Canvas 类加入这一行后8.06 的所有图表绘制会切换到 GDI 路径。需要注意两点一是全局启用后大数据量折线的性能会比 GDI 有明显下降我的经验是 2 万点以上的实时刷新场景不要开二是如果你在运行时动态切换 Canvas 类注意释放旧 Canvas 和重新创建新 Canvas 的时机直接在 FormCreate 里修改 Chart1.Canvas 的赋值是不推荐的因为 TChart 内部可能还持有旧的画布对象正确入口是源码里 CanvasClass 注册点。这一块就是 Full Source 的价值——想知道到底怎么切换直接去 TeeGDIPlus.pas 搜 CanvasClass能看到注册逻辑。4. 把业务数据接进图表三种接入方式与坐标轴参数细节安装和选型之后进入最关键的内容数据怎么进到 Series 里。8.06 里有三种典型接入方式分别适合不同数据来源。搞清它们不只是语法问题更是性能和可维护性之间的取舍。4.1 少量动态点Add 手工追加最常见的入门方式是调用 Add 或 AddXY 逐点加入。比如做一个实时监控曲线每秒来一个新值直接 Add 最直观var Ln: TLineSeries; begin Ln : TLineSeries.Create(nil); Ln.ParentChart : Chart1; Ln.Add(12.5, 09:00:01, clTeeColor); Ln.Add(18.0, 09:00:02, clTeeColor); Ln.Add(16.2, 09:00:03, clTeeColor); end;这里 Add 的三个参数分别是纵坐标值、点的标签和点颜色。标签不写也可以Add 有两个参数的重载版本颜色传 clTeeColor 表示让 TeeChart 按调色板自动分配而不是写死某一种颜色。注意 Add(Value, Label) 的 Value 在 8.06 里是 DoubleX 值默认按 0、1、2 的索引递增。如果你需要指定横坐标就用 AddXY(X, Y, Label, Color)时序数据里横坐标是时间戳用 AddXY 才能保证 X 轴刻度与真实时间对齐。实时场景下我一般把 Add 包在 BeginUpdate/EndUpdate 里避免每秒钟触发多次全图重绘。4.2 大量数据点BeginUpdate 与循环灌入一次性灌入成千上万个点时逐条 Add 会触发多次全图重绘肉眼可见地卡。正确做法是先暂停绘制清空旧数据再循环添加最后恢复绘制var I: Integer; N: Integer; XArr, YArr: array of Double; begin N : 5000; SetLength(XArr, N); SetLength(YArr, N); // ...假设这里已经有业务数据填充 XArr / YArr Chart1.Series[0].BeginUpdate; try Chart1.Series[0].Clear; for I : 0 to N - 1 do Chart1.Series[0].AddXY(XArr[I], YArr[I], , clTeeColor); finally Chart1.Series[0].EndUpdate; end; end;BeginUpdate 把 TeeChart 内部的重绘标志位挂起EndUpdate 再统一恢复并重绘一次。这个机制在 8.06 源码里对应 TChartSeries.BeginUpdate/EndUpdate减少的是整个序列的刷新次数而不是单个点坐标计算的耗时。所以循环里调用 AddXY 仍然会做值列表插入和极值更新如果你已经知道数据上下限也可以先设置好 LeftAxis 的 Maximum/Minimum避免自动缩放时重复扫描数据。对于更大的数据量比如十万点以上建议把 Series 换成 TFastLineSeries并关闭 Marks.Visible这样可以大幅减少绘制工作量。4.3 数据集绑定DataSource、XLabelSource 与 ValueSource如果数据在数据库查询结果里TeeChart 提供了最省事的绑定方式直接指定序列的数据集和字段名ADOQuery1.SQL.Text : SELECT MONTH, SALES FROM MONTH_SALES ORDER BY MONTH; ADOQuery1.Open; with Chart1.Series[0] do begin DataSource : ADOQuery1; XLabelSource : MONTH; // 作为 X 轴标签的字段 YValues.ValueSource : SALES; // 作为 Y 值来源的字段 end;DataSource 接收任意 TDataSet 子类不限于 ADOQuery。XLabelSource 指定的是字符串字段它的值会出现在 X 轴刻度下方和图例中YValues.ValueSource 指定的是数值字段。这里最容易踩的坑是字段名写错运行时不会弹错误图会安静地空白或者只画出一个空轴。我排查这类问题时会先把 ADOQuery1 放到窗体上打开预览确认字段确实存在且数据类型是数值再检查绑定属性拼写。另外注意这条绑定路径会跟着数据集游标移动而更新图表如果你的查询结果游标来回跳动图表也会反复刷新建议在绑定时把数据一次性取到内存表后再绑定。4.4 坐标轴定制固定范围、刻度步长与显示格式数据画出来后下一步几乎都是调坐标轴。8.06 的坐标轴对象是 TChartAxis左侧轴和底部轴分开设置。下面是一组我在报表场景里常用的配置with Chart1.LeftAxis do begin Automatic : False; // 关闭自动缩放 Minimum : 0; // 与 Maximum 配合生效 Maximum : 120; Increment : 20; // 刻度间隔 Title.Caption : 销售额万元; AxisValuesFormat : #,##0; // 刻度数字格式化 end; with Chart1.BottomAxis do begin Automatic : True; LabelsAngle : -45; // 标签旋转防止文字重叠 end;LeftAxis 的 Automatic 是整个设置的前提它一旦为 TrueMinimum、Maximum、Increment 都会被忽略所以想固定范围必须先把 Automatic 设为 False。Increment 用于控制刻度密度设为 0 则完全由自动算法决定设为固定值可能有小数累积误差我一般用整数。AxisValuesFormat 是 Delphi 的 Format 格式化串# 表示占位符0 表示强制保留数位所以 #,##0 会在千位处加逗号。BottomAxis 的 LabelsAngle 非常实用——月份、地区这类中文标签一长就互相重叠旋转负 45 度是常见做法也能配合 MarksAutoPosition 使用。5. 避坑实录版本冲突、中文乱码、导出发糊这些坎这样过源码包从编译到真实项目上线最容易翻车的不是图表逻辑而是环境问题。下面五件事是我在实际使用 8.06 过程中反复撞过的墙。5.1 编译报 cannot find unit源码目录没进搜索路径现象编译 .dpk 或业务工程时IDE 弹出 “File not found: TeeProcs.pas” 之类的错误哪怕你明明看到这个文件就在源码目录里。原因IDE 的搜索路径只认 Library Path 列表你在资源管理器里能看到文件不代表 IDE 能搜到。更隐蔽的情况是机器上有两个版本的 TeeChart 源码目录IDE 先搜到了旧版本的同名 .pas编译就会报出莫名其妙的类型不匹配。解决先用命令确认文件位置dir /s /b D:\Libs\TeeChart8\*.pas | findstr /i TeeProcs如果没有任何输出说明压缩包解压不完整或路径不对如果输出了文件路径就去 Tools Options Library 里把包含 TeeProcs.pas 的那个目录放到列表最前面并删除旧的 TeeChart 路径。5.2 设计时包装完组件面板里没有 TChart现象右键设计时包 Install 提示成功但组件面板找不到 TeeChart 页或者工程里能放 TChart一编译就提示缺少 .bpl 包。原因最常见的是运行时包与设计时包版本不一致设计时包链接到的 .bpl 与当前 IDE 加载的不匹配其次是安装设计时包时IDE 缓存没有刷新。解决在组件面板空白处右键选择 Properties在 Install Packages 里把 TeeChart 相关的包全部 Remove 掉关闭 IDE按 2.2 的六步重来一遍先 Build 运行时包再 Build 设计时包最后 Install。装完别急着用重启 IDE 一次再新建 VCL 工程确认面板可见。5.3 中文标题和图例乱码现象Form 上其它中文正常唯独 Chart1.Title、Axis 标题和图例里的中文显示成乱码或问号。原因8.06 早期实现里图表文字绘制依赖 Canvas 的当前字体字符集而默认字体 Charset 不是中文所以中文被按错误代码页解释了。Delphi 2009 之后字符串默认 Unicode但 TChart 内部若调用的是 Ansi 版本的文本绘制 API同样会出现不一致。解决在运行时统一设置图表各文本对象的字体字符集Chart1.Title.Font.Charset : GB2312_CHARSET; Chart1.LeftAxis.Title.Font.Charset : GB2312_CHARSET; Chart1.Legend.Font.Charset : GB2312_CHARSET;这一步要放在给图表赋任何数据之前执行因为序列数据一旦被加入部分绘制参数会按当时字体缓存。如果乱码还出现在你的 .pas 源文件里那就要检查源码保存编码——Delphi 7 时代保存成 ANSI 的文件被 Delphi 2010 打开后要用“另存为 UTF-8 with 签名”统一转一次。5.4 高分屏和导出位图变糊现象在 2K/4K 分辨率屏幕上图表文字边缘发虚导出 PNG 后放大看线条有锯齿。原因8.06 默认 GDI 绘制是按当前 DC 的逻辑分辨率做的没有做 DPI 感知缩放而且导出位图时如果不指定尺寸默认按控件屏幕像素导出分辨率只有 96 DPI 左右。解决纯展示型图表可以接受 GDI 速度但把导出尺寸加大打印或印刷场景改用 EMF 矢量格式导出对显示要求高的内网项目可启用 GDI 平滑。我常用的导出组合是屏幕显示走默认 GDI导出报表文件时生成 1600 宽以上的 PNG同时再导一份 EMF 留档既能预览又保证打印清晰。5.5 多个序列颜色完全一样现象往 Chart1 里添加了三条 TLineSeries结果三条线全是同一颜色分不出来。原因TeeChart 的自动调色板只在序列创建时分配一次如果你手动设置过某个序列的 Color或者把 ColorEach 设为 False 后再添加序列后续新序列拿到的可能就与旧序列相同。解决检查每条序列的 Color 是否被显式赋过值把不想要的固定色改成 clTeeColor如果是柱状或饼图把 Series.ColorEach 设为 True让每个数据点各自取色。还有一个干净的做法是手动重置调色板Chart1.ColorPalette[0] : RGB(31, 119, 180); Chart1.ColorPalette[1] : RGB(255, 127, 14); Chart1.ColorPalette[2] : RGB(44, 160, 44);这段代码把调色板前三个颜色固定成你指定的 RGB之后新建的序列按顺序取色。要注意 ColorPalette 是 TChart 的属性各版本索引范围略有差异若越界会抛异常赋值前先确认 Chart1.ColorPalette.Count。6. 进阶AfterDraw 自定义绘制与批量导出把源码价值用到底装好、接入数据、绕过常见坑之后TeeChart 8.06 Full Source 的真正优势才显现可以在不修改控件源码的前提下借助事件钩子实现自定义绘制也可以批量导出图表用于报表流程。6.1 AfterDraw在图表上叠加自定义图形在图表上画一条参考线例如某个业务阈值线是报表里的常见需求。自己写一个 TLineSeries 专门放阈值是一种做法但更好的方式是直接用图表自身的 OnAfterDraw 事件在图表绘制完成后往画布上叠线procedure TForm1.Chart1AfterDraw(Sender: TObject); var XPos: Integer; begin if Chart1.Series.Count 0 then Exit; XPos : Chart1.Series[0].CalcXPos(10); // 第 10 个数据点的屏幕 X 坐标 with Chart1.Canvas do begin Pen.Color : clRed; Pen.Width : 2; MoveTo(XPos, Chart1.ChartRect.Top); LineTo(XPos, Chart1.ChartRect.Bottom); end; end;CalcXPos 是 Series 提供的数据坐标到屏幕坐标的换算方法第 10 个点的索引从 0 开始。ChartRect 是当前绘图区的矩形范围用它的 Top/Bottom 保证线贯穿整个绘图区而不是只到数据点的高度。这种做法的好处是参考线跟着图表缩放和滚动实时重画坏处是每次重绘都会执行一遍事件如果你在事件里做复杂计算要注意性能。我一般只在事件里画几条固定线不做循环和字符串操作。6.2 批量导出 PNG 与 EMF报表场景常需要一次导出几十张图。TeeChart 8.06 的 TeePNG 单元提供了 PNG 导出格式类配合循环可以轻松批量出图uses TeePNG; procedure TForm1.ExportCharts; var PNG: TPNGExportFormat; J: Integer; begin for J : 0 to 9 do begin Chart1.Series[0].Marks.Visible : J mod 2 0; // 偶数组显示标签 PNG : TPNGExportFormat.Create; try PNG.Panel : Chart1; // 指定导出对象 PNG.Width : 1600; // 导出像素宽度 PNG.Height : 1000; // 导出像素高度 PNG.SaveToFile(Format(report_%d.png, [J])); finally PNG.Free; end; end; end;PNG.Panel 指向 Chart1表示导出的是整个图表控件区域包括标题和图例。Width/Height 是导出位图的实际像素尺寸数值越大文件越大、渲染越慢一般报表 1600 宽够用。如果想导出矢量图直接用 TChart 自带方法更简单Chart1.SaveToMetafile(report.emf);SaveToMetafile 生成 EMF 矢量文件放到 Word 或打印时不会因为放大而变糊。注意导出前先把图表数据刷新好并且不要在导出循环里修改数据点数量否则每张图的坐标范围可能都不一致。我一般先把数据冻结到内存表再循环导出保证各张图的 X 轴范围统一。我第一回拿 Full Source 包时上来就在 IDE 里双击设计时包结果编译报错自己折腾了一下午。从那以后我每次拿到带源码的控件包都强制走一遍“编译运行时包 → 编译设计时包 → 面板确认 → 建空工程导出一次图”的流程环境闭环了再往里接业务。希望帮到你。本文还有配套的精品资源点击获取
