TListView et OnData

Bonjour, j'essaie de gérer une grande liste dans un TListView (100000 items et 10 subItems) en fonctionnement virtuel.
J'utilise OnData pour transmettre mes données pour Item demandé mais cela semble boucler et mon LV se remplit mais en permanence (scintillement).
J'ai activé le OwnerData mais pas le OwnerDraw.
Comment faire ?

Bonjour,

Citation:

Envoyé par sbadecoder

Comment faire ?

En commençant par nous fournir
1- votre version de Delphi
2- votre code de remplissage

Les boules de cristal ne sont pas infaillibles

1) Delphi 10

2)

Code:

1
2
3
4
5
6
7
8
9
10
11
 
procedure TForm1.ListView1Data(Sender: TObject; Item: TListItem);
var
  w : integer;
begin
  w := Item.Index+1;
  Form1.ListView1.Items.BeginUpdate;  // en mode vsReport
    Item.Caption := BList[ TAB[w].a ];   // tous les Items ont déjà été ajoutés - lignes de la LV - lors de la sauvegarde des données dans TAB  
    Item.SubItems.Add( IntToStr( TAB[w].b ) );
  Form1.ListView1.Items.EndUpdate;
end;

BeginUpdate et EndUpdate dans un OnData ça doit être le seul cas où ce n'est pas compatible.
BeginUpdate c'est même un non sens en OwnerData car la liste Items ne doit pas être manipulé, JAMAIS !
Seul le Item en paramètre peut être exploité, autant utiliser l'index pour récupérer les données à la source

Vous avez bien juste changer le Count sans ajouter des Items via Add
Une liste virtuelle contient des Items qui représente la fenêtre de données courante mais il ne faut pas manuellement ajouter ses propres items

D'ailleurs, le " SubItems[1] " qui fonctionne sans Add, là je trouve cela étrange, cela reste une implémentation de TStrings
Clairement ça c'est pour moi le signe d'un remplissage ailleurs qui n'a pas lieu d'être.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
unit ListView_MainForm;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls;
 
type
  TForm1 = class(TForm)
    ListView1: TListView;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure ListView1Data(Sender: TObject; Item: TListItem);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  ListView1.Items.Count := 10000;
end;
 
procedure TForm1.ListView1Data(Sender: TObject; Item: TListItem);
var
  S: string;
begin
  Item.Caption := Item.Index.ToString();
  if Item.SubItems.Count = 0 then
  begin
    S := StringOfChar('B', Item.Index);
    Item.SubItems.Add(Length(S).ToString() + ' ' + S);
    S := StringOfChar('C', Item.Index);
    Item.SubItems.Add(Length(S).ToString() + ' ' + S);
    S := StringOfChar('D', Item.Index);
    Item.SubItems.Add(Length(S).ToString() + ' ' + S);
  end
  else
  begin
    Item.SubItems[0] := 'Cas Impossible';
    Item.SubItems[1] := 'en OwnerData';
  end;
end;
 
end.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 424
  ClientWidth = 635
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object ListView1: TListView
    Left = 8
    Top = 8
    Width = 440
    Height = 354
    Columns = <
      item
        Caption = 'A'
      end
      item
        Caption = 'B'
      end
      item
        Caption = 'C'
      end
      item
        Caption = 'D'
      end>
    OwnerData = True
    TabOrder = 0
    ViewStyle = vsReport
    OnData = ListView1Data
  end
  object Button1: TButton
    Left = 454
    Top = 8
    Width = 75
    Height = 25
    Caption = 'Button1'
    TabOrder = 1
    OnClick = Button1Click
  end
end

Tout est ok sans Begin/EndUpdate et sans ajout des Items. Merci.

Pour le SubItem (j'avais mis le code de mémoire), en fait j'avais exactement cela :
Code:

1 2 3 if Item.SubItems.Count = 0 then for j:=0 to 4 do Item.SubItems.Add(''); Item.SubItem[0]:='cela marche';