Skip to content
Snippets Groups Projects
Commit 1b7a15a6 authored by rswindell's avatar rswindell
Browse files

Added QWK Events checkbox to allow disabling of QWK Message Events.

parent 70484d56
No related branches found
No related tags found
No related merge requests found
......@@ -95,6 +95,8 @@ void __fastcall TTelnetCfgDlg::FormShow(TObject *Sender)
=MainForm->bbs_startup.options&BBS_OPT_ALLOW_RLOGIN;
RLogin2ndNameCheckBox->Checked
=MainForm->bbs_startup.options&BBS_OPT_USE_2ND_RLOGIN;
QWKEventsCheckBox->Checked
=!(MainForm->bbs_startup.options&BBS_OPT_NO_QWK_EVENTS);
RLoginEnabledCheckBoxClick(Sender);
PageControl->ActivePage=GeneralTabSheet;
......@@ -164,6 +166,10 @@ void __fastcall TTelnetCfgDlg::OKBtnClick(TObject *Sender)
MainForm->bbs_startup.options|=BBS_OPT_XTRN_MINIMIZED;
else
MainForm->bbs_startup.options&=~BBS_OPT_XTRN_MINIMIZED;
if(QWKEventsCheckBox->Checked==true)
MainForm->bbs_startup.options&=~BBS_OPT_NO_QWK_EVENTS;
else
MainForm->bbs_startup.options|=BBS_OPT_NO_QWK_EVENTS;
if(AutoLogonCheckBox->Checked==true)
MainForm->bbs_startup.options|=BBS_OPT_AUTO_LOGON;
else
......
......@@ -90,6 +90,17 @@ object TelnetCfgDlg: TTelnetCfgDlg
ShowHint = True
TabOrder = 4
end
object QWKEventsCheckBox: TCheckBox
Left = 182
Top = 108
Width = 144
Height = 25
Hint = 'Handle QWK Message Packet Events in This Instance'
Caption = 'QWK Msg Events'
ParentShowHint = False
ShowHint = True
TabOrder = 5
end
end
object TelnetTabSheet: TTabSheet
Caption = 'Telnet'
......
......@@ -89,6 +89,7 @@ __published:
TCheckBox *RLoginEnabledCheckBox;
TButton *RLoginIPallowButton;
TCheckBox *RLogin2ndNameCheckBox;
TCheckBox *QWKEventsCheckBox;
void __fastcall FormShow(TObject *Sender);
void __fastcall OKBtnClick(TObject *Sender);
void __fastcall AnswerSoundButtonClick(TObject *Sender);
......
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