From 7b0a85df11932f4a5730f9c008928d7694b8d8d1 Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Thu, 9 Oct 2008 09:33:45 +0000
Subject: [PATCH] lcl: add TListItems.BeginUpdate, TListItems.EndUpdate with
 empty implementation to simplify delphi project conversion

git-svn-id: trunk@16941 -
---
 lcl/comctrls.pp           |  2 ++
 lcl/include/listitems.inc | 10 ++++++++++
 2 files changed, 12 insertions(+)

diff --git a/lcl/comctrls.pp b/lcl/comctrls.pp
index aaecc15a09..6b75927fb5 100644
--- a/lcl/comctrls.pp
+++ b/lcl/comctrls.pp
@@ -739,10 +739,12 @@ type
   public
     function Add: TListItem;
     procedure AddItem(AItem: TListItem);
+    procedure BeginUpdate;
     procedure Clear;
     constructor Create(AOwner : TCustomListView);
     destructor Destroy; override;
     procedure Delete(const AIndex : Integer);
+    procedure EndUpdate;
     function FindCaption(StartIndex: Integer; Value: string;
                      Partial, Inclusive, Wrap: Boolean;
                      PartStart: Boolean = True): TListItem;
diff --git a/lcl/include/listitems.inc b/lcl/include/listitems.inc
index 60809056b4..0bdaa27001 100644
--- a/lcl/include/listitems.inc
+++ b/lcl/include/listitems.inc
@@ -104,6 +104,11 @@ begin
   then FOwner.ItemInserted(AItem);
 end;
 
+procedure TListItems.BeginUpdate;
+begin
+  // todo:
+end;
+
 {------------------------------------------------------------------------------
    TListItems Clear
 ------------------------------------------------------------------------------}
@@ -121,6 +126,11 @@ begin
   TListItem(FItems.Items[AIndex]).Delete;
 end;
 
+procedure TListItems.EndUpdate;
+begin
+  // todo:
+end;
+
 {------------------------------------------------------------------------------}
 {   TListItems IntfCreateItem                                                  }
 {------------------------------------------------------------------------------}