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

Pipe colors now stripped from file list exports

This commit is contained in:
mysticbbs 2012-02-14 18:34:30 -05:00
parent 5069aa38cc
commit e897765299
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
mystic/bbs_filebase.pas
View File

@ -487,9 +487,9 @@ Begin
AreaSize := 0;
WriteLn (TF, '');
WriteLn (TF, '.-' + strRep('-', Length(FBase.Name)) + '-.');
WriteLn (TF, '| ' + FBase.Name + ' |');
WriteLn (TF, '`-' + strRep('-', Length(FBase.Name)) + '-''');
WriteLn (TF, '.-' + strRep('-', Length(strStripPipe(FBase.Name))) + '-.');
WriteLn (TF, '| ' + strStripPipe(FBase.Name) + ' |');
WriteLn (TF, '`-' + strRep('-', Length(strStripPipe(FBase.Name))) + '-''');
WriteLn (TF, '.' + strRep('-', 77) + '.');
WriteLn (TF, '| File Size Date Description |');
WriteLn (TF, '`' + strRep('-', 77) + '''');