hedgewars/uRenderUtils.pas
branchsdl2transition
changeset 9682 aa2431ed87b2
parent 9080 9b42757d7e71
child 11342 ed5a6478e710
--- a/hedgewars/uRenderUtils.pas	Tue Nov 05 23:33:23 2013 +0100
+++ b/hedgewars/uRenderUtils.pas	Thu Nov 07 21:06:30 2013 +0400
@@ -99,7 +99,7 @@
     tmpsurf:= TTF_RenderUTF8_Blended(Fontz[Font].Handle, Str2PChar(s), clr);
     finalRect.x:= X + cFontBorder + 2;
     finalRect.y:= Y + cFontBorder;
-    SDLTry(tmpsurf <> nil, true);
+    SDLTry(tmpsurf <> nil, 'TTF_RenderUTF8_Blended', true);
     SDL_UpperBlit(tmpsurf, @textRect, Surface, @finalRect);
     SDL_FreeSurface(tmpsurf);
     finalRect.x:= X;
@@ -449,7 +449,7 @@
                 rect.x:= edgeHeight + 1 + ((i - w) div 2);
                 // trying to more evenly position the text, vertically
                 rect.y:= edgeHeight + ((j-(numLines*h)) div 2) + line * h;
-                SDLTry(tmpsurf <> nil, true);
+                SDLTry(tmpsurf <> nil, 'TTF_RenderUTF8_Blended', true);
                 SDL_UpperBlit(tmpsurf, nil, finalSurface, @rect);
                 SDL_FreeSurface(tmpsurf);
                 inc(line);