hedgewars/uChat.pas
changeset 991 d17c71ee074e
parent 990 dfa6a6fe1542
child 993 4319810f23c1
equal deleted inserted replaced
990:dfa6a6fe1542 991:d17c71ee074e
   112 
   112 
   113 visibleCount:= cnt;
   113 visibleCount:= cnt;
   114 
   114 
   115 if (GameState = gsChat)
   115 if (GameState = gsChat)
   116 	and (InputStr.Tex <> nil) then
   116 	and (InputStr.Tex <> nil) then
   117 	DrawTexture(11, visibleCount * 16 + 10, InputStr.Tex);
   117 	DrawTexture(8, visibleCount * 16 + 10, InputStr.Tex);
   118 end;
   118 end;
   119 
   119 
   120 procedure KeyPressChat(Key: Longword);
   120 procedure KeyPressChat(Key: Longword);
   121 const firstByteMark: array[1..4] of byte = (0, $C0, $E0, $F0);
   121 const firstByteMark: array[1..4] of byte = (0, $C0, $E0, $F0);
   122 var i, btw: integer;
   122 var i, btw: integer;