Listview mit Firemonkey

[Peter666]

Normalerweise ist das unsinnig. Es handelt sich Webcams, und die Datenbank die ich hier habe beinhaltet den Stream, einen Link zum aktuellen Screenshot, den Namen der CAM und eine kurze Erklärung. Leider ist das ganze nicht in Regionen aufgeteilt, so dass ich eventuell ein virtuelles Directory erstellen kann (quasi nach Region->Land->Stadt->Cams).
Für den Test habe ich erst einmal nur eine Liste gefüllt:

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var
  i: integer;
  item: TListViewItem;
begin
  ListView1.BeginUpdate;
  for i := 0 to 4000 do
  begin
    item := ListView1.Items.Add;
    item.Text := format('channel %d', [i]);
    item.Detail := 'lorem ipsum' + sLineBreak + 'lorem ipsum';
    item.Bitmap.SetSize(128,128);
    item.Bitmap.Clear($FFFF0000);
  end;
  ListView1.EndUpdate;
end;

Das dauert auf dem PC schon 3 Sekunden, auf einem Mobilgerät will ich das gar nicht erst probieren.

Peter