Update title of Snippet Information dialogue box

delphidabbler · delphidabbler · commit 485e0536cc43 · 2025-04-29T11:42:55.000+01:00
The title of the dialogue box was changed to display the name of the
snippet for which information is being displayed.
diff --git a/Src/USaveInfoMgr.pas b/Src/USaveInfoMgr.pas
@@ -151,6 +151,8 @@ destructor TSaveInfoMgr.Destroy;
 end;
 
 procedure TSaveInfoMgr.DoExecute;
+resourcestring
+  sDlgCaption = 'Save Snippet Information for %s';
 var
   Encoding: TEncoding;        // encoding to use for output file
   FileContent: string;        // output file content before encoding
@@ -164,6 +166,9 @@ procedure TSaveInfoMgr.DoExecute;
     1
   );
   fSaveDlg.FileName := fSourceFileInfo.DefaultFileName;
+  fSaveDlg.Title := Format(sDlgCaption, [
+    (fView as ISnippetView).Snippet.DisplayName]
+  );
   // Display dialog box and save file if user OKs
   if fSaveDlg.Execute then
   begin
@@ -269,7 +274,6 @@ constructor TSaveInfoMgr.InternalCreate(AView: IView);
   DlgHelpKeyword = 'SnippetInfoFileDlg';
 resourcestring
   sDefFileName = 'SnippetInfo';
-  sDlgCaption = 'Save Snippet Information';
   // descriptions of supported file filter strings
   sRTFDesc = 'Rich text file';
   sTextDesc = 'Plain text file';
@@ -312,7 +316,6 @@ constructor TSaveInfoMgr.InternalCreate(AView: IView);
   fSourceFileInfo.DefaultFileName := sDefFileName;
 
   fSaveDlg := TSaveSourceDlg.Create(nil);
-  fSaveDlg.Title := sDlgCaption;
   fSaveDlg.HelpKeyword := DlgHelpKeyword;
   fSaveDlg.CommentStyle := TCommentStyle.csNone;
   fSaveDlg.EnableCommentStyles := False;
