Changeset 85 for trunk/Forms/UFormAcronyms.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/UFormAcronyms.pas (modified) (2 diffs)

trunk/Forms/UFormAcronyms.pas

@@ -40 +40 @@
     procedure ListViewAcronymsData(Sender: TObject; Item: TListItem);
     procedure ListViewAcronymsDblClick(Sender: TObject);
+    procedure ListViewAcronymsKeyPress(Sender: TObject; var Key: char);
     procedure ListViewAcronymsResize(Sender: TObject);
     procedure ListViewAcronymsSelectItem(Sender: TObject; Item: TListItem;
@@ -87 +88 @@
 begin
   AModify.Execute;
+end;
+
+procedure TFormAcronyms.ListViewAcronymsKeyPress(Sender: TObject; var Key: char
+  );
+begin
+  if Key = #27 then Close;
 end;