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: Stash context menu

Browse source
This commit is contained in:
Alexander Koblov 2026-06-11 21:53:56 +03:00
commit 818a171374
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/platform/uosforms.pas
View file

@ -798,6 +798,8 @@ begin
end;
end;
{$ELSE}
var
contextFiles: TFiles;
begin
if Files.Count = 0 then
begin
@ -808,7 +810,9 @@ begin
// Free previous created menu
FreeAndNil(ShellContextMenu);
// Create new context menu
contextFiles:= Files;
ShellContextMenu:= TShellContextMenu.Create(nil, Files, Background, UserWishForContextMenu);
frmMain.ActiveFrame.FileSource.QueryContextMenu(contextFiles, TPopupMenu(ShellContextMenu));
ShellContextMenu.OnClose := CloseEvent;
ShellContextMenu.PopUp(X, Y);
end;