hedgewars/SDLh.pas
changeset 6415 af2047bb4f70
parent 6362 ceacd1b61833
parent 6341 ccc0a58e123d
child 6551 a2f39cb9af62
equal deleted inserted replaced
6414:8474b7fa84d6 6415:af2047bb4f70
    39     {$linklib c}
    39     {$linklib c}
    40   {$ENDIF}
    40   {$ENDIF}
    41   {$IFDEF HAIKU}
    41   {$IFDEF HAIKU}
    42     {$linklib root}
    42     {$linklib root}
    43   {$ELSE}
    43   {$ELSE}
    44     {$linklib pthread}
    44     {$IFNDEF ANDROID}
       
    45       {$linklib pthread}
       
    46     {$ENDIF}
    45   {$ENDIF}
    47   {$ENDIF}
    46 {$ENDIF}
    48 {$ENDIF}
    47 
    49 
    48 {$IFDEF FPC}
    50 {$IFDEF FPC}
    49   {$PACKRECORDS C}
    51   {$PACKRECORDS C}
   856 procedure SDL_WarpMouseInWindow(window: PSDL_Window; x, y: LongInt); cdecl; external SDLLibName;
   858 procedure SDL_WarpMouseInWindow(window: PSDL_Window; x, y: LongInt); cdecl; external SDLLibName;
   857 function  SDL_SetHint(name, value: PChar): Boolean; cdecl; external SDLLibName;
   859 function  SDL_SetHint(name, value: PChar): Boolean; cdecl; external SDLLibName;
   858 procedure SDL_StartTextInput; cdecl; external SDLLibName;
   860 procedure SDL_StartTextInput; cdecl; external SDLLibName;
   859 
   861 
   860 function  SDL_PeepEvents(event: PSDL_Event; numevents: LongInt; action: SDL_eventaction; minType, maxType: LongWord): LongInt; cdecl; external SDLLibName;
   862 function  SDL_PeepEvents(event: PSDL_Event; numevents: LongInt; action: SDL_eventaction; minType, maxType: LongWord): LongInt; cdecl; external SDLLibName;
   861 {$ELSE}
   863 function  SDL_CreateThread(fn: Pointer; name: PChar; data: Pointer): PSDL_Thread; cdecl; external SDLLibName;
       
   864 {$ELSE}
       
   865 function  SDL_CreateThread(fn: Pointer; data: Pointer): PSDL_Thread; cdecl; external SDLLibName;
   862 function  SDL_PeepEvents(event: PSDL_Event; numevents: LongInt; action: SDL_eventaction; mask: LongWord): LongInt; cdecl; external SDLLibName;
   866 function  SDL_PeepEvents(event: PSDL_Event; numevents: LongInt; action: SDL_eventaction; mask: LongWord): LongInt; cdecl; external SDLLibName;
   863 {$ENDIF}
   867 {$ENDIF}
   864 
   868 
   865 function  SDL_GetMouseState(x, y: PLongInt): Byte; cdecl; external SDLLibName;
   869 function  SDL_GetMouseState(x, y: PLongInt): Byte; cdecl; external SDLLibName;
   866 function  SDL_GetKeyName(key: LongWord): PChar; cdecl; external SDLLibName;
   870 function  SDL_GetKeyName(key: LongWord): PChar; cdecl; external SDLLibName;
   874 
   878 
   875 procedure SDL_WM_SetIcon(icon: PSDL_Surface; mask : Byte); cdecl; external SDLLibName;
   879 procedure SDL_WM_SetIcon(icon: PSDL_Surface; mask : Byte); cdecl; external SDLLibName;
   876 procedure SDL_WM_SetCaption(title: PChar; icon: PChar); cdecl; external SDLLibName;
   880 procedure SDL_WM_SetCaption(title: PChar; icon: PChar); cdecl; external SDLLibName;
   877 function  SDL_WM_ToggleFullScreen(surface: PSDL_Surface): LongInt; cdecl; external SDLLibName;
   881 function  SDL_WM_ToggleFullScreen(surface: PSDL_Surface): LongInt; cdecl; external SDLLibName;
   878 
   882 
       
   883 procedure SDL_WaitThread(thread: PSDL_Thread; status: PLongInt); cdecl; external SDLLibName;
   879 function  SDL_CreateMutex: PSDL_mutex; cdecl; external SDLLibName;
   884 function  SDL_CreateMutex: PSDL_mutex; cdecl; external SDLLibName;
   880 procedure SDL_DestroyMutex(mutex: PSDL_mutex); cdecl; external SDLLibName;
   885 procedure SDL_DestroyMutex(mutex: PSDL_mutex); cdecl; external SDLLibName;
   881 function  SDL_LockMutex(mutex: PSDL_mutex): LongInt; cdecl; external SDLLibName name 'SDL_mutexP';
   886 function  SDL_LockMutex(mutex: PSDL_mutex): LongInt; cdecl; external SDLLibName name 'SDL_mutexP';
   882 function  SDL_UnlockMutex(mutex: PSDL_mutex): LongInt; cdecl; external SDLLibName name 'SDL_mutexV';
   887 function  SDL_UnlockMutex(mutex: PSDL_mutex): LongInt; cdecl; external SDLLibName name 'SDL_mutexV';
   883 
   888