paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-24 01:01:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: TGroupBox: Win32: Fix for doubled caption. Issue #31670

Browse Source 
git-svn-id: trunk@54623 -
This commit is contained in:
michl 2017-04-17 11:36:57 +00:00
parent 95312d4835
commit e0e21cd0d0
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

@ -541,7 +541,7 @@ begin
and not TCustomGroupBox(Info^.WinControl).Enabled then and not TCustomGroupBox(Info^.WinControl).Enabled then
begin begin
GroupBox := TCustomGroupBox(Info^.WinControl); GroupBox := TCustomGroupBox(Info^.WinControl);
DC := GetDC(Window); DC := Windows.GetDC(Window);
SetBkColor(DC, GetSysColor(COLOR_BTNFACE)); SetBkColor(DC, GetSysColor(COLOR_BTNFACE));
SetTextColor(DC, GetSysColor(COLOR_GRAYTEXT)); SetTextColor(DC, GetSysColor(COLOR_GRAYTEXT));
SelectObject(DC, GroupBox.Font.Reference.Handle); SelectObject(DC, GroupBox.Font.Reference.Handle);