hedgewars/uStore.pas
changeset 842 fae2fae2fe8d
parent 841 0700e3d3474d
child 843 27b5180d0988
--- a/hedgewars/uStore.pas	Sun Apr 13 12:45:30 2008 +0000
+++ b/hedgewars/uStore.pas	Sun Apr 13 12:47:18 2008 +0000
@@ -33,7 +33,6 @@
 procedure DrawRotated(Sprite: TSprite; X, Y, Dir: LongInt; Angle: real);
 procedure DrawRotatedF(Sprite: TSprite; X, Y, Frame: LongInt; Angle: real);
 procedure DrawRotatedTex(Tex: PTexture; hw, hh, X, Y, Dir: LongInt; Angle: real);
-procedure DXOutText(X, Y: LongInt; Font: THWFont; s: string; Surface: PSDL_Surface);
 procedure DrawCentered(X, Top: LongInt; Source: PTexture);
 procedure DrawFromRect(X, Y: LongInt; r: PSDL_Rect; SourceTexture: PTexture);
 procedure DrawHedgehog(X, Y: LongInt; Dir: LongInt; Pos, Step: LongWord; Angle: real);
@@ -447,26 +446,6 @@
 DrawFromRect(X, Y, @r, Source)
 end;
 
-procedure DXOutText(X, Y: LongInt; Font: THWFont; s: string; Surface: PSDL_Surface);
-var clr: TSDL_Color;
-    tmpsurf: PSDL_Surface;
-    r: TSDL_Rect;
-begin
-r.x:= X;
-r.y:= Y;
-clr.r:= $FF;
-clr.g:= $FF;
-clr.b:= $FF;
-tmpsurf:= TTF_RenderUTF8_Solid(Fontz[Font].Handle, Str2PChar(s), clr.value);
-if tmpsurf = nil then
-   begin
-   SetKB(1);
-   exit
-   end;
-SDL_UpperBlit(tmpsurf, nil, Surface, @r);
-SDL_FreeSurface(tmpsurf)
-end;
-
 procedure DrawLand(X, Y: LongInt);
 begin
 DrawTexture(X, Y, LandTexture)