hedgewars/hwengine.pas
branch0.9.15
changeset 4779 53f7e964a338
parent 4773 69f8431a5d20
child 4894 efcea232bbf6
equal deleted inserted replaced
4732:10f675aee907 4779:53f7e964a338
   154                 SDL_WINDOWEVENT:
   154                 SDL_WINDOWEVENT:
   155                     if event.wevent.event = SDL_WINDOWEVENT_SHOWN then
   155                     if event.wevent.event = SDL_WINDOWEVENT_SHOWN then
   156                         cHasFocus:= true;
   156                         cHasFocus:= true;
   157 {$ELSE}
   157 {$ELSE}
   158                     KeyPressChat(event.key.keysym.unicode);
   158                     KeyPressChat(event.key.keysym.unicode);
   159                 SDL_MOUSEBUTTONDOWN: if event.button.button = SDL_BUTTON_WHEELDOWN then uKeys.wheelDown:= true;
   159                 SDL_MOUSEBUTTONDOWN: if event.button.button = SDL_BUTTON_WHEELDOWN then wheelDown:= true;
   160                 SDL_MOUSEBUTTONUP: if event.button.button = SDL_BUTTON_WHEELUP then uKeys.wheelUp:= true;
   160                 SDL_MOUSEBUTTONUP: if event.button.button = SDL_BUTTON_WHEELUP then wheelUp:= true;
   161                 SDL_ACTIVEEVENT:
   161                 SDL_ACTIVEEVENT:
   162                     if (event.active.state and SDL_APPINPUTFOCUS) <> 0 then
   162                     if (event.active.state and SDL_APPINPUTFOCUS) <> 0 then
   163                         cHasFocus:= event.active.gain = 1;
   163                         cHasFocus:= event.active.gain = 1;
   164 {$ENDIF}
   164 {$ENDIF}
   165                 SDL_JOYAXISMOTION: ControllerAxisEvent(event.jaxis.which, event.jaxis.axis, event.jaxis.value);
   165                 SDL_JOYAXISMOTION: ControllerAxisEvent(event.jaxis.which, event.jaxis.axis, event.jaxis.value);
   238 
   238 
   239     for p:= Succ(Low(TPathType)) to High(TPathType) do
   239     for p:= Succ(Low(TPathType)) to High(TPathType) do
   240         if p <> ptMapCurrent then Pathz[p]:= PathPrefix + '/' + Pathz[p];
   240         if p <> ptMapCurrent then Pathz[p]:= PathPrefix + '/' + Pathz[p];
   241 
   241 
   242     WriteToConsole('Init SDL... ');
   242     WriteToConsole('Init SDL... ');
   243     SDLTry(SDL_Init(SDL_INIT_VIDEO) >= 0, true);
   243     SDLTry(SDL_Init(SDL_INIT_VIDEO or SDL_INIT_NOPARACHUTE) >= 0, true);
   244     WriteLnToConsole(msgOK);
   244     WriteLnToConsole(msgOK);
   245 
   245 
   246     SDL_EnableUNICODE(1);
   246     SDL_EnableUNICODE(1);
   247 
   247 
   248     WriteToConsole('Init SDL_ttf... ');
   248     WriteToConsole('Init SDL_ttf... ');