ListBox.SelectAll dauert etwas länger

[Amateurprofi]

Ich habe eine TListBox mit Style=lbVirtualOwnerDraw mit ca. 50k Einträgen.
Wenn ich ein SelectAll mache dauert das etwas länger, und wenn das SelectAll
endlich fertig ist, werden die letzten Einträge der Liste angezeigt.
Ich möchte aber erstens, dass das ohne merkliche Verzögerung abläuft und dass
am Schluss die Einträge angezeigt werden, die vorher angezeigt wurden.
Vorerst habe ich das so gelöst:

Delphi-Quellcode:

var i:integer;
begin
   i:=ListBox.TopIndex;
   ListBox.Visible:=false; // Bei vielen Einträgen dauert SelectAll etwas länger
   ListBox.SelectAll;
   ListBox.TopIndex:=i;
   ListBox.Visible:=true;
end;

Das geht blitzartig und die Darstellung ist so, wie ich es möchte.
Mir gefällt aber das .Visible:=false und ab Schluss Visible:=true nicht.

Weiß jemand eine andere Lösung?

[Sir Rufo]

Versuch es mal mit

Delphi-Quellcode:

ListBox.Items.BeginUpdate;
try
  // hier jetzt selektieren
finally
  ListBox.Items.EndUpdate;
end;

[sx2008]

Und wenn der Code von Sir Rufo keine Besserung bringt (die Items werden ja nicht verändert sondern nur selektiert, was im Hintergrund wahrscheinlich zig1000 Messages verursacht) dann vielleicht dies:

Delphi-Quellcode:

// von TeamB
procedure LockControl(c: TWinControl; lock: boolean);
begin
   if (c = nil) or (c.Handle = 0) then exit;
   if lock then SendMessage(c.Handle, WM_SETREDRAW, 0, 0)
   else begin
      SendMessage(c.Handle, WM_SETREDRAW, 1, 0);
      RedrawWindow(c.Handle, nil, 0,
         RDW_ERASE or RDW_FRAME or RDW_INVALIDATE or RDW_ALLCHILDREN);
   end;
end;

LockControl(ListBox, True);
try
  ListBox.SelectAll;
  ListBox.TopIndex:=i;
finally
  LockControl(ListBox, False);
end;

[Furtbichler]

Das Problem sind die 50k Einträge. Da Fehler an der Wurzel gepackt werden sollen, setze hier an: An deinem GUI-Konzept ist was faul, denn wer scrollt schon durch 50k Einträge?

[Amateurprofi]

Zitat von Sir Rufo:

Versuch es mal mit

Delphi-Quellcode:

ListBox.Items.BeginUpdate;
try
  // hier jetzt selektieren
finally
  ListBox.Items.EndUpdate;
end;

Super, Sir Rufo,
funktioniert ganz hervorragend. Vielen Dank.

[Amateurprofi]

Zitat von Furtbichler:

Das Problem sind die 50k Einträge. Da Fehler an der Wurzel gepackt werden sollen, setze hier an: An deinem GUI-Konzept ist was faul, denn wer scrollt schon durch 50k Einträge?

Das ist nur deine Meinung.
Wenn die Entwickler auch dieser Meinung wären, dann
1) wären ListBoxen in ihrer Kapazität limitiert
2) gäbe es z.B. kein BeginnUpdate/EndUpdate, denn das wäre ja nicht nötig.

Warum, deiner Meinung nach, wurde die Limitierung von max 32767 Einträgen, die bis Windows 98 galt, aufgehoben?
Brauchst nicht anworten, das Problem ist gelöst.

[himitsu]

Zitat von Amateurprofi:

Warum, deiner Meinung nach, wurde die Limitierung von max 32767 Einträgen, die bis Windows 98 galt, aufgehoben?
Brauchst nicht anworten, das Problem ist gelöst.

Andere Speicherverwaltung?

Es muß also nicht unbedingt das Ziehl gewesen sein die Beschränkung aufzuheben ... dieses kann ausversehn mitgekommen sein.



z.B. die Limitierung beim Memo wurde dadurch aufgehoben, daß man von einem (vermutlich) statischen 64 KB-Puffer weggegangen ist.

[Furtbichler]

Zitat von Amateurprofi:

Das ist nur deine Meinung.

Äh. Nein.

Zitat:

Wenn die Entwickler auch dieser Meinung wären, dann...

Nuckelt an Fäkalien, 100 Mio Fliegen können nicht irren

Zitat:

Brauchst nicht anworten, das Problem ist gelöst.

Tu ich aber: Denk nach und lerne ein wenig über gutes GUI Deisgn.

[Dalai]

Zitat von Furtbichler:

Das Problem sind die 50k Einträge. Da Fehler an der Wurzel gepackt werden sollen, setze hier an: An deinem GUI-Konzept ist was faul, denn wer scrollt schon durch 50k Einträge?

Nun mal langsam. So ist diese Aussage zu pauschal, denn was ist mit Listen von Dateien/Verzeichnissen, die sicher eine solche Zahl erreichen können? Klar ist ein Scrollen durch eine solche Anzahl sicher nicht sinnvoll, aber das lässt sich ja anders lösen (im Explorer und auch im Total Commander kann man anfangen, den Dateinamen zu tippen).

MfG Dalai

[Popov]

Zitat von Furtbichler:

Das Problem sind die 50k Einträge. Da Fehler an der Wurzel gepackt werden sollen, setze hier an: An deinem GUI-Konzept ist was faul, denn wer scrollt schon durch 50k Einträge?

Ob es nun Sinn macht alles zu selektieren ist eine Frage für sich, aber die Frage nach 50k Einträgen sehe ich nicht als Problem an. Ich kenne Wörterbücher die zuerst einfach alle Wörter in einer Listbox listen und erst bei der ersten Eingabe anfangen zu filtern. Es ist deren Konzept. Andere teilen es in 26 Teile. Jedem das seine.