hedgewars/hwengine.pas
changeset 3647 0d0df215fb52
parent 3634 93d260c96635
child 3663 8c28abf427f5
equal deleted inserted replaced
3646:a3271158d93b 3647:0d0df215fb52
   149     begin
   149     begin
   150 
   150 
   151         while SDL_PollEvent(@event) <> 0 do
   151         while SDL_PollEvent(@event) <> 0 do
   152         begin
   152         begin
   153             case event.type_ of
   153             case event.type_ of
   154                 SDL_KEYDOWN: if GameState = gsChat then KeyPressChat(event.key.keysym.unicode);
   154                 SDL_KEYDOWN: if GameState = gsChat then
       
   155 {$IFDEF IPHONEOS}
       
   156                     // sdl on iphone supports only ashii keyboards and the unicode field is deprecated in sdl 1.3
       
   157                     KeyPressChat(event.key.keysym.sym);
       
   158 {$ELSE}
       
   159                     KeyPressChat(event.key.keysym.unicode);
       
   160 {$ENDIF}
   155 {$IFDEF SDL13}
   161 {$IFDEF SDL13}
   156                 SDL_WINDOWEVENT:
   162                 SDL_WINDOWEVENT:
   157                     if event.wevent.event = SDL_WINDOWEVENT_SHOWN then
   163                     if event.wevent.event = SDL_WINDOWEVENT_SHOWN then
   158                         cHasFocus:= true;
   164                         cHasFocus:= true;
   159 {$ELSE}
   165 {$ELSE}