From 13e3cd5e977e4740b4985c71ca2b9c505a0d3d9c Mon Sep 17 00:00:00 2001
From: vincents <vincents@lazarus-ide.org>
Date: Tue, 28 Oct 2008 08:07:18 +0000
Subject: [PATCH] win32 interface: implement ListView.BeginUpdate and EndUpdate
 from JoshyFun (issue #12503)

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

diff --git a/lcl/interfaces/win32/win32wscustomlistview.inc b/lcl/interfaces/win32/win32wscustomlistview.inc
index 815526f8ec..9c4f15e3a9 100644
--- a/lcl/interfaces/win32/win32wscustomlistview.inc
+++ b/lcl/interfaces/win32/win32wscustomlistview.inc
@@ -500,7 +500,7 @@ begin
   if not WSCheckHandleAllocated(ALV, 'BeginUpdate')
   then Exit;
 
-  inherited BeginUpdate(ALV);
+  SendMessage(ALV.Handle,WM_SETREDRAW,WPARAM(False),0);
 end;
 
 class procedure TWin32WSCustomListView.EndUpdate(const ALV: TCustomListView);
@@ -508,7 +508,7 @@ begin
   if not WSCheckHandleAllocated(ALV, 'EndUpdate')
   then Exit;
 
-  inherited EndUpdate(ALV);
+  SendMessage(ALV.Handle,WM_SETREDRAW,WPARAM(True),0);
 end;
 
 class function TWin32WSCustomListView.GetBoundingRect(const ALV: TCustomListView): TRect;