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

LCL: Win32: Groupbox disabled painted when parent is disabled.

Browse Source 
git-svn-id: branches/fixes_1_8@58495 -
This commit is contained in:
michl 2018-07-12 08:55:20 +00:00
parent fe48156563
commit edff405905
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/win32/win32wsstdctrls.pp
View File

@ -538,7 +538,7 @@ begin
begin
Info := GetWin32WindowInfo(Window);
if Assigned(Info) and (Info^.WinControl is TCustomGroupBox)
and not TCustomGroupBox(Info^.WinControl).Enabled then
and not Info^.WinControl.IsEnabled then
begin
GroupBox := TCustomGroupBox(Info^.WinControl);
DC := Windows.GetDC(Window);