hedgewars/uChat.pas
changeset 1485 51c11e77408a
parent 1431 21ca09524f9c
child 1819 17dac76954d1
equal deleted inserted replaced
1484:c01512115c12 1485:51c11e77408a
   183 		Key:= Key shr 6
   183 		Key:= Key shr 6
   184 		end;
   184 		end;
   185 	
   185 	
   186 	utf8:= char(Key or firstByteMark[btw]) + utf8;
   186 	utf8:= char(Key or firstByteMark[btw]) + utf8;
   187 
   187 
       
   188 	if byte(InputStr.s[0]) + btw > 240 then exit;
       
   189 
   188 	InputStrL[byte(InputStr.s[0]) + btw]:= InputStr.s[0];
   190 	InputStrL[byte(InputStr.s[0]) + btw]:= InputStr.s[0];
   189 	SetLine(InputStr, InputStr.s + utf8, true)
   191 	SetLine(InputStr, InputStr.s + utf8, true)
   190 	end
   192 	end
   191 end;
   193 end;
   192 
   194