Evitar parpadeos en TListView

[[AgustinOrtu]]

Debes indicarle al TListView que vas a realizar modificaciones o inserciones masivas de Items:

Eso se hace con los metodos BeginUpdate y EndUpdate de la clase TListItems (propiedad Items de los TListView). Basicamente lo que hace es demorar todas las actualizaciones visuales hasta que se llame a EndUpdate. La estructura general es la siguiente:

Código Delphi [-]
procedure ...
var
  ListItem: TListItem;
begin
  ListView.Items.BeginUpdate;
  try
    bucle for/while/ etc
    begin
      // crear el ListItem y setear propiedades segun corresponda
      ListItem := ListView.Items.Add;
      ListItem.Caption := 'blabla';
      ListItem.SubItems.Add('blabla');
      // etc
    end;
  finally
    ListView.Items.EndUpdate;
  end;
end;

El try-finally asegura que se invoque siempre en ultima instancia el metodo EndUpdate. De omitirse ese llamado, el ListView nunca se actualiza.

Es importante notar que por cada BeginUpdate que se invoque, se debe emparejar con un EndUpdate. Es decir, los BeginUpdate se pueden "anidar", asi que despues es necesario "deshacerlos", uno por uno, con un EndUpdate

[Reasen]

Empezado por AgustinOrtu

Debes indicarle al TListView que vas a realizar modificaciones o inserciones masivas de Items:

Eso se hace con los metodos BeginUpdate y EndUpdate de la clase TListItems (propiedad Items de los TListView). Basicamente lo que hace es demorar todas las actualizaciones visuales hasta que se llame a EndUpdate. La estructura general es la siguiente:

Código Delphi [-]procedure ... var ListItem: TListItem; begin ListView.Items.BeginUpdate; try bucle for/while/ etc begin // crear el ListItem y setear propiedades segun corresponda ListItem := ListView.Items.Add; ListItem.Caption := 'blabla'; ListItem.SubItems.Add('blabla'); // etc end; finally ListView.Items.EndUpdate; end; end;


El try-finally asegura que se invoque siempre en ultima instancia el metodo EndUpdate. De omitirse ese llamado, el ListView nunca se actualiza.

Es importante notar que por cada BeginUpdate que se invoque, se debe emparejar con un EndUpdate. Es decir, los BeginUpdate se pueden "anidar", asi que despues es necesario "deshacerlos", uno por uno, con un EndUpdate

Ese método por desgracia solo provoca más parpadeos... Si no me equivoco es por la skin.

He ido probando cosas y finalmente he encontrado una manera de evitar los parpadeos usando una Skin de Delphi,
lo dejo por aquí por si alguien se encuentra con el problema en un futuro:

Form1.DoubleBuffered:=true;
ListView1.DoubleBuffered:=true;

En StyleElements deseleccionamos seClient en ListView y en el Form y así de simple ya deja de parpadear y podemos usar una skin sin problemas.


Yo estaba ya pensando que era necesario un Hook a la Skin, me estaba mirando documentación de RRUZ jaja