From a014d395d9ec77d36677410c6031f8065ec1d670 Mon Sep 17 00:00:00 2001
From: Ansgar Becker <anse@heidisql.com>
Date: Thu, 28 Apr 2022 19:33:37 +0200
Subject: [PATCH] Issue #156: revert changes, needs more testing and some fixes

---
 source/main.dfm | 12 ---------
 source/main.pas | 69 -------------------------------------------------
 2 files changed, 81 deletions(-)

diff --git a/source/main.dfm b/source/main.dfm
index 9b52dea2..7604805c 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
@@ -2375,13 +2374,6 @@ object MainForm: TMainForm
       ImageName = 'icons8-close-button'
       OnExecute = actExitApplicationExecute
     end
-    object actFollowForeignKey: TAction
-      Category = 'Various'
-      Caption = 'Follow Foreign Key'
-      Hint = 'Follow foreign key to the linked table'
-      ImageIndex = 61
-      OnExecute = actFollowForeignKeyExecute
-    end
     object actCopy: TAction
       Category = 'Various'
       Caption = '&Copy'
@@ -3793,10 +3785,6 @@ object MainForm: TMainForm
     OnPopup = popupDataGridPopup
     Left = 200
     Top = 248
-    object FollowForeignKey: TMenuItem
-      Action = actFollowForeignKey
-      ShortCut = 32807
-    end
     object Copy3: TMenuItem
       Action = actCopy
     end
diff --git a/source/main.pas b/source/main.pas
index 38b56ed4..3f3cbf8e 100644
--- a/source/main.pas
+++ b/source/main.pas
@@ -190,7 +190,6 @@ type
     MainMenuFile: TMenuItem;
     FileNewItem: TMenuItem;
     MainMenuHelp: TMenuItem;
-    FollowForeignKey: TMenuItem;
     N1: TMenuItem;
     FileExitItem: TMenuItem;
     menuAbout: TMenuItem;
@@ -199,7 +198,6 @@ type
     PasteItem: TMenuItem;
     StatusBar: TStatusBar;
     ActionList1: TActionList;
-    actFollowForeignKey: TAction;
     actCopy: TAction;
     actPaste: TAction;
     actNewWindow: TAction;
@@ -956,7 +954,6 @@ type
     procedure ListTablesInitNode(Sender: TBaseVirtualTree; ParentNode,
       Node: PVirtualNode; var InitialStates: TVirtualNodeInitStates);
     procedure AnyGridAfterPaint(Sender: TBaseVirtualTree; TargetCanvas: TCanvas);
-    procedure actFollowForeignKeyExecute(Sender: TObject);
     procedure actCopyOrCutExecute(Sender: TObject);
     procedure actPasteExecute(Sender: TObject);
     procedure actSelectAllExecute(Sender: TObject);
@@ -1170,7 +1167,6 @@ type
       NewDPI: Integer);
     procedure menuCloseTabOnDblClickClick(Sender: TObject);
     procedure TimerRefreshTimer(Sender: TObject);
-    procedure AnyGridDblClick(Sender: TObject);
   private
     // Executable file details
     FAppVerMajor: Integer;
@@ -7704,7 +7700,6 @@ begin
   menuSQLHelpData.Enabled := InDataGrid;
   Refresh3.Enabled := InDataGrid;
   actGridEditFunction.Enabled := CellFocused;
-  actFollowForeignKey.Enabled := InDataGrid;
 
   if not CellFocused then
     Exit;
@@ -10327,12 +10322,6 @@ begin
 end;
 
 
-procedure TMainForm.AnyGridDblClick(Sender: TObject);
-begin
-  //if KeyPressed(VK_MENU) then // VK_MENU is Alt key
-    actFollowForeignKey.Execute;
-end;
-
 procedure TMainForm.AnyGridKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
 var
   g: TVirtualStringTree;
@@ -11263,64 +11252,6 @@ begin
 end;
 
 
-procedure TMainForm.actFollowForeignKeyExecute(Sender: TObject);
-var
-  CurrentControl: TWinControl;
-  Grid: TVirtualStringTree;
-  Results: TDBQuery;
-  RowNum: PInt64;
-  FocusedValue, FocusedColumnName, ForeignColumnName, ReferenceTable: String;
-  HasNulls: Boolean;
-  ForeignKey: TForeignKey;
-  i: Integer;
-  PDBObj: PDBObject;
-  DBObj: TDBObject;
-  Node: PVirtualNode;
-begin
-  CurrentControl := Screen.ActiveControl;
-  Grid := CurrentControl as TVirtualStringTree;
-  Results := GridResult(Grid);
-  RowNum := Grid.GetNodeData(Grid.FocusedNode);
-  Results.RecNo := RowNum^;
-  FocusedValue := Results.Col(Grid.FocusedColumn);
-  //get column name from header
-  FocusedColumnName := Grid.Header.Columns[Grid.FocusedColumn].Text;
-
-  //find foreign key for current column
-  for ForeignKey in ActiveDBObj.TableForeignKeys do begin
-    i := ForeignKey.Columns.IndexOf(DataGrid.Header.Columns[Grid.FocusedColumn].Text);
-    if i > -1 then begin
-      ForeignColumnName := ForeignKey.ForeignColumns[i];
-      ReferenceTable := ForeignKey.ReferenceTable;
-      break;
-    end;
-  end;
-  if ForeignColumnName = '' then begin
-    LogSQL(f_('Foreign key not found for column "%s"', [FocusedColumnName]), lcInfo);
-	exit;
-  end;
-  // jump to ReferenceTable
-  Node := GetNextNode(ListTables, nil);
-  while Assigned(Node) do begin
-    PDBObj := ListTables.GetNodeData(Node);
-    DBObj := PDBObj^;
-    if DBObj.Database + '.' + DBObj.Name = ReferenceTable then begin
-      ActiveDBObj := DBObj;
-	  break;
-	end;
-    Node := GetNextNode(ListTables, Node);
-  end;
-  // filter to show only rows linked by the foreign key
-  SynMemoFilter.UndoList.AddGroupBreak;
-  SynMemoFilter.Text := ForeignColumnName + ' = "' + FocusedValue + '"';
-  ToggleFilterPanel(True);
-  actApplyFilter.Execute;
-  // SynMemoFilter will be cleared and set value of asFilter (in HandleDataGridAttributes from DataGridBeforePaint)
-  AppSettings.SessionPath := GetRegKeyTable;
-  AppSettings.WriteString(asFilter, SynMemoFilter.Text);
-end;
-
-
 procedure TMainForm.actCopyOrCutExecute(Sender: TObject);
 var
   CurrentControl: TWinControl;