hedgewars/SDLh.pas
branchsdl2transition
changeset 11363 9006e158a81f
parent 11362 ed5a6478e710
child 11364 b0df3f2fcafc
equal deleted inserted replaced
11362:ed5a6478e710 11363:9006e158a81f
   778 {* SDL *}
   778 {* SDL *}
   779 function  SDL_Init(flags: LongWord): LongInt; cdecl; external SDLLibName;
   779 function  SDL_Init(flags: LongWord): LongInt; cdecl; external SDLLibName;
   780 function  SDL_InitSubSystem(flags: LongWord): LongInt; cdecl; external SDLLibName;
   780 function  SDL_InitSubSystem(flags: LongWord): LongInt; cdecl; external SDLLibName;
   781 procedure SDL_Quit; cdecl; external SDLLibName;
   781 procedure SDL_Quit; cdecl; external SDLLibName;
   782 
   782 
       
   783 procedure SDL_free(mem: Pointer); cdecl; external SDLLibName;
       
   784 
   783 procedure SDL_Delay(msec: LongWord); cdecl; external SDLLibName;
   785 procedure SDL_Delay(msec: LongWord); cdecl; external SDLLibName;
   784 function  SDL_GetTicks: LongWord; cdecl; external SDLLibName;
   786 function  SDL_GetTicks: LongWord; cdecl; external SDLLibName;
   785 
   787 
   786 function  SDL_MustLock(Surface: PSDL_Surface): Boolean;
   788 function  SDL_MustLock(Surface: PSDL_Surface): Boolean;
   787 function  SDL_LockSurface(Surface: PSDL_Surface): LongInt; cdecl; external SDLLibName;
   789 function  SDL_LockSurface(Surface: PSDL_Surface): LongInt; cdecl; external SDLLibName;
   984 procedure SDLNet_TCP_Close(sock: PTCPsocket); cdecl; external SDL_NetLibName;
   986 procedure SDLNet_TCP_Close(sock: PTCPsocket); cdecl; external SDL_NetLibName;
   985 procedure SDLNet_FreeSocketSet(_set: PSDLNet_SocketSet); cdecl; external SDL_NetLibName;
   987 procedure SDLNet_FreeSocketSet(_set: PSDLNet_SocketSet); cdecl; external SDL_NetLibName;
   986 function  SDLNet_AddSocket(_set: PSDLNet_SocketSet; sock: PTCPSocket): LongInt; cdecl; external SDL_NetLibName;
   988 function  SDLNet_AddSocket(_set: PSDLNet_SocketSet; sock: PTCPSocket): LongInt; cdecl; external SDL_NetLibName;
   987 function  SDLNet_CheckSockets(_set: PSDLNet_SocketSet; timeout: LongInt): LongInt; cdecl; external SDL_NetLibName;
   989 function  SDLNet_CheckSockets(_set: PSDLNet_SocketSet; timeout: LongInt): LongInt; cdecl; external SDL_NetLibName;
   988 
   990 
       
   991 // SDL 2 clipboard functions
       
   992 function SDL_HasClipboardText(): Boolean; cdecl; external SDLLibName;
       
   993 function SDL_GetClipboardText(): PChar; cdecl; external SDLLibName;
   989 
   994 
   990 procedure SDLNet_Write16(value: Word; buf: Pointer);
   995 procedure SDLNet_Write16(value: Word; buf: Pointer);
   991 procedure SDLNet_Write32(value: LongWord; buf: Pointer);
   996 procedure SDLNet_Write32(value: LongWord; buf: Pointer);
   992 function  SDLNet_Read16(buf: Pointer): Word;
   997 function  SDLNet_Read16(buf: Pointer): Word;
   993 function  SDLNet_Read32(buf: Pointer): LongWord;
   998 function  SDLNet_Read32(buf: Pointer): LongWord;
  1058                   (PByteArray(buf)^[2] shl  8) or
  1063                   (PByteArray(buf)^[2] shl  8) or
  1059                   (PByteArray(buf)^[1] shl 16) or
  1064                   (PByteArray(buf)^[1] shl 16) or
  1060                   (PByteArray(buf)^[0] shl 24)
  1065                   (PByteArray(buf)^[0] shl 24)
  1061 end;
  1066 end;
  1062 
  1067 
       
  1068 
  1063 end.
  1069 end.
  1064 
  1070