// Show all unfiltered filenames procedure TMainForm.btnShowUnfilteredClick(Sender: TObject); const Max_Display_Count = 20; var fileNames: string; cnt: Integer; i: Integer; begin fileNames := ''; cnt := 0; for i := 0 to ImageEnMView1.ImageCount - 1 do if not ImageEnMView1.ImageFiltered[i] then begin // Or ImageEnMView1.ImageFilename[i] to output the filename fileNames := fileNames + #13#10 + ExtractFilename( ImageEnMView1.ImageFilename[i] ); inc(cnt); if cnt > Max_Display_Count then begin fileNames := fileNames + #13#10 + '...'; break; end; end;
if fileNames = '' then ShowMessage('No files are visible') else if ImageEnMView1.FilteredCount = ImageEnMView1.ImageCount then ShowMessage(format('All %d files are visible:', [ImageEnMView1.FilteredCount]) + #13#10 + fileNames) else ShowMessage(format('%d files are unfiltered:', [ImageEnMView1.FilteredCount]) + #13#10 + fileNames); end;