hedgewars/uChat.pas
changeset 10843 5c2ef0507971
parent 10842 a039464cbb4a
child 10844 953d85b7d529
equal deleted inserted replaced
10842:a039464cbb4a 10843:5c2ef0507971
   830 {$ENDIF}
   830 {$ENDIF}
   831     if length(s) = 0 then
   831     if length(s) = 0 then
   832         SetLine(InputStr, '', true)
   832         SetLine(InputStr, '', true)
   833     else
   833     else
   834         begin
   834         begin
   835         SetLine(InputStr, '/team ', true)
   835         SetLine(InputStr, '/team ', true);
   836         // update InputStrL and cursor accordingly
   836         // update InputStrL and cursor accordingly
   837         // this allows cursor-jumping over '/team ' as if it was a single char
   837         // this allows cursor-jumping over '/team ' as if it was a single char
   838         InputStrL[6]:= 0;
   838         InputStrL[6]:= 0;
   839         cursorPos:= 6;
   839         cursorPos:= 6;
   840         UpdateCursorCoords();
   840         UpdateCursorCoords();