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

trunk/Forms/UFormImportSources.pas

@@ -51 +51 @@
     procedure ListView1Data(Sender: TObject; Item: TListItem);
     procedure ListView1DblClick(Sender: TObject);
+    procedure ListView1KeyPress(Sender: TObject; var Key: char);
     procedure ListView1Resize(Sender: TObject);
     procedure ListView1SelectItem(Sender: TObject; Item: TListItem;
@@ -104 +105 @@
 begin
   AModify.Execute;
+end;
+
+procedure TFormImportSources.ListView1KeyPress(Sender: TObject; var Key: char);
+begin
+  if Key = #27 then Close;
 end;