delphi - Delphi 玻璃上的 Google Chrome 风格选项卡

Question

我正在尝试在 Windows 7 中的 Delphi 应用程序中实现 Google Chrome 样式选项卡。

其要素是:

• 标签可以延伸到非客户端区域，就像在 google chrome 本身中一样。
• 启用玻璃后，可以在 Vista 和 Windows 7 上正确绘制
• 标签页的工作方式与 google chrome 浏览器类似，而且看起来也与玻璃上的 google chrome 浏览器类似。

我发现我必须克服的挑战是:

• 如何让控件(VCL 控件)扩展到非客户区？ (执行此操作的一个很好的控件示例是 VCL 源代码中包含的 Ribbon 控件，但我还没有看到其他人这样做，并且需要一些邪恶的黑客才能使功能区发挥作用)
• 如何在玻璃上正确绘制位图？ (DWM API)。一个related question已经回答了这方面的问题，这里，这个问题也是我问的。

Answer 1

我刚刚完成了 Delphi 的 Chrome Tabs 的几乎完整实现。

功能包括:

• 完全可配置的外观和感觉，包括渐变、透明度和自定义选项卡形状
• 使用 Aero 时可以在标题栏中绘制选项卡
• 适用于 Vista 玻璃
• 选项卡移动动画
• 选项卡过渡样式效果(颜色和 Alpha 级别之间的淡入淡出)
• 在容器内和容器之间拖放
• 拖动图像显示选项卡和任何 TWinControl
• 用户点击关闭按钮时智能调整标签页大小
• 通过最小和最大标签尺寸来灵活调整标签大小
• 添加选项卡按钮可以位于左侧、右侧或 float 右侧
• 全功能滚动，包括拖动时自动滚动
• 智能标签内容显示根据标签宽度隐藏/显示项目
• 所有者绘制任何元素
• 从右到左的文本
• 固定标签
• 选项卡微调器 - 渲染和位图。
• 带有动画发光效果的修改选项卡
• 标签图像和叠加图像
• 将鼠标悬停在发光上
• 很多事件
• 加载/保存外观和流式传输/文件选项
• 生成外观/选项 Delphi 代码

您可以在此处下载源代码和完整的演示/编辑器:http://code.google.com/p/delphi-chrome-tabs/