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

win32: don't hide non-LCL windows on page control page change

Browse Source 
git-svn-id: trunk@28678 -
This commit is contained in:
paul 2010-12-11 07:52:00 +00:00
parent b0c22d3462
commit f7e1630363
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/win32wsextctrls.pp
View File

@ -691,7 +691,8 @@ begin
// traverse children and hide them if needed
while OldPageHandle <> 0 do
begin
if (OldPageHandle <> NewPageHandle) and IsWindowVisible(OldPageHandle) then
// don't touch non-lcl windows
if (OldPageHandle <> NewPageHandle) and IsWindowVisible(OldPageHandle) and Assigned(GetProp(OldPageHandle, 'WinControl')) then
Windows.SetWindowPos(OldPageHandle, 0, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE or SWP_NOZORDER or SWP_HIDEWINDOW or SWP_NOACTIVATE);
OldPageHandle := GetNextWindow(OldPageHandle, GW_HWNDNEXT);
end;