Changeset 191 for trunk/Forms/UFormCheck.pas

Timestamp:

Jul 17, 2018, 9:58:21 AM (6 years ago)

Author:

chronos

Message:

• Added: Document check file open with .txt file extension filter.

File:

• trunk/Forms/UFormCheck.pas (modified) (3 diffs)

trunk/Forms/UFormCheck.pas

@@ -83 +83 @@
   SMissingAcronymSummary = 'Warning: Summary acronym %s with meaning "%s" missing from document body.';
   SPluralAcronym = 'Note: Acronym %s is defined as plural in document body.';
+  SSummaryAcronyms = 'Summary acronyms';
+  SContentAcronyms = 'Content acronyms';
 
 { TFormCheck }
@@ -140 +142 @@
   try
     FormAcronyms.Acronyms := AcronymDbContent.Acronyms;
+    FormAcronyms.Caption := SContentAcronyms;
     FormAcronyms.ShowModal;
   finally
@@ -153 +156 @@
   try
     FormAcronyms.Acronyms := AcronymDbSummary.Acronyms;
+    FormAcronyms.Caption := SSummaryAcronyms;
     FormAcronyms.ShowModal;
   finally