mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Paste real files from clipboard (fixes #2651)

Browse source 
(cherry picked from commit a9b86231be)
This commit is contained in:
Alexander Koblov 2025-12-10 18:38:38 +03:00
commit facc368769
1 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/platform/uClipboard.pas
View file

@ -616,17 +616,20 @@ var
hGlobalBuffer: HGLOBAL;
pBuffer: LPVOID;
PreferredEffect: DWORD;
{
dataObj: IDataObject;
Medium: TSTGMedium;
ChosenFormat: TFormatETC;
hr: HRESULT;
HasVirtualFiles: Boolean;
}
begin
filenames := nil;
Result := False;
HasVirtualFiles := False;
// HasVirtualFiles := False;
ClipboardOp := ClipboardCopy;
{
// Try to get IDataObject from clipboard for virtual file support
hr := OleGetClipboard(dataObj);
if Succeeded(hr) and Assigned(dataObj) then
@ -734,8 +737,9 @@ begin
dataObj := nil;
end;
end;
}
// Fallback to standard CF_HDROP
// Use standard CF_HDROP
if OpenClipboard(0) = False then Exit;
try