paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-14 03:00:20 +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 
(cherry picked from commit 28578a1e6a)
This commit is contained in:
Juha 2025-02-01 02:37:46 +02:00
parent 38930b91d5
commit 2d37241eff
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

@ -937,7 +937,8 @@ var
begin
Owner := GetWindow(Handle, GW_OWNER);
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;
end;