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

trunk/Forms/UFormImportFormats.pas

@@ -34 +34 @@
     procedure ListView1Data(Sender: TObject; Item: TListItem);
     procedure ListView1DblClick(Sender: TObject);
+    procedure ListView1KeyPress(Sender: TObject; var Key: char);
     procedure ListView1SelectItem(Sender: TObject; Item: TListItem;
       Selected: Boolean);
@@ -74 +75 @@
 begin
   AModify.Execute;
+end;
+
+procedure TFormImportFormats.ListView1KeyPress(Sender: TObject; var Key: char);
+begin
+  if Key = #27 then Close;
 end;