Changeset 33 for trunk/Forms/UFormImportSource.pas

Timestamp:

Jul 13, 2016, 2:51:53 PM (8 years ago)

Author:

chronos

Message:

• Added: Now import sources have categories which are merged to new imported acronym meanings.

File:

• trunk/Forms/UFormImportSource.pas (modified) (7 diffs)

trunk/Forms/UFormImportSource.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  UAcronym;
+  ActnList, Menus, ExtCtrls, UAcronym;
 
 type
@@ -14 +14 @@
 
   TFormImportSource = class(TForm)
+    ACategoryAdd: TAction;
+    ACategoryRemove: TAction;
+    ActionList1: TActionList;
+    Bevel1: TBevel;
+    Button1: TButton;
+    Button2: TButton;
     ButtonShowFormat: TButton;
     ButtonOk: TButton;
@@ -24 +30 @@
     Label2: TLabel;
     Label3: TLabel;
+    Label4: TLabel;
+    ListBox1: TListBox;
+    MenuItem1: TMenuItem;
+    MenuItem2: TMenuItem;
+    PopupMenuCategory: TPopupMenu;
+    procedure ACategoryAddExecute(Sender: TObject);
+    procedure ACategoryRemoveExecute(Sender: TObject);
     procedure ButtonShowFormatClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
   private
     { private declarations }
   public
+    procedure UpdateInterface;
     procedure Load(ImportSource: TImportSource);
     procedure Save(ImportSource: TImportSource);
@@ -40 +55 @@
 
 uses
-  UFormMain, UFormImportFormat;
+  UFormMain, UFormImportFormat, UFormCategorySelect;
 
 { TFormImportSource }
@@ -62 +77 @@
 end;
 
+procedure TFormImportSource.FormShow(Sender: TObject);
+begin
+  UpdateInterface;
+end;
+
+procedure TFormImportSource.UpdateInterface;
+begin
+  ACategoryRemove.Enabled := ListBox1.ItemIndex <> -1;
+end;
+
+procedure TFormImportSource.ACategoryAddExecute(Sender: TObject);
+var
+  I: Integer;
+begin
+  FormCategorySelect.Load(ListBox1.Items);
+  if FormCategorySelect.ShowModal = mrOk then begin
+    for I := 0 to FormCategorySelect.ListBox1.Count - 1 do
+      if FormCategorySelect.ListBox1.Selected[I] then begin
+        ListBox1.Items.AddObject(FormCategorySelect.ListBox1.Items[I], FormCategorySelect.ListBox1.Items.Objects[I]);
+      end;
+  end;
+end;
+
+procedure TFormImportSource.ACategoryRemoveExecute(Sender: TObject);
+var
+  I: Integer;
+begin
+  if MessageDlg(SRemoveCategory, SRemoveCategoryQuery,
+  TMsgDlgType.mtConfirmation, [mbCancel, mbOk], 0) = mrOk then begin
+    for I := ListBox1.Items.Count - 1 downto 0 do
+    if ListBox1.Selected[I] then
+      ListBox1.Items.Delete(I);
+    UpdateInterface;
+  end;
+end;
+
 procedure TFormImportSource.Load(ImportSource: TImportSource);
 var
@@ -80 +131 @@
     ComboBox1.ItemIndex := 0;
   CheckBoxEnabled.Checked := ImportSource.Enabled;
+  ImportSource.Categories.AssignToStrings(ListBox1.Items);
 end;
 
@@ -88 +140 @@
   ImportSource.Format := TImportFormat(ComboBox1.Items.Objects[ComboBox1.ItemIndex]);
   ImportSource.Enabled := CheckBoxEnabled.Checked;
+  ImportSource.Categories.AssignFromStrings(ListBox1.Items);
 end;