Get current Portfolio Name or GUID?

[mjbiggs]

Hello

Is it possible to get the name or GUID of the currently selected Portfolio/Gallery/Collection?
When viewing the 'Portfolios' tab, I would like to get this data whether or not image(s) are selected.

[Hert]

Keep in mind that in the Catalog Explorer you can select multiple entries with the Ctrl (Windows) or Cmd (macOS) key. And in the ALL section, you can even select multiple entries from different sections.
Here's what could help you to identify what is selected in the left side Catalog Tree:

Code: Select all

var
  ATxt: TTntStringList;
  AGroup: TCatalogPropGroup;
begin
  AGroup := SearchGroup;

  ATxt := TTntStringList.Create;
  try
    ATxt.Add('Selected Catalog Label Categories: ' + IntToStr(AGroup.IncludeCats.Count));
    ATxt.Add('Selected Catalog Labels: ' + IntToStr(AGroup.IncludeProps.Count));
    ATxt.Add('Selected Portfolios: ' + IntToStr(AGroup.Albums.Count));
    ATxt.Add('Selected Portfolio Collections: ' + IntToStr(AGroup.Collections.Count));
    ATxt.Add('Selected Folders: ' + IntToStr(AGroup.FilePaths.Count));
    ATxt.Add('Selected TimeLine: ' + IntToStr(AGroup.CatalogPeriods.Count));
    ATxt.Add('Selected Ratings: ' + IntToStr(AGroup.Ratings.Count));
    ATxt.Add('Selected Color Labels (per 2): ' + IntToStr(AGroup.Labels.Count));
    ATxt.Add('Selected File Types: ' + IntToStr(AGroup.FileTypes.Count));
    ATxt.Add('Selected States: ' + IntToStr(AGroup.States.Count));

    Say(ATxt.Text);
  finally
    ATxt.Free;
  end;
end;

[mjbiggs]

That's great. Exactly what I was after. I am now able to retrieve the name and GUID data I was seeking.
Many thanks. Regards
Mike