hedgewars/uStore.pas
changeset 785 ac538f1a629e
parent 780 f45b0e513dfd
child 806 d397c502a5dd
--- a/hedgewars/uStore.pas	Tue Feb 05 18:25:46 2008 +0000
+++ b/hedgewars/uStore.pas	Thu Feb 21 18:48:16 2008 +0000
@@ -493,8 +493,7 @@
 glTexCoord2f(l, b);
 glVertex2i(X, 32 + Y);
 
-glEnd();
-
+glEnd()
 end;
 
 procedure StoreRelease;
@@ -517,12 +516,18 @@
     Result: PSDL_Surface;
 begin
 TTF_SizeUTF8(Fontz[font].Handle, Str2PChar(s), w, h);
+
 Result:= SDL_CreateRGBSurface(SDL_SWSURFACE, w + FontBorder * 2 + 4, h + FontBorder * 2,
          32, RMask, GMask, BMask, AMask);
+
 TryDo(Result <> nil, 'RenderString: fail to create surface', true);
+
 WriteInRoundRect(Result, 0, 0, Color, font, s);
+
 TryDo(SDL_SetColorKey(Result, SDL_SRCCOLORKEY, 0) = 0, errmsgTransparentSet, true);
+
 RenderStringTex:= Surface2Tex(Result);
+
 SDL_FreeSurface(Result)
 end;