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

New command menu, display cleanup

This commit is contained in:
mysticbbs 2012-02-16 00:26:55 -05:00
parent 3be614aeb5
commit f0cc69f040
1 changed files with 25 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
mystic/bbs_cfg_archive.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 EditArchive (Var Arc: RecArchive); Procedure EditArchive (Var Arc: RecArchive);
Var Var
@ -88,41 +89,43 @@ Begin
Box.Header := ' Archive Editor '; Box.Header := ' Archive 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, 'Use Ext OSID Description'); WriteXY (15, 7, 112, 'Use Ext OSID 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 (28, 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);
Arc.OSType := OSType; Arc.OSType := OSType;
Arc.Active := False; Arc.Active := False;
Arc.Desc := 'New archive'; Arc.Desc := 'New archive';
Arc.Ext := 'NEW'; Arc.Ext := 'NEW';
Arc.Pack := ''; Arc.Pack := '';
Arc.Unpack := ''; Arc.Unpack := '';
Arc.View := ''; Arc.View := '';
F.Write (Arc); F.Write (Arc);
MakeList; MakeList;
End;
'D' : 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);