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

win32: refactor checks in WM_NCPAINT to avoid redundancy

Browse Source 
git-svn-id: trunk@52630 -
This commit is contained in:
blikblum 2016-07-05 12:10:46 +00:00
parent 38240c91fc
commit df4030e5cf
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/win32callback.inc
View File

@ -2407,8 +2407,8 @@ begin
end;
WM_NCPAINT:
begin
if (lWinControl <> nil) and TWin32ThemeServices(ThemeServices).ThemesEnabled and
not (lWinControl is TCustomForm) and (lWinControl is TCustomControl) then
if TWin32ThemeServices(ThemeServices).ThemesEnabled and
(lWinControl is TCustomControl) and not (lWinControl is TCustomForm) then
begin
TWin32ThemeServices(ThemeServices).PaintBorder(lWinControl, True);
LMessage.Result := 0;