Resource

Resource Basics
Resource Name List Catalog Labels with Faces
Resource Version 1.0
Category Catalog
Downloads 508
Release Date 10/7/2024 9:00:18 PM
 

Resource Details
Description This script will show all Catalog Labels with their assigned images in a simple HTML table. The table is opened in a Web Browser so it can be printed etc.
Installation Instructions na
Usage Instructions 1. Download the script
2. Open the Scripter (Tools -> Scripter)
3. Run the script
Changes in this version na
Special Requirements
 

Author Information
Author Name IDimager
 

Script

 
var
  AProps: TCatalogItemProps;
  AProp: TCatalogItemProp;

  AHtml: TTntStringList;
begin
  AProps := TCatalogItemProps.Create(TCatalogItemProp, '');
  PublicCatalog.EnumPropsForParent(PeopleGUID, AProps, True, False);

  AProps.Disconnect;

  // remove props without image
  for i := AProps.Count - 1 downto 0 do
  begin
    AProp := AProps.Items[i];
    if AProp.Image.Size = 0 then
      AProp.Free;
  end;

  PublicCatalog.PathNameForProps(AProps, '::', False);
  // sort the props
  AProps.Sort('Name', stAscending);

  AHtml := TTntStringList.Create;

AHtml.Add('<html>');

AHtml.Add('<head>');

AHtml.Add('<style>');
AHtml.Add('body {font-family: helvetica; background-color: #000; color:#fff}');
AHtml.Add('.image   {background-color: #202020; text-align: center;}');
AHtml.Add('.name   {text-align: left; vertical-align: top;}');
AHtml.Add('.hierarchical   {text-align: left; vertical-align: top;}');
AHtml.Add('.faceimage   {max-width: 200px; max-height: 200px;}');

AHtml.Add('</style>');

AHtml.Add('</head>');

AHtml.Add('<body>');

  AHtml.Add('<h2>Catalog Labels with Faces</h2>');

  AHtml.Add('<table>');

    AHtml.Add('<tr>');

    AHtml.Add('<th class="image">');
    AHtml.Add('Image');
    AHtml.Add('</th>');

    AHtml.Add('<th class="name">');
    AHtml.Add('Name');
    AHtml.Add('</th>');

    AHtml.Add('<th class="hierarchical">');
    AHtml.Add('Hierarchical Name');
    AHtml.Add('</th>');

    AHtml.Add('</tr>');

  for i := 0 to AProps.Count - 1 do
  begin
    AProp := AProps.Items[i];

    AHtml.Add('<tr>');

    AHtml.Add('<td class="image">');
    AHtml.Add('<img class="faceimage" src="data:image/jpeg;base64,' + Base64EncodeStream(AProp.Image) + '">');
    AHtml.Add('</td>');

    AHtml.Add('<td class="name">');
    AHtml.Add(AProp.PropName);
    AHtml.Add('</td>');

    AHtml.Add('<td class="hierarchical">');
    AHtml.Add(AProp.Name);
    AHtml.Add('</td>');

    AHtml.Add('</tr>');
  end;
  AHtml.Add('</table>');

  AHtml.Add('</body>');
  AHtml.Add('</html>');

  AHtml.SaveToFile(WindowsTempDir + 'props.htm');
  ShellDoExecute(0, WindowsTempDir + 'props.htm');

  AHtml.Free;

  AProps.Free;
end;
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