var
ChangeList: TTntStringList;
var
ConfigForm: TvxSceneForm;
OffsetLevel: TvxSpinBox;
CountryMapping: TvxCheckBox;
StateMapping: TvxCheckBox;
CityMapping: TvxCheckBox;
LocationMapping: TvxCheckBox;
function BuildForm: TvxSceneForm;
var
ALabel: TvxLabel;
begin
result := TvxSceneForm.Create(nil);
result.Caption := 'Places Hierarchy Mapping to Metadata';
ALabel := TvxLabel.Create(result.Root);
ALabel.Text := 'At what level below the Places category are your Countries? (1 = immediatly under Places):';
ALabel.TextAlign := vgTextAlignNear;
ALabel.Padding.Rect := vxRect(15, 35, 5, 5);
ALabel.Height := 40;
ALabel.Align := vaTop;
result.Root.AddObject(ALabel);
OffsetLevel := TvxSpinBox.Create(result.Root);
OffsetLevel.Min := 1;
OffsetLevel.Max := 5;
OffsetLevel.Value := ReadFromRegistry('ScriptPlacesHierarchy', 'OffsetLevel', 1);
OffsetLevel.Padding.Rect := vxRect(35, 5, result.Width * 0.3, 5);
OffsetLevel.Align := vaTop;
result.Root.AddObject(OffsetLevel);
CountryMapping := TvxCheckBox.Create(result.Root);
CountryMapping.Text := 'Map Country Catalog Labels';
CountryMapping.TextAlign := vgTextAlignNear;
CountryMapping.Padding.Rect := vxRect(35, 5, 5, 5);
CountryMapping.Align := vaTop;
CountryMapping.IsChecked := ReadFromRegistry('ScriptPlacesHierarchy', 'CountryMapping', Ord(PublicOptions.XMPSyncReadSettings.GEOLevel) >= Ord(glCountry)) = 1;
result.Root.AddObject(CountryMapping);
StateMapping := TvxCheckBox.Create(result.Root);
StateMapping.Text := 'Map State Catalog Labels';
StateMapping.TextAlign := vgTextAlignNear;
StateMapping.Padding.Rect := vxRect(45, 5, 5, 5);
StateMapping.Align := vaTop;
StateMapping.IsChecked := ReadFromRegistry('ScriptPlacesHierarchy', 'StateMapping', Ord(PublicOptions.XMPSyncReadSettings.GEOLevel) >= Ord(glState)) = 1;
result.Root.AddObject(StateMapping);
CityMapping := TvxCheckBox.Create(result.Root);
CityMapping.Text := 'Map City Catalog Labels';
CityMapping.TextAlign := vgTextAlignNear;
CityMapping.Padding.Rect := vxRect(55, 5, 5, 5);
CityMapping.Align := vaTop;
CityMapping.IsChecked := ReadFromRegistry('ScriptPlacesHierarchy', 'CityMapping', Ord(PublicOptions.XMPSyncReadSettings.GEOLevel) >= Ord(glCity)) = 1;
result.Root.AddObject(CityMapping);
LocationMapping := TvxCheckBox.Create(result.Root);
LocationMapping.Text := 'Map Location Catalog Labels';
LocationMapping.TextAlign := vgTextAlignNear;
LocationMapping.Padding.Rect := vxRect(65, 5, 5, 5);
LocationMapping.Align := vaTop;
LocationMapping.IsChecked := ReadFromRegistry('ScriptPlacesHierarchy', 'LocationMapping', Ord(PublicOptions.XMPSyncReadSettings.GEOLevel) >= Ord(glLocation)) = 1;
result.Root.AddObject(LocationMapping);
end;
procedure HandlePropMapping(AProp: TCatalogItemProp; ALocationLevel: Integer);
const
cCountryLevel = 0;
cStateLevel = 1;
cCityLevel = 2;
cLocationLevel = 3;
var
ANewLink: WideString;
begin
{
ALocationLevel:
0 = Country Level:
photoshop:Country,Iptc4xmpExt:LocationCreated.Iptc4xmpExt:CountryName,Iptc4xmpExt:LocationShown.Iptc4xmpExt:CountryName
1 = State Level:
photoshop:State,Iptc4xmpExt:LocationCreated.Iptc4xmpExt:ProvinceState,Iptc4xmpExt:LocationShown.Iptc4xmpExt:ProvinceState
2 = City Level:
photoshop:City,Iptc4xmpExt:LocationCreated.Iptc4xmpExt:City,Iptc4xmpExt:LocationShown.Iptc4xmpExt:City
3 = Location Level:
Iptc4xmpCore:Location,Iptc4xmpExt:LocationCreated.Iptc4xmpExt:Sublocation,Iptc4xmpExt:LocationShown.Iptc4xmpExt:Sublocation
}
ANewLink := AProp.PropXMPLink;
if (ALocationLevel = cCountryLevel) and (CountryMapping.IsChecked) then
ANewLink := 'photoshop:Country,Iptc4xmpExt:LocationCreated.Iptc4xmpExt:CountryName,Iptc4xmpExt:LocationShown.Iptc4xmpExt:CountryName'
else if (ALocationLevel = cStateLevel) and (StateMapping.IsChecked) then
ANewLink := 'photoshop:State,Iptc4xmpExt:LocationCreated.Iptc4xmpExt:ProvinceState,Iptc4xmpExt:LocationShown.Iptc4xmpExt:ProvinceState'
else if (ALocationLevel = cCityLevel) and (CityMapping.IsChecked) then
ANewLink := 'photoshop:City,Iptc4xmpExt:LocationCreated.Iptc4xmpExt:City,Iptc4xmpExt:LocationShown.Iptc4xmpExt:City'
else if (ALocationLevel = cLocationLevel) and (LocationMapping.IsChecked) then
ANewLink := 'Iptc4xmpCore:Location,Iptc4xmpExt:LocationCreated.Iptc4xmpExt:Sublocation,Iptc4xmpExt:LocationShown.Iptc4xmpExt:Sublocation';
if not WideSameText(ANewLink, AProp.PropXMPLink) then
begin
ChangeList.Values[AProp.GUID] := ANewLink;
end;
end;
procedure HandlePropsAtLevel(AProps: TCatalogItemProps; ALevel: Integer);
var
ASubs: TCatalogItemProps;
i: Integer;
begin
if ALevel >= OffsetLevel.Value then
begin
for i := 0 to AProps.Count - 1 do
HandlePropMapping(AProps.Items[i], ALevel - OffsetLevel.Value);
end;
// read subs for next level
for i := 0 to AProps.Count - 1 do
begin
ASubs := TCatalogItemProps.Create(TCatalogItemProp, '');
try
PublicCatalog.EnumPropsForParent(AProps.Items[i].GUID, ASubs, False, False);
HandlePropsAtLevel(ASubs, ALevel + 1);
finally
ASubs.Free;
end;
end;
end;
procedure HandleChangeList;
var
i: Integer;
AGUID, ANewLink: WideString;
AProps: TCatalogItemProps;
AProp: TCatalogItemProp;
ACheckList: TTntStringList;
AChecked: Boolean;
ARes: Integer;
begin
ACheckList := TTntStringList.Create;
AProps := TCatalogItemProps.Create(TCatalogItemProp, '');
try
for i := 0 to ChangeList.Count - 1 do
begin
AGUID := ChangeList.Names[i];
ANewLink := ChangeList.ValueFromIndex[i];
AProp := TCatalogItemProp.Create(AProps);
if Catalog.EnumProp(AGUID, AProp, False) then
begin
AProp.ParentXMPLinkAssign := True;
AProp.PropXMPLink := ANewLink;
ACheckList.AddObject('?' + PublicCatalog.PathNameForProp(AProp, '::', True), AProp);
end
else
AProp.Free;
end;
if Ask2('Would you line to update all ' + IntToStr(ACheckList.Count) + ' found Catalog Labels?', 'select No to manually select the Catalog Labels to update') then
begin
ARes := mrOk;
for i := 0 to ACheckList.Count - 1 do
ACheckList.Strings[i] := '1' + MidStr(ACheckList.Strings[i], 2, Length(ACheckList.Strings[i]));
end
else
begin
ARes := AskCustom(
'Select the labels to update...',
'',
'', // 'info text'
'', // 'check this'
AChecked,
ACheckList
);
end;
if ARes <> -1 then
begin
AHit := 0;
for i := 0 to ACheckList.Count - 1 do
begin
if LeftStr(ACheckList.Strings[i], 1) = '1' then
begin
AProp := TCatalogItemProp(ACheckList.Objects[i]);
PublicCatalog.UpdateProp(AProp);
AHit := AHit + 1;
end;
end;
if AHit > 0 then
begin
Say(IntToStr(AHit) + ' Catalog Label updated.');
end;
end;
finally
AProps.Free;
ACheckList.Free;
end;
end;
var
AProps: TCatalogItemProps;
begin
ChangeList := TTntStringList.Create;
ConfigForm := BuildForm;
try
ConfigForm.PrepareModal([mbOk, mbCancel]);
ConfigForm.ShowModal;
if ConfigForm.ModalResult = mrOk then
begin
WriteToRegistry('ScriptPlacesHierarchy', 'OffsetLevel', OffsetLevel.Value);
WriteToRegistry('ScriptPlacesHierarchy', 'CountryMapping', CountryMapping.IsChecked);
WriteToRegistry('ScriptPlacesHierarchy', 'StateMapping', StateMapping.IsChecked);
WriteToRegistry('ScriptPlacesHierarchy', 'CityMapping', CityMapping.IsChecked);
WriteToRegistry('ScriptPlacesHierarchy', 'LocationMapping', LocationMapping.IsChecked);
AProps := TCatalogItemProps.Create(TCatalogItemProp, '');
try
// read first level
PublicCatalog.EnumPropsForParent(PlacesGUID, AProps, False, False);
ChangeCount := 0;
HandlePropsAtLevel(AProps, 1);
finally
AProps.Free;
end;
if ChangeList.Count > 0 then
HandleChangeList
else
Say('No changes needed');
end;
finally
ConfigForm.Free;
ChangeList.Free;
end;
end;
|
