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

win32: fix 2 typos

Browse Source 
git-svn-id: trunk@28152 -
This commit is contained in:
paul 2010-11-08 10:23:29 +00:00
parent f09ed2fb3c
commit 1e7ca80be4
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -517,7 +517,7 @@ begin
WM_CTLCOLORSTATIC:
begin
Info := GetWin32WindowInfo(HWND(LParam));
Result := Assigned(Info) and ThemeServices.ThemesAvailable and (Info^.WinControl.Color = AWinControl.Color);
Result := Assigned(Info) and ThemeServices.ThemesEnabled and (Info^.WinControl.Color = AWinControl.Color);
if Result then
begin
ThemeServices.DrawParentBackground(HWND(LParam), HDC(WParam), nil, False);
@ -1395,7 +1395,7 @@ begin
WM_CTLCOLORSTATIC:
begin
Info := GetWin32WindowInfo(HWND(LParam));
Result := Assigned(Info) and ThemeServices.ThemesAvailable and TCustomStaticText(Info^.WinControl).Transparent;
Result := Assigned(Info) and ThemeServices.ThemesEnabled and TCustomStaticText(Info^.WinControl).Transparent;
if Result then
begin
ThemeServices.DrawParentBackground(HWND(LParam), HDC(WParam), nil, False);