hedgewars/uInputHandler.pas
changeset 13050 25a9260244f3
parent 13047 29357016f374
child 13073 6369d148cfff
equal deleted inserted replaced
13049:1df5b407f368 13050:25a9260244f3
   123     if code = -1 then
   123     if code = -1 then
   124         KeyBindToName:= trmsg[sidUnknownKey]
   124         KeyBindToName:= trmsg[sidUnknownKey]
   125     else
   125     else
   126         begin
   126         begin
   127         name:= SDL_GetKeyName(SDL_GetKeyFromScancode(code));
   127         name:= SDL_GetKeyName(SDL_GetKeyFromScancode(code));
   128         if (name <> '') then
   128         if (name = 'Escape') then
       
   129             // Let's shorten the name “Escape” for the quit menu
       
   130             KeyBindToName:= 'Esc'
       
   131         else if (name <> '') then
   129             KeyBindToName:= name
   132             KeyBindToName:= name
   130         else
   133         else
   131             begin
   134             begin
   132             WriteLnToConsole('Error: KeyBindToName('+bind+') failed to find SDL key name!');
   135             WriteLnToConsole('Error: KeyBindToName('+bind+') failed to find SDL key name!');
   133             KeyBindToName:= trmsg[sidUnknownKey];
   136             KeyBindToName:= trmsg[sidUnknownKey];