paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-29 14:50:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Win32: Groupbox: Remove doubled code.

Browse Source 
git-svn-id: trunk@58494 -
This commit is contained in:
michl 2018-07-12 08:47:56 +00:00
parent 2bbe0a8cc7
commit 940d696a66
1 changed files with 1 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -515,14 +515,6 @@ end;
function GroupBoxWindowProc(Window: HWnd; Msg: UInt; WParam: Windows.WParam;
LParam: Windows.LParam): LResult; stdcall;
function EnabledPainted(AControl: TControl): Boolean;
begin
Result := AControl.Enabled;
if not Result or not Assigned(AControl.Parent) then Exit;
Result := EnabledPainted(AControl.Parent);
end;
var
Info: PWin32WindowInfo;
DC: HDC;
@ -556,7 +548,7 @@ begin
begin
Info := GetWin32WindowInfo(Window);
if Assigned(Info) and (Info^.WinControl is TCustomGroupBox)
and not EnabledPainted(Info^.WinControl) then
and not Info^.WinControl.IsEnabled then
begin
GroupBox := TCustomGroupBox(Info^.WinControl);
DC := Windows.GetDC(Window);