Changeset 184 for trunk/Forms/UFormAcronyms.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/UFormAcronyms.pas (modified) (9 diffs)

trunk/Forms/UFormAcronyms.pas

@@ -50 +50 @@
     procedure ListViewSort1Filter(ListViewSort: TListViewSort);
   private
+    FAcronyms: TAcronyms;
     MeaningCount: Integer;
     procedure FilterList(List: TListObject);
+    procedure SetAcronyms(AValue: TAcronyms);
     procedure UpdateAcronymsList;
   public
     FocusAcronym: TAcronymMeaning;
+    property Acronyms: TAcronyms read FAcronyms write SetAcronyms;
     procedure UpdateInterface;
   end;
@@ -147 +150 @@
     if FormAcronym.ShowModal = mrOk then begin
       FormAcronym.Save(TempEntry);
-      Meaning := Core.AcronymDb.AddAcronym(TempEntry.Name, TempEntry.Meaning);
+      Meaning := Acronyms.Db.AddAcronym(TempEntry.Name, TempEntry.Meaning);
       Meaning.Description := TempEntry.Description;
       Meaning.Categories.AssignFromStrings(TempEntry.Categories);
@@ -156 +159 @@
           TAcronymCategory(Meaning.Categories.Items[I]).AcronymMeanings.Add(Meaning);
 
-      Core.AcronymDb.Update;
+      Acronyms.Db.Update;
       UpdateAcronymsList;
       UpdateInterface;
@@ -193 +196 @@
         not FormMain.CompareStrings(TempEntry.Categories, TempCategories) then begin
           // TODO: Update item inplace if possible
-          Core.AcronymDb.RemoveMeaning(TAcronymMeaning(ListViewAcronyms.Selected.Data));
-          Meaning := Core.AcronymDb.AddAcronym(TempEntry.Name, TempEntry.Meaning);
+          Acronyms.Db.RemoveMeaning(TAcronymMeaning(ListViewAcronyms.Selected.Data));
+          Meaning := Acronyms.Db.AddAcronym(TempEntry.Name, TempEntry.Meaning);
           Meaning.Description := TempEntry.Description;
           Meaning.Categories.AssignFromStrings(TempEntry.Categories);
@@ -202 +205 @@
             if TAcronymCategory(Meaning.Categories.Items[I]).AcronymMeanings.IndexOf(Meaning) = -1 then
               TAcronymCategory(Meaning.Categories.Items[I]).AcronymMeanings.Add(Meaning);
-          Core.AcronymDb.Update;
+          Acronyms.Db.Update;
           UpdateAcronymsList;
           UpdateInterface;
@@ -222 +225 @@
     if MessageDlg(SRemoveAcronym, SRemoveAcronymQuery,
     TMsgDlgType.mtConfirmation, [mbCancel, mbOk], 0) = mrOk then begin
-      Core.AcronymDb.BeginUpdate;
+      Acronyms.Db.BeginUpdate;
       for I := ListViewAcronyms.Items.Count - 1 downto 0 do
         if ListViewAcronyms.Items[I].Selected then begin
           ListViewAcronyms.Items[I].Selected := False;
-          Core.AcronymDb.RemoveMeaning(TAcronymMeaning(ListViewAcronyms.Items[I].Data));
+          Acronyms.Db.RemoveMeaning(TAcronymMeaning(ListViewAcronyms.Items[I].Data));
         end;
       UpdateAcronymsList;
       UpdateInterface;
-      Core.AcronymDb.EndUpdate;
+      Acronyms.Db.EndUpdate;
     end;
   end;
@@ -287 +290 @@
 procedure TFormAcronyms.ListViewSort1Filter(ListViewSort: TListViewSort);
 begin
-  Core.AcronymDb.Acronyms.Sort(AcronymComparer);
-  Core.AcronymDb.AssignToList(ListViewSort1.List);
+  Acronyms.Db.Acronyms.Sort(AcronymComparer);
+  Acronyms.Db.AssignToList(ListViewSort1.List);
   MeaningCount := ListViewSort1.List.Count;
   FilterList(ListViewSort1.List);
@@ -322 +325 @@
 end;
 
+procedure TFormAcronyms.SetAcronyms(AValue: TAcronyms);
+begin
+  if FAcronyms = AValue then Exit;
+  FAcronyms := AValue;
+end;
+
 procedure TFormAcronyms.UpdateAcronymsList;
 begin
@@ -332 +341 @@
 procedure TFormAcronyms.UpdateInterface;
 begin
-  ARemove.Enabled := Assigned(Core.AcronymDb) and Assigned(ListViewAcronyms.Selected);
-  AModify.Enabled := Assigned(Core.AcronymDb) and Assigned(ListViewAcronyms.Selected);
-  AAdd.Enabled := Assigned(Core.AcronymDb);
+  ARemove.Enabled := Assigned(FAcronyms) and Assigned(ListViewAcronyms.Selected);
+  AModify.Enabled := Assigned(FAcronyms) and Assigned(ListViewAcronyms.Selected);
+  AAdd.Enabled := Assigned(FAcronyms);
   ASelectAll.Enabled := True;
 end;