usan - Estilos VCL Delphi XE2, la actualización de los subtítulos bloquea la invalidación de otros controles

seo h3

Question

Se ha encontrado un problema con los estilos de VCL: cuando actualiza el título del formulario, otros controles previamente redibujados dentro del mismo procedimiento no se vuelven a pintar, y se ve obligado a llamar a Repaint, perdiendo un valioso tiempo de procesamiento para volver a dibujar.

Ejemplo: (establecer opciones de proyecto / estilo vcl manualmente)

unit Unit11;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;
type
TForm11 = class(TForm)
Button1: TButton;
Panel1: TPanel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form11: TForm11;
implementation
{$R *.dfm}
procedure TForm11.Button1Click(Sender: TObject);
begin
Panel1.Caption := ''test'';
caption := ''glitch'';
end;
end.
object Form11: TForm11
Left = 0
Top = 0
Caption = ''Form11''
ClientHeight = 89
ClientWidth = 352
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = ''Tahoma''
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Button1: TButton
Left = 8
Top = 8
Width = 121
Height = 57
Caption = ''Button1''
TabOrder = 0
OnClick = Button1Click
end
object Panel1: TPanel
Left = 135
Top = 8
Width = 185
Height = 57
Caption = ''Panel1''
TabOrder = 1
end
end
program Project10;
uses
Vcl.Forms,
Unit11 in ''Unit11.pas'' {Form11},
Vcl.Themes,
Vcl.Styles;
{$R *.res}
begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
TStyleManager.TrySetStyle(''Cobalt XEMedia'');
Application.CreateForm(TForm11, Form11);
Application.Run;
end.

Answer 1

Establezca las llamadas de subtítulos en la secuencia.

• Primero form.caption, luego child.caption.

Una vez que haya llamado a la secuencia incorrecta, entonces dejó de funcionar la secuencia correcta. Es por eso que uso aquí, el botón "establecer por defecto".

Esto procede, mientras no haya una solución para eso, puedo vivir con eso.

procedure TForm11.Button1Click(Sender: TObject);
begin // wrong order
Panel1.Caption := ''test'';
caption := ''glitch'';
end;
procedure TForm11.Button2Click(Sender: TObject);
begin // right order
caption := ''glitch'';
Panel1.Caption := ''test'';
end;
procedure TForm11.Button3Click(Sender: TObject);
var
i:integer;
begin // count no refresh
for i:= 1 to 300 do begin
caption := ''glitch ''+intToStr(i);
Panel1.Caption := ''test ''+intToStr(i);
end;
end;
procedure TForm11.Button4Click(Sender: TObject);
var
i:integer;
begin // count with refresh
for i:= 1 to 300 do begin
caption := ''glitch ''+intToStr(i);
Panel1.Caption := ''test ''+intToStr(i);
Panel1.Refresh;
end;
end;
procedure TForm11.Button5Click(Sender: TObject);
begin // set default
caption := ''Form11'';
Panel1.Caption := ''Panel1'';
Panel1.Refresh;
end;
end.

Si encontraste otra solución. Por favor dime.