From e390c989eb5febca79715f4960d8a68224a57be8 Mon Sep 17 00:00:00 2001
From: sekelsenmat <sekelsenmat@lazarus-ide.org>
Date: Mon, 17 Aug 2009 20:03:50 +0000
Subject: [PATCH] Small fix for TShellListView scrolling in wince dialogs

git-svn-id: trunk@21269 -
---
 lcl/interfaces/wince/wincewsdialogs.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lcl/interfaces/wince/wincewsdialogs.pp b/lcl/interfaces/wince/wincewsdialogs.pp
index 2a769b4e7d..6bb8161a13 100644
--- a/lcl/interfaces/wince/wincewsdialogs.pp
+++ b/lcl/interfaces/wince/wincewsdialogs.pp
@@ -203,7 +203,7 @@ begin
   ShellListView.Height := Height - ShellTreeView.Height - Panel.Height;
   ShellListView.Align := alClient;
   ShellListView.ShellTreeView := ShellTreeView;
-  ShellListView.ScrollBars := ssNone;
+  ShellListView.ScrollBars := ssVertical;
   ShellListView.OnSelectItem := HandleSelectItem;
 
   // TEdit for save dialog