Kann ich meine ListView beschleunigen (Icon laden dauert ewig)

[Hobbycoder]

Hm...würde mir einer mal erklären, warum BeginUpdate und EndUpdate einer ListView nicht ausreichen, und zusätzlich noch das Minimize btw. Restore mehr Geschwindigkeit bringen soll?

[DieDolly]

Zitat:

wenn die fertig ist einen Thread starten der dann poe á poe Icons cached und in ListView das Index dafür setzt.

Warum so kompliziert und nicht einfach die Icons in eine ImageList stecken. Meinet wegen sogar in einem Thread. Aber das ge-cache bringt mal gar nix verglichen zu einer ImageList.

Zitat:

und zusätzlich noch das Minimize btw. Restore mehr Geschwindigkeit bringen soll?

Ich stelle mir gerade ein Programm vor, das sich einfach während der Nutzung mal minimiert und wieder maximiert. Sähe sehr vertrauenswürdig aus

[Delphi.Narium]

Zitat von Hobbycoder:

Hm...würde mir einer mal erklären, warum BeginUpdate und EndUpdate einer ListView nicht ausreichen, und zusätzlich noch das Minimize btw. Restore mehr Geschwindigkeit bringen soll?

Weil dann jegliche Aktuallisierung des Bildschirmes / der Anzeige wegfällt. Und das dauert unter Windows halt.

Ist 'ne langjährige praktische Erfahrung / Beobachtung, die man halt ausnützen kann, wenn was schneller gehen soll.

Und ja @DieDolly, anwenderfreundlich ist was anderes

[KodeZwerg]

Delphi-Quellcode:

procedure TfrmMain.StartIcons();
begin
  TThread.CreateAnonymousThread(procedure ()
    var
      LIcon: TIcon;
      I: Integer;
      dummy: Word;
    begin
      dummy := 0;
      LIcon := TIcon.Create;
      LIcon.Transparent := True;
      try
        lvFiles.Update;
        FileIcons.BeginUpdate;
        for i := 0 to lvFiles.Items.Count -1 do
          begin
            LIcon.Handle := ExtractAssociatedIcon( hInstance, PWideChar( lvFiles.Items.Item[ i ].Caption ), dummy );
            LIcon.Transparent := True;
            lvFiles.Items.Item[ i ].ImageIndex := FileIcons.AddIcon( LIcon );
            DestroyIcon( LIcon.Handle );
          end;
        TThread.Synchronize (TThread.CurrentThread, procedure ()
          begin
          end);
      finally
        FileIcons.EndUpdate;
        LIcon.Free;
      end;
    end).Start;
end;

Ich habe die Idee mit Thread mal auf diese Weise ausprobiert, also Geschwindigkeit boost ohne ende, aber irgendwas mach ich da noch falsch, jetzt werden viele Icons nicht korrekt geladen.

[DeddyH]

Niemals unsynchronisiert aus einem Thread heraus auf VCL-Controls zugreifen, das ist eine uralte Weisheit.

[EWeiss]

Zitat:

TThread.Synchronize (TThread.CurrentThread, procedure ()
begin
end);

Nun ja man muss da schon etwas zwischen pappen und zwar die Funktion die vom Mainthread verwendet wird um die Icons zu Zeichen.
Im Moment macht Synchronize gar nichts.

Und dann kannst du auch nicht sicher sein ob Synchronize das richtige ist denke mal nicht denn du möchtest ja nicht warten oder?
Denn dann dauert es wieder genauso lang.
Spiele mal mit Queue und Synchronize rum dann nimm das was am besten für dich ist.

gruss

[Daniel]

Wo kommt denn der Geschwindigkeitsvorteil her?
Vorher wurde alles im Mainthread gemacht, jetzt alles in einem einzigen Thread. Die Arbeit wurde 1:1 verlagert. Einen Vorteil hast Du doch erst, wenn Du mehrere Threads auf das Problem loslässt und somit mehrere Kerne nutzt.

[KodeZwerg]

Zitat von DeddyH:

Niemals unsynchronisiert aus einem Thread heraus auf VCL-Controls zugreifen, das ist eine uralte Weisheit.

Delphi-Quellcode:

procedure TfrmMain.StartIcons();
begin
  TThread.CreateAnonymousThread(procedure ()
    var
      LIcon: TIcon;
      I: Integer;
      dummy: Word;
    begin
      dummy := 0;
      LIcon := TIcon.Create;
      LIcon.Transparent := True;
      try
        lvFiles.Update;
        FileIcons.BeginUpdate;
        for i := 0 to lvFiles.Items.Count -1 do
        begin
          begin
            LIcon.Handle := ExtractAssociatedIcon( hInstance, PWideChar( lvFiles.Items.Item[ i ].Caption ), dummy );
            LIcon.Transparent := True;
          end;
        TThread.Synchronize (TThread.CurrentThread, procedure ()
          begin
            lvFiles.Items.Item[ i ].ImageIndex := FileIcons.AddIcon( LIcon );
          end);
        DestroyIcon( LIcon.Handle );
        end;
      finally
        FileIcons.EndUpdate;
        LIcon.Free;
      end;
    end).Start;
end;

Danke, ich habe es auf diese Weise korrigiert aber das Problem besteht immer noch, ich finde meinen Fehler nicht.

[Delphi.Narium]

DeddyHs Hinweis auf alle VCL-Controls anwenden und nicht nur auf eine Zeile?

[EWeiss]

Zitat:

Danke, ich habe es auf diese Weise korrigiert aber das Problem besteht immer noch, ich finde meinen Fehler nicht.

Lies noch mal meinen Beitrag..
Du verwendest SendMessage besser wäre PostMessage wenn du nicht warten willst.

Zitat:

DeddyHs Hinweis auf alle VCL-Controls anwenden und nicht nur auf eine Zeile?

Richtig der ganze kram mit dem Icon erstellen usw.. muss da rein.
Du kannst TThread wie eine normale procedure behandeln falls du das nicht weist.

Delphi-Quellcode:

TThread.Synchronize (TThread.CurrentThread, 
procedure ()
var
// Meine Variablen
begin
// Meine Funktion
end);

gruss