hedgewars/uStore.pas
changeset 567 b6de36975a3c
parent 549 4278a80140a8
child 620 451cabd49241
equal deleted inserted replaced
566:1c1cb593cb81 567:b6de36975a3c
   300          end;
   300          end;
   301 
   301 
   302 GetSkyColor;
   302 GetSkyColor;
   303 
   303 
   304 AddProgress;
   304 AddProgress;
   305 tmpsurf:= LoadImage(Pathz[ptGraphics] + '/' + cHHFileName, false, true, true);
   305 
   306 TryDo(SDL_SetColorKey(tmpsurf, SDL_SRCCOLORKEY or SDL_RLEACCEL, 0) = 0, errmsgTransparentSet, true);
   306 HHSurface:= LoadImage(Pathz[ptGraphics] + '/' + cHHFileName, true, true, true);
   307 HHSurface:= SDL_DisplayFormat(tmpsurf);
       
   308 SDL_FreeSurface(tmpsurf);
       
   309 
   307 
   310 InitHealth;
   308 InitHealth;
   311 
   309 
   312 PauseSurface:= RenderString(trmsg[sidPaused], $FFFF00, fntBig);
   310 PauseSurface:= RenderString(trmsg[sidPaused], $FFFF00, fntBig);
   313 
   311