hedgewars/uStore.pas
changeset 1989 129e8c4fe554
parent 1939 4b8e4cd9e7c0
child 2017 7845c77c8d31
--- a/hedgewars/uStore.pas	Mon Apr 13 12:53:52 2009 +0000
+++ b/hedgewars/uStore.pas	Mon Apr 13 12:59:48 2009 +0000
@@ -18,7 +18,7 @@
 
 unit uStore;
 interface
-uses uConsts, uTeams, SDLh, 
+uses uConsts, uTeams, SDLh,
 {$IFDEF IPHONE}
 	gles11,
 {$ELSE}
@@ -655,6 +655,7 @@
 var w, h: LongInt;
     Result: PSDL_Surface;
 begin
+if length(s) = 0 then s:= ' ';
 TTF_SizeUTF8(Fontz[font].Handle, Str2PChar(s), w, h);
 
 Result:= SDL_CreateRGBSurface(SDL_SWSURFACE, w + FontBorder * 2 + 4, h + FontBorder * 2,