Improving keyboard-based working

#738
FrankBijnen · Jan 25, 2025 · f051b61 · f051b61
1 parent dd5d270
commit f051b61
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 0 deletions.
diff --git a/Source/Main.dfm b/Source/Main.dfm
@@ -316,6 +316,7 @@ object FMain: TFMain
           OnEnter = EditQuickEnter
           OnExit = EditQuickExit
           OnKeyDown = EditQuickKeyDown
+          OnKeyPress = EditQuickKeyPress
         end
         object EditQuick: TEdit
           Left = 48
@@ -334,6 +335,7 @@ object FMain: TFMain
           OnEnter = EditQuickEnter
           OnExit = EditQuickExit
           OnKeyDown = EditQuickKeyDown
+          OnKeyPress = EditQuickKeyPress
         end
       end
       object MetadataList: TValueListEditor

diff --git a/Source/Main.pas b/Source/Main.pas
@@ -352,6 +352,7 @@   TFMain = class(TScaleForm)
     procedure CBoxETdirectKeyPress(Sender: TObject; var Key: Char);
     procedure MetadataListStringsChange(Sender: TObject);
     procedure MetadataListMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+    procedure EditQuickKeyPress(Sender: TObject; var Key: Char);
   private
     { Private declarations }
     ETBarSeriesFocal: TBarSeries;
@@ -2536,6 +2537,12 @@ procedure TFMain.EditQuickKeyDown(Sender: TObject; var Key: Word; Shift: TShiftS
   end;
 end;
 
+procedure TFMain.EditQuickKeyPress(Sender: TObject; var Key: Char);
+begin
+  if (Key = #13) then
+    Key := #0;
+end;
+
 procedure TFMain.ShowPreview;
 var
 {$IFDEF DEBUG_META}