Changeset 145 for trunk/Forms/UFormImportSources.pas

Timestamp:

Jan 24, 2017, 1:55:43 PM (7 years ago)

Author:

chronos

Message:

• Added: Allow to disable selected acronym categories so acronyms without any enabled category won't be shown in main acronym search filter.

File:

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

trunk/Forms/UFormImportSources.pas

@@ -32 +32 @@
     MenuItem5: TMenuItem;
     MenuItem6: TMenuItem;
+    MenuItem7: TMenuItem;
     PopupMenuImportSource: TPopupMenu;
     ToolBar1: TToolBar;
@@ -182 +183 @@
   if Assigned(Item) and (Change = ctState) then begin
     TImportSource(Item.Data).Enabled := Item.Checked;
+    Core.AcronymDb.Modified := True;
   end;
 end;
@@ -226 +228 @@
 begin
   for I := ListView1.Items.Count - 1 downto 0 do
-  if ListView1.Items[I].Selected then
+  if ListView1.Items[I].Selected then begin
     TImportSource(ListView1.Items[I].Data).Enabled := False;
+    Core.AcronymDb.Modified := True;
+  end;
   UpdateList;
 end;
@@ -236 +240 @@
 begin
   for I := ListView1.Items.Count - 1 downto 0 do
-  if ListView1.Items[I].Selected then
+  if ListView1.Items[I].Selected then begin
     TImportSource(ListView1.Items[I].Data).Enabled := True;
+    Core.AcronymDb.Modified := True;
+  end;
   UpdateList;
 end;