Pascal-Rounded Corners for Delphi/Lazarus：让任意控件拥有圆角

icy 昨天 20 抢沙发

默认

摘要： Rounded Corners for Delphi/Lazarus：让任意控件拥有圆角项目地址：https://github.com/checkdigits/rounded_c...

Rounded Corners for Delphi/Lazarus：让任意控件拥有圆角

项目地址：https://github.com/checkdigits/rounded_corners

一、这是什么

rounded_corners 是 Pascal 开发者 checkdigits 编写的一个轻量级开源组件库，目标非常明确：让任意 TControl 派生的控件（面板、按钮、编辑框、图片框……）支持圆角显示，并且圆角之外的区域干净地透明。

它同时支持 Delphi（VCL）和 Lazarus / Free Pascal（LCL），一份代码跨两个主流 Pascal 生态，这也是它相比大多数 Delphi-only 圆角方案的价值所在。

二、为什么需要一个专门的圆角库

在 Windows 上给控件加圆角，看似简单，实则坑很多：

只是”看着像”圆角：很多做法是在控件上盖一张圆角 PNG，或者用 CreateRoundRectRgn 设置窗口区域（Region）。前者一旦控件背景变化就露馅；后者在大圆角时边缘出现严重锯齿。
圆角外的区域不透明：如果父容器有渐变背景或图片背景，控件四个角就会留下难看的直角色块。
抗锯齿：Windows GDI 画圆角矩形是”硬边”，需要自己做 alpha 混合才能得到平滑边缘。
层级与重绘：控件放在不同的容器里、滚动、缩放、Z 序变化，背景都要正确刷新。

rounded_corners 正是围绕这几件事设计的。

三、核心特点

根据项目设计与实现，它提供的能力包括：

基于 Region + 背景重绘：通过 SetWindowRgn 或等效机制把控件裁剪成圆角形状，同时处理圆角以外区域的背景还原，保证父容器背景能正确透出。
抗锯齿圆角：对圆角边缘做平滑处理，而非简单的一刀切，避免 1px 锯齿感。
可配置圆角半径：支持统一半径，也支持四角分别设置（类似 CSS 的 border-radius 四值写法）。
面向 TControl 通用：不是某个特定控件的重写版，而是可以挂到 TPanel、TImage、TEdit、TButton(视实现) 等任意控件上的通用方案。
双框架支持：Delphi VCL 与 Lazarus LCL 均可使用，源码结构清晰。

具体属性名（如 CornerRadius、Corners、BorderColor 等）请以仓库中的源码与示例为准，不同版本命名可能略有差异。

四、工作原理（简析）

理解它的实现思路，比记住 API 更有价值。常见实现路径大致是：

裁剪：创建一个圆角矩形 Region（考虑 DPI 缩放），通过 SetWindowRgn 应用到目标控件的窗口句柄上，使控件在系统层面就呈圆角形状。
还原背景：窗口区域裁剪后，圆角外的部分由系统用父窗口背景填充，因此父容器的颜色/图片会自动透出——这正是”透明感”的来源。
平滑边缘：单纯 Region 裁剪边缘是硬的，库通过额外的绘制步骤（例如在控件画布上用与父背景匹配的像素做 alpha 混合，或自绘圆角边框）削弱锯齿。
响应变化：监听 Resize、Parent 背景变化、DPI 变化等事件，重新计算 Region 与重绘。

这种”Region 裁剪 + 背景还原 + 边缘平滑”的组合，是 Windows 下不依赖第三方图形库、实现圆角控件最务实的方式。

五、快速上手（示意）

典型用法通常是”把目标控件交给库处理”，概念上类似：

Pascal

// 伪代码示意，实际 API 请参考仓库示例
uses
  RoundedCorners; // 单元名以仓库为准

procedure TForm1.FormCreate(Sender: TObject);
begin
  // 给面板设置 12px 圆角
  ApplyRoundedCorners(Panel1, 12);

  // 或者四角独立设置
  Panel1.CornerRadius := 12;
  Panel1.CornerTopLeft := True;
  Panel1.CornerBottomRight := False;
end;

实际接入方式有两种常见形态：运行时附加（在窗体创建后把控件包装/注册进去），或安装为组件包后直接在设计期使用。请对照仓库 README 与 demo 工程选择。