paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 17:39:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

win32: make r52296 #b33c0dba1b active only in a library. Issue #18624

Browse Source 
git-svn-id: trunk@52297 -
This commit is contained in:
ondrej 2016-05-10 19:38:50 +00:00
parent b33c0dba1b
commit d41a4438c1
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/win32/win32wsmenus.pp
View File

@ -1579,7 +1579,7 @@ const
);
begin
MenuHandle := APopupMenu.Handle;
if (Screen.ActiveCustomForm<>nil) and Screen.ActiveCustomForm.HandleAllocated then
if IsLibrary and (Screen.ActiveCustomForm<>nil) and Screen.ActiveCustomForm.HandleAllocated then
WinHandle:=Screen.ActiveCustomForm.Handle
else
WinHandle:=Win32WidgetSet.AppHandle;