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