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

LCL: Win32: Test IsEnableWindow before EnableWindow to prevent looping calls after Win 10 update 1803. Issue #33923. Patch by BrunoK

Browse Source 
git-svn-id: trunk@58511 -
This commit is contained in:
michl 2018-07-13 22:07:12 +00:00
parent 5763246b85
commit e10300985b
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/interfaces/win32/win32winapi.inc
View File

@ -1221,8 +1221,14 @@ end;
control.
------------------------------------------------------------------------------}
function TWin32WidgetSet.EnableWindow(HWnd: HWND; BEnable: Boolean): Boolean;
var
OldEnable: Boolean;
begin
Result := Boolean(Windows.EnableWindow(HWnd, BEnable));
OldEnable := IsWindowEnabled(HWnd);
if OldEnable <> BEnable then
Result := Boolean(Windows.EnableWindow(HWnd, BEnable))
else
Result := not OldEnable;
end;
{------------------------------------------------------------------------------