152 lines
3.7 KiB
ObjectPascal
152 lines
3.7 KiB
ObjectPascal
Unit bbs_cfg_Archive;
|
||
|
||
{$I M_OPS.PAS}
|
||
|
||
Interface
|
||
|
||
Procedure Configuration_ArchiveEditor;
|
||
|
||
Implementation
|
||
|
||
Uses
|
||
m_FileIO,
|
||
m_Strings,
|
||
bbs_Common,
|
||
bbs_Ansi_MenuBox,
|
||
bbs_Ansi_MenuForm,
|
||
bbs_cfg_Common;
|
||
|
||
Procedure EditArchive (Var Arc: RecArchive);
|
||
Var
|
||
Box : TAnsiMenuBox;
|
||
Form : TAnsiMenuForm;
|
||
Topic : String;
|
||
Begin
|
||
Topic := '';
|
||
Box := TAnsiMenuBox.Create;
|
||
Form := TAnsiMenuForm.Create;
|
||
|
||
Box.Header := ' Archive Editor: ' + Arc.Desc + ' ';
|
||
|
||
Box.Open (13, 5, 67, 15);
|
||
|
||
Form.HelpSize := 0;
|
||
|
||
VerticalLine (28, 7, 13);
|
||
|
||
Form.AddBol ('A', ' Active ' , 20, 7, 30, 7, 8, 3, @Arc.Active, '');
|
||
Form.AddStr ('X', ' Extension ' , 17, 8, 30, 8, 11, 4, 4, @Arc.Ext, '');
|
||
Form.AddTog ('O', ' OS ' , 24, 9, 30, 9, 4, 7, 0, 2, 'Windows Linux OSX', @Arc.OSType, '');
|
||
Form.AddStr ('D', ' Description ' , 15, 10, 30, 10, 13, 30, 30, @Arc.Desc, '');
|
||
Form.AddStr ('P', ' Pack Cmd ' , 18, 11, 30, 11, 10, 35, 80, @Arc.Pack, '');
|
||
Form.AddStr ('U', ' Unpack Cmd ' , 16, 12, 30, 12, 12, 35, 80, @Arc.Unpack, '');
|
||
Form.AddStr ('V', ' View Cmd ' , 18, 13, 30, 13, 10, 35, 80, @Arc.View, '');
|
||
|
||
Form.Execute;
|
||
Box.Close;
|
||
|
||
Form.Free;
|
||
Box.Free;
|
||
End;
|
||
|
||
Procedure Configuration_ArchiveEditor;
|
||
Var
|
||
Box : TAnsiMenuBox;
|
||
List : TAnsiMenuList;
|
||
F : TBufFile;
|
||
Arc : RecArchive;
|
||
|
||
// SORT THIS LIST BY NON CASE SENSITIVE ARCHIVE EXTENSION
|
||
Procedure MakeList;
|
||
Var
|
||
OS : String;
|
||
Begin
|
||
List.Clear;
|
||
|
||
F.Reset;
|
||
While Not F.Eof Do Begin
|
||
F.Read (Arc);
|
||
|
||
Case Arc.OSType of
|
||
0 : OS := 'Windows';
|
||
1 : OS := 'Linux ';
|
||
2 : OS := 'OSX';
|
||
End;
|
||
|
||
List.Add (strPadR(YesNoStr[Arc.Active], 5, ' ') + strPadR(Arc.Ext, 7, ' ') + OS + ' ' + Arc.Desc, 0);
|
||
End;
|
||
|
||
List.Add ('', 2);
|
||
End;
|
||
|
||
Begin
|
||
F := TBufFile.Create(SizeOf(RecArchive));
|
||
|
||
F.Open (Config.DataPath + 'archive.dat', fmOpenCreate, fmReadWrite + fmDenyNone, SizeOf(RecArchive));
|
||
|
||
Box := TAnsiMenuBox.Create;
|
||
List := TAnsiMenuList.Create;
|
||
|
||
Box.Header := ' Archive Editor ';
|
||
List.NoWindow := True;
|
||
List.LoChars := #13#27#47;
|
||
|
||
Box.Open (13, 5, 67, 20);
|
||
|
||
WriteXY (15, 7, 112, 'Use Ext OSID Description');
|
||
WriteXY (15, 8, 112, strRep('<27>', 51));
|
||
WriteXY (15, 18, 112, strRep('<27>', 51));
|
||
WriteXY (28, 19, 112, 'Press / for command list');
|
||
|
||
Repeat
|
||
MakeList;
|
||
|
||
List.Open (13, 8, 67, 18);
|
||
List.Close;
|
||
|
||
Case List.ExitCode of
|
||
'/' : Case GetCommandOption(11, 'I-Insert|D-Delete|') of
|
||
#27 : ;
|
||
'I' : Begin
|
||
F.RecordInsert (List.Picked);
|
||
|
||
Arc.OSType := OSType;
|
||
Arc.Active := False;
|
||
Arc.Desc := 'New archive';
|
||
Arc.Ext := 'NEW';
|
||
Arc.Pack := '';
|
||
Arc.Unpack := '';
|
||
Arc.View := '';
|
||
|
||
F.Write (Arc);
|
||
|
||
MakeList;
|
||
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
|
||
F.Seek (List.Picked - 1);
|
||
F.Read (Arc);
|
||
|
||
EditArchive(Arc);
|
||
|
||
F.Seek (List.Picked - 1);
|
||
F.Write (Arc);
|
||
End;
|
||
#27 : Break;
|
||
End;
|
||
Until False;
|
||
|
||
F.Close;
|
||
F.Free;
|
||
|
||
Box.Close;
|
||
List.Free;
|
||
Box.Free;
|
||
End;
|
||
|
||
End.
|