hedgewars/hwengine.pas
changeset 5505 a55aab592950
parent 5242 e4f6aa3250eb
child 5521 3be9fda5c3c2
equal deleted inserted replaced
5503:d8632f589008 5505:a55aab592950
   102                 end;
   102                 end;
   103         gsSuspend: exit;
   103         gsSuspend: exit;
   104         end;
   104         end;
   105 
   105 
   106 {$IFDEF SDL13}
   106 {$IFDEF SDL13}
   107     SDL_RenderPresent(SDLrender);
   107     SDL_GL_SwapWindow(SDLwindow);
   108 {$ELSE}
   108 {$ELSE}
   109     SDL_GL_SwapBuffers();
   109     SDL_GL_SwapBuffers();
   110 {$ENDIF}
   110 {$ENDIF}
   111 
   111 
   112     if flagMakeCapture then
   112     if flagMakeCapture then
   127     StoreRelease();
   127     StoreRelease();
   128     ControllerClose();
   128     ControllerClose();
   129     CloseIPC();
   129     CloseIPC();
   130     TTF_Quit();
   130     TTF_Quit();
   131 {$IFDEF SDL13}
   131 {$IFDEF SDL13}
   132     SDL_RenderClear(SDLrender);
   132     SDL_GL_DeleteContext(SDLGLcontext);
   133     SDL_DestroyRenderer(SDLrender);
       
   134     SDL_DestroyWindow(SDLwindow);
   133     SDL_DestroyWindow(SDLwindow);
   135     SDLrender:= nil;
   134     SDLGLcontext:= nil;
   136     SDLwindow:= nil;
   135     SDLwindow:= nil;
   137 {$ENDIF}
   136 {$ENDIF}
   138     SDL_Quit();
   137     SDL_Quit();
   139     isTerminated:= false;
   138     isTerminated:= false;
   140 end;
   139 end;