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

Nestedproc disable to fix listing buf caused by FPC bug

This commit is contained in:
mysticbbs 2012-07-24 16:29:00 -04:00
parent 429c1e564b
commit 2d67b42fa6
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
mystic/bbs_filebase.pas
View File

@ -1,6 +1,7 @@
Unit bbs_FileBase; Unit bbs_FileBase;
{$I M_OPS.PAS} {$I M_OPS.PAS}
{$MODESWITCH NESTEDPROCVARS-}
Interface Interface
@ -1548,7 +1549,7 @@ Begin
End; End;
End; End;
Function TFileBase.ListFiles (Mode : Byte; Data : String) : Byte; Function TFileBase.ListFiles (Mode: Byte; Data : String) : Byte;
Var Var
ListType : Byte; { 0 = ascii, 1 = ansi } ListType : Byte; { 0 = ascii, 1 = ansi }
DataFile : File; DataFile : File;
@ -1745,9 +1746,9 @@ Var
Begin Begin
If Session.io.ScreenInfo[4].X = 0 Then Exit; If Session.io.ScreenInfo[4].X = 0 Then Exit;
Session.io.AnsiGotoXY (Session.io.ScreenInfo[4].X, Session.io.ScreenInfo[4].Y); Session.io.AnsiGotoXY (Session.io.ScreenInfo[4].X, Session.io.ScreenInfo[4].Y);
Session.io.AnsiColor (Session.io.ScreenInfo[4].A); Session.io.AnsiColor (Session.io.ScreenInfo[4].A);
Session.io.OutRaw (strZero(BatchNum)); Session.io.OutRaw (strZero(BatchNum));
End; End;
Procedure FullReDraw; Procedure FullReDraw;