From 72a324323b45fbfc6fe7ec63d6e68d09583ccdb3 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sun, 24 Jun 2012 06:48:35 +0000
Subject: [PATCH] IDE: fixed comparing file names case insensitive

git-svn-id: trunk@37753 -
---
 ide/ideprocs.pp | 2 +-
 ide/project.pp  | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/ide/ideprocs.pp b/ide/ideprocs.pp
index 3c8a997027..1fa4964c74 100644
--- a/ide/ideprocs.pp
+++ b/ide/ideprocs.pp
@@ -371,7 +371,7 @@ begin
       // check if special file
       if (FileInfo.Name='.') or (FileInfo.Name='..') or (FileInfo.Name='') then
         continue;
-      if (AnsiCompareText(CaseInsensitiveFilename,FileInfo.Name)=0)
+      if (CompareFilenamesIgnoreCase(CaseInsensitiveFilename,FileInfo.Name)=0)
       and ((not IgnoreExact)
            or (CompareFilenames(CaseInsensitiveFilename,FileInfo.Name)<>0))
       then begin
diff --git a/ide/project.pp b/ide/project.pp
index 7bbb6d3c6f..91e12d9a7c 100644
--- a/ide/project.pp
+++ b/ide/project.pp
@@ -5544,7 +5544,7 @@ var
     if siffCaseSensitive in SearchFlags then
       Result:=SearchedFilename=AFilename
     else
-      Result:=AnsiCompareText(SearchedFilename,AFilename)=0;
+      Result:=CompareFilenamesIgnoreCase(SearchedFilename,AFilename)=0;
   end;
   
 begin