Changeset 85 for trunk/Forms/UFormCategories.pas

Timestamp:

Aug 8, 2016, 12:37:58 PM (8 years ago)

Author:

chronos

Message:

• Fixed: ESC and ENTER keys handling in some dialogs.

File:

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

trunk/Forms/UFormCategories.pas

@@ -33 +33 @@
     procedure FormShow(Sender: TObject);
     procedure ListViewCategoriesData(Sender: TObject; Item: TListItem);
+    procedure ListViewCategoriesDblClick(Sender: TObject);
+    procedure ListViewCategoriesKeyPress(Sender: TObject; var Key: char);
     procedure ListViewCategoriesSelectItem(Sender: TObject; Item: TListItem;
       Selected: Boolean);
@@ -130 +132 @@
 end;
 
+procedure TFormCategories.ListViewCategoriesDblClick(Sender: TObject);
+begin
+  AModify.Execute;
+end;
+
+procedure TFormCategories.ListViewCategoriesKeyPress(Sender: TObject;
+  var Key: char);
+begin
+  if Key = #27 then Close;
+end;
+
 procedure TFormCategories.ListViewCategoriesSelectItem(Sender: TObject; Item: TListItem;
   Selected: Boolean);