Show paths with correct casing.

Author: DarkDaskin

VSTabPath/TabTitleManager.cs

@@ -86,11 +86,11 @@ private void InstallTabTitlePath(DocumentView view)
             if (!(bindingExpression?.DataItem is WindowFrame frame))
                 return;
 
-            var model = new TabModel(frame.FrameMoniker.Filename);
+            var model = new TabModel(FixFileNameCase(frame.FrameMoniker.Filename));
             frame.PropertyChanged += (sender, args) =>
             {
                 if (args.PropertyName == nameof(WindowFrame.AnnotatedTitle))
-                    model.FullPath = frame.FrameMoniker.Filename;
+                    model.FullPath = FixFileNameCase(frame.FrameMoniker.Filename);
             };
 
             _displayPathResolver.Add(model);
@@ -121,5 +121,21 @@ private static TProperty EnsurePropertyValue<T, TProperty>(T target, DependencyP
             }
             return value;
         }
+
+        private static string FixFileNameCase(string fileName)
+        {
+            try
+            {
+                var pathParts = fileName.Split(Path.DirectorySeparatorChar);
+                var fixedPath = pathParts[0].ToUpperInvariant() + "\\";
+                for (var i = 1; i < pathParts.Length; i++)
+                    fixedPath = Directory.GetFileSystemEntries(fixedPath, pathParts[i])[0];
+                return fixedPath;
+            }
+            catch
+            {
+                return fileName;
+            }
+        }
     }
 }