Skip to content
Snippets Groups Projects
Commit 652cc447 authored by rswindell's avatar rswindell
Browse files

We don't actually need the OnExecute handlers for the log pause actions.

parent beb41114
No related branches found
No related tags found
No related merge requests found
......@@ -1034,6 +1034,12 @@ __fastcall TMainForm::TMainForm(TComponent* Owner)
listInit(&web_log_list, LINK_LIST_MUTEX);
listInit(&mail_log_list, LINK_LIST_MUTEX);
listInit(&services_log_list, LINK_LIST_MUTEX);
TelnetPause->DisableIfNoHandler=false;
MailPause->DisableIfNoHandler=false;
WebPause->DisableIfNoHandler=false;
FtpPause->DisableIfNoHandler=false;
ServicesPause->DisableIfNoHandler=false;
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::FileExitMenuItemClick(TObject *Sender)
......@@ -3852,33 +3858,8 @@ TFont* __fastcall TMainForm::LogAttributes(int log_level, TColor Color, TFont* F
return LogFont[log_level];
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::TelnetPauseExecute(TObject *Sender)
{
;
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::MailPauseExecute(TObject *Sender)
{
;
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::FtpPauseExecute(TObject *Sender)
{
;
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::ServicesPauseExecute(TObject *Sender)
{
;
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::WebPauseExecute(TObject *Sender)
{
;
}
//---------------------------------------------------------------------------
......@@ -14310,7 +14310,6 @@ object MainForm: TMainForm
Enabled = False
Hint = 'Pause Telnet Server Logging'
ImageIndex = 67
OnExecute = TelnetPauseExecute
end
object TelnetStop: TAction
Enabled = False
......@@ -14351,7 +14350,6 @@ object MainForm: TMainForm
Enabled = False
Hint = 'Pause Mail Server Logging'
ImageIndex = 67
OnExecute = MailPauseExecute
end
object MailStop: TAction
Enabled = False
......@@ -14451,7 +14449,6 @@ object MainForm: TMainForm
Enabled = False
Hint = 'Pause FTP Server Logging'
ImageIndex = 67
OnExecute = FtpPauseExecute
end
object FtpStop: TAction
Enabled = False
......@@ -14519,7 +14516,6 @@ object MainForm: TMainForm
Enabled = False
Hint = 'Pause Services Logging'
ImageIndex = 67
OnExecute = ServicesPauseExecute
end
object ServicesStop: TAction
Caption = 'Stop'
......@@ -14553,7 +14549,6 @@ object MainForm: TMainForm
Enabled = False
Hint = 'Pause Web Server Logging'
ImageIndex = 67
OnExecute = WebPauseExecute
end
object WebStop: TAction
Caption = 'Stop'
......@@ -403,11 +403,6 @@ __published: // IDE-managed Components
void __fastcall WebConfigureExecute(TObject *Sender);
void __fastcall ViewServicesExecute(TObject *Sender);
void __fastcall SemFileTimerTick(TObject *Sender);
void __fastcall TelnetPauseExecute(TObject *Sender);
void __fastcall MailPauseExecute(TObject *Sender);
void __fastcall FtpPauseExecute(TObject *Sender);
void __fastcall ServicesPauseExecute(TObject *Sender);
void __fastcall WebPauseExecute(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TMainForm(TComponent* Owner);
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment