From 4307af5b9a9e19c7a31731565b78384d1c0d4ac2 Mon Sep 17 00:00:00 2001
From: Primoz Gabrijelcic <primoz@gabrijelcic.org>
Date: Wed, 23 Aug 2017 18:57:17 +0200
Subject: [PATCH] removed dependency on private unit MSString

---
 .gitignore    | 3 ++-
 src/GpVCL.pas | 5 ++---
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/.gitignore b/.gitignore
index 711a737..f614a0f 100644
--- a/.gitignore
+++ b/.gitignore
@@ -1 +1,2 @@
-update.bat
\ No newline at end of file
+update.bat
+src/__history/
diff --git a/src/GpVCL.pas b/src/GpVCL.pas
index 7910ef2..9de3a81 100644
--- a/src/GpVCL.pas
+++ b/src/GpVCL.pas
@@ -272,7 +272,6 @@ implementation
   ShlObj,
   Themes,
   ActiveX,
-  MSString,
   GpProperty;
 
 type
@@ -893,8 +892,8 @@ procedure ChangeExtensionOnTypeChange(saveDialog: TFileSaveDialog);
   then
     Exit;
 
-  sPath := MakeSmartBackslash(ExtractFilePath(dlgFileName));
-  if AnsiSameText(sPath, MakeSmartBackslash (dlgFolderName)) then
+  sPath := IncludeTrailingPathDelimiter(ExtractFilePath(dlgFileName));
+  if AnsiSameText(sPath, IncludeTrailingPathDelimiter(dlgFolderName)) then
     sPath := '';
   sName := ExtractFileName(dlgFileName);
   sExt := ExtractFileExt(sName);