Changeset 33 for trunk/Forms/UFormCategorySelect.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/UFormCategorySelect.pas (modified) (3 diffs)

trunk/Forms/UFormCategorySelect.pas

@@ -18 +18 @@
     ListBox1: TListBox;
     procedure FormShow(Sender: TObject);
+    procedure ListBox1DblClick(Sender: TObject);
+    procedure ListBox1KeyPress(Sender: TObject; var Key: char);
   private
     { private declarations }
@@ -26 +28 @@
 var
   FormCategorySelect: TFormCategorySelect;
+
+resourcestring
+  SCategory = 'Category';
+  SRemoveCategory = 'Remove categories';
+  SRemoveCategoryQuery = 'Do you really want to remove selected categories?';
 
 implementation
@@ -38 +45 @@
 procedure TFormCategorySelect.FormShow(Sender: TObject);
 begin
+end;
+
+procedure TFormCategorySelect.ListBox1DblClick(Sender: TObject);
+begin
+  ButtonOk.Click;
+end;
+
+procedure TFormCategorySelect.ListBox1KeyPress(Sender: TObject; var Key: char);
+begin
+  if Key = #13 then ButtonOk.Click;
 end;