Changeset 148 for trunk/Forms/UFormCategories.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/UFormCategories.pas (modified) (3 diffs)

trunk/Forms/UFormCategories.pas

@@ -105 +105 @@
       TAcronymCategory(Core.AcronymDb.Categories[Core.AcronymDb.Categories.Add(TAcronymCategory.Create)]).Name := S;
       Core.AcronymDb.Modified := True;
+      Core.AcronymDb.Update;
       UpdateList;
     end else ShowMessage(Format(SCategoryAlreadyExists, [S]));
@@ -144 +145 @@
         TAcronymCategory(ListViewCategories.Selected.Data).Name := S;
         Core.AcronymDb.Modified := True;
+        Core.AcronymDb.Update;
         UpdateList;
       end else ShowMessage(Format(SCategoryAlreadyExists, [S]));
@@ -157 +159 @@
     if MessageDlg(SRemoveCategory, SRemoveCategoryQuery,
     TMsgDlgType.mtConfirmation, [mbCancel, mbOk], 0) = mrOk then begin
+      Categories.Db.BeginUpdate;
       for I := ListViewCategories.Items.Count - 1 downto 0 do
       if ListViewCategories.Items[I].Selected then
         Categories.Remove(ListViewCategories.Items[I].Data);
+      Categories.Db.EndUpdate;
       UpdateList;
     end;