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

发布时间：2020-12-15 09:32:42 所属栏目：大数据来源：网络整理

导读：我用一个PngBitBtn创建了一个简单的项目,然后用以下配置编译它：运行时主题已禁用调试模式 – 好的发布模式 – 好的启用运行时主题调试模式 – 好的发布模式 – PngBitBtn没有标题正确显示标题的唯一方法是关闭优化.是否可以在不关闭优化的情况下解决

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

>运行时主题已禁用

>调试模式 – 好的
>发布模式 – 好的

>启用运行时主题

>调试模式 – 好的
>发布模式 – PngBitBtn没有标题

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

蒂姆,提前谢谢你

在Delphi XE3,XE6上测试.
平台：win32.
PNGComponents版本：来自embarcadero CodeCentral的最新版本.

打印屏幕：

只是一个错误！

要解决此问题,请在PngBitBtn.pas方法的第326行插入以下行TPngBitBtnStyleHook.DrawButton：

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

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

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!