FIX: Drives bar right click properties missing functions (fixes #580)

(cherry picked from commit 664c3a32a5)
This commit is contained in:
Alexander Koblov 2022-09-13 19:56:54 +03:00
commit 0425317579

View file

@ -179,7 +179,7 @@ begin
(List + i)^ := tmpPIDL;
end;
if (Win32MajorVersion < 6) or (ASamePath) then
if (Win32MajorVersion < 6) or (ASamePath) or (Files.Count = 1) then
Folder.GetUIObjectOf(Handle, Files.Count, PItemIDList(List^), IID_IContextMenu, nil, Result)
else begin
AMenu:= Default(TDefContextMenu);