hedgewars/SDLh.pas
changeset 3928 2560731c860d
parent 3904 22e4d74240e5
child 4380 b78638b36b89
equal deleted inserted replaced
3926:668b71f31e51 3928:2560731c860d
   840 procedure SDLNet_Write16(value: Word; buf: pointer);
   840 procedure SDLNet_Write16(value: Word; buf: pointer);
   841 procedure SDLNet_Write32(value: LongWord; buf: pointer);
   841 procedure SDLNet_Write32(value: LongWord; buf: pointer);
   842 function  SDLNet_Read16(buf: pointer): Word;
   842 function  SDLNet_Read16(buf: pointer): Word;
   843 function  SDLNet_Read32(buf: pointer): LongWord;
   843 function  SDLNet_Read32(buf: pointer): LongWord;
   844 
   844 
   845 {$IFDEF IPHONEOS}
       
   846 (*  iPhone related calls  *)
       
   847 procedure clearView; cdecl; external;
       
   848 procedure startSpinning; cdecl; external;
       
   849 procedure stopSpinning; cdecl; external;
       
   850 function  isPhone: Boolean; cdecl; external;
       
   851 procedure replayBegan; cdecl; external;
       
   852 procedure replayFinished; cdecl; external;
       
   853 {$ENDIF}
       
   854 implementation
   845 implementation
   855 
   846 
   856 function SDL_MustLock(Surface: PSDL_Surface): Boolean;
   847 function SDL_MustLock(Surface: PSDL_Surface): Boolean;
   857 begin
   848 begin
   858     SDL_MustLock:= ( surface^.offset <> 0 ) or (( surface^.flags and (SDL_HWSURFACE or SDL_ASYNCBLIT or SDL_RLEACCEL)) <> 0)
   849     SDL_MustLock:= ( surface^.offset <> 0 ) or (( surface^.flags and (SDL_HWSURFACE or SDL_ASYNCBLIT or SDL_RLEACCEL)) <> 0)