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

Question

我用一个 PngBitBtn 做了一个简单的项目，然后用以下配置编译它：

1. 运行时主题被禁用
   • 调试模式 - 好的
   • 释放模式 - 确定
2. 运行时主题已启用
   • 调试模式 - 好的
   • 发布模式 - PngBitBtn 上没有字幕

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

提前谢谢你，蒂姆

在德尔福 XE3、XE6 上测试。平台：win32。PNGComponents 版本：来自 embarcadero CodeCentral 的最新版本。

打印屏幕：

Answer 1

简直是个bug！

要修复它，请在 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;