TImageEnMView.ImageFiltered

Declaration

property ImageFiltered[Index: Integer]: Integer;

Description

Returns True if the image at Index is hidden due to the Filter property or OnFilter event.

Read-only

Demo

Demos\Multi\Filtering\Filtering.dpr

Example

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