paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-05 20:37:19 +01:00
Code Issues Packages Projects Releases Wiki Activity

ShellListView: allow for case-sensitive masks. Issue #0029255. Patch by ruewa, modified by me.

Browse Source 
git-svn-id: trunk@51037 -
This commit is contained in:
bart 2015-12-26 12:30:59 +00:00
parent 0703a58eca
commit cc42e8d513
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/shellctrls.pas
View File

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