--- a/hedgewars/uLandTexture.pas	Sat Jun 13 15:39:26 2009 +0000
+++ b/hedgewars/uLandTexture.pas	Sun Jun 14 13:20:28 2009 +0000
@@ -95,7 +95,11 @@
 					begin
 					shouldUpdate:= false;
 					glBindTexture(GL_TEXTURE_2D, tex^.id);
+					{$IFDEF IPHONEOS}
+					glTexSubImage2D(GL_TEXTURE_2D, 0, 0, 0, TEXSIZE, TEXSIZE, GL_BGRA, GL_UNSIGNED_BYTE, Pixels(x, y));
+					{$ELSE}
 					glTexSubImage2D(GL_TEXTURE_2D, 0, 0, 0, TEXSIZE, TEXSIZE, GL_RGBA, GL_UNSIGNED_BYTE, Pixels(x, y));
+					{$ENDIF}
 					end
 end;