Delphi XE2 TLabel glowsize causa problema gráfico en la esquina superior izquierda de la pantalla

Question

Desde que porté una aplicación de XE a XE2 noté un error extraño, simplemente abriendo el formulario en el ide o ejecutando la aplicación, se dibuja un cuadro cuadrado blanco en la esquina superior izquierda de la pantalla (fuera del formulario), que desaparece al pasar el mouse o una ventana encima. Seguí esto hasta TLabel, simplemente soltando uno en el formulario y estableciendo Glowsize por encima de 0 causa el problema.

He reinstalado y actualizado a la última actualización de XE23 y el problema persiste. Alguien tiene una pista de lo que está pasando?

Answer 1

El problema comienza en TCustomLabel.AdjustBounds con una llamada a DoDrawText con el contexto de dispositivo de la pantalla y el DT_CALCRECT bandera. Entonces, si algo pinta en el contexto de ese dispositivo, se pintará en la pantalla. El indicador DT_CALCRECT debería evitar eso, pero la llamada DrawThemeTextEx en Vcl.Themes.TUxThemeStyle.DoDrawText parece ignorar el DT_CALCRECT + LOptions.dwFlags DTT_CALCRECT y se pinta en el contexto del dispositivo donde solo debería calcular el rectángulo requerido. No sé por qué DrawThemeTextEx hace eso (todavía), pero es un punto de partida. no parece
Delphi 2009 a ser afectados por esto, pero también llama DrawThemeTextEx:

ACTUALIZA 1. La única diferencia que veo es que todos los campos no utilizados del registro de Opciones son cero, mientras que en Delphi XE2 contienen basura. Quizás DrawThemeTextEx necesita que sean cero.

ACTUALIZACIÓN 2:
La diferencia entre 2009 y Delphi XE2 es que en Delphi 2009 no sólo se especifica DTT_CALCRECT sino también DTT_COMPOSITE.

En Delphi 2009, el DTT_COMPOSITE siempre se establece:

Options.dwFlags := DTT_TEXTCOLOR or DTT_COMPOSITED or DTT_GLOWSIZE; 

mientras que en XE2 la bandera sólo se establece si la etiqueta está pintado sobre vidrio:

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

Answer 2

El problema parece desaparecer si deshabilita AutoSize en la etiqueta.

No investigé más a fondo por qué, pero como solución alternativa hasta que se solucione ese error, funciona bien.