Delphi XE2 TLabel发光引起屏幕左上角的图形问题

该问题从TCustomLabel.AdjustBounds开始,通过屏幕的设备上下文和标志DT_CALCRECT调用DoDrawText.因此,如果在设备上下文中有任何画面,它将被画在屏幕上. DT_CALCRECT标志应该阻止,但是Vcl.Themes.TUxThemeStyle.DoDrawText中的DrawThemeTextEx调用似乎忽略了DT_CALCRECT LOptions.dwFlags DTT_CALCRECT并且绘制到设备上下文中,它只应该计算所需的矩形.我不知道为什么DrawThemeTextEx做了(但),但它是一个起点.

更新1：
Delphi 2009似乎不受此影响,但也调用DrawThemeTextEx.唯一的区别是,所有未使用的选项记录都是零,而在Delphi XE2中,它们包含垃圾.也许DrawThemeTextEx需要它们为零.

更新2：
Delphi 2009和XE2之间的区别在于,在Delphi 2009中,不仅指定了DTT_CALCRECT,而且还包括DTT_COMPOSITE.

在德尔福2009年,DTT_COMPOSITE始终设定：

Options.dwFlags := DTT_TEXTCOLOR or DTT_COMPOSITED or DTT_GLOWSIZE;

而在XE2中,只有标签涂在玻璃上才会设置标志：

if csGlassPaint in ControlState then
    Include(LFormat,tfComposited);