尧图网页设计 
简介本资源是一个基于Borland C BuilderBCB开发的完整画图程序源码工程面向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.dprDelphi 项目文件和Unit1.pas主窗体单元而非标题里混入的Project1.cpp或Unit1.cpp——这些.cpp文件极大概率是误命名、残留测试代码或他人二次修改时未同步更新扩展名所致。该工程面向 Windows 桌面环境依赖 VCLVisual 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 的CtrlShiftF# 搜索 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 工程必须有且仅有一个.dprDelphi 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 BuilderBorland 的 C IDE共享 VCL 库此时应安装 C Builder 而非 Delphi。2.1.3 检查资源文件与窗体定义Delphi 工程中.dfmDelphi 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.cppUnit1.pas文件内含unit Unit1; interface uses ...; type TForm1 class(TForm)Project1.cppProject1.dpr文件首行是program Project1;且含Application.Run;Form1.dfm保留.dfm内容含object Form1: TForm1结构注意重命名后必须同步更新.dpr中in Unit1.pas的路径字符串否则编译报错Cannot find Unit1.pas。2.3 配置 Delphi 7 编译环境最小可行方案无需最新版 IDEDelphi 72002 年发布即可完美编译该类工程因其 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当DrawingTrue将当前鼠标位置加入Points数组并调用PaintBox1.Invalidate强制重绘OnMouseUpDrawing : 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.Charsetprocedure 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仍模糊尝试0PROCESS_DPI_UNAWARE强制禁用缩放。5. 扩展实用功能添加坐标网格、函数曲线绘制与导出 PNG5.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π覆盖两个周期y1将 [-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 原生类必须正确引用单元。本文还有配套的精品资源点击获取 Delphi绘图程序源码解析与编译修复指南
简介本资源是一个基于Borland C BuilderBCB开发的完整画图程序源码工程面向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.dprDelphi 项目文件和Unit1.pas主窗体单元而非标题里混入的Project1.cpp或Unit1.cpp——这些.cpp文件极大概率是误命名、残留测试代码或他人二次修改时未同步更新扩展名所致。该工程面向 Windows 桌面环境依赖 VCLVisual 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 的CtrlShiftF# 搜索 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 工程必须有且仅有一个.dprDelphi 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 BuilderBorland 的 C IDE共享 VCL 库此时应安装 C Builder 而非 Delphi。2.1.3 检查资源文件与窗体定义Delphi 工程中.dfmDelphi 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.cppUnit1.pas文件内含unit Unit1; interface uses ...; type TForm1 class(TForm)Project1.cppProject1.dpr文件首行是program Project1;且含Application.Run;Form1.dfm保留.dfm内容含object Form1: TForm1结构注意重命名后必须同步更新.dpr中in Unit1.pas的路径字符串否则编译报错Cannot find Unit1.pas。2.3 配置 Delphi 7 编译环境最小可行方案无需最新版 IDEDelphi 72002 年发布即可完美编译该类工程因其 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当DrawingTrue将当前鼠标位置加入Points数组并调用PaintBox1.Invalidate强制重绘OnMouseUpDrawing : 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.Charsetprocedure 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仍模糊尝试0PROCESS_DPI_UNAWARE强制禁用缩放。5. 扩展实用功能添加坐标网格、函数曲线绘制与导出 PNG5.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π覆盖两个周期y1将 [-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 原生类必须正确引用单元。本文还有配套的精品资源点击获取