paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 07:59:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

Merged revision(s) 51037 #cc42e8d513 from trunk:

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

git-svn-id: branches/fixes_1_6@51077 -
This commit is contained in:
maxim 2015-12-28 22:19:16 +00:00
parent a343109826
commit beecbb57ad
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;