diff --git a/src/sbbs3/ctrl/ConfigWizardUnit.cpp b/src/sbbs3/ctrl/ConfigWizardUnit.cpp index 2aa43dc5e34f95ce6ade2271257dd72a1996c955..89d63573296845bc140d67de068d279456ce780e 100644 --- a/src/sbbs3/ctrl/ConfigWizardUnit.cpp +++ b/src/sbbs3/ctrl/ConfigWizardUnit.cpp @@ -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 diff --git a/src/sbbs3/ctrl/ConfigWizardUnit.dfm b/src/sbbs3/ctrl/ConfigWizardUnit.dfm index c808789180f1a83bec590bd62ef16f2d39872d10..d7a454f6f758598b1365c48ba4a85cde0b044f0b 100644 --- a/src/sbbs3/ctrl/ConfigWizardUnit.dfm +++ b/src/sbbs3/ctrl/ConfigWizardUnit.dfm @@ -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 diff --git a/src/sbbs3/ctrl/ConfigWizardUnit.h b/src/sbbs3/ctrl/ConfigWizardUnit.h index cfd1aedc7e08b57966472a984ee9274020a677b9..354b1f03a2d0dd0324a4186c9e9edbec8eea6921 100644 --- a/src/sbbs3/ctrl/ConfigWizardUnit.h +++ b/src/sbbs3/ctrl/ConfigWizardUnit.h @@ -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);