TListView

[Herman Thiel]

Hallo
Ich verwende XE6 und in einem Projekt TListView zur Darstellung von ca. 15 Bildern (30 kB, 200 x 300 Pixel).
In der Windowsumgebung funktioniert alles sehr gut. Wenn ich aber das Programm auf dem Android Tablett laufen lasse, ruckelt die Scroll-Funktion und ist langsam.
Gibt es dafür eine Erklärung

[Daniel]

Moin,

wie setzt Du denn die Bilder in den ListView?

[Herman Thiel]

Hallo

Hier ist der gekürzte Quellcode. Die einzelnen Bilder werden umgehend dargestellt. Ich habe nur ein Problem mit dem Scrollen.

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
   LItem: TListViewItem;
   DocDir : string;
   Filelist : TStringDynArray;
   s,f : string;
begin
   DocDir := 'C:\Bild\';

   {$IF Defined(ANDROID)}
   DocDir := TPath.GetSharedDocumentsPath+'/';
   {$Endif}

   FileList := TDirectory.GetFiles(DocDir);
   for s in FileList do begin
      f := ExtractFileName(s);
      LItem := lvMitarbeiter.Items.Add;
      LItem.Bitmap.LoadFromFile(s);
      LItem.Text := f;
   end;
end;