hedgewars/uUtils.pas
changeset 9300 e5dafb5843c6
parent 9295 f8819c3dde54
child 9377 48ab6dea8d2f
--- a/hedgewars/uUtils.pas	Sat Jun 29 01:26:05 2013 +0200
+++ b/hedgewars/uUtils.pas	Sat Jun 29 01:56:16 2013 +0200
@@ -505,6 +505,20 @@
 {$I+}
 {$ENDIF}
 
+    //mobile stuff
+    mobileRecord.getScreenDPI:= @getScreenDPI; //TODO: define external function.
+{$IFDEF IPHONEOS}
+    mobileRecord.PerformRumble:= @AudioServicesPlaySystemSound;
+    mobileRecord.GameLoading:= @startLoadingIndicator;
+    mobileRecord.GameLoaded:= @stopLoadingIndicator;
+    mobileRecord.SaveLoadingEnded:= @saveFinishedSynching;
+{$ELSE}
+    mobileRecord.PerformRumble:= nil;
+    mobileRecord.GameLoading:= nil;
+    mobileRecord.GameLoaded:= nil;
+    mobileRecord.SaveLoadingEnded:= nil;
+{$ENDIF}
+
 end;
 
 procedure freeModule;