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,