hedgewars/uLand.pas
changeset 760 23aaafa40b4e
parent 758 bebfae2063b3
child 766 cdc8f75ab7bc
--- a/hedgewars/uLand.pas	Sat Jan 26 10:55:34 2008 +0000
+++ b/hedgewars/uLand.pas	Sun Jan 27 13:23:57 2008 +0000
@@ -313,9 +313,10 @@
       end;
 SDL_FreeSurface(tmpsurf);
 
+
 tmpsurf:= SDL_CreateRGBSurfaceFrom(@Land, 2048, 1024, 32, 2048*4, RMask, GMask, BMask, 0);
 SDLTry(tmpsurf <> nil, true);
-//SDL_SetColorKey(tmpsurf, SDL_SRCCOLORKEY, SDL_MapRGB(tmpsurf^.format, $FF, $FF, $FF));
+SDL_SetColorKey(tmpsurf, SDL_SRCCOLORKEY, SDL_MapRGB(tmpsurf^.format, $FF, $FF, $FF));
 SDL_UpperBlit(tmpsurf, nil, Surface, nil);
 SDL_FreeSurface(tmpsurf)
 end;
@@ -527,7 +528,6 @@
 TryDo(LandSurface <> nil, 'Error creating land surface', true);
 SDL_FillRect(LandSurface, nil, 0);
 AddProgress;
-
 SDL_SetColorKey(tmpsurf, SDL_SRCCOLORKEY, 0);
 AddObjects(tmpsurf, LandSurface);
 SDL_FreeSurface(tmpsurf);