From 2e38b8eeddc0886e00e29ce15a92d37a9a8c1ef6 Mon Sep 17 00:00:00 2001
From: maxim <maxim@lazarus-ide.org>
Date: Sun, 19 Jul 2015 11:38:11 +0000
Subject: [PATCH] Merged revision(s) 49543 #8f7215b840 from trunk:
 LazFileUtils: FileIsReadable on Windows should only return True if the file
 actually exists. ........

git-svn-id: branches/fixes_1_4@49558 -
---
 components/lazutils/winlazfileutils.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/components/lazutils/winlazfileutils.inc b/components/lazutils/winlazfileutils.inc
index d7760db446..faef9a65e7 100644
--- a/components/lazutils/winlazfileutils.inc
+++ b/components/lazutils/winlazfileutils.inc
@@ -1045,7 +1045,7 @@ end;
 
 function FileIsReadable(const AFilename: string): boolean;
 begin
-  Result:=true;
+  Result:=FileExistsUTF8(AFilename);
 end;
 
 function FileIsWritable(const AFilename: string): boolean;