From cc42e8d513ec27cfacbb15078cc5de82f36120e5 Mon Sep 17 00:00:00 2001
From: bart <9132501-flyingsheep@users.noreply.gitlab.com>
Date: Sat, 26 Dec 2015 12:30:59 +0000
Subject: [PATCH] ShellListView: allow for case-sensitive masks. Issue
 #0029255. Patch by ruewa, modified by me.

git-svn-id: trunk@51037 -
---
 lcl/shellctrls.pas | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/lcl/shellctrls.pas b/lcl/shellctrls.pas
index 5153656ba9..16b8f3693e 100644
--- a/lcl/shellctrls.pas
+++ b/lcl/shellctrls.pas
@@ -656,10 +656,16 @@ begin
   else MaskStr := AMask;
 
   // The string list implements support for multiple masks separated
-  // by semi-comma ";"
+  // by semi-colon ";"
   MaskStrings := TStringList.Create;
   FileTree:=TAvgLvlTree.Create(@STVCompareFiles);
   try
+    {$ifdef NotLiteralFilenames}
+    MaskStrings.CaseSensitive := False;
+    {$else}
+    MaskStrings.CaseSensitive := True;
+    {$endif}
+
     MaskStrings.Delimiter := ';';
     MaskStrings.DelimitedText := MaskStr;