From 13302d5b2f4cd5beffbc1564f32df4ade4871a31 Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Fri, 19 Mar 2010 07:09:30 +0000
Subject: [PATCH] Remove empty and useless procedure

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

diff --git a/source/main.dfm b/source/main.dfm
index c1599e9e..7a5f58ba 100644
--- a/source/main.dfm
+++ b/source/main.dfm
@@ -7711,7 +7711,6 @@ object MainForm: TMainForm
   end
   object popupResultGrid: TPopupMenu
     Images = ImageListMain
-    OnPopup = popupResultGridPopup
     Left = 136
     Top = 96
     object Copy4: TMenuItem
diff --git a/source/main.pas b/source/main.pas
index 4aacc2d3..062dbb7c 100644
--- a/source/main.pas
+++ b/source/main.pas
@@ -566,7 +566,6 @@ type
     procedure TimerConnectedTimer(Sender: TObject);
     procedure Clear2Click(Sender: TObject);
     procedure QuickFilterClick(Sender: TObject);
-    procedure popupResultGridPopup(Sender: TObject);
     procedure AutoRefreshSetInterval(Sender: TObject);
     procedure AutoRefreshToggle(Sender: TObject);
     procedure SynMemoQueryDragOver(Sender, Source: TObject; X, Y: Integer;
@@ -4609,12 +4608,6 @@ begin
   ActiveQueryMemo.SetFocus;
 end;
 
-procedure TMainForm.popupResultGridPopup(Sender: TObject);
-begin
-  // data available?
-  // Save2CSV.enabled :=
-end;
-
 procedure TMainForm.AutoRefreshSetInterval(Sender: TObject);
 var
   seconds : String;