Changeset 97 for trunk/Forms/UFormCategories.pas

Timestamp:

Aug 22, 2016, 1:16:56 PM (8 years ago)

Author:

chronos

Message:

• Added: Add support for acronym category selection in import source format.
• Modified: Optimalized export speed.
• Fixed: Export to MediaWiki tables was not correctly generated for multi line strings.
• Fixed: Add back links from categories to import sources.
• Added: Multi select support in category list.

File:

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

trunk/Forms/UFormCategories.pas

@@ -15 +15 @@
   TFormCategories = class(TForm)
     AAdd: TAction;
+    ASelectAll: TAction;
     ARemove: TAction;
     AModify: TAction;
@@ -22 +23 @@
     MenuItem2: TMenuItem;
     MenuItem3: TMenuItem;
+    MenuItem4: TMenuItem;
     PopupMenuCategory: TPopupMenu;
     ToolBar1: TToolBar;
@@ -30 +32 @@
     procedure AModifyExecute(Sender: TObject);
     procedure ARemoveExecute(Sender: TObject);
+    procedure ASelectAllExecute(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure FormShow(Sender: TObject);
@@ -114 +117 @@
 end;
 
+procedure TFormCategories.ASelectAllExecute(Sender: TObject);
+var
+  I: Integer;
+begin
+  for I := 0 to ListViewCategories.Items.Count - 1 do
+    ListViewCategories.Items[I].Selected := True;
+end;
+
 procedure TFormCategories.FormCreate(Sender: TObject);
 var