diff -r b203147d91b5 -r ac538f1a629e hedgewars/uStore.pas --- 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;