hedgewars/uWorld.pas
changeset 2569 6f77dd38294a
parent 2567 02ff5f9510b5
child 2571 349b4c586ef5
--- a/hedgewars/uWorld.pas	Tue Oct 20 21:20:47 2009 +0000
+++ b/hedgewars/uWorld.pas	Tue Oct 20 21:22:16 2009 +0000
@@ -319,7 +319,9 @@
     tdx, tdy: Double;
     grp: TCapGroup;
     s: string[15];
+{$IFDEF IPHONEOS}
     x,y: LongInt;
+{$ENDIF}
     offset: LongInt;
 begin
 if ZoomValue < zoom then