Changeset 191 for trunk/Forms

Timestamp:

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

Author:

chronos

Message:

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

Location:

trunk/Forms

Files:

• UFormCheck.lfm (modified) (2 diffs)
• UFormCheck.pas (modified) (3 diffs)

trunk/Forms/UFormCheck.lfm

@@ -1 +1 @@
 object FormCheck: TFormCheck
-  Left = 526
+  Left = 483
   Height = 635
-  Top = 222
+  Top = 257
   Width = 891
   Caption = 'Check document'
@@ -188 +188 @@
   end
   object OpenDialog1: TOpenDialog
+    DefaultExt = '.txt'
+    Filter = 'Text files (.txt)|*.txt|Any file|*.*'
     left = 116
     top = 493

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