436 SDL_FreeSurface(LandSurface  );

   436 SDL_FreeSurface(LandSurface  );

   437 SDL_FreeSurface(StoreSurface )

   437 SDL_FreeSurface(StoreSurface )

   438 end;

   438 end;

   439 

   439 

   440 function  RenderString(s: string; Color: Longword; font: THWFont): PSDL_Surface;

   440 function  RenderString(s: string; Color: Longword; font: THWFont): PSDL_Surface;

   442     Result: PSDL_Surface;

   442     Result: PSDL_Surface;

   443 begin

   443 begin

   444 TTF_SizeUTF8(Fontz[font].Handle, Str2PChar(s), w, h);

   444 TTF_SizeUTF8(Fontz[font].Handle, Str2PChar(s), w, h);

   445 Result:= SDL_CreateRGBSurface(SDL_HWSURFACE, w + FontBorder * 2 + 4, h + FontBorder * 2,

   445 Result:= SDL_CreateRGBSurface(SDL_HWSURFACE, w + FontBorder * 2 + 4, h + FontBorder * 2,

   446          cBits, PixelFormat^.RMask, PixelFormat^.GMask, PixelFormat^.BMask, PixelFormat^.AMask);

   446          cBits, PixelFormat^.RMask, PixelFormat^.GMask, PixelFormat^.BMask, PixelFormat^.AMask);