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" }