Resource Basics

Resource Details

Author Information

Script

  procedure HandleImage(AImage: TImageItem; ASelectGUIDs: TStringList);
  var
    AImg: TImageItem;
    i: Integer;
  begin
    for i := 0 to ActiveCollection.Items.Count - 1 do
    begin
      AImg := ActiveCollection.Items.Items[i];
      if AImg._SimilarityCode = AImage._SimilarityCode then
      begin
        ASelectGUIDs.Add(AImg.GUID);
      end;
    end;
  end;

var
  AGUIDList: TStringList;
  i: Integer;
begin
  if Selected.Count < 1 then
  begin
    Say('Please select at least one thumbnail to find similar images for.');
    exit;
  end;

  AGUIDList := TStringList.Create;

  for i := 0 to Selected.Count - 1 do
    HandleImage(Selected.Items[i], AGUIDList);

  if AGUIDList.Count > 0 then
    PublicBroadcastText(nil, 'SelectItemsByGUIDList', AGUIDList.CommaText);
  AGUIDList.Free;
end;