Resource Basics

Resource Details

Author Information

Script

var
  i: Integer;
  AImage: TImageItem;
  AVersion: TCatalogItem;
  AProgress: TxomProgress;
begin
  if not Ask2('Are you sure you want to remove all placeholders?', 'This script will remove all the placeholder assignments, where applicable, for the selected images. This can''t be undone.') then
    exit;
  AProgress := TxomProgress.Create(nil);
  AProgress.Caption := 'Define place holder';
  AProgress.Max := Selected.Count;
  AProgress.CanCancel := True;
  for i := 0 to Selected.Count - 1 do
  begin
    AProgress.Pos := i + 1;
    if AProgress.Cancel then
      break;
    AImage := Selected.Items[i];
    if AImage._IsVersion then
    begin
      AVersion := TCatalogItem.Create(nil);
      if Catalog.FindImageCombined(AImage, AVersion, False, vptNone) then
      begin
        // remove all placeholders for version
        Catalog.RemovePlaceHoldersOfVersion(AVersion);
      end;
      AVersion.Free;
    end;
  end;
  AProgress.Free;
end;