TImageEnMView.ImageFiltered

Declaration

property ImageFiltered[idx: Integer]: integer;

Description

Returns true if image idx is hidden due to the Filter property or OnFilter event.

Read-only

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

TImageEnMView.ImageFiltered