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

Change WriteXYPipe to allow non-formatting

This commit is contained in:
mysticbbs 2012-08-21 17:55:57 -04:00
parent df00c62ae8
commit 95c80b02a8
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
mystic/bbs_ansi_menubox.pas
View File

@ -8,7 +8,7 @@ Uses
m_Types; m_Types;
Procedure WriteXY (X, Y, A: Byte; S: String); Procedure WriteXY (X, Y, A: Byte; S: String);
Procedure WriteXYPipe (X, Y, A, SZ : Byte; S: String); Procedure WriteXYPipe (X, Y, A: Byte; SZ: SmallInt; S: String);
Function InXY (X, Y, Field, Max, Mode: Byte; Default: String) : String; Function InXY (X, Y, Field, Max, Mode: Byte; Default: String) : String;
Function InBox (Header, Text, Def: String; Len, MaxLen: Byte) : String; Function InBox (Header, Text, Def: String; Len, MaxLen: Byte) : String;
Procedure VerticalLine (X, Y1, Y2 : Byte); Procedure VerticalLine (X, Y1, Y2 : Byte);
@ -122,7 +122,7 @@ Begin
Session.io.OutRaw (S); Session.io.OutRaw (S);
End; End;
Procedure WriteXYPipe (X, Y, A, SZ: Byte; S: String); Procedure WriteXYPipe (X, Y, A: Byte; SZ: SmallInt; S: String);
Var Var
Count : Byte; Count : Byte;
Code : String[2]; Code : String[2];