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

LCL-Win32: Take care of standard style painting when reducing flicker in TListbox. Issue #28146, patch from wp.

Browse Source 
git-svn-id: trunk@49561 -
This commit is contained in:
juha 2015-07-22 08:27:15 +00:00
parent d5a1ca25e1
commit c6a1a07dac
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -613,7 +613,8 @@ begin
Exit(DeliverMessage(WindowInfo^.WinControl, LMessage));
end;
WM_ERASEBKGND:
if WindowsVersion <= wvXP then // Standardbehavior for XP
if (WindowsVersion <= wvXP) or not ThemeServices.ThemesEnabled then
// Standardbehavior for XP, or no themes
Result := CallDefaultWindowProc(Window, Msg, WParam, LParam)
else
begin