简介：本资源是一个基于Borland C++ Builder（BCB）开发的完整画图程序源码工程，面向C++ GUI初学者及BCB爱好者，旨在帮助开发者掌握图形界面编程、鼠标事件响应与TCanvas绘图核心机制。压缩包共10个文件，含2个关键CPP源文件、1个头文件（.h）、1个DFM窗体描述文件、1个BPR工程配置文件、1个RES资源文件、2个OBJ编译中间文件、1个可执行EXE及1个调试符号文件（.tds），总大小380KB，结构典型，便于理解BCB项目组织方式与编译流程。已有139人学习下载，适合通过实操深入理解OnMouseDown/OnMouseMove事件链、RGB色彩控制、线条样式切换及位图（TBitmap）保存加载等关键技术点。读者可直接编译运行、调试源码，观察绘图逻辑实现细节，是提升BCB图形编程能力的高价值入门级实践范例。
1. “ht.rar_画图”不是压缩包解压后直接运行的软件，而是 Delphi 编写的 Windows 图形界面绘图程序源码工程
很多人看到ht.rar_画图这个名字，第一反应是“下载解压就能用的画图工具”，结果双击Project1.exe报错、打开Unit1.cpp发现语法不匹配、甚至用 VS 打开Project1.cpp直接报“无法识别 Delphi 风格的__property和TCanvas初始化方式”——这恰恰说明你踩中了关键认知偏差：它根本不是 C++ 工程，也不是 Python 或 MATLAB 的脚本项目，而是一个典型的 Borland Delphi 7（或早期版本）GUI 绘图应用源码包。.rar后缀只是打包格式，_画图是中文功能标识，真正核心是Project1.dpr（Delphi 项目文件）和Unit1.pas（主窗体单元），而非标题里混入的Project1.cpp或Unit1.cpp——这些.cpp文件极大概率是误命名、残留测试代码，或他人二次修改时未同步更新扩展名所致。该工程面向 Windows 桌面环境，依赖 VCL（Visual Component Library）控件体系，典型用途包括教学演示坐标系绘制、简易函数图像生成、几何图形交互编辑等。适合高校计算机图形学实验、嵌入式上位机界面原型开发、以及需要轻量级本地绘图能力但又不愿引入 Python/Qt 复杂依赖的工程师。如果你手头只有.cpp文件却找不到.pas，说明压缩包已损坏或被非专业人员重命名过；若能定位到Project1.dpr，则可立即进入 Delphi IDE 编译调试。
2. 识别并还原 Delphi 工程结构：从混乱文件名中定位真实源码入口
2.1 判断工程真实类型的关键证据链
仅凭文件名无法确认技术栈，必须通过内容特征交叉验证。对ht.rar解压后的所有文本文件执行以下三步筛查：
2.1.1 搜索 Delphi 特征语法标记
在全部.txt、.cpp、.pas、.dpr文件中执行全局搜索（推荐用 VS Code 的Ctrl+Shift+F）：
# 搜索 Delphi 标志性关键字（大小写敏感） "unit " AND "interface" AND "implementation" "program " AND "begin" AND "end." "TForm" OR "TCanvas" OR "__property"提示：
TCanvas是 VCL 绘图核心类，__property是 Delphi C++ Builder 的属性声明语法（非标准 C++），若在.cpp文件中高频出现，说明该.cpp实为 C++ Builder 项目，而非纯 C++；若只在.pas中出现，则确认为原生 Delphi。
2.1.2 验证项目主文件是否存在
Delphi 工程必须有且仅有一个.dpr（Delphi Project）文件，其结构固定：
// Project1.dpr 示例（必须存在） program Project1; uses Forms, Unit1 in 'Unit1.pas' {Form1}; // 注意：路径引用需与实际文件名一致 {$R *.res} begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; end.若缺失.dpr，但存在Project1.cpp且含WinMain函数和Application->Initialize()调用，则属于C++ Builder（Borland 的 C++ IDE，共享 VCL 库），此时应安装 C++ Builder 而非 Delphi。
2.1.3 检查资源文件与窗体定义
Delphi 工程中.dfm（Delphi Form）文件存储窗体可视化布局，是.pas的配套文件。用文本编辑器打开疑似.dfm文件，若内容类似：
object Form1: TForm1 Left = 0 Top = 0 Caption = '画图' ClientHeight = 480 object PaintBox1: TPaintBox Left = 8 Top = 8 Width = 625 Height = 409 end end则 100% 确认为 Delphi 工程。TPaintBox是 Delphi 专用绘图控件，其OnPaint事件即为绘图逻辑入口。
2.2 修复常见文件名错乱问题
网络流传的ht.rar常因多次转存导致扩展名错误。按优先级执行重命名：
| 原文件名 | 正确扩展名 | 判定依据 |
|---|---|---|
Unit1.cpp | Unit1.pas | 文件内含unit Unit1; interface uses ...; type TForm1 = class(TForm) |
Project1.cpp | Project1.dpr | 文件首行是program Project1;且含Application.Run; |
Form1.dfm | 保留.dfm | 内容含object Form1: TForm1结构 |
注意：重命名后必须同步更新
.dpr中in 'Unit1.pas'的路径字符串，否则编译报错Cannot find Unit1.pas。
2.3 配置 Delphi 7 编译环境（最小可行方案）
无需最新版 IDE，Delphi 7（2002 年发布）即可完美编译该类工程，因其 VCL 稳定性极高且无 .NET 依赖。安装步骤精简如下：
- 下载 Delphi 7 安装镜像（ISO），运行
setup.exe； - 安装时勾选VCL Components → Graphics（确保
TPaintBox、TImage可用）； - 启动 IDE，菜单栏
File → Open Project，选择修复后的Project1.dpr； - 按
F9编译，若提示Unit1.pas not found，右键Project1.dpr→Add → Add File to Project，手动添加Unit1.pas。
编译成功后生成的Project1.exe即为可执行绘图程序，双击运行即可显示窗体并响应鼠标绘图操作。
3. 解析核心绘图逻辑：从TPaintBox.OnPaint到坐标系映射
3.1 主绘图控件TPaintBox的工作原理
ht.rar_画图的绘图区域必然由TPaintBox控件承载（.dfm中已确认）。其绘图逻辑不依赖OnMouseDown/OnMouseMove实时绘制，而是采用重绘驱动模式：所有图形状态（点、线、曲线）存储在内存数组中，每次窗体刷新时，OnPaint事件触发完整重绘。这是 Delphi VCL 绘图的标准范式，优势在于抗闪烁、易维护。
3.1.1OnPaint事件处理函数结构
在Unit1.pas的TForm1类定义中，查找：
procedure TForm1.PaintBox1Paint(Sender: TObject); begin // 关键：获取画布对象 with PaintBox1.Canvas do begin // 设置画笔颜色、宽度 Pen.Color := clBlack; Pen.Width := 2; // 绘制坐标轴 MoveTo(50, 240); LineTo(600, 240); // X轴 MoveTo(50, 20); LineTo(50, 460); // Y轴 // 绘制存储的图形数据（如 points: array[0..999] of TPoint） if PointCount > 0 then Polyline(PPoints^, PointCount); end; end;逻辑说明：
PaintBox1.Canvas是 VCL 封装的 Windows GDI 画布，MoveTo/LineTo/Polyline是底层 GDI 函数的封装。PPoints^是指向动态点数组的指针，PointCount记录当前点数。此结构决定了所有绘图操作必须在OnPaint内完成，否则无效。
3.1.2 坐标系转换：屏幕像素 ↔ 数学坐标
原始工程通常将窗体客户区（ClientRect）映射为数学坐标系。典型转换代码位于OnPaint开头：
// 定义视口范围（数学坐标） XMin := -10; XMax := 10; YMin := -10; YMax := 10; // 计算缩放因子 ScaleX := (PaintBox1.Width - 100) / (XMax - XMin); // 留白100px ScaleY := (PaintBox1.Height - 100) / (YMax - YMin); // 数学点 (x,y) 转屏幕点 (sx,sy) sx := Round(50 + (x - XMin) * ScaleX); sy := Round(PaintBox1.Height - 50 - (y - YMin) * ScaleY); // Y轴翻转参数说明：
50是左右/上下边距；Round()强制转整型，因 GDI 坐标为整数；PaintBox1.Height - 50 - ...实现数学Y轴向上与屏幕Y轴向下的一致性。若绘图结果上下颠倒，必是此处sy计算未翻转。
3.2 用户交互逻辑：鼠标事件如何影响绘图状态
绘图程序需响应鼠标操作，但不直接在OnMouseDown中调用Canvas.LineTo（会导致重绘冲突）。正确做法是：
OnMouseDown：记录起始点StartPoint: TPoint，设置Drawing := True标志；OnMouseMove（当Drawing=True）：将当前鼠标位置加入Points数组，并调用PaintBox1.Invalidate强制重绘；OnMouseUp：Drawing := False，结束本次绘制。
procedure TForm1.PaintBox1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Drawing := True; StartPoint := Point(X, Y); // 清空当前临时线段（避免拖拽残留） SetLength(Points, 0); end; procedure TForm1.PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var P: TPoint; begin if not Drawing then Exit; P := Point(X, Y); // 动态追加点（使用动态数组） SetLength(Points, Length(Points) + 1); Points[High(Points)] := P; PaintBox1.Invalidate; // 触发 OnPaint 重绘 end;关键细节：
SetLength(Points, Length(Points) + 1)是 Delphi 动态数组扩容标准写法；High(Points)返回数组最大索引；Invalidate比Repaint更高效，仅标记区域为“需重绘”，不立即执行。
4. 修复中文显示与字体渲染问题：解决plt画图显示中文问题的 Delphi 方案
4.1 Delphi 默认字体不支持中文的根源
ht.rar_画图若在 Windows 10/11 上运行时菜单、按钮、坐标标注显示为方块（□□），根本原因是：Delphi 7 默认使用MS Sans Serif字体，该字体在简体中文系统中缺少 GB2312 字符集映射，且未启用 Unicode 支持。这与 Python 的matplotlib中文问题（plt.rcParams['font.sans-serif']）本质相同，但解决方案完全不同。
4.1.1 全局字体替换：修改窗体默认字体
在Unit1.pas的TForm1.FormCreate事件中强制设置：
procedure TForm1.FormCreate(Sender: TObject); begin // 替换整个窗体字体（含所有子控件） Self.Font.Name := 'Microsoft YaHei'; // 微软雅黑，Windows 自带 Self.Font.Size := 9; Self.Font.Charset := GB2312_CHARSET; // 关键！指定字符集 end;注意：
GB2312_CHARSET常量需在uses子句中添加Windows单元。若Microsoft YaHei不可用，备选'SimSun'（宋体）。
4.1.2 绘图文本中文渲染：TextOut的字符集设置
TPaintBox.Canvas.TextOut默认继承控件字体，但需显式设置Font.Charset：
procedure TForm1.PaintBox1Paint(Sender: TObject); begin with PaintBox1.Canvas do begin // 设置画布字体（影响 TextOut） Font.Name := 'Microsoft YaHei'; Font.Size := 10; Font.Charset := GB2312_CHARSET; // 绘制中文标签 TextOut(10, 10, 'X轴'); TextOut(10, PaintBox1.Height - 30, 'Y轴'); end; end;4.2 高 DPI 缩放适配：解决 Win10/11 高分屏模糊问题
现代 Windows 启用高 DPI 缩放后，Delphi 7 程序默认被系统拉伸导致 UI 模糊。必须在Project1.dpr中启用 DPI 感知：
program Project1; uses Forms, Unit1 in 'Unit1.pas' {Form1}; {$R *.res} // 添加以下两行（Delphi 7 需手动注入） function SetProcessDpiAwareness(value: Integer): Integer; stdcall; external 'user32.dll'; begin // 在 Application.Initialize 前调用 SetProcessDpiAwareness(1); // 1 = PROCESS_DPI_AWARENESS_SYSTEM_AWARE Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; end.参数说明：
PROCESS_DPI_AWARENESS_SYSTEM_AWARE（值为1）表示程序自身不处理 DPI 缩放，由系统按比例缩放像素——这是 Delphi 7 兼容性最好的选项。若使用1仍模糊，尝试0（PROCESS_DPI_UNAWARE），强制禁用缩放。
5. 扩展实用功能：添加坐标网格、函数曲线绘制与导出 PNG
5.1 绘制动态坐标网格（解决python画图横坐标太密集类似需求）
ht.rar_画图原生可能只画坐标轴，需手动添加网格线提升可读性。在OnPaint中插入：
// 绘制垂直网格线（X轴刻度） for i := 0 to 20 do begin x := Round(50 + i * 25); // 每25像素一条线 if (x > 50) and (x < PaintBox1.Width - 50) then begin Pen.Color := RGB(230, 230, 230); // 浅灰色 MoveTo(x, 50); LineTo(x, PaintBox1.Height - 50); end; end; // 绘制水平网格线（Y轴刻度） for i := 0 to 16 do begin y := Round(50 + i * 25); if (y > 50) and (y < PaintBox1.Height - 50) then begin Pen.Color := RGB(230, 230, 230); MoveTo(50, y); LineTo(PaintBox1.Width - 50, y); end; end;实用技巧：网格颜色设为浅灰（
RGB(230,230,230)）避免干扰主图形；循环步长25像素对应约0.5数学单位，可根据ScaleX/ScaleY动态计算，实现自适应刻度。
5.2 绘制数学函数曲线：以sin(x)为例
在Unit1.pas中添加DrawFunction过程，并绑定到菜单项：
procedure TForm1.DrawFunction; var i: Integer; x, y: Double; sx, sy: Integer; begin // 清空现有点 SetLength(Points, 0); // 生成 sin(x) 点列（X范围：-2π 到 2π） for i := 0 to 200 do begin x := -2 * Pi + (4 * Pi * i) / 200; y := Sin(x); // 坐标转换 sx := Round(50 + (x + 2*Pi) * ScaleX); sy := Round(PaintBox1.Height - 50 - (y + 1) * ScaleY); // 追加点 SetLength(Points, Length(Points) + 1); Points[High(Points)] := Point(sx, sy); end; PaintBox1.Invalidate; end;关键参数：
ScaleX := (Width-100)/(4*Pi)，ScaleY := (Height-100)/2（因sin(x)范围是 [-1,1]）；x从-2π到2π覆盖两个周期；y+1将 [-1,1] 映射到 [0,2] 便于 Y 轴缩放。
5.3 导出当前画布为 PNG 文件（替代visio画图origin画图的静态输出）
Delphi 7 原生不支持 PNG，需借助第三方库GraphicEx（轻量级，仅 200KB）。步骤：
- 下载
GraphicEx（搜索GraphicEx for Delphi 7），解压后将GraphicEx文件夹复制到 DelphiLib目录； - 在
Unit1.pas的uses中添加JPEG, PNGImage, GraphicEx; - 添加导出过程：
procedure TForm1.ExportAsPNG; var BMP: TBitmap; PNG: TPNGObject; FileName: string; begin BMP := TBitmap.Create; PNG := TPNGObject.Create; try BMP.Width := PaintBox1.Width; BMP.Height := PaintBox1.Height; // 将 PaintBox 内容复制到位图 BMP.Canvas.CopyRect(Rect(0,0,BMP.Width,BMP.Height), PaintBox1.Canvas, Rect(0,0,PaintBox1.Width,PaintBox1.Height)); // 转 PNG PNG.Assign(BMP); // 保存 FileName := 'drawing_' + FormatDateTime('yyyymmdd_hhnnss', Now) + '.png'; PNG.SaveToFile(FileName); ShowMessage('已保存：' + FileName); finally BMP.Free; PNG.Free; end; end;注意：
CopyRect是 GDI 位图复制核心方法；FormatDateTime生成带时间戳的文件名，避免覆盖；TPNGObject来自GraphicEx，非 Delphi 原生类，必须正确引用单元。
本文还有配套的精品资源，点击获取
