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

Added JavaScript runtime disable option.

parent ceffc331
No related branches found
No related tags found
No related merge requests found
...@@ -97,6 +97,8 @@ void __fastcall TTelnetCfgDlg::FormShow(TObject *Sender) ...@@ -97,6 +97,8 @@ void __fastcall TTelnetCfgDlg::FormShow(TObject *Sender)
=MainForm->bbs_startup.options&BBS_OPT_USE_2ND_RLOGIN; =MainForm->bbs_startup.options&BBS_OPT_USE_2ND_RLOGIN;
QWKEventsCheckBox->Checked QWKEventsCheckBox->Checked
=!(MainForm->bbs_startup.options&BBS_OPT_NO_QWK_EVENTS); =!(MainForm->bbs_startup.options&BBS_OPT_NO_QWK_EVENTS);
JavaScriptCheckBox->Checked
=!(MainForm->bbs_startup.options&BBS_OPT_NO_JAVASCRIPT);
RLoginEnabledCheckBoxClick(Sender); RLoginEnabledCheckBoxClick(Sender);
PageControl->ActivePage=GeneralTabSheet; PageControl->ActivePage=GeneralTabSheet;
...@@ -170,6 +172,11 @@ void __fastcall TTelnetCfgDlg::OKBtnClick(TObject *Sender) ...@@ -170,6 +172,11 @@ void __fastcall TTelnetCfgDlg::OKBtnClick(TObject *Sender)
MainForm->bbs_startup.options&=~BBS_OPT_NO_QWK_EVENTS; MainForm->bbs_startup.options&=~BBS_OPT_NO_QWK_EVENTS;
else else
MainForm->bbs_startup.options|=BBS_OPT_NO_QWK_EVENTS; MainForm->bbs_startup.options|=BBS_OPT_NO_QWK_EVENTS;
if(JavaScriptCheckBox->Checked==true)
MainForm->bbs_startup.options&=~BBS_OPT_NO_JAVASCRIPT;
else
MainForm->bbs_startup.options|=BBS_OPT_NO_JAVASCRIPT;
if(AutoLogonCheckBox->Checked==true) if(AutoLogonCheckBox->Checked==true)
MainForm->bbs_startup.options|=BBS_OPT_AUTO_LOGON; MainForm->bbs_startup.options|=BBS_OPT_AUTO_LOGON;
else else
......
...@@ -17,7 +17,7 @@ object TelnetCfgDlg: TTelnetCfgDlg ...@@ -17,7 +17,7 @@ object TelnetCfgDlg: TTelnetCfgDlg
Top = 4 Top = 4
Width = 342 Width = 342
Height = 229 Height = 229
ActivePage = RLoginTabSheet ActivePage = GeneralTabSheet
TabOrder = 0 TabOrder = 0
object GeneralTabSheet: TTabSheet object GeneralTabSheet: TTabSheet
Caption = 'General' Caption = 'General'
...@@ -101,6 +101,17 @@ object TelnetCfgDlg: TTelnetCfgDlg ...@@ -101,6 +101,17 @@ object TelnetCfgDlg: TTelnetCfgDlg
ShowHint = True ShowHint = True
TabOrder = 5 TabOrder = 5
end end
object JavaScriptCheckBox: TCheckBox
Left = 182
Top = 140
Width = 144
Height = 25
Hint = 'Enable JavaScript Support'
Caption = 'JavaScript Support'
ParentShowHint = False
ShowHint = True
TabOrder = 6
end
end end
object TelnetTabSheet: TTabSheet object TelnetTabSheet: TTabSheet
Caption = 'Telnet' Caption = 'Telnet'
......
...@@ -90,6 +90,7 @@ __published: ...@@ -90,6 +90,7 @@ __published:
TButton *RLoginIPallowButton; TButton *RLoginIPallowButton;
TCheckBox *RLogin2ndNameCheckBox; TCheckBox *RLogin2ndNameCheckBox;
TCheckBox *QWKEventsCheckBox; TCheckBox *QWKEventsCheckBox;
TCheckBox *JavaScriptCheckBox;
void __fastcall FormShow(TObject *Sender); void __fastcall FormShow(TObject *Sender);
void __fastcall OKBtnClick(TObject *Sender); void __fastcall OKBtnClick(TObject *Sender);
void __fastcall AnswerSoundButtonClick(TObject *Sender); void __fastcall AnswerSoundButtonClick(TObject *Sender);
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment