Resource

Resource Basics
Resource Name Area Information
Resource Version 1.0
Category Custom Thumbnail Info
Downloads 534
Release Date 3/30/2024 3:33:10 PM
 

Resource Details
Description This script displays some Area information;

e.g.
3 areas; 2 detected; 2 recognized
Installation Instructions na
Usage Instructions Select the script from the drop down in a custom thumb info line -> From Repository

or

1. Store the script on the local hard drive
2. Open the script in a text editor
3. Copy/Paste the content of the script to a custom thumb info line
Changes in this version na
Special Requirements
 

Author Information
Author Name IDimager
 

Script

 
%code
var
  AAreas: TCatalogAreas;
  AArea: TCatalogArea;
  i: Integer;
  AFaceCount, ARecognizedCount: Integer;
begin
  AAreas := TCatalogAreas.Create(TCatalogArea, '')
  try
    PublicCatalog.EnumAreasForImage(ImageItem, AAreas);

    AFaceCount := 0;
    ARecognizedCount := 0;
    for i := 0 to AAreas.Count - 1 do
    begin
      AArea := AAreas.Items[i];

      if AArea.IsFaceDetected then
        Inc(AFaceCount);

      if AArea.IsFaceRecognized then
        Inc(ARecognizedCount);
    end;

    result := IntToStrW(AAreas.Count) + ' areas; ' + IntToStrW(AFaceCount) + ' detected; ' + IntToStrW(ARecognizedCount) + ' recognized';
  finally
    AAreas.Free;
  end;
end;
%/code
Search for a resource

Categories

Catalog  (62)
Download Post  (0)
Download Pre  (1)
File System  (9)
Global Positioning (GPS)  (0)
Metadata  (25)
Version  (5)
Filter Script  (9)
Sort Script  (2)
Custom Thumbnail Info  (7)
Search Scripts  (14)
Thumbnail Selections  (1)
Artificial Intelligence  (2)
Video  (0)
Tutorials  (1)

Most recent submission

Switch OFF Assign Parent Labels for All Catalog Labels

Most popular

1. Full Exif Dump
2. Copy File Path to Clipboard
3. Import from sidecar XMP file

icon by Buddha in business