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

win32 interface: disabling a control also disables its child windows, fixes bug #9733

Browse Source 
git-svn-id: trunk@13276 -
This commit is contained in:
vincents 2007-12-11 12:04:44 +00:00
parent 5bffa7b62a
commit 09ad30198a
1 changed files with 23 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -620,6 +620,26 @@ var
Windows.EnableWindow(Buddy, Enable);
end;
procedure EnableChildWindows(WinControl: TWinControl; Enable: boolean);
var
i : integer;
ChildControl: TWinControl;
begin
for i := 0 to WinControl.ControlCount-1 do begin
if WinControl.Controls[i] is TWinControl then begin
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);
end;
end;
end;
procedure DisposeComboEditWindowInfo(ComboBox: TCustomComboBox);
var
Buddy: HWND;
@ -1462,6 +1482,9 @@ begin
EnableApplicationWindows(Window);
end;
if assigned(lWinControl) then
EnableChildWindows(lWinControl, WParam<>0);
If (lWinControl is TCustomFloatSpinEdit) then
EnableFloatSpinEditBuddy(Window, WParam<>0);
// ugly hack to give bitbtns a nice look