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

Merged revision(s) 54484 #7950eabf8d from trunk:

Browse Source 
win32: fix EnableChildWindows. Issue #31590
........

git-svn-id: branches/fixes_1_6@54491 -
This commit is contained in:
maxim 2017-03-27 22:25:39 +00:00
parent 8bc1f86675
commit 5b45f48de6
1 changed files with 5 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -314,15 +314,12 @@ begin
if WinControl.Controls[i] is TWinControl then if WinControl.Controls[i] is TWinControl then
begin begin
ChildControl := TWinControl(WinControl.Controls[i]); ChildControl := TWinControl(WinControl.Controls[i]);
if Enable then
begin
if ChildControl.Enabled then
EnableWindow(ChildControl.Handle, true);
end
else
EnableWindow(ChildControl.Handle, false);
EnableChildWindows(ChildControl, Enable); // Recursive call if not Enable or ChildControl.Enabled then
begin
EnableWindow(ChildControl.Handle, Enable and ChildControl.Enabled);
EnableChildWindows(ChildControl, Enable and ChildControl.Enabled); // Recursive call
end;
end; end;
end; end;
end; end;