removed dependency on private unit MSString

gabr42 · Aug 23, 2017 · 4307af5 · 4307af5
1 parent 54c2b37
commit 4307af5
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/.gitignore b/.gitignore
@@ -1 +1,2 @@
-update.bat
+update.bat
+src/__history/
diff --git 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);