TListView

[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;