From c6a1a07dac7b7e9d04c25b9e5cec3aecdff93f93 Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Wed, 22 Jul 2015 08:27:15 +0000
Subject: [PATCH] LCL-Win32: Take care of standard style painting when reducing
 flicker in TListbox. Issue #28146, patch from wp.

git-svn-id: trunk@49561 -
---
 lcl/interfaces/win32/win32wsstdctrls.pp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lcl/interfaces/win32/win32wsstdctrls.pp b/lcl/interfaces/win32/win32wsstdctrls.pp
index 05a245a698..a7a0325e43 100644
--- a/lcl/interfaces/win32/win32wsstdctrls.pp
+++ b/lcl/interfaces/win32/win32wsstdctrls.pp
@@ -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