hedgewars/uStore.pas
changeset 518 d48d8c0a546d
parent 510 4e994e1b7abb
child 534 92fb2b0d5117
--- a/hedgewars/uStore.pas	Mon May 21 18:07:25 2007 +0000
+++ b/hedgewars/uStore.pas	Tue May 22 16:31:59 2007 +0000
@@ -39,7 +39,7 @@
 procedure RenderHealth(var Hedgehog: THedgehog);
 procedure AddProgress;
 procedure FinishProgress;
-function  LoadImage(filename: string; hasAlpha, critical, setTransparent: boolean): PSDL_Surface;
+function  LoadImage(const filename: string; hasAlpha, critical, setTransparent: boolean): PSDL_Surface;
 
 var PixelFormat: PSDL_PixelFormat;
  SDLPrimSurface: PSDL_Surface;
@@ -460,7 +460,7 @@
 Hedgehog.HealthTag:= RenderString(s, Hedgehog.Team^.Color, fnt16)
 end;
 
-function  LoadImage(filename: string; hasAlpha: boolean; critical, setTransparent: boolean): PSDL_Surface;
+function  LoadImage(const filename: string; hasAlpha: boolean; critical, setTransparent: boolean): PSDL_Surface;
 var tmpsurf: PSDL_Surface;
     Result: PSDL_Surface;
     s: shortstring;