hedgewars/uLandObjects.pas
changeset 3513 f589230fa21b
parent 3509 d72c2219595d
child 3519 56cbc035b74b
equal deleted inserted replaced
3512:6a8b5f313190 3513:f589230fa21b
   534     begin
   534     begin
   535         if ThemeObjects.objs[i].Surf <> nil then
   535         if ThemeObjects.objs[i].Surf <> nil then
   536             SDL_FreeSurface(ThemeObjects.objs[i].Surf);
   536             SDL_FreeSurface(ThemeObjects.objs[i].Surf);
   537         if SprayObjects.objs[i].Surf <> nil then
   537         if SprayObjects.objs[i].Surf <> nil then
   538             SDL_FreeSurface(SprayObjects.objs[i].Surf);
   538             SDL_FreeSurface(SprayObjects.objs[i].Surf);
       
   539         ThemeObjects.objs[i].Surf:= nil;
       
   540         SprayObjects.objs[i].Surf:= nil;
   539     end;
   541     end;
   540 end;
   542 end;
   541 
   543 
   542 end.
   544 end.