Resource

Resource Basics

Resource Name Filter Unavailable Files
Resource Version 1.0
Category Filter Script
Downloads 828
Release Date 9/28/2019 11:17:44 AM
 

Resource Details

Description This script will filter all images that are not available.

This includes:
1. files that no longer exist on the file system
2. files stored on media that are currently not attached
Installation Instructions Use in the Photo Supreme application.
Usage Instructions click FILTER->From Repository->Filter Unavailable Files
Changes in this version n.a.
Special Requirements
 

Author Information

Author Name IDimager Support
 

Script

(*
  Author: Hert

  Last Version: 1.0

  Version 1.0 - 2019-09-28
      * initial version
*)

function Initialize: Boolean;
begin
  Screen.Cursor := crHourglass;
  result := True;
end;

procedure Finalize;
begin
  Screen.Cursor := crDefault;
end;

function Filter(AItem: TImageItem): Boolean;
begin
  result := (not AItem.MediumLoaded) or
            (not WideFileExists(AItem.FileName));
end;