Explorar o código

Bug 1885: Local file panel ignored changes in latter case of files and folders

https://winscp.net/tracker/1885

Source commit: 207cc71723456d4c6224414390e8676c3e24664b
Martin Prikryl %!s(int64=5) %!d(string=hai) anos
pai
achega
96b538df29

+ 2 - 0
source/packages/filemng/DirView.pas

@@ -1487,7 +1487,9 @@ begin
         FChangeTimer.Interval := 0;
 
         EItems := TStringlist.Create;
+        EItems.CaseSensitive := True; // We want to reflect changes in file name case
         FItems := TStringlist.Create;
+        FItems.CaseSensitive := True;
         NewItems := TStringlist.Create;
 
         PUpdate := False;

+ 2 - 0
source/packages/filemng/DriveView.pas

@@ -1810,6 +1810,7 @@ begin {CallBackValidateDir}
       ParentDir := IncludeTrailingBackslash(NodePath(Node));
       {Build list of existing subnodes:}
       SubDirList := TStringList.Create;
+      SubDirList.CaseSensitive := True; // We want to reflect changes in subfolder name case
       while Assigned(WorkNode) do
       begin
         SubDirList.Add(TNodeData(WorkNode.Data).DirName);
@@ -1818,6 +1819,7 @@ begin {CallBackValidateDir}
       {Sorting not required, because the subnodes are already sorted!}
 
       SRecList := TStringList.Create;
+      SRecList.CaseSensitive := True;
       DosError := FindFirst(ApiPath(ParentDir + '*.*'), DirAttrMask, SRec);
       while DosError = 0 do
       begin