From c8713eb7869a3a2d83e4bdc3a6d1b15c8682269f Mon Sep 17 00:00:00 2001
From: vincents <vincents@lazarus-ide.org>
Date: Sat, 28 Jun 2008 18:51:39 +0000
Subject: [PATCH] LCL: fixed ofFileMustExist for non-UTF8 system charset.

git-svn-id: trunk@15606 -
---
 lcl/include/filedialog.inc | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lcl/include/filedialog.inc b/lcl/include/filedialog.inc
index 4828d75d55..491db19af7 100644
--- a/lcl/include/filedialog.inc
+++ b/lcl/include/filedialog.inc
@@ -193,7 +193,7 @@ end;
 
 function TOpenDialog.CheckFileMustExist(const AFileName: string): boolean;
 begin
-  if not FileExists(AFilename) then begin
+  if not FileExists(Utf8ToAnsi(AFilename)) then begin
     Result:=false;
     MessageDlg(rsfdFileMustExist,
                Format(rsfdFileNotExist,[AFileName]),mtError,
@@ -319,7 +319,7 @@ end;
 
 function TSelectDirectoryDialog.CheckFileMustExist(const AFilename: string): boolean;
 begin
-  if not DirPathExists(AFilename) then begin
+  if not DirPathExists(Utf8ToAnsi(AFilename)) then begin
     Result:=false;
     MessageDlg(rsfdDirectoryMustExist,
                Format(rsfdDirectoryNotExist,[AFileName]),mtError,