Small fixes
authorunc0rr
Sat, 21 Jul 2007 16:35:12 +0000
changeset 567 b6de36975a3c
parent 566 1c1cb593cb81
child 568 d0690b7aa808
Small fixes
hedgewars/uConsts.pas
hedgewars/uLand.pas
hedgewars/uStore.pas
--- a/hedgewars/uConsts.pas	Sat Jul 21 15:45:41 2007 +0000
+++ b/hedgewars/uConsts.pas	Sat Jul 21 16:35:12 2007 +0000
@@ -330,6 +330,7 @@
                      (FileName:    'Switch'; Path: ptGraphics; AltPath: ptNone; Surface: nil;
                      Width:  32; Height: 32; hasAlpha: false) // sprSwitch
                      );
+                     
       Soundz: array[TSound] of record
                                        FileName: String[31];
                                        Path    : TPathType;
--- a/hedgewars/uLand.pas	Sat Jul 21 15:45:41 2007 +0000
+++ b/hedgewars/uLand.pas	Sat Jul 21 16:35:12 2007 +0000
@@ -298,7 +298,7 @@
 var tmpsurf: PSDL_Surface;
     r: TSDL_Rect;
 begin
-tmpsurf:= LoadImage(Pathz[ptCurrTheme] + '/LandTex', false, true, true);
+tmpsurf:= LoadImage(Pathz[ptCurrTheme] + '/LandTex', false, true, false);
 r.y:= 0;
 while r.y < 1024 do
       begin
--- a/hedgewars/uStore.pas	Sat Jul 21 15:45:41 2007 +0000
+++ b/hedgewars/uStore.pas	Sat Jul 21 16:35:12 2007 +0000
@@ -302,10 +302,8 @@
 GetSkyColor;
 
 AddProgress;
-tmpsurf:= LoadImage(Pathz[ptGraphics] + '/' + cHHFileName, false, true, true);
-TryDo(SDL_SetColorKey(tmpsurf, SDL_SRCCOLORKEY or SDL_RLEACCEL, 0) = 0, errmsgTransparentSet, true);
-HHSurface:= SDL_DisplayFormat(tmpsurf);
-SDL_FreeSurface(tmpsurf);
+
+HHSurface:= LoadImage(Pathz[ptGraphics] + '/' + cHHFileName, true, true, true);
 
 InitHealth;