From e307883ee0e3544febe67ff3655af48c57deca69 Mon Sep 17 00:00:00 2001
From: sekelsenmat <sekelsenmat@lazarus-ide.org>
Date: Sat, 1 May 2010 12:37:06 +0000
Subject: [PATCH] Makes the Items property public for TShellListView and
 TShellTreeView, fixes bug #15374

git-svn-id: trunk@25096 -
---
 lcl/shellctrls.pas | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/lcl/shellctrls.pas b/lcl/shellctrls.pas
index 5c184e91fa..aa7b288e7a 100644
--- a/lcl/shellctrls.pas
+++ b/lcl/shellctrls.pas
@@ -76,6 +76,9 @@ type
     property ObjectTypes: TObjectTypes read FObjectTypes write FObjectTypes;
     property ShellListView: TCustomShellListView read FShellListView write SetShellListView;
     property FileSortType: TFileSortType read FFileSortType write FFileSortType;
+
+    { Protected properties which users may want to access, see bug 15374 }
+    property Items;
   end;
 
   { TShellTreeView }
@@ -166,6 +169,8 @@ type
     property ObjectTypes: TObjectTypes read FObjectTypes write FObjectTypes;
     property Root: string read FRoot write SetRoot;
     property ShellTreeView: TCustomShellTreeView read FShellTreeView write SetShellTreeView;
+    { Protected properties which users may want to access, see bug 15374 }
+    property Items;
   end;
 
   { TShellListView }
@@ -197,7 +202,6 @@ type
 //    property HotTrack;
 //    property HotTrackStyles;
 //    property HoverTime;
-//    property Items;
     property LargeImages;
     property MultiSelect;
 //    property OwnerData;