hedgewars/uStore.pas
changeset 7026 8d1724e1337e
parent 7013 54db061b5710
child 7027 f264ad9d8965
equal deleted inserted replaced
7025:831a25c74c7b 7026:8d1724e1337e
  1139         CountTexz[i] := nil;
  1139         CountTexz[i] := nil;
  1140 end;
  1140 end;
  1141 
  1141 
  1142 procedure freeModule;
  1142 procedure freeModule;
  1143 begin
  1143 begin
       
  1144     StoreRelease(false);
       
  1145     TTF_Quit();
       
  1146 {$IFDEF SDL13}
       
  1147     SDL_GL_DeleteContext(SDLGLcontext);
       
  1148     SDL_DestroyWindow(SDLwindow);
       
  1149 {$ENDIF}
       
  1150     SDL_Quit();
  1144 end;
  1151 end;
  1145 
  1152 
  1146 end.
  1153 end.