delphi - 启用运行时主题时，不显示 PngBitBtn 的标题

Question

我用一个 PngBitBtn 制作了一个简单的项目，然后使用以下配置对其进行编译:

1. 运行时主题已禁用
   • Debug模式 - 确定
   • Release模式 - 确定
2. 运行时主题已启用
   • Debug模式 - 确定
   • Release模式 - PngBitBtn 上没有标题

正确显示标题的唯一方法是关闭优化。是否可以在不关闭优化的情况下解决这个问题？

提前谢谢你，蒂姆

在 Delphi XE3、XE6 上测试。 平台:win32。 PNGComponents 版本:来自 embarcadero CodeCentral 的最新版本。

打印屏幕:

Answer 1

这只是一个错误!

要修复此问题，请在 PngBitBtn.pas 方法 TPngBitBtnStyleHook.DrawButton 的第 326 行插入以下行:

  Offset := TPoint.Create(0, 0);

该区域的代码现在应如下所示:

  if not (Control is TPngBitBtn) then
  begin
    inherited;
    Exit;
  end;
  Offset := TPoint.Create(0, 0);
  DrawRect := Control.ClientRect;