Changeset 674 for trunk/Settings.pas

Timestamp:

Jul 26, 2025, 8:45:36 AM (23 hours ago)

Author:

chronos

Message:

• Modified: Select dialog refactored for better readability.
• Modified: Evaluate Escape key in Settings dialog.

File:

• trunk/Settings.pas (modified) (3 diffs)

trunk/Settings.pas

@@ -7 +7 @@
   Directories, DrawDlg, ButtonC, KeyBindings, Languages, ListBoxEx,
   {$IFDEF DPI}Dpi.Forms, Dpi.Controls, Dpi.Graphics, Dpi.StdCtrls, System.UITypes{$ELSE}
-  Forms, Controls, Graphics, StdCtrls{$ENDIF};
+  Forms, Controls, Graphics, StdCtrls{$ENDIF}, Controls;
 
 type
@@ -46 +46 @@
     procedure FormPaint(Sender: TObject);
     procedure FormShow(Sender: TObject);
+    procedure ListKeyBindingsKeyDown(Sender: TObject; var Key: Word;
+      Shift: TShiftState);
     procedure ListKeyBindingsSelectionChange(Sender: TObject; User: Boolean);
     procedure ButtonOkClick(Sender: TObject);
@@ -298 +300 @@
 end;
 
+procedure TSettingsDlg.ListKeyBindingsKeyDown(Sender: TObject; var Key: Word;
+  Shift: TShiftState);
+begin
+  KeyDown(Key, Shift);
+end;
+
 procedure TSettingsDlg.ListKeyBindingsSelectionChange(Sender: TObject;
   User: Boolean);