Changeset 20 for trunk/Forms/UFormCategories.pas

Timestamp:

May 4, 2016, 6:50:29 PM (9 years ago)

Author:

chronos

Message:

• Added: Concept of ImportFormats and ImportSources to store information about multiple import sources.

File:

• trunk/Forms/UFormCategories.pas (modified) (3 diffs)

trunk/Forms/UFormCategories.pas

@@ -36 +36 @@
     { private declarations }
   public
+    Categories: TAcronymCategories;
     procedure UpdateList;
     procedure UpdateInterface;
@@ -53 +54 @@
   SCategory = 'Category';
   SCategoryQuery = 'Enter name of category';
-  SRemoveCategory = 'Remove category';
-  SRemoveCategoryQuery = 'Do you really want to remove category?';
+  SRemoveCategory = 'Remove categories';
+  SRemoveCategoryQuery = 'Do you really want to remove selected categories?';
   SCategoryAlreadyExists = 'Category %s already exists!';
 
@@ -95 +96 @@
 
 procedure TFormCategories.ARemoveExecute(Sender: TObject);
+var
+  I: Integer;
 begin
   if Assigned(ListViewCategories.Selected) then begin
     if MessageDlg(SRemoveCategory, SRemoveCategoryQuery,
     TMsgDlgType.mtConfirmation, [mbCancel, mbOk], 0) = mrOk then begin
-      FormMain.AcronymDb.Categories.Remove(ListViewCategories.Selected.Data);
+      for I := ListViewCategories.Items.Count - 1 downto 0 do
+      if ListViewCategories.Items[I].Selected then
+        Categories.Remove(ListViewCategories.Items[I].Data);
       UpdateList;
     end;