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

Win32: TGroupBox: Fixed wrong background color for inactive groupbox.

Browse Source 
git-svn-id: trunk@55442 -
This commit is contained in:
michl 2017-07-04 20:08:50 +00:00
parent d5349a31a7
commit 03442ee2a9
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

@ -542,7 +542,7 @@ begin
begin begin
GroupBox := TCustomGroupBox(Info^.WinControl); GroupBox := TCustomGroupBox(Info^.WinControl);
DC := Windows.GetDC(Window); DC := Windows.GetDC(Window);
SetBkColor(DC, GetSysColor(COLOR_BTNFACE)); SetBkMode(DC, TRANSPARENT);
SetTextColor(DC, GetSysColor(COLOR_GRAYTEXT)); SetTextColor(DC, GetSysColor(COLOR_GRAYTEXT));
SelectObject(DC, GroupBox.Font.Reference.Handle); SelectObject(DC, GroupBox.Font.Reference.Handle);
Flags := 0; Flags := 0;