From 51476b65a5a9f4a1cf8ec3d9698783a3e71b15a8 Mon Sep 17 00:00:00 2001
From: DungSaga <dungsaga@users.noreply.github.com>
Date: Fri, 29 Apr 2022 15:58:01 +0700
Subject: [PATCH] remove shortcut "shift double click"

---
 source/main.dfm | 1 -
 source/main.pas | 8 --------
 2 files changed, 9 deletions(-)

diff --git a/source/main.dfm b/source/main.dfm
index cd9942c2..4a8da3b6 100644
--- a/source/main.dfm
+++ b/source/main.dfm
@@ -1247,7 +1247,6 @@ object MainForm: TMainForm
             OnChange = AnyGridChange
             OnColumnResize = DataGridColumnResize
             OnCreateEditor = AnyGridCreateEditor
-            OnDblClick = AnyGridDblClick
             OnEditCancelled = AnyGridEditCancelled
             OnEdited = AnyGridEdited
             OnEditing = AnyGridEditing
diff --git a/source/main.pas b/source/main.pas
index 5e0eca64..cd416e0c 100644
--- a/source/main.pas
+++ b/source/main.pas
@@ -1170,7 +1170,6 @@ type
       NewDPI: Integer);
     procedure menuCloseTabOnDblClickClick(Sender: TObject);
     procedure TimerRefreshTimer(Sender: TObject);
-    procedure AnyGridDblClick(Sender: TObject);
   private
     // Executable file details
     FAppVerMajor: Integer;
@@ -10338,13 +10337,6 @@ begin
   UpdateLineCharPanel;
 end;
 
-
-procedure TMainForm.AnyGridDblClick(Sender: TObject);
-begin
-  if actFollowForeignKey.Enabled and KeyPressed(VK_SHIFT) then
-    actFollowForeignKey.Execute;
-end;
-
 procedure TMainForm.AnyGridKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
 var
   g: TVirtualStringTree;