From c57a3a8900dd99c8b6323dd99814a617e48e1718 Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Tue, 13 Jan 2009 18:17:40 +0000
Subject: [PATCH] Remove legacy, unused TTimer component

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

diff --git a/source/main.dfm b/source/main.dfm
index 4c4dec26..a5831ae8 100644
--- a/source/main.dfm
+++ b/source/main.dfm
@@ -6335,13 +6335,6 @@ object MainForm: TMainForm
       OnClick = menuOpenLogFolderClick
     end
   end
-  object TimerConnectErrorCloseWindow: TTimer
-    Enabled = False
-    Interval = 10
-    OnTimer = TimerConnectErrorCloseWindowTimer
-    Left = 39
-    Top = 269
-  end
   object TimerHost: TTimer
     Enabled = False
     Interval = 5000
diff --git a/source/main.pas b/source/main.pas
index c4b48f31..95abb9e1 100644
--- a/source/main.pas
+++ b/source/main.pas
@@ -280,7 +280,6 @@ type
     Markall3: TMenuItem;
     N15: TMenuItem;
     menuMaintenancea: TMenuItem;
-    TimerConnectErrorCloseWindow: TTimer;
     PopupMenuDropTable: TMenuItem;
     N17: TMenuItem;
     ListColumns: TVirtualStringTree;
@@ -599,7 +598,6 @@ type
     procedure EditQuery1Click(Sender: TObject);
     procedure Markall3Click(Sender: TObject);
     procedure ListTablesDblClick(Sender: TObject);
-    procedure TimerConnectErrorCloseWindowTimer(Sender: TObject);
     procedure QuickFilterClick(Sender: TObject);
     procedure selectall1Click(Sender: TObject);
     procedure popupResultGridPopup(Sender: TObject);
@@ -5161,16 +5159,6 @@ begin
 end;
 
 
-procedure TMainForm.TimerConnectErrorCloseWindowTimer(Sender: TObject);
-begin
-  // can't connect -> close MDI-Child
-  TimerConnectErrorCloseWindow.Enabled := false;
-  Showstatus('', 1);
-  ShowStatus( STATUS_MSG_READY );
-  close;
-end;
-
-
 {**
   Column-title clicked -> generate "ORDER BY"
 }