1. Settings - Processing - Add
Name: Correct titles
Turn on "Button on the main form"
Script:
Code: Select all
procedure ProcessItem(aItem: TWmsScriptMediaItem);
begin
if Trim(aItem.Properties[mpiTitle]) = '' then
aItem.Properties[mpiTitle] := ''
end;
var
i: Integer;
MediaItemList: TWmsScriptMediaItemList;
begin
MediaItemList := WmsCurrentMediaListSelection;
if (MediaItemList.Count > 0) or (WmsCurrentMediaListItem <> nil) then begin
if MediaItemList.Count > 0 then try
WmsShowInformation('Correct titles...');
try
for i := 0 to MediaItemList.Count - 1 do
ProcessItem(MediaItemList[i])
finally
WmsHideInformation
end
finally
MediaItemList.Free
end else
ProcessItem(WmsCurrentMediaListItem);
WmsDatabaseAutoSave;
MessageDlg('Correction titles is successful.', mtInformation, mbOK, 0)
end else
MessageDlg('No selected in the list of media resources.', mtError, mbOK, 0);
ProcessMediaResult := True
end.
2. List [Photo] - right click - Select all - click "Correct titles"