hedgewars/uStore.pas
changeset 2753 2305bb5dc5f2
parent 2751 2a3091b13ce4
child 2786 85f6425a4d74
--- a/hedgewars/uStore.pas	Thu Feb 04 22:30:42 2010 +0000
+++ b/hedgewars/uStore.pas	Thu Feb 04 22:34:21 2010 +0000
@@ -38,11 +38,7 @@
     Step: LongInt;
     squaresize : LongInt;
     numsquares : LongInt;
-{$IFDEF SDL13notworking}
-    ProgrTex: TSDL_TextureID;
-{$ELSE}
     ProgrTex: PTexture;
-{$ENDIF}
 
 procedure init_uStore;
 procedure free_uStore;
@@ -1485,18 +1481,16 @@
 end;
 
 procedure RenderWeaponTooltip(atype: TAmmoType);
+{$IFNDEF IPHONEOS}
 var r: TSDL_Rect;
 	i: LongInt;
 	extra: string;
 	extracolor: LongInt;
 begin
-{$IFNDEF IPHONEOS}
 // don't do anything if the window shouldn't be shown
 if not cWeaponTooltips then
 	begin
-{$ENDIF}
 	WeaponTooltipTex:= nil;
-{$IFNDEF IPHONEOS}
 	exit
 	end;
 
@@ -1532,8 +1526,10 @@
 
 // render window and return the texture
 WeaponTooltipTex:= RenderHelpWindow(trammo[Ammoz[atype].NameId], trammoc[Ammoz[atype].NameId], trammod[Ammoz[atype].NameId], extra, extracolor, SpritesData[sprAMAmmos].Surface, @r)
+end;
+{$ELSE}
+begin end;
 {$ENDIF}
-end;
 
 procedure ShowWeaponTooltip(x, y: LongInt);
 begin
@@ -1564,11 +1560,7 @@
 	cScaleFactor:= 2.0;
 	SupportNPOTT:= false;
 	Step:= 0;
-{$IFDEF SDL13notworking}
-	ProgrTex:= 0;
-{$ELSE}
 	ProgrTex:= nil;
-{$ENDIF}
 end;
 
 procedure free_uStore;