Changeset 148 for trunk/Forms/UFormAcronyms.pas

Timestamp:

Feb 6, 2017, 12:59:59 PM (7 years ago)

Author:

chronos

Message:

• Fixed: Update filtered acronyms in main window if they were changed in acronyms and categories window.

File:

• trunk/Forms/UFormAcronyms.pas (modified) (4 diffs)

trunk/Forms/UFormAcronyms.pas

@@ -156 +156 @@
           TAcronymCategory(Meaning.Categories.Items[I]).AcronymMeanings.Add(Meaning);
 
+      Core.AcronymDb.Update;
       UpdateAcronymsList;
       UpdateInterface;
@@ -201 +202 @@
             if TAcronymCategory(Meaning.Categories.Items[I]).AcronymMeanings.IndexOf(Meaning) = -1 then
               TAcronymCategory(Meaning.Categories.Items[I]).AcronymMeanings.Add(Meaning);
-
+          Core.AcronymDb.Update;
           UpdateAcronymsList;
           UpdateInterface;
@@ -221 +222 @@
     if MessageDlg(SRemoveAcronym, SRemoveAcronymQuery,
     TMsgDlgType.mtConfirmation, [mbCancel, mbOk], 0) = mrOk then begin
+      Core.AcronymDb.BeginUpdate;
       for I := ListViewAcronyms.Items.Count - 1 downto 0 do
         if ListViewAcronyms.Items[I].Selected then begin
@@ -228 +230 @@
       UpdateAcronymsList;
       UpdateInterface;
+      Core.AcronymDb.EndUpdate;
     end;
   end;