hedgewars/uChat.pas
changeset 8741 c98ec6865631
parent 8740 3eb1891f81ef
child 8742 b7b8bd398c1b
equal deleted inserted replaced
8740:3eb1891f81ef 8741:c98ec6865631
   327                 SetLine(InputStr, '', false)
   327                 SetLine(InputStr, '', false)
   328                 end;
   328                 end;
   329             CleanupInput;
   329             CleanupInput;
   330             end;
   330             end;
   331         {arrow keys (up, down)}
   331         {arrow keys (up, down)}
   332         63232, 63233: begin
   332         111, 116,     //linux
   333 
   333         63232, 63233: //osx
   334             if (Key = 63232) and (history < localLastStr) then inc(history);
   334             begin
   335             if (Key = 63233) and (history > 0) then dec(history);
   335 
       
   336             if ((Key = 63232) or (Key = 111)) and (history < localLastStr) then inc(history);
       
   337             if ((Key = 63233) or (Key = 116)) and (history > 0) then dec(history);
   336 
   338 
   337             index:= localLastStr - history + 1;
   339             index:= localLastStr - history + 1;
   338             if (index > localLastStr) then
   340             if (index > localLastStr) then
   339                 SetLine(InputStr, '', true)
   341                 SetLine(InputStr, '', true)
   340             else
   342             else