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: Context menu parent (fixes #208)

Browse source
This commit is contained in:
Alexander Koblov 2021-10-19 20:14:41 +03:00
commit f79147d9a9
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/platform/win/ushellcontextmenu.pas
View file

@ -505,7 +505,7 @@ constructor TShellContextMenu.Create(Parent: TWinControl; var Files: TFiles; Bac
var
UFlags: UINT = CMF_EXPLORE;
begin
FParent:= GetWindowHandle(Parent);
FParent:= GetControlHandle(Parent);
// Replace window procedure
{$PUSH}{$HINTS OFF}
OldWProc := WNDPROC(SetWindowLongPtr(FParent, GWL_WNDPROC, LONG_PTR(@MyWndProc)));
@ -523,7 +523,7 @@ begin
end;
try
try
FShellMenu1 := GetShellContextMenu(Parent.Handle, Files, Background);
FShellMenu1 := GetShellContextMenu(FParent, Files, Background);
if Assigned(FShellMenu1) then
begin
FShellMenu := CreatePopupMenu;