From a5edfe5a9bd87c36a3ceee01f3811a20136966be Mon Sep 17 00:00:00 2001
From: vincents <vincents@lazarus-ide.org>
Date: Tue, 26 Aug 2008 22:42:11 +0000
Subject: [PATCH] LCL: fixed FileListBox.FileName property, if a directory is
 selected (issue #11965) from WhiteWind

git-svn-id: trunk@16260 -
---
 lcl/filectrl.pp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lcl/filectrl.pp b/lcl/filectrl.pp
index 4b738e2846..623eb2b672 100644
--- a/lcl/filectrl.pp
+++ b/lcl/filectrl.pp
@@ -352,10 +352,11 @@ begin
   if (i<0) or (i>=Items.Count) then
     FFileName := ''
   else begin
-    FFileName := FDirectory+DirectorySeparator+Items[i];
+    FFileName := Items[i];
     if (FFileName<>'')
     and (FFileName[1]='[') and (FFileName[length(FFileName)]=']') then
       FFileName:=copy(FFileName,2,length(FFileName)-2);
+    FFileName:= FDirectory+DirectorySeparator+FFileName;
   end;
   DoChangeFile;
 end;