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

New basic protocol editor complete

This commit is contained in:
mysticbbs 2012-02-18 02:17:49 -05:00
parent dac19176f5
commit e44e2903e0
1 changed files with 27 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
mystic/bbs_cfg_protocol.pas
View File

@ -13,7 +13,8 @@ Uses
m_Strings, m_Strings,
bbs_Common, bbs_Common,
bbs_ansi_MenuBox, bbs_ansi_MenuBox,
bbs_ansi_MenuForm; bbs_ansi_MenuForm,
bbs_cfg_Common;
Procedure EditProtocol (Var Prot: RecProtocol); Procedure EditProtocol (Var Prot: RecProtocol);
Var Var
@ -88,41 +89,44 @@ Begin
Box.Header := ' Protocol Editor '; Box.Header := ' Protocol Editor ';
List.NoWindow := True; List.NoWindow := True;
List.LoChars := #01#04#13#27; List.LoChars := #13#27#47;
Box.Open (13, 5, 67, 20); Box.Open (13, 5, 67, 20);
WriteXY (15, 6, 112, 'Active OSID Batch Key Description'); WriteXY (15, 7, 112, 'Active OSID Batch Key Description');
WriteXY (15, 7, 112, strRep('Ä', 51)); WriteXY (15, 8, 112, strRep('Ä', 51));
WriteXY (15, 18, 112, strRep('Ä', 51)); WriteXY (15, 18, 112, strRep('Ä', 51));
WriteXY (18, 19, 112, '(CTRL/A) Add (CTRL/D) Delete (ENTER) Edit'); WriteXY (29, 19, 112, 'Press / for command list');
Repeat Repeat
MakeList; MakeList;
List.Open (13, 7, 67, 18); List.Open (13, 8, 67, 18);
List.Close; List.Close;
Case List.ExitCode of Case List.ExitCode of
#04 : If List.Picked < List.ListMax Then '/' : Case GetCommandOption(11, 'I-Insert|D-Delete|') of
If ShowMsgBox(1, 'Delete this entry?') Then Begin #27 : ;
F.RecordDelete (List.Picked); 'I' : Begin
MakeList; F.RecordInsert (List.Picked);
End;
#01 : Begin
F.RecordInsert (List.Picked);
Prot.OSType := OSType; Prot.OSType := OSType;
Prot.Desc := 'New protocol'; Prot.Desc := 'New protocol';
Prot.Key := '!'; Prot.Key := '!';
Prot.Active := False; Prot.Active := False;
Prot.Batch := False; Prot.Batch := False;
Prot.SendCmd := ''; Prot.SendCmd := '';
Prot.RecvCmd := ''; Prot.RecvCmd := '';
F.Write (Prot); F.Write (Prot);
MakeList; MakeList;
End;
'D' : If List.Picked < List.ListMax Then
If ShowMsgBox(1, 'Delete this entry?') Then Begin
F.RecordDelete (List.Picked);
MakeList;
End;
End; End;
#13 : If List.Picked <> List.ListMax Then Begin #13 : If List.Picked <> List.ListMax Then Begin
F.Seek (List.Picked - 1); F.Seek (List.Picked - 1);