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

LCL/Win32: Fix opening popup menu when Application.MainForm does not exist. Issue #39451. Patches by DeerLab and Iret Company.

Browse Source
This commit is contained in:
wp_xyz 2022-07-05 15:06:47 +02:00
parent 20d5f5d71a
commit 39a13d91bb
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/win32/win32callback.inc
View File

@ -2099,7 +2099,8 @@ begin
begin
TargetObject := GetPopMenuItemObject;
// Check if the menu was the maximized icon menu for an MDI child window and ignore it in that case
if (LoWord(LParam)=0) and (lWinControl=Application.MainForm) and (Application.MainForm.FormStyle=fsMDIForm) then
if (LoWord(LParam)=0) and (lWinControl=Application.MainForm) and
Assigned(Application.MainForm) and (Application.MainForm.FormStyle=fsMDIForm) then
begin
MaximizedActiveChild := False;
if SendMessage(Win32WidgetSet.MDIClientHandle, WM_MDIGETACTIVE, 0, Windows.WPARAM(@MaximizedActiveChild)) <> 0 then
@ -2121,7 +2122,8 @@ begin
begin
TargetObject := GetMenuItemObject((HIWORD(Integer(WParam)) and MF_POPUP) <> 0);
// Check if the menu was the maximized icon menu for an MDI child window and ignore it in that case
if (LoWord(Integer(WParam))=0) and (lWinControl=Application.MainForm) and (Application.MainForm.FormStyle=fsMDIForm) then
if (LoWord(Integer(WParam))=0) and (lWinControl=Application.MainForm) and
Assigned(Application.MainForm) and (Application.MainForm.FormStyle=fsMDIForm) then
begin
MaximizedActiveChild := False;
if SendMessage(Win32WidgetSet.MDIClientHandle, WM_MDIGETACTIVE, 0, Windows.WPARAM(@MaximizedActiveChild)) <> 0 then