paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-06 19:20:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL-Win32: Keep TTrayIcon helper window hidden. Issue #41279, patch by Red_prig (Pavel).

Browse Source
This commit is contained in:
Juha 2025-02-01 02:37:46 +02:00
parent 1c2d94fa8c
commit 28578a1e6a
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/interfaces/win32/win32proc.pp
View File

@ -948,7 +948,8 @@ var
begin begin
Owner := GetWindow(Handle, GW_OWNER); Owner := GetWindow(Handle, GW_OWNER);
if (Owner <> 0) and (Owner <> PPopupOwnersWindowInfo(Param)^.AppHandle) then if (Owner <> 0) and (Owner <> PPopupOwnersWindowInfo(Param)^.AppHandle) then
PPopupOwnersWindowInfo(Param)^.OwnersList.Add(Pointer(Owner)); if (Windows.GetWindowLong(Owner,GWL_STYLE) and WS_VISIBLE<>0) then
PPopupOwnersWindowInfo(Param)^.OwnersList.Add(Pointer(Owner));
Result := True; Result := True;
end; end;