hedgewars/SDLh.pas
changeset 8865 dd4035ee0f12
parent 8777 cce79a042cfc
child 9080 9b42757d7e71
equal deleted inserted replaced
8862:85eb1f4b4a5f 8865:dd4035ee0f12
   944 procedure SDL_WarpMouseInWindow(window: PSDL_Window; x, y: LongInt); cdecl; external SDLLibName;
   944 procedure SDL_WarpMouseInWindow(window: PSDL_Window; x, y: LongInt); cdecl; external SDLLibName;
   945 function  SDL_SetHint(name, value: PChar): Boolean; cdecl; external SDLLibName;
   945 function  SDL_SetHint(name, value: PChar): Boolean; cdecl; external SDLLibName;
   946 procedure SDL_StartTextInput; cdecl; external SDLLibName;
   946 procedure SDL_StartTextInput; cdecl; external SDLLibName;
   947 
   947 
   948 function  SDL_PeepEvents(event: PSDL_Event; numevents: LongInt; action: TSDL_eventaction; minType, maxType: LongWord): LongInt; cdecl; external SDLLibName;
   948 function  SDL_PeepEvents(event: PSDL_Event; numevents: LongInt; action: TSDL_eventaction; minType, maxType: LongWord): LongInt; cdecl; external SDLLibName;
   949 function  SDL_CreateThread(fn: Pointer; name: PChar; data: Pointer): PSDL_Thread; cdecl; external SDLLibName;
   949 {$ELSE}
   950 {$ELSE}
       
   951 function  SDL_CreateThread(fn: Pointer; data: Pointer): PSDL_Thread; cdecl; external SDLLibName;
       
   952 function  SDL_PeepEvents(event: PSDL_Event; numevents: LongInt; action: TSDL_eventaction; mask: LongWord): LongInt; cdecl; external SDLLibName;
   950 function  SDL_PeepEvents(event: PSDL_Event; numevents: LongInt; action: TSDL_eventaction; mask: LongWord): LongInt; cdecl; external SDLLibName;
   953 {$ENDIF}
   951 {$ENDIF}
       
   952 
   954 
   953 
   955 function  SDL_GetMouseState(x, y: PLongInt): Byte; cdecl; external SDLLibName;
   954 function  SDL_GetMouseState(x, y: PLongInt): Byte; cdecl; external SDLLibName;
   956 function  SDL_GetKeyName(key: LongWord): PChar; cdecl; external SDLLibName;
   955 function  SDL_GetKeyName(key: LongWord): PChar; cdecl; external SDLLibName;
   957 function  SDL_GetScancodeName(key: LongWord): PChar; cdecl; external SDLLibName;
   956 function  SDL_GetScancodeName(key: LongWord): PChar; cdecl; external SDLLibName;
   958 function  SDL_GetKeyFromScancode(key: LongWord): LongInt; cdecl; external SDLLibName;
   957 function  SDL_GetKeyFromScancode(key: LongWord): LongInt; cdecl; external SDLLibName;
   967 
   966 
   968 procedure SDL_WM_SetIcon(icon: PSDL_Surface; mask : Byte); cdecl; external SDLLibName;
   967 procedure SDL_WM_SetIcon(icon: PSDL_Surface; mask : Byte); cdecl; external SDLLibName;
   969 procedure SDL_WM_SetCaption(title: PChar; icon: PChar); cdecl; external SDLLibName;
   968 procedure SDL_WM_SetCaption(title: PChar; icon: PChar); cdecl; external SDLLibName;
   970 function  SDL_WM_ToggleFullScreen(surface: PSDL_Surface): LongInt; cdecl; external SDLLibName;
   969 function  SDL_WM_ToggleFullScreen(surface: PSDL_Surface): LongInt; cdecl; external SDLLibName;
   971 
   970 
       
   971 
       
   972 // remember to mark the threaded functions as 'cdecl; export;'
       
   973 // (or have fun debugging nil arguments)
       
   974 function  SDL_CreateThread(fn: Pointer; {$IFDEF SDL13}name: PChar;{$ENDIF} data: Pointer): PSDL_Thread; cdecl; external SDLLibName;
   972 procedure SDL_WaitThread(thread: PSDL_Thread; status: PLongInt); cdecl; external SDLLibName;
   975 procedure SDL_WaitThread(thread: PSDL_Thread; status: PLongInt); cdecl; external SDLLibName;
       
   976 procedure SDL_KillThread(thread: PSDL_Thread); cdecl; external SDLLibName;
       
   977 
   973 function  SDL_CreateMutex: PSDL_mutex; cdecl; external SDLLibName;
   978 function  SDL_CreateMutex: PSDL_mutex; cdecl; external SDLLibName;
   974 procedure SDL_DestroyMutex(mutex: PSDL_mutex); cdecl; external SDLLibName;
   979 procedure SDL_DestroyMutex(mutex: PSDL_mutex); cdecl; external SDLLibName;
   975 function  SDL_LockMutex(mutex: PSDL_mutex): LongInt; cdecl; external SDLLibName name 'SDL_mutexP';
   980 function  SDL_LockMutex(mutex: PSDL_mutex): LongInt; cdecl; external SDLLibName name 'SDL_mutexP';
   976 function  SDL_UnlockMutex(mutex: PSDL_mutex): LongInt; cdecl; external SDLLibName name 'SDL_mutexV';
   981 function  SDL_UnlockMutex(mutex: PSDL_mutex): LongInt; cdecl; external SDLLibName name 'SDL_mutexV';
   977 
   982