FIX: Build under GTK2

(cherry picked from commit 4913c46b61)
This commit is contained in:
Alexander Koblov 2025-01-23 20:20:37 +03:00
commit e22bb3df89

View file

@ -434,11 +434,11 @@ begin
case TTargetId(info) of
tidTextUriList:
uriList := URIDecode(Trim(uriList));
uriList := Trim(uriList);
tidTextPlain:
// try decoding, as text/plain may also be percent-encoded
uriList := URIDecode(Trim(uriList));
uriList := Trim(uriList);
else
Exit; // not what we hoped for
@ -446,7 +446,7 @@ begin
end;
try
FileNamesList := ExtractFilenames(uriList);
FileNamesList := ExtractFilenames(uriList, True);
if Assigned(FileNamesList) and (FileNamesList.Count > 0) then
Result := DragDropTarget.GetDropEvent()(FileNamesList, DropEffect, CursorPosition);