collapse ~ in few msgboxes

Alexey-T · Oct 27, 2022 · 3f5bf38 · 3f5bf38
1 parent 66e5592
commit 3f5bf38
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/app/formframe.pas b/app/formframe.pas
@@ -2807,7 +2807,7 @@ procedure TEditorFrame.DoFileReload_DisableDetectEncoding(Ed: TATSynEdit);
   if SFileName='' then exit;
   if Ed.Modified then
     if MsgBox(
-      Format(msgConfirmReopenModifiedTab, [ExtractFileName(SFileName)]),
+      Format(msgConfirmReopenModifiedTab, [AppCollapseHomeDirInFilename(SFileName)]),
       MB_OKCANCEL or MB_ICONWARNING
       ) <> ID_OK then exit;
 

diff --git a/app/formmain.pas b/app/formmain.pas
@@ -5560,7 +5560,7 @@ procedure TfmMain.DoFileReopen(Ed: TATSynEdit);
 
   if Ed.Modified and UiOps.ReloadUnsavedConfirm then
     if MsgBox(
-      Format(msgConfirmReopenModifiedTab, [fn]),
+      Format(msgConfirmReopenModifiedTab, [AppCollapseHomeDirInFilename(fn)]),
       MB_OKCANCEL or MB_ICONQUESTION
       ) <> ID_OK then exit;