9

我想这是 VCL 样式还没有准备好被真正使用的另一个原因。

没有 VCL 样式的 TDateTimePicker 控件看起来很好。打开任何 vcl 样式，我得到这样的外观：

在此处输入图像描述

我可以通过注册一个样式挂钩来关闭这个组件类型的 vcl 样式，但这看起来真的很难看。

这是在安装了更新 4 的 Delphi XE2 上。

理想情况下，我希望有一种解决方法，或者日期时间选择器的某些属性，或者我可以强制日期时间选择器正确绘制和主题的日期时间选择器的某些子类。

请注意，正常的组合框主题正确。请注意，这很容易在可以想象的最小示例项目中重现。是的。这是又一个样式错误。

更新它可能是特定于平台的，与不带 Aero 的 Windows Server 2008 R2 上的 Windows 通用控件版本相关（Windows 服务器组件术语中的“桌面体验”）。在其他人无法复制它之后，我才想到要在几台不同的 Windows 机器上尝试。在我这样做之后，我发现该问题仅在 Windows Server 2008 R2 上重现。我们的一些客户使用 Windows Server 2008 R2。如您所知，使用 VCL 样式的一个主要原因是，无论 Windows 主题是什么，它都能让您的应用看起来一样。但是在上述情况下，整个应用程序主题正确，除了 DateTimePicker 控件，它的主题不正确，并且仅在 Windows Server 2008 R2 上。相同的基于 XE2 的演示应用程序在 Windows 7 上运行良好。

工作系统和非工作系统在 SysWow64 文件夹中都有一个 ComCtl32.dll，版本为 5.82.7601.17514。但是，当 VCL 主题关闭时，这些控件的本机布局和外观显然是不同的，这会影响蒙皮代码，从而导致失败。

更新 2 ：报告为错误：QC 条目106783

4

2 回答 2

13

好的，我刚刚对 Vcl.Styles.DateTimePickers单元做了一个小改动，它是vcl-styles-utils的一部分。在“Windows 经典”主题处于活动状态时解决此问题。

以这种方式使用这种风格的钩子

uses
  Vcl.Styles,
  Vcl.Themes,
  Vcl.Styles.DateTimePickers;

initialization
 TStyleManager.Engine.RegisterStyleHook(TDateTimePicker, TDateTimePickerStyleHookFix);

这将是结果。

在此处输入图像描述

于 2012-06-27T20:05:50.877 回答
1

我可以确认，当我安装桌面体验、启用主题并启动主题服务时，这个故障就消失了。

好的，这是我现在的解决方法代码：

function DetectWin7Or2008R2ClassicTheme:Boolean;
begin

   if  ( Win32MajorVersion>=6 ) then
      result := (not Themes.ThemeServices.ThemesEnabled) // and IsServerOs
   else
      result := false;


end;


// main form initialization section:


initialization
 if DetectWin7Or2008R2ClassicTheme then
 TStyleManager.Engine.RegisterStyleHook(TDateTimePicker, TStyleHook); {no theme!}
end.

这显然是一个疯狂的角落案例。我希望找到更多，当我发现 Windows Server 2008R2 或 Windows 7 上还有什么问题时，当主题服务未运行时，我会回来更新这个问题，当你选择“Windows 经典主题”时会发生这种情况在Win7上，也是。

于 2012-06-27T19:31:33.470 回答