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

27
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,28 +89,25 @@ 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;
End;
#01 : Begin
F.RecordInsert (List.Picked); F.RecordInsert (List.Picked);
Arc.OSType := OSType; Arc.OSType := OSType;
@ -124,6 +122,11 @@ Begin
MakeList; MakeList;
End; End;
'D' : If ShowMsgBox(1, 'Delete this entry?') Then Begin
F.RecordDelete (List.Picked);
MakeList;
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);
F.Read (Arc); F.Read (Arc);