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
| Demos\Multi\Filtering\Filtering.dpr |
// 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;
See Also
◼Filter◼FilterField◼OnFilter◼FilteredCount◼GetUnfilteredImage