From c730c47bd03c4c389a3da16f620efadb24c40cf4 Mon Sep 17 00:00:00 2001
From: lazarus <lazarus@lazarus-ide.org>
Date: Sun, 16 Jul 2000 12:39:53 +0000
Subject: [PATCH] Added procedure ListBox.Clear (changes made by christer,
 added to cvs by stoppok)

git-svn-id: trunk@5 -
---
 lcl/include/customlistbox.inc | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/lcl/include/customlistbox.inc b/lcl/include/customlistbox.inc
index 5ef98f4ec0..ade960d24b 100644
--- a/lcl/include/customlistbox.inc
+++ b/lcl/include/customlistbox.inc
@@ -171,4 +171,12 @@ begin
   CNSendMessage(LM_SETITEMINDEX, Self, Pointer(Val));
 end;
 
+{------------------------------------------------------------------------------}
+{  procedure TCustomListBox.Clear                                            }
+{------------------------------------------------------------------------------}
+procedure TCustomListBox.Clear;
+begin
+  FItems.Clear;
+end;
+