Changeset 13 for trunk/UFormAcronym.pas

Timestamp:

Apr 28, 2016, 10:09:02 PM (8 years ago)

Author:

chronos

Message:

• Modified: Acronym meaning context items renamed to categories.
• Added: Ability to select categories for meanings.

File:

• trunk/UFormAcronym.pas (modified) (7 diffs)

trunk/UFormAcronym.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus,
-  StdCtrls, UAcronym;
+  StdCtrls, ActnList, UAcronym;
 
 type
@@ -14 +14 @@
 
   TFormAcronym = class(TForm)
+    ACategoryRemove: TAction;
+    ACategoryAdd: TAction;
+    ActionList1: TActionList;
+    Button1: TButton;
+    Button2: TButton;
     ButtonOk: TButton;
     ButtonCancel: TButton;
@@ -21 +26 @@
     Label2: TLabel;
     Label3: TLabel;
+    Label4: TLabel;
+    ListBox1: TListBox;
     MemoDescription: TMemo;
+    PopupMenuCategory: TPopupMenu;
+    procedure ACategoryAddExecute(Sender: TObject);
+    procedure ACategoryRemoveExecute(Sender: TObject);
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
     procedure FormShow(Sender: TObject);
+    procedure ListBox1SelectionChange(Sender: TObject; User: boolean);
   private
-    { private declarations }
+    procedure UpdateInterface;
   public
     procedure Load(Entry: TAcronymEntry);
@@ -40 +51 @@
 
 uses
-  UFormMain;
+  UFormMain, UFormCategorySelect;
+
+resourcestring
+  SCategory = 'Category';
+  SRemoveCategory = 'Remove categories';
+  SRemoveCategoryQuery = 'Do you really want to remove selected categories?';
 
 { TFormAcronym }
@@ -57 +73 @@
 end;
 
+procedure TFormAcronym.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 TFormAcronym.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 TFormAcronym.FormShow(Sender: TObject);
 begin
   FormMain.PersistentForm1.Load(Self);
+  UpdateInterface;
+end;
+
+procedure TFormAcronym.ListBox1SelectionChange(Sender: TObject; User: boolean);
+begin
+  UpdateInterface;
+end;
+
+procedure TFormAcronym.UpdateInterface;
+begin
+  ACategoryRemove.Enabled := ListBox1.ItemIndex <> -1;
 end;
 
@@ -67 +120 @@
   EditMeaning.Text := Entry.Meaning;
   MemoDescription.Text := Entry.Description;
+  ListBox1.Items.Assign(Entry.Categories);
 end;
 
@@ -74 +128 @@
   Entry.Meaning := EditMeaning.Text;
   Entry.Description := MemoDescription.Text;
+  Entry.Categories.Assign(ListBox1.Items);
 end;