Changeset 184 for trunk/Forms/UFormMain.pas

Timestamp:

Jul 4, 2018, 2:05:48 PM (6 years ago)

Author:

chronos

Message:

• Added: New menu action Tools - Document check which shows a form for checking acronyms in text documents.
• Added: Remember dimensions of Import, Export and Settings forms.

File:

• trunk/Forms/UFormMain.pas (modified) (7 diffs)

trunk/Forms/UFormMain.pas

@@ -16 +16 @@
 
   TFormMain = class(TForm)
+    ADocumentCheck: TAction;
     AFilterEnabledCategories: TAction;
     AManageAcronym: TAction;
@@ -48 +49 @@
     MainMenu1: TMainMenu;
     MenuItem1: TMenuItem;
+    MenuItem2: TMenuItem;
+    MenuItem3: TMenuItem;
     MenuItemShowItemsWithoutFilter: TMenuItem;
     MenuItemStatusBar: TMenuItem;
@@ -98 +101 @@
     ToolButton8: TToolButton;
     ToolButton9: TToolButton;
+    procedure ADocumentCheckExecute(Sender: TObject);
     procedure AExitExecute(Sender: TObject);
     procedure AExportExecute(Sender: TObject);
@@ -175 +179 @@
 uses
   UFormImport, UFormSettings, UFormCategories, UFormAcronyms, UFormExport,
-  UFormImportSources, UFormAbout, UFormImportFormats, UCore;
+  UFormImportSources, UFormAbout, UFormImportFormats, UCore, UFormCheck;
 
 resourcestring
@@ -240 +244 @@
 begin
   Close;
+end;
+
+procedure TFormMain.ADocumentCheckExecute(Sender: TObject);
+begin
+  FormCheck := TFormCheck.Create(Self);
+  try
+    FormCheck.LoadConfig;
+    FormCheck.ShowModal;
+    FormCheck.SaveConfig;
+  finally
+    FreeAndNil(FormCheck);
+  end;
 end;
 
@@ -365 +381 @@
     if Assigned(ListViewAcronyms.Selected) then
       FormAcronyms.FocusAcronym := ListViewAcronyms.Selected.Data;
+    FormAcronyms.Acronyms := Core.AcronymDb.Acronyms;
     FormAcronyms.ShowModal;
     UpdateAcronymsList;
@@ -429 +446 @@
   FormAcronyms := TFormAcronyms.Create(Self);
   try
+    FormAcronyms.Acronyms := Core.AcronymDb.Acronyms;
     FormAcronyms.ShowModal;
     UpdateAcronymsList;