Skip to content
Snippets Groups Projects
Commit cb0c1e83 authored by Rob Swindell's avatar Rob Swindell :speech_balloon:
Browse files

Move all common sound (WAV) file configuration to its own dialog

Increment the version in the project file to v3.19a.
parent 053477fe
No related branches found
No related tags found
1 merge request!463MRC mods by Codefenix (2024-10-20)
Pipeline #1943 passed
Showing
with 487 additions and 491 deletions
......@@ -26,8 +26,8 @@
#include "MainFormUnit.h"
#include "FtpCfgDlgUnit.h"
#include "TextFileEditUnit.h"
#include "SoundCfgDlgUnit.h"
#include <stdio.h> // sprintf()
#include <mmsystem.h> // sndPlaySound()
//---------------------------------------------------------------------
#pragma resource "*.dfm"
TFtpCfgDlg *FtpCfgDlg;
......@@ -72,9 +72,6 @@ void __fastcall TFtpCfgDlg::FormShow(TObject *Sender)
MaxConConEdit->Text = AnsiString((int)MainForm->ftp_startup.max_concurrent_connections);
IndexFileNameEdit->Text=AnsiString(MainForm->ftp_startup.index_file_name);
AnswerSoundEdit->Text=AnsiString(MainForm->ftp_startup.sound.answer);
HangupSoundEdit->Text=AnsiString(MainForm->ftp_startup.sound.hangup);
HackAttemptSoundEdit->Text=AnsiString(MainForm->ftp_startup.sound.hack);
CmdLogCheckBox->Checked=MainForm->ftp_startup.options&FTP_OPT_DEBUG_RX;
DebugTxCheckBox->Checked=MainForm->ftp_startup.options&FTP_OPT_DEBUG_TX;
DebugDataCheckBox->Checked=MainForm->ftp_startup.options&FTP_OPT_DEBUG_DATA;
......@@ -135,13 +132,6 @@ void __fastcall TFtpCfgDlg::OKBtnClick(TObject *Sender)
SAFECOPY(MainForm->ftp_startup.index_file_name
,IndexFileNameEdit->Text.c_str());
SAFECOPY(MainForm->ftp_startup.sound.answer
,AnswerSoundEdit->Text.c_str());
SAFECOPY(MainForm->ftp_startup.sound.hangup
,HangupSoundEdit->Text.c_str());
SAFECOPY(MainForm->ftp_startup.sound.hack
,HackAttemptSoundEdit->Text.c_str());
if(DebugTxCheckBox->Checked==true)
MainForm->ftp_startup.options|=FTP_OPT_DEBUG_TX;
else
......@@ -183,35 +173,6 @@ void __fastcall TFtpCfgDlg::OKBtnClick(TObject *Sender)
}
//---------------------------------------------------------------------------
void __fastcall TFtpCfgDlg::AnswerSoundButtonClick(TObject *Sender)
{
OpenDialog->FileName=AnswerSoundEdit->Text;
if(OpenDialog->Execute()==true) {
AnswerSoundEdit->Text=OpenDialog->FileName;
sndPlaySound(OpenDialog->FileName.c_str(),SND_ASYNC);
}
}
//---------------------------------------------------------------------------
void __fastcall TFtpCfgDlg::HangupSoundButtonClick(TObject *Sender)
{
OpenDialog->FileName=HangupSoundEdit->Text;
if(OpenDialog->Execute()==true) {
HangupSoundEdit->Text=OpenDialog->FileName;
sndPlaySound(OpenDialog->FileName.c_str(),SND_ASYNC);
}
}
//---------------------------------------------------------------------------
void __fastcall TFtpCfgDlg::HackAttemptSoundButtonClick(TObject *Sender)
{
OpenDialog->FileName=HackAttemptSoundEdit->Text;
if(OpenDialog->Execute()==true) {
HackAttemptSoundEdit->Text=OpenDialog->FileName;
sndPlaySound(OpenDialog->FileName.c_str(),SND_ASYNC);
}
}
//---------------------------------------------------------------------------
void __fastcall TFtpCfgDlg::AutoIndexCheckBoxClick(TObject *Sender)
{
IndexFileNameEdit->Enabled=AutoIndexCheckBox->Checked;
......@@ -232,3 +193,11 @@ void __fastcall TFtpCfgDlg::AllowQWKCheckBoxClick(TObject *Sender)
}
//---------------------------------------------------------------------------
void __fastcall TFtpCfgDlg::ConfigureSoundButtonClick(TObject *Sender)
{
SoundCfgDlg->sound = &MainForm->ftp_startup.sound;
SoundCfgDlg->Caption = "FTP Server Sound Configuration";
SoundCfgDlg->ShowModal();
}
//---------------------------------------------------------------------------
object FtpCfgDlg: TFtpCfgDlg
Left = 1282
Top = 534
Left = 1021
Top = 407
BorderStyle = bsDialog
Caption = 'FTP Server Configuration'
ClientHeight = 245
......@@ -20,8 +20,8 @@ object FtpCfgDlg: TFtpCfgDlg
Top = 3
Width = 278
Height = 199
ActivePage = GeneralTabSheet
TabIndex = 0
ActivePage = SoundTabSheet
TabIndex = 4
TabOrder = 0
object GeneralTabSheet: TTabSheet
Caption = 'General'
......@@ -348,86 +348,14 @@ object FtpCfgDlg: TFtpCfgDlg
object SoundTabSheet: TTabSheet
Caption = 'Sound'
ImageIndex = 2
object AnswerSoundLabel: TLabel
Left = 7
Top = 10
Width = 65
Height = 20
AutoSize = False
Caption = 'Connect'
end
object HangupSoundLabel: TLabel
Left = 7
Top = 36
Width = 65
Height = 20
AutoSize = False
Caption = 'Disconnect'
end
object HackAttemptSoundLabel: TLabel
Left = 7
Top = 62
Width = 65
Height = 20
AutoSize = False
Caption = 'Hack Attempt'
end
object AnswerSoundEdit: TEdit
Left = 85
Top = 10
Width = 156
Height = 24
Hint = 'Sound file to play when users connect'
ParentShowHint = False
ShowHint = True
object ConfigureSoundButton: TButton
Left = 8
Top = 8
Width = 257
Height = 25
Caption = 'Configure Common Server Event Sounds'
TabOrder = 0
end
object AnswerSoundButton: TButton
Left = 247
Top = 10
Width = 20
Height = 21
Caption = '...'
TabOrder = 1
OnClick = AnswerSoundButtonClick
end
object HangupSoundEdit: TEdit
Left = 85
Top = 36
Width = 156
Height = 24
Hint = 'Sound file to play when users disconnect'
ParentShowHint = False
ShowHint = True
TabOrder = 2
end
object HangupSoundButton: TButton
Left = 247
Top = 36
Width = 20
Height = 21
Caption = '...'
TabOrder = 3
OnClick = HangupSoundButtonClick
end
object HackAttemptSoundEdit: TEdit
Left = 85
Top = 62
Width = 156
Height = 24
Hint = 'Sound file to play when hack attempts are detected'
ParentShowHint = False
ShowHint = True
TabOrder = 4
end
object HackAttemptSoundButton: TButton
Left = 247
Top = 62
Width = 20
Height = 21
Caption = '...'
TabOrder = 5
OnClick = HackAttemptSoundButtonClick
OnClick = ConfigureSoundButtonClick
end
end
end
......
......@@ -49,12 +49,6 @@ __published:
TCheckBox *DebugDataCheckBox;
TCheckBox *LogFileCheckBox;
TTabSheet *SoundTabSheet;
TLabel *AnswerSoundLabel;
TEdit *AnswerSoundEdit;
TButton *AnswerSoundButton;
TLabel *HangupSoundLabel;
TEdit *HangupSoundEdit;
TButton *HangupSoundButton;
TLabel *MaxClientesLabel;
TEdit *MaxClientsEdit;
TLabel *MaxInactivityLabel;
......@@ -75,9 +69,6 @@ __published:
TEdit *IndexFileNameEdit;
TLabel *QwkTimeoutLabel;
TEdit *QwkTimeoutEdit;
TLabel *HackAttemptSoundLabel;
TEdit *HackAttemptSoundEdit;
TButton *HackAttemptSoundButton;
TTabSheet *PasvTabSheet;
TLabel *PasvIpLabel;
TEdit *PasvIPv4AddrEdit;
......@@ -88,14 +79,13 @@ __published:
TCheckBox *PasvIpLookupCheckBox;
TLabel *MaxConConLabel;
TEdit *MaxConConEdit;
TButton *ConfigureSoundButton;
void __fastcall FormShow(TObject *Sender);
void __fastcall OKBtnClick(TObject *Sender);
void __fastcall AnswerSoundButtonClick(TObject *Sender);
void __fastcall HangupSoundButtonClick(TObject *Sender);
void __fastcall AutoIndexCheckBoxClick(TObject *Sender);
void __fastcall HackAttemptSoundButtonClick(TObject *Sender);
void __fastcall PasvIpLookupCheckBoxClick(TObject *Sender);
void __fastcall AllowQWKCheckBoxClick(TObject *Sender);
void __fastcall ConfigureSoundButtonClick(TObject *Sender);
private:
public:
virtual __fastcall TFtpCfgDlg(TComponent* AOwner);
......
......@@ -26,6 +26,7 @@
#include "MainFormUnit.h"
#include "MailCfgDlgUnit.h"
#include "TextFileEditUnit.h"
#include "SoundCfgDlgUnit.h"
#include <stdio.h> // sprintf()
#include <mmsystem.h> // sndPlaySound()
//---------------------------------------------------------------------
......@@ -494,3 +495,11 @@ void __fastcall TMailCfgDlg::TLSSubPortCheckBoxClick(TObject *Sender)
//---------------------------------------------------------------------------
void __fastcall TMailCfgDlg::ConfigureSoundButtonClick(TObject *Sender)
{
SoundCfgDlg->sound = &MainForm->mail_startup.sound;
SoundCfgDlg->Caption = "Mail Server Sound Configuration";
SoundCfgDlg->ShowModal();
}
//---------------------------------------------------------------------------
......@@ -53,8 +53,8 @@ object MailCfgDlg: TMailCfgDlg
Top = 3
Width = 278
Height = 199
ActivePage = GeneralTabSheet
TabIndex = 0
ActivePage = SoundTabSheet
TabIndex = 5
TabOrder = 3
object GeneralTabSheet: TTabSheet
Caption = 'General'
......@@ -502,7 +502,7 @@ object MailCfgDlg: TMailCfgDlg
Checked = True
ParentShowHint = False
ShowHint = True
TabOrder = 4
TabOrder = 3
TabStop = True
OnClick = DNSRadioButtonClick
end
......@@ -514,7 +514,7 @@ object MailCfgDlg: TMailCfgDlg
Hint = 'Host name or IP address of your ISP'#39's DNS server'
ParentShowHint = False
ShowHint = True
TabOrder = 6
TabOrder = 5
end
object TcpDnsCheckBox: TCheckBox
Left = 203
......@@ -536,7 +536,7 @@ object MailCfgDlg: TMailCfgDlg
Caption = 'Use Relay Server'
ParentShowHint = False
ShowHint = True
TabOrder = 5
TabOrder = 4
OnClick = DNSRadioButtonClick
end
object DeliveryAttemptsEdit: TEdit
......@@ -581,7 +581,7 @@ object MailCfgDlg: TMailCfgDlg
'efinite)'
ParentShowHint = False
ShowHint = True
TabOrder = 8
TabOrder = 6
end
end
object RelayTabSheet: TTabSheet
......@@ -793,6 +793,15 @@ object MailCfgDlg: TMailCfgDlg
TabOrder = 3
OnClick = OutboundSoundButtonClick
end
object ConfigureSoundButton: TButton
Left = 4
Top = 88
Width = 261
Height = 25
Caption = 'Configure Common Server Event Sounds'
TabOrder = 6
OnClick = ConfigureSoundButtonClick
end
end
object DNSBLTabSheet: TTabSheet
Caption = 'DNSBL'
......
......@@ -140,6 +140,7 @@ __published:
TLabel *TLSPOP3PortLabel;
TEdit *TLSPOP3PortEdit;
TCheckBox *TLSPOP3EnabledCheckBox;
TButton *ConfigureSoundButton;
void __fastcall InboundSoundButtonClick(TObject *Sender);
void __fastcall OutboundSoundButtonClick(TObject *Sender);
void __fastcall FormShow(TObject *Sender);
......@@ -154,6 +155,7 @@ __published:
void __fastcall RelayAuthRadioButtonClick(TObject *Sender);
void __fastcall UseSubPortCheckBoxClick(TObject *Sender);
void __fastcall TLSSubPortCheckBoxClick(TObject *Sender);
void __fastcall ConfigureSoundButtonClick(TObject *Sender);
private:
public:
virtual __fastcall TMailCfgDlg(TComponent* AOwner);
......
......@@ -44,6 +44,7 @@
#include "MailFormUnit.h"
#include "ServicesFormUnit.h"
#include "PropertiesDlgUnit.h"
#include "SoundCfgDlgUnit.h"
#include <mmsystem.h> // sndPlaySound()
//---------------------------------------------------------------------
#pragma resource "*.dfm"
......@@ -217,3 +218,12 @@ void __fastcall TPropertiesDlg::HelpBtnClick(TObject *Sender)
}
//---------------------------------------------------------------------------
void __fastcall TPropertiesDlg::ConfigureSoundButtonClick(TObject *Sender)
{
SoundCfgDlg->sound = &MainForm->global.sound;
SoundCfgDlg->Caption = "Server Event Sound Configuration";
SoundCfgDlg->ShowModal();
}
//---------------------------------------------------------------------------
object PropertiesDlg: TPropertiesDlg
Left = 688
Top = 261
Left = 1041
Top = 844
BorderStyle = bsDialog
Caption = 'Control Panel Properties'
ClientHeight = 234
......@@ -43,9 +43,9 @@ object PropertiesDlg: TPropertiesDlg
Top = 7
Width = 254
Height = 221
ActivePage = SettingsTabSheet
ActivePage = Sound
Anchors = [akLeft, akTop, akBottom]
TabIndex = 0
TabIndex = 5
TabOrder = 2
object SettingsTabSheet: TTabSheet
Caption = 'Settings'
......@@ -482,14 +482,6 @@ object PropertiesDlg: TPropertiesDlg
AutoSize = False
Caption = 'Temp Directory'
end
object ErrorSoundLabel: TLabel
Left = 7
Top = 114
Width = 65
Height = 20
AutoSize = False
Caption = 'Error Sound'
end
object CtrlDirEdit: TEdit
Left = 98
Top = 10
......@@ -541,7 +533,7 @@ object PropertiesDlg: TPropertiesDlg
Caption = 'Undockable Windows'
ParentShowHint = False
ShowHint = True
TabOrder = 6
TabOrder = 4
end
object FileAssociationsCheckBox: TCheckBox
Left = 7
......@@ -552,26 +544,7 @@ object PropertiesDlg: TPropertiesDlg
Caption = 'Use File Associations'
ParentShowHint = False
ShowHint = True
TabOrder = 7
end
object ErrorSoundEdit: TEdit
Left = 98
Top = 114
Width = 112
Height = 21
Hint = 'Sound file to play when an error condition is logged'
ParentShowHint = False
ShowHint = True
TabOrder = 4
end
object ErrorSoundButton: TButton
Left = 214
Top = 114
Width = 20
Height = 21
Caption = '...'
TabOrder = 5
OnClick = ErrorSoundButtonClick
end
end
object JavaScriptTabSheet: TTabSheet
......@@ -592,7 +565,7 @@ object PropertiesDlg: TPropertiesDlg
Height = 19
AutoSize = False
Caption = 'Context Stack'
Enabled = false
Enabled = False
end
object Label12: TLabel
Left = 7
......@@ -644,10 +617,10 @@ object PropertiesDlg: TPropertiesDlg
Width = 137
Height = 21
Hint = 'Size of context stack (in bytes)'
Enabled = False
ParentShowHint = False
ShowHint = True
TabOrder = 1
Enabled = false
end
object JS_TimeLimitEdit: TEdit
Left = 98
......@@ -694,6 +667,46 @@ object PropertiesDlg: TPropertiesDlg
TabOrder = 5
end
end
object Sound: TTabSheet
Caption = 'Sound'
ImageIndex = 5
object ErrorSoundLabel: TLabel
Left = 7
Top = 10
Width = 65
Height = 20
AutoSize = False
Caption = 'Error Sound'
end
object ConfigureSoundButton: TButton
Left = 8
Top = 40
Width = 225
Height = 25
Caption = 'Configure Common Server Event Sounds'
TabOrder = 0
OnClick = ConfigureSoundButtonClick
end
object ErrorSoundEdit: TEdit
Left = 72
Top = 10
Width = 138
Height = 21
Hint = 'Sound file to play when an error condition is logged'
ParentShowHint = False
ShowHint = True
TabOrder = 1
end
object ErrorSoundButton: TButton
Left = 214
Top = 10
Width = 20
Height = 21
Caption = '...'
TabOrder = 2
OnClick = ErrorSoundButtonClick
end
end
end
object HelpBtn: TButton
Left = 267
......
......@@ -109,9 +109,6 @@ __published:
TLabel *LogLevelLabel;
TLabel *Label16;
TEdit *JS_LoadPathEdit;
TLabel *ErrorSoundLabel;
TEdit *ErrorSoundEdit;
TButton *ErrorSoundButton;
TOpenDialog *OpenDialog;
TTabSheet *SecurityTabSheet;
TGroupBox *FailedLoginAttemptGroupBox;
......@@ -128,6 +125,11 @@ __published:
TLabel *LoginAttemptFilterThresholdLabel;
TEdit *LoginAttemptFilterThresholdEdit;
TButton *HelpBtn;
TTabSheet *Sound;
TButton *ConfigureSoundButton;
TLabel *ErrorSoundLabel;
TEdit *ErrorSoundEdit;
TButton *ErrorSoundButton;
void __fastcall FormShow(TObject *Sender);
void __fastcall TrayIconCheckBoxClick(TObject *Sender);
void __fastcall SourceComboBoxChange(TObject *Sender);
......@@ -138,6 +140,7 @@ __published:
void __fastcall LogFontButtonClick(TObject *Sender);
void __fastcall ErrorSoundButtonClick(TObject *Sender);
void __fastcall HelpBtnClick(TObject *Sender);
void __fastcall ConfigureSoundButtonClick(TObject *Sender);
private:
public:
virtual __fastcall TPropertiesDlg(TComponent* AOwner);
......
......@@ -7,8 +7,8 @@
#include "TextFileEditUnit.h"
#include "ServicesCfgDlgUnit.h"
#include "CodeInputFormUnit.h"
#include "SoundCfgDlgUnit.h"
#include <stdio.h> // sprintf()
#include <mmsystem.h> // sndPlaySound()
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
......@@ -32,8 +32,6 @@ void __fastcall TServicesCfgDlg::FormShow(TObject *Sender)
}
AutoStartCheckBox->Checked=MainForm->ServicesAutoStart;
AnswerSoundEdit->Text=AnsiString(MainForm->services_startup.sound.answer);
HangupSoundEdit->Text=AnsiString(MainForm->services_startup.sound.hangup);
HostnameCheckBox->Checked
=!(MainForm->services_startup.options&BBS_OPT_NO_HOST_LOOKUP);
......@@ -82,11 +80,6 @@ void __fastcall TServicesCfgDlg::OKButtonClick(TObject *Sender)
MainForm->ServicesAutoStart=AutoStartCheckBox->Checked;
SAFECOPY(MainForm->services_startup.sound.answer
,AnswerSoundEdit->Text.c_str());
SAFECOPY(MainForm->services_startup.sound.hangup
,HangupSoundEdit->Text.c_str());
if(HostnameCheckBox->Checked==false)
MainForm->services_startup.options|=BBS_OPT_NO_HOST_LOOKUP;
else
......@@ -101,26 +94,6 @@ void __fastcall TServicesCfgDlg::OKButtonClick(TObject *Sender)
MainForm->SaveSettings(Sender);
}
//---------------------------------------------------------------------------
void __fastcall TServicesCfgDlg::AnswerSoundButtonClick(TObject *Sender)
{
OpenDialog->FileName=AnswerSoundEdit->Text;
if(OpenDialog->Execute()==true) {
AnswerSoundEdit->Text=OpenDialog->FileName;
sndPlaySound(OpenDialog->FileName.c_str(),SND_ASYNC);
}
}
//---------------------------------------------------------------------------
void __fastcall TServicesCfgDlg::HangupSoundButtonClick(TObject *Sender)
{
OpenDialog->FileName=HangupSoundEdit->Text;
if(OpenDialog->Execute()==true) {
HangupSoundEdit->Text=OpenDialog->FileName;
sndPlaySound(OpenDialog->FileName.c_str(),SND_ASYNC);
}
}
//---------------------------------------------------------------------------
void __fastcall TServicesCfgDlg::FormClose(TObject *Sender,
......@@ -218,6 +191,11 @@ void __fastcall TServicesCfgDlg::GlobalValueListEditorValidate(
,KeyName.c_str(), KeyValue.c_str(), /* style: */NULL);
}
//---------------------------------------------------------------------------
void __fastcall TServicesCfgDlg::ConfigureSoundButtonClick(TObject *Sender)
{
SoundCfgDlg->sound = &MainForm->services_startup.sound;
SoundCfgDlg->Caption = "Services Sound Configuration";
SoundCfgDlg->ShowModal();
}
//---------------------------------------------------------------------------
object ServicesCfgDlg: TServicesCfgDlg
Left = 893
Top = 235
Left = 841
Top = 296
BorderStyle = bsDialog
Caption = 'Services Configuration'
ClientHeight = 245
......@@ -50,8 +50,8 @@ object ServicesCfgDlg: TServicesCfgDlg
Top = 3
Width = 278
Height = 199
ActivePage = ServicesTabSheet
TabIndex = 1
ActivePage = SoundTabSheet
TabIndex = 2
TabOrder = 0
object GeneralTabSheet: TTabSheet
Caption = 'General'
......@@ -159,59 +159,14 @@ object ServicesCfgDlg: TServicesCfgDlg
object SoundTabSheet: TTabSheet
Caption = 'Sound'
ImageIndex = 2
object AnswerSoundLabel: TLabel
Left = 7
Top = 10
Width = 65
Height = 20
AutoSize = False
Caption = 'Connect'
end
object HangupSoundLabel: TLabel
Left = 7
Top = 36
Width = 65
Height = 20
AutoSize = False
Caption = 'Disconnect'
end
object AnswerSoundEdit: TEdit
Left = 85
Top = 10
Width = 156
Height = 21
Hint = 'Sound file to play when users connect'
ParentShowHint = False
ShowHint = True
object ConfigureSoundButton: TButton
Left = 8
Top = 8
Width = 257
Height = 25
Caption = 'Configure Common Server Event Sounds'
TabOrder = 0
end
object AnswerSoundButton: TButton
Left = 247
Top = 10
Width = 20
Height = 21
Caption = '...'
TabOrder = 1
OnClick = AnswerSoundButtonClick
end
object HangupSoundEdit: TEdit
Left = 85
Top = 36
Width = 156
Height = 21
Hint = 'Sound file to play when users disconnect'
ParentShowHint = False
ShowHint = True
TabOrder = 2
end
object HangupSoundButton: TButton
Left = 247
Top = 36
Width = 20
Height = 21
Caption = '...'
TabOrder = 3
OnClick = HangupSoundButtonClick
OnClick = ConfigureSoundButtonClick
end
end
end
......@@ -281,12 +236,6 @@ object ServicesCfgDlg: TServicesCfgDlg
TabOrder = 6
OnClick = OKButtonClick
end
object OpenDialog: TOpenDialog
Filter = 'Wave Files|*.wav'
Options = [ofHideReadOnly, ofNoChangeDir, ofEnableSizing, ofDontAddToRecent]
Left = 104
Top = 32
end
object ServicesCfgPopupMenu: TPopupMenu
Left = 136
Top = 56
......
......@@ -25,19 +25,12 @@ __published: // IDE-managed Components
TEdit *NetworkInterfaceEdit;
TCheckBox *HostnameCheckBox;
TTabSheet *SoundTabSheet;
TLabel *AnswerSoundLabel;
TLabel *HangupSoundLabel;
TEdit *AnswerSoundEdit;
TButton *AnswerSoundButton;
TEdit *HangupSoundEdit;
TButton *HangupSoundButton;
TButton *OKBtn;
TButton *CancelBtn;
TButton *ApplyBtn;
TButton *OKButton;
TButton *CancelButton;
TButton *ApplyButton;
TOpenDialog *OpenDialog;
TTabSheet *ServicesTabSheet;
TCheckListBox *CheckListBox;
TValueListEditor *ValueListEditor;
......@@ -46,10 +39,9 @@ __published: // IDE-managed Components
TMenuItem *ServiceRemove;
TValueListEditor *GlobalValueListEditor;
TLabel *GlobalSettingsLabel;
TButton *ConfigureSoundButton;
void __fastcall FormShow(TObject *Sender);
void __fastcall OKButtonClick(TObject *Sender);
void __fastcall AnswerSoundButtonClick(TObject *Sender);
void __fastcall HangupSoundButtonClick(TObject *Sender);
void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
void __fastcall CheckListBoxClick(TObject *Sender);
void __fastcall ValueListEditorValidate(TObject *Sender, int ACol,
......@@ -61,6 +53,7 @@ __published: // IDE-managed Components
void __fastcall GlobalValueListEditorValidate(TObject *Sender,
int ACol, int ARow, const AnsiString KeyName,
const AnsiString KeyValue);
void __fastcall ConfigureSoundButtonClick(TObject *Sender);
private: // User declarations
char iniFilename[MAX_PATH+1];
str_list_t ini;
......
//---------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "SoundCfgDlgUnit.h"
#include <mmsystem.h> // sndPlaySound()
//---------------------------------------------------------------------
#pragma resource "*.dfm"
TSoundCfgDlg *SoundCfgDlg;
//---------------------------------------------------------------------
__fastcall TSoundCfgDlg::TSoundCfgDlg(TComponent* AOwner)
: TForm(AOwner)
{
}
//---------------------------------------------------------------------
void __fastcall TSoundCfgDlg::AnswerSoundButtonClick(TObject *Sender)
{
OpenDialog->FileName=AnswerSoundEdit->Text;
if(OpenDialog->Execute()==true) {
AnswerSoundEdit->Text=OpenDialog->FileName;
sndPlaySound(OpenDialog->FileName.c_str(),SND_ASYNC);
}
}
//---------------------------------------------------------------------------
void __fastcall TSoundCfgDlg::HangupSoundButtonClick(TObject *Sender)
{
OpenDialog->FileName=HangupSoundEdit->Text;
if(OpenDialog->Execute()==true) {
HangupSoundEdit->Text=OpenDialog->FileName;
sndPlaySound(OpenDialog->FileName.c_str(),SND_ASYNC);
}
}
//---------------------------------------------------------------------------
void __fastcall TSoundCfgDlg::LoginSoundButtonClick(TObject *Sender)
{
OpenDialog->FileName=LoginSoundEdit->Text;
if(OpenDialog->Execute()==true) {
LoginSoundEdit->Text=OpenDialog->FileName;
sndPlaySound(OpenDialog->FileName.c_str(),SND_ASYNC);
}
}
//---------------------------------------------------------------------------
void __fastcall TSoundCfgDlg::LogoutSoundButtonClick(TObject *Sender)
{
OpenDialog->FileName=LogoutSoundEdit->Text;
if(OpenDialog->Execute()==true) {
LogoutSoundEdit->Text=OpenDialog->FileName;
sndPlaySound(OpenDialog->FileName.c_str(),SND_ASYNC);
}
}
//---------------------------------------------------------------------------
void __fastcall TSoundCfgDlg::HackAttemptSoundButtonClick(TObject *Sender)
{
OpenDialog->FileName=HackAttemptSoundEdit->Text;
if(OpenDialog->Execute()==true) {
HackAttemptSoundEdit->Text=OpenDialog->FileName;
sndPlaySound(OpenDialog->FileName.c_str(),SND_ASYNC);
}
}
//---------------------------------------------------------------------------
void __fastcall TSoundCfgDlg::FormShow(TObject *Sender)
{
AnswerSoundEdit->Text=AnsiString(sound->answer);
HangupSoundEdit->Text=AnsiString(sound->hangup);
LoginSoundEdit->Text=AnsiString(sound->login);
LogoutSoundEdit->Text=AnsiString(sound->logout);
HackAttemptSoundEdit->Text=AnsiString(sound->hack);
}
//---------------------------------------------------------------------------
void __fastcall TSoundCfgDlg::OKBtnClick(TObject *Sender)
{
SAFECOPY(sound->answer, AnswerSoundEdit->Text.c_str());
SAFECOPY(sound->hangup, HangupSoundEdit->Text.c_str());
SAFECOPY(sound->login, LoginSoundEdit->Text.c_str());
SAFECOPY(sound->logout, LogoutSoundEdit->Text.c_str());
SAFECOPY(sound->hack, HackAttemptSoundEdit->Text.c_str());
}
//---------------------------------------------------------------------------
object SoundCfgDlg: TSoundCfgDlg
Left = 910
Top = 472
BorderStyle = bsDialog
Caption = 'Sound Configuration'
ClientHeight = 186
ClientWidth = 313
Color = clBtnFace
ParentFont = True
OldCreateOrder = True
Position = poScreenCenter
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object AnswerSoundLabel: TLabel
Left = 9
Top = 18
Width = 65
Height = 20
AutoSize = False
Caption = 'Connect'
end
object HnagupSoundLabel: TLabel
Left = 9
Top = 44
Width = 65
Height = 20
AutoSize = False
Caption = 'Disconnect'
end
object LoginSoundLabel: TLabel
Left = 9
Top = 70
Width = 65
Height = 20
AutoSize = False
Caption = 'Login'
end
object LogoutSoundLabel: TLabel
Left = 9
Top = 96
Width = 65
Height = 20
AutoSize = False
Caption = 'Logout'
end
object HackAttemptSoundLabel: TLabel
Left = 9
Top = 122
Width = 65
Height = 20
AutoSize = False
Caption = 'Hack Attempt'
end
object OKBtn: TButton
Left = 79
Top = 156
Width = 75
Height = 25
Caption = 'OK'
Default = True
ModalResult = 1
TabOrder = 10
OnClick = OKBtnClick
end
object CancelBtn: TButton
Left = 159
Top = 156
Width = 75
Height = 25
Cancel = True
Caption = 'Cancel'
ModalResult = 2
TabOrder = 11
end
object AnswerSoundEdit: TEdit
Left = 80
Top = 18
Width = 201
Height = 21
Hint = 'Sound file to play when accepting an incoming connection'
ParentShowHint = False
ShowHint = True
TabOrder = 0
end
object HangupSoundEdit: TEdit
Left = 80
Top = 44
Width = 201
Height = 21
Hint = 'Sound file to play when disconnecting'
ParentShowHint = False
ShowHint = True
TabOrder = 2
end
object AnswerSoundButton: TButton
Left = 287
Top = 18
Width = 20
Height = 21
Caption = '...'
TabOrder = 1
OnClick = AnswerSoundButtonClick
end
object HangupSoundButton: TButton
Left = 287
Top = 44
Width = 20
Height = 21
Caption = '...'
TabOrder = 3
OnClick = HangupSoundButtonClick
end
object LoginSoundButton: TButton
Left = 287
Top = 70
Width = 20
Height = 21
Caption = '...'
TabOrder = 5
OnClick = LoginSoundButtonClick
end
object LoginSoundEdit: TEdit
Left = 80
Top = 70
Width = 201
Height = 21
Hint = 'Sound file to play when accepting an incoming connection'
ParentShowHint = False
ShowHint = True
TabOrder = 4
end
object LogoutSoundEdit: TEdit
Left = 80
Top = 96
Width = 201
Height = 21
Hint = 'Sound file to play when disconnecting'
ParentShowHint = False
ShowHint = True
TabOrder = 6
end
object LogoutSoundButton: TButton
Left = 287
Top = 96
Width = 20
Height = 21
Caption = '...'
TabOrder = 7
OnClick = LogoutSoundButtonClick
end
object HackAttemptSoundEdit: TEdit
Left = 80
Top = 122
Width = 201
Height = 21
Hint = 'Sound file to play when disconnecting'
ParentShowHint = False
ShowHint = True
TabOrder = 8
end
object HackAttemptSoundButton: TButton
Left = 287
Top = 122
Width = 20
Height = 21
Caption = '...'
TabOrder = 9
OnClick = HackAttemptSoundButtonClick
end
object OpenDialog: TOpenDialog
Filter = 'Wave Files|*.wav'
Options = [ofNoChangeDir, ofEnableSizing]
Left = 8
Top = 144
end
end
//----------------------------------------------------------------------------
#ifndef SoundCfgDlgUnitH
#define SoundCfgDlgUnitH
//----------------------------------------------------------------------------
#include <vcl\System.hpp>
#include <vcl\Windows.hpp>
#include <vcl\SysUtils.hpp>
#include <vcl\Classes.hpp>
#include <vcl\Graphics.hpp>
#include <vcl\StdCtrls.hpp>
#include <vcl\Forms.hpp>
#include <vcl\Controls.hpp>
#include <vcl\Buttons.hpp>
#include <vcl\ExtCtrls.hpp>
#include <Dialogs.hpp>
#include "startup.h"
//----------------------------------------------------------------------------
class TSoundCfgDlg : public TForm
{
__published:
TButton *OKBtn;
TButton *CancelBtn;
TLabel *AnswerSoundLabel;
TEdit *AnswerSoundEdit;
TLabel *HnagupSoundLabel;
TEdit *HangupSoundEdit;
TButton *AnswerSoundButton;
TButton *HangupSoundButton;
TButton *LoginSoundButton;
TEdit *LoginSoundEdit;
TLabel *LoginSoundLabel;
TLabel *LogoutSoundLabel;
TEdit *LogoutSoundEdit;
TButton *LogoutSoundButton;
TLabel *HackAttemptSoundLabel;
TEdit *HackAttemptSoundEdit;
TButton *HackAttemptSoundButton;
TOpenDialog *OpenDialog;
void __fastcall AnswerSoundButtonClick(TObject *Sender);
void __fastcall HangupSoundButtonClick(TObject *Sender);
void __fastcall LoginSoundButtonClick(TObject *Sender);
void __fastcall LogoutSoundButtonClick(TObject *Sender);
void __fastcall HackAttemptSoundButtonClick(TObject *Sender);
void __fastcall FormShow(TObject *Sender);
void __fastcall OKBtnClick(TObject *Sender);
private:
public:
virtual __fastcall TSoundCfgDlg(TComponent* AOwner);
struct startup_sound_settings* sound;
};
//----------------------------------------------------------------------------
extern PACKAGE TSoundCfgDlg *SoundCfgDlg;
//----------------------------------------------------------------------------
#endif
......@@ -40,6 +40,7 @@
#include "MainFormUnit.h"
#include "TextFileEditUnit.h"
#include "TelnetCfgDlgUnit.h"
#include "soundCfgDlgUnit.h"
#include <stdio.h> // sprintf()
#include <mmsystem.h> // sndPlaySound()
//---------------------------------------------------------------------
......@@ -88,8 +89,6 @@ void __fastcall TTelnetCfgDlg::FormShow(TObject *Sender)
else
MaxConConEdit->Text=AnsiString((int)MainForm->bbs_startup.max_concurrent_connections);
AutoStartCheckBox->Checked=MainForm->SysAutoStart;
AnswerSoundEdit->Text=AnsiString(MainForm->bbs_startup.sound.answer);
HangupSoundEdit->Text=AnsiString(MainForm->bbs_startup.sound.hangup);
CmdLogCheckBox->Checked=MainForm->bbs_startup.options&BBS_OPT_DEBUG_TELNET;
TelnetGaCheckBox->Checked
=!(MainForm->bbs_startup.options&BBS_OPT_NO_TELNET_GA);
......@@ -137,10 +136,6 @@ void __fastcall TTelnetCfgDlg::OKBtnClick(TObject *Sender)
MainForm->bbs_startup.max_concurrent_connections=MaxConConEdit->Text.ToIntDef(0);
MainForm->SysAutoStart=AutoStartCheckBox->Checked;
SAFECOPY(MainForm->bbs_startup.sound.answer
,AnswerSoundEdit->Text.c_str());
SAFECOPY(MainForm->bbs_startup.sound.hangup
,HangupSoundEdit->Text.c_str());
if(TelnetGaCheckBox->Checked==false)
MainForm->bbs_startup.options|=BBS_OPT_NO_TELNET_GA;
else
......@@ -189,26 +184,6 @@ void __fastcall TTelnetCfgDlg::OKBtnClick(TObject *Sender)
}
//---------------------------------------------------------------------------
void __fastcall TTelnetCfgDlg::AnswerSoundButtonClick(TObject *Sender)
{
OpenDialog->FileName=AnswerSoundEdit->Text;
if(OpenDialog->Execute()==true) {
AnswerSoundEdit->Text=OpenDialog->FileName;
sndPlaySound(OpenDialog->FileName.c_str(),SND_ASYNC);
}
}
//---------------------------------------------------------------------------
void __fastcall TTelnetCfgDlg::HangupSoundButtonClick(TObject *Sender)
{
OpenDialog->FileName=HangupSoundEdit->Text;
if(OpenDialog->Execute()==true) {
HangupSoundEdit->Text=OpenDialog->FileName;
sndPlaySound(OpenDialog->FileName.c_str(),SND_ASYNC);
}
}
//---------------------------------------------------------------------------
void __fastcall TTelnetCfgDlg::RLoginEnabledCheckBoxClick(TObject *Sender)
{
RLoginPortEdit->Enabled = RLoginEnabledCheckBox->Checked;
......@@ -242,6 +217,11 @@ void __fastcall TTelnetCfgDlg::SshEnabledCheckBoxClick(TObject *Sender)
}
//---------------------------------------------------------------------------
void __fastcall TTelnetCfgDlg::ConfigureSoundButtonClick(TObject *Sender)
{
SoundCfgDlg->sound = &MainForm->bbs_startup.sound;
SoundCfgDlg->Caption = "Terminal Server Sound Configuration";
SoundCfgDlg->ShowModal();
}
//---------------------------------------------------------------------------
......@@ -17,8 +17,8 @@ object TelnetCfgDlg: TTelnetCfgDlg
Top = 3
Width = 278
Height = 186
ActivePage = GeneralTabSheet
TabIndex = 0
ActivePage = SoundTabSheet
TabIndex = 4
TabOrder = 0
object GeneralTabSheet: TTabSheet
Caption = 'General'
......@@ -365,59 +365,14 @@ object TelnetCfgDlg: TTelnetCfgDlg
object SoundTabSheet: TTabSheet
Caption = 'Sound'
ImageIndex = 2
object AnswerSoundLabel: TLabel
Left = 7
Top = 10
Width = 65
Height = 20
AutoSize = False
Caption = 'Connect'
end
object HnagupSoundLabel: TLabel
Left = 7
Top = 36
Width = 65
Height = 20
AutoSize = False
Caption = 'Disconnect'
end
object AnswerSoundEdit: TEdit
Left = 72
Top = 10
Width = 169
Height = 21
Hint = 'Sound file to play when accepting an incoming connection'
ParentShowHint = False
ShowHint = True
object ConfigureSoundButton: TButton
Left = 8
Top = 8
Width = 257
Height = 25
Caption = 'Configure Common Server Event Sounds'
TabOrder = 0
end
object AnswerSoundButton: TButton
Left = 247
Top = 10
Width = 20
Height = 21
Caption = '...'
TabOrder = 1
OnClick = AnswerSoundButtonClick
end
object HangupSoundEdit: TEdit
Left = 72
Top = 36
Width = 169
Height = 21
Hint = 'Sound file to play when disconnecting'
ParentShowHint = False
ShowHint = True
TabOrder = 2
end
object HangupSoundButton: TButton
Left = 247
Top = 36
Width = 20
Height = 21
Caption = '...'
TabOrder = 3
OnClick = HangupSoundButtonClick
OnClick = ConfigureSoundButtonClick
end
end
end
......
......@@ -58,12 +58,6 @@ __published:
TTabSheet *GeneralTabSheet;
TTabSheet *TelnetTabSheet;
TTabSheet *SoundTabSheet;
TLabel *AnswerSoundLabel;
TEdit *AnswerSoundEdit;
TButton *AnswerSoundButton;
TLabel *HnagupSoundLabel;
TEdit *HangupSoundEdit;
TButton *HangupSoundButton;
TCheckBox *CmdLogCheckBox;
TCheckBox *AutoStartCheckBox;
TLabel *FirstNodeLabel;
......@@ -101,13 +95,13 @@ __published:
TEdit *MaxConConEdit;
TLabel *SshConnectTimeoutLabel;
TEdit *SshConnTimeoutEdit;
TButton *ConfigureSoundButton;
void __fastcall FormShow(TObject *Sender);
void __fastcall OKBtnClick(TObject *Sender);
void __fastcall AnswerSoundButtonClick(TObject *Sender);
void __fastcall HangupSoundButtonClick(TObject *Sender);
void __fastcall RLoginEnabledCheckBoxClick(TObject *Sender);
void __fastcall RLoginIPallowButtonClick(TObject *Sender);
void __fastcall SshEnabledCheckBoxClick(TObject *Sender);
void __fastcall ConfigureSoundButtonClick(TObject *Sender);
private:
public:
virtual __fastcall TTelnetCfgDlg(TComponent* AOwner);
......
......@@ -41,8 +41,8 @@
#include "MainFormUnit.h"
#include "WebCfgDlgUnit.h"
#include "TextFileEditUnit.h"
#include "SoundCfgDlgUnit.h"
#include <stdio.h> // sprintf()
#include <mmsystem.h> // sndPlaySound()
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
......@@ -104,10 +104,6 @@ void __fastcall TWebCfgDlg::FormShow(TObject *Sender)
CGICheckBox->Checked=!(MainForm->web_startup.options&WEB_OPT_NO_CGI);
AnswerSoundEdit->Text=AnsiString(MainForm->web_startup.sound.answer);
HangupSoundEdit->Text=AnsiString(MainForm->web_startup.sound.hangup);
HackAttemptSoundEdit->Text=AnsiString(MainForm->web_startup.sound.hack);
DebugTxCheckBox->Checked=MainForm->web_startup.options&WEB_OPT_DEBUG_TX;
DebugRxCheckBox->Checked=MainForm->web_startup.options&WEB_OPT_DEBUG_RX;
AccessLogCheckBox->Checked=MainForm->web_startup.options&WEB_OPT_HTTP_LOGGING;
......@@ -173,13 +169,6 @@ void __fastcall TWebCfgDlg::OKBtnClick(TObject *Sender)
else
MainForm->web_startup.options&=~WEB_OPT_NO_CGI;
SAFECOPY(MainForm->web_startup.sound.answer
,AnswerSoundEdit->Text.c_str());
SAFECOPY(MainForm->web_startup.sound.hangup
,HangupSoundEdit->Text.c_str());
SAFECOPY(MainForm->web_startup.sound.hack
,HackAttemptSoundEdit->Text.c_str());
if(DebugTxCheckBox->Checked==true)
MainForm->web_startup.options|=WEB_OPT_DEBUG_TX;
else
......@@ -204,33 +193,6 @@ void __fastcall TWebCfgDlg::OKBtnClick(TObject *Sender)
MainForm->SaveIniSettings(Sender);
}
//---------------------------------------------------------------------------
void __fastcall TWebCfgDlg::AnswerSoundButtonClick(TObject *Sender)
{
OpenDialog->FileName=AnswerSoundEdit->Text;
if(OpenDialog->Execute()==true) {
AnswerSoundEdit->Text=OpenDialog->FileName;
sndPlaySound(OpenDialog->FileName.c_str(),SND_ASYNC);
}
}
//---------------------------------------------------------------------------
void __fastcall TWebCfgDlg::HangupSoundButtonClick(TObject *Sender)
{
OpenDialog->FileName=HangupSoundEdit->Text;
if(OpenDialog->Execute()==true) {
HangupSoundEdit->Text=OpenDialog->FileName;
sndPlaySound(OpenDialog->FileName.c_str(),SND_ASYNC);
}
}
//---------------------------------------------------------------------------
void __fastcall TWebCfgDlg::HackAttemptSoundButtonClick(TObject *Sender)
{
OpenDialog->FileName=HackAttemptSoundEdit->Text;
if(OpenDialog->Execute()==true) {
HackAttemptSoundEdit->Text=OpenDialog->FileName;
sndPlaySound(OpenDialog->FileName.c_str(),SND_ASYNC);
}
}
//---------------------------------------------------------------------------
void __fastcall TWebCfgDlg::AccessLogCheckBoxClick(TObject *Sender)
{
......@@ -293,3 +255,11 @@ void __fastcall TWebCfgDlg::TlsEnableCheckBoxClick(TObject *Sender)
}
//---------------------------------------------------------------------------
void __fastcall TWebCfgDlg::ConfigureSoundButtonClick(TObject *Sender)
{
SoundCfgDlg->sound = &MainForm->web_startup.sound;
SoundCfgDlg->Caption = "Web Server Sound Configuration";
SoundCfgDlg->ShowModal();
}
//---------------------------------------------------------------------------
object WebCfgDlg: TWebCfgDlg
Left = 492
Top = 403
Left = 856
Top = 332
BorderStyle = bsDialog
Caption = 'Web Server Configuration'
ClientHeight = 245
......@@ -25,8 +25,8 @@ object WebCfgDlg: TWebCfgDlg
Top = 3
Width = 278
Height = 199
ActivePage = TlsTabSheet
TabIndex = 1
ActivePage = SoundTabSheet
TabIndex = 5
TabOrder = 0
object GeneralTabSheet: TTabSheet
Caption = 'General'
......@@ -468,86 +468,14 @@ object WebCfgDlg: TWebCfgDlg
object SoundTabSheet: TTabSheet
Caption = 'Sound'
ImageIndex = 2
object AnswerSoundLabel: TLabel
Left = 7
Top = 10
Width = 65
Height = 20
AutoSize = False
Caption = 'Connect'
end
object HangupSoundLabel: TLabel
Left = 7
Top = 36
Width = 65
Height = 20
AutoSize = False
Caption = 'Disconnect'
end
object HackAttemptSoundLabel: TLabel
Left = 7
Top = 62
Width = 65
Height = 20
AutoSize = False
Caption = 'Hack Attempt'
end
object AnswerSoundEdit: TEdit
Left = 85
Top = 10
Width = 156
Height = 21
Hint = 'Sound file to play when users connect'
ParentShowHint = False
ShowHint = True
object ConfigureSoundButton: TButton
Left = 8
Top = 8
Width = 257
Height = 25
Caption = 'Configure Common Server Event Sounds'
TabOrder = 0
end
object AnswerSoundButton: TButton
Left = 247
Top = 10
Width = 20
Height = 21
Caption = '...'
TabOrder = 1
OnClick = AnswerSoundButtonClick
end
object HangupSoundEdit: TEdit
Left = 85
Top = 36
Width = 156
Height = 21
Hint = 'Sound file to play when users disconnect'
ParentShowHint = False
ShowHint = True
TabOrder = 2
end
object HangupSoundButton: TButton
Left = 247
Top = 36
Width = 20
Height = 21
Caption = '...'
TabOrder = 3
OnClick = HangupSoundButtonClick
end
object HackAttemptSoundEdit: TEdit
Left = 85
Top = 62
Width = 156
Height = 21
Hint = 'Sound file to play when hack attempts are detected'
ParentShowHint = False
ShowHint = True
TabOrder = 4
end
object HackAttemptSoundButton: TButton
Left = 247
Top = 62
Width = 20
Height = 21
Caption = '...'
TabOrder = 5
OnClick = HackAttemptSoundButtonClick
OnClick = ConfigureSoundButtonClick
end
end
end
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment