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

Changed byte to Integer

This commit is contained in:
mysticbbs 2013-01-24 15:46:00 -05:00
parent bfb399408b
commit 1f75008199
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
mystic/bbs_nodechat.pas
View File

@ -27,8 +27,8 @@ Var
Procedure FullReDraw; Procedure FullReDraw;
Var Var
Count : Byte; Count : Integer;
Temp : Byte; Temp : Integer;
Begin Begin
If Not Full Then Exit; If Not Full Then Exit;
@ -38,6 +38,7 @@ Begin
For Count := 0 to ChatSize Do Begin For Count := 0 to ChatSize Do Begin
Session.io.AnsiClrEOL; Session.io.AnsiClrEOL;
If Temp <= TextPos Then Begin If Temp <= TextPos Then Begin
Session.io.OutPipeLn (Session.Msgs.MsgText[Temp]); Session.io.OutPipeLn (Session.Msgs.MsgText[Temp]);
Inc (Temp); Inc (Temp);
@ -109,8 +110,8 @@ Function GetKeyNodeChatFunc (Forced: Boolean) : Boolean;
Var Var
Str : String; Str : String;
StrLen : Byte; StrLen : Integer;
Indent : Byte; Indent : Integer;
Lines : Integer; Lines : Integer;
OldAttr : Byte; OldAttr : Byte;
OldX : Byte; OldX : Byte;
@ -299,7 +300,7 @@ Procedure Node_Chat;
Procedure ChatScrollBack; Procedure ChatScrollBack;
Var Var
Ch : Char; Ch : Char;
TopSave : Byte; TopSave : Integer;
Begin Begin
If Not Full Then Exit; If Not Full Then Exit;