From 4d2431babc995766e29a77cc9bce124823f7209d Mon Sep 17 00:00:00 2001
From: sekelsenmat <sekelsenmat@lazarus-ide.org>
Date: Tue, 22 Jun 2010 19:19:49 +0000
Subject: [PATCH] Patch from DRIGUS GmbH, improves TListView under WinCE

git-svn-id: trunk@26264 -
---
 lcl/interfaces/wince/wincewscustomlistview.inc | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lcl/interfaces/wince/wincewscustomlistview.inc b/lcl/interfaces/wince/wincewscustomlistview.inc
index 8f4fcbe5fd..9ede1f2b43 100644
--- a/lcl/interfaces/wince/wincewscustomlistview.inc
+++ b/lcl/interfaces/wince/wincewscustomlistview.inc
@@ -408,7 +408,7 @@ begin
   if not WSCheckHandleAllocated(ALV, 'BeginUpdate')
   then Exit;
 
-  inherited BeginUpdate(ALV);
+  SendMessage(ALV.Handle,WM_SETREDRAW,WPARAM(False),0);
 end;
 
 class procedure TWinCEWSCustomListView.EndUpdate(const ALV: TCustomListView);
@@ -416,7 +416,7 @@ begin
   if not WSCheckHandleAllocated(ALV, 'EndUpdate')
   then Exit;
 
-  inherited EndUpdate(ALV);
+  SendMessage(ALV.Handle,WM_SETREDRAW,WPARAM(True),0);
 end;
 
 class function TWinCEWSCustomListView.GetBoundingRect(const ALV: TCustomListView): TRect;