eric
/
mysticbbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Added QWK settings

This commit is contained in:
mysticbbs 2012-02-14 11:07:49 -05:00
parent b20e782ddc
commit 535185bd93
2 changed files with 38 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
mystic/bbs_cfg_main.pas
View File

@ -206,9 +206,10 @@ Begin
Case Res of Case Res of
'S' : Configuration_SysPaths; 'S' : Configuration_SysPaths;
'L' : Configuration_LoginMatrix; 'L' : Configuration_LoginMatrix;
'E' : If Configuration_EchoMailAddress(True) = 1 Then; 'E' : Configuration_EchoMailAddress(True);
'3' : Configuration_OptionalFields; '3' : Configuration_OptionalFields;
'F' : Configuration_FileSettings; 'F' : Configuration_FileSettings;
'O' : Configuration_QWKSettings;
'X' : Break; 'X' : Break;
Else Else
MenuPtr := 0; MenuPtr := 0;

37
mystic/bbs_cfg_syscfg.pas
View File

@ -9,6 +9,7 @@ Procedure Configuration_LoginMatrix;
Procedure Configuration_OptionalFields; Procedure Configuration_OptionalFields;
Function Configuration_EchomailAddress (Edit: Boolean) : Byte; Function Configuration_EchomailAddress (Edit: Boolean) : Byte;
Procedure Configuration_FileSettings; Procedure Configuration_FileSettings;
Procedure Configuration_QWKSettings;
Implementation Implementation
@ -91,7 +92,6 @@ Begin
Box.Close; Box.Close;
Box.Free; Box.Free;
End; End;
Procedure Configuration_OptionalFields; Procedure Configuration_OptionalFields;
@ -252,4 +252,39 @@ Begin
Box.Free; Box.Free;
End; End;
Procedure Configuration_QWKSettings;
Var
Box : TAnsiMenuBox;
Form : TAnsiMenuForm;
Topic : String[80];
Begin
Topic := '|03(|09Offline Mail|03) |01-|09> |15';
Box := TAnsiMenuBox.Create;
Form := TAnsiMenuForm.Create;
Box.Header := ' Offline Mail ';
Box.Open (8, 7, 74, 18);
VerticalLine (31, 9, 16);
Form.AddPath ('L', ' Local QWK Path', 15, 9, 33, 9, 16, 40, mysMaxPathSize, @Config.QWKPath, Topic + 'Directory for local QWK packets');
Form.AddStr ('I', ' QWK Packet ID', 16, 10, 33, 10, 15, 8, 8, @Config.QwkBBSID, Topic + 'QWK packet filename');
Form.AddStr ('A', ' QWK Archive', 18, 11, 33, 11, 13, 4, 4, @Config.QwkArchive, Topic + 'QWK Archive');
Form.AddWord ('P', ' Max Messages/Packet', 10, 12, 33, 12, 21, 5, 0, 65535, @Config.QwkMaxPacket, Topic + 'Max messages per packet (0/Unlimited)');
Form.AddWord ('B', ' Max Messages/Base', 12, 13, 33, 13, 19, 5, 0, 65535, @Config.QwkMaxBase, Topic + 'Max message per base (0/Unlimited)');
Form.AddStr ('W', ' Welcome File', 17, 14, 33, 14, 14, 40, mysMaxPathSize, @Config.QWKWelcome, Topic + 'Welcome filename');
Form.AddStr ('N', ' News File', 20, 15, 33, 15, 11, 40, mysMaxPathSize, @Config.QWKNews, Topic + 'New filename');
Form.AddStr ('G', ' Goodbye File', 17, 16, 33, 16, 14, 40, mysMaxPathSize, @Config.QWKGoodbye, Topic + 'Goodbye filename');
Form.Execute;
Form.Free;
Box.Close;
Box.Free;
End;
End. End.