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

Added "Maximum Web Sessions" to configuration wizard.

Only save .ini settings (not registry) when completing config wizard.
Don't back-up any .cnf files when completing config wizard.
parent 971815ac
No related branches found
No related tags found
No related merge requests found
......@@ -256,6 +256,7 @@ void __fastcall TConfigWizard::FormShow(TObject *Sender)
DNSAddressEdit->Text=MainForm->mail_startup.dns_server;
MaxMailUpDown->Position=MainForm->mail_startup.max_clients;
MaxFtpUpDown->Position=MainForm->ftp_startup.max_clients;
MaxWebUpDown->Position=MainForm->web_startup.max_clients;
NodesUpDown->Position=scfg.sys_nodes;
for(i=0;i<sizeof(tz_str)/sizeof(tz_str[0]);i++) {
......@@ -306,9 +307,10 @@ void __fastcall TConfigWizard::NextButtonClick(TObject *Sender)
MainForm->bbs_startup.last_node=NodesUpDown->Position;
MainForm->ftp_startup.max_clients=MaxFtpUpDown->Position;
MainForm->mail_startup.max_clients=MaxMailUpDown->Position;
MainForm->web_startup.max_clients=MaxWebUpDown->Position;
strcpy(MainForm->mail_startup.dns_server,DNSAddressEdit->Text.c_str());
MainForm->SaveSettings(Sender);
MainForm->SaveIniSettings(Sender);
// Write CNF files
strcpy(scfg.sys_name,SystemNameEdit->Text.c_str());
......@@ -352,7 +354,7 @@ void __fastcall TConfigWizard::NextButtonClick(TObject *Sender)
}
scfg.new_install=FALSE;
if(!save_cfg(&scfg,5)) {
if(!save_cfg(&scfg,0)) {
Application->MessageBox("Error saving configuration"
,"ERROR",MB_OK|MB_ICONEXCLAMATION);
} else
......
......@@ -557,9 +557,9 @@ object ConfigWizard: TConfigWizard
OnClick = BackButtonClick
end
object NextButton: TButton
Left = 393
Left = 392
Top = 327
Width = 88
Width = 89
Height = 31
Caption = '&Next >'
TabOrder = 1
......@@ -580,6 +580,7 @@ object ConfigWizard: TConfigWizard
Top = 14
Width = 360
Height = 267
PageIndex = 5
TabOrder = 3
OnPageChanged = WizNotebookPageChanged
object TPage
......@@ -764,7 +765,7 @@ object ConfigWizard: TConfigWizard
Width = 185
Height = 24
Style = csDropDownList
ItemHeight = 0
ItemHeight = 16
ParentShowHint = False
ShowHint = True
TabOrder = 0
......@@ -814,7 +815,7 @@ object ConfigWizard: TConfigWizard
Top = 40
Width = 241
Height = 24
ItemHeight = 0
ItemHeight = 16
TabOrder = 0
OnChange = VerifyInternetAddresses
end
......@@ -915,6 +916,14 @@ object ConfigWizard: TConfigWizard
AutoSize = False
Caption = 'Maximum Number of Simultaneous Mail Sessions'
end
object Label15: TLabel
Left = 7
Top = 208
Width = 345
Height = 25
AutoSize = False
Caption = 'Maximum Number of Simultaneous Web Sessions'
end
object NodesEdit: TEdit
Left = 8
Top = 40
......@@ -985,6 +994,26 @@ object ConfigWizard: TConfigWizard
State = cbChecked
TabOrder = 6
end
object MaxWebEdit: TEdit
Left = 8
Top = 232
Width = 41
Height = 24
TabOrder = 7
Text = '0'
end
object MaxWebUpDown: TUpDown
Left = 49
Top = 232
Width = 15
Height = 24
Associate = MaxWebEdit
Min = 0
Max = 500
Position = 0
TabOrder = 8
Wrap = False
end
end
object TPage
Left = 0
......
......@@ -84,6 +84,9 @@ __published: // IDE-managed Components
TCheckBox *NewUsersCheckBox;
TRadioButton *DeletedEmailSysopButton;
TCheckBox *AliasesCheckBox;
TLabel *Label15;
TEdit *MaxWebEdit;
TUpDown *MaxWebUpDown;
void __fastcall NextButtonClick(TObject *Sender);
void __fastcall CancelButtonClick(TObject *Sender);
void __fastcall BackButtonClick(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