FMX Listbox total lahm

[wurzelzwerg]

OK, hier mal das Miniprojekt.
Und die PC-Daten:
AMD 64X2 Dual
4200+
2,21 GHz
2 GB
Windows XP SP3
GraKa: RadeonX1800GTO
256MB

Wo kann man den Treiber auslesen? Ich seh nur ATI-Display-Driver.

Auf meinem MacBookPro hab ich dasselbe Problem, OSX und WindowsXP.
Häng bitte mal eine .exe von dir ran, vielleicht geht die ja.

[Union]

Es scheint exponentiell von der Anzahl der Elemente der Listbox abzuhängen. Versuch es mal mit Begin/Endupdate, ich habe jetzt dabei eine Geschwindigkeitssteigerung um das 250-fache gemessen :

Code:

Listbox alClient (600x400) mit 1000 Elementen = 5223 ms
ListBox alClient (600x400) mit 2000 Elementen = 28809 ms

ListBox alClient (600x400) mit 2000 Elementen Begin/Endupdate = 109 ms
ListBox alClient (600x400) mit 8000 Elementen Begin/Endupdate = 1704 ms

Delphi-Quellcode:

procedure TfrmMain.FormCreate(Sender: TObject);
var
  i : integer;
  dtStart : TDateTime;
begin
  dtStart := Now;
  ListBox1.BeginUpdate;
  for i := 0 to 7999 do
    ListBox1.Items.Add(Format('%8.8d', [i]));
  ShowMessage(Format('%d', [MilliSecondsBetween(Now, dtStart)]));
  ListBox1.EndUpdate;
end;

Ich habe aber nur 32bit runtime. Hast Du vielleicht 64 erstellt? Das kann ich bei mir nicht testen.

[Union]

Ich habe Deine Anwendung getestet und nach 5 Minuten mit 100% CPU gekillt. Bei mir kompiliert das selbe. Dann Begin/EndUpdate eingefügt. 3160 ms.

[wurzelzwerg]

Komisch. Was ist denn zu deinem ersten Test anders?

Mit Begin/Endupdate sind es jetzt 5219ms. Schon mal wesentlich besser. VCL: 1150ms
Das Scrollen in der Box ist aber auch keine Freude.

[Union]

Das Scrollen ist schon in qc. Der Unterschied zu heute nacht ist die Größe der Listbox. Die hatte ich einfach aus der Palett eingefügt und unverändert auf 100x100 gelassen.

Und hier sehen wir sehr schön den Unterschied zwischen dem bösen HEAVYWEIGHT:
Result := SendMessage(ListBox.Handle, LB_ADDSTRING, 0, Longint(PChar(S))); und dem tollen, neuen LIGHTWEIGHT:

Delphi-Quellcode:

Item := TListBoxItem.Create(FListBox);
try
  Item.Text := S;
  Result := FListBox.Count;
  FListBox.AddObject(Item);

[wurzelzwerg]

Hmm. Die Grösse macht bei mir keinen Unterschied.

[Union]

Und dann rate mal was TCustomListBox.Getcount macht

[generic]

Macht es Sinn 8000 Einträge in einer Listbox anzuzeigen?
Wer soll das alles lesen?
Wie lange soll das Dauern?
Der arme User bekommt bestimmt Gicht in den Fingern vom Mausrad drehen.