hedgewars/SDLh.pas
changeset 433 9f8f22094c0e
parent 432 b0f693024b50
child 459 95163c6efa69
equal deleted inserted replaced
432:b0f693024b50 433:9f8f22094c0e
   186      PByteArray = ^TByteArray;
   186      PByteArray = ^TByteArray;
   187      TByteArray = array[0..65535] of Byte;
   187      TByteArray = array[0..65535] of Byte;
   188      PLongWordArray = ^TLongWordArray;
   188      PLongWordArray = ^TLongWordArray;
   189      TLongWordArray = array[0..16383] of LongWord;
   189      TLongWordArray = array[0..16383] of LongWord;
   190 
   190 
       
   191      PSDL_Thread = Pointer;
       
   192      PSDL_mutex = Pointer;
       
   193      
   191 function  SDL_Init(flags: Longword): LongInt; cdecl; external SDLLibName;
   194 function  SDL_Init(flags: Longword): LongInt; cdecl; external SDLLibName;
   192 procedure SDL_Quit; cdecl; external SDLLibName;
   195 procedure SDL_Quit; cdecl; external SDLLibName;
   193 function  SDL_VideoDriverName(var namebuf; maxlen: LongInt): PChar; cdecl; external SDLLibName;
   196 function  SDL_VideoDriverName(var namebuf; maxlen: LongInt): PChar; cdecl; external SDLLibName;
   194 procedure SDL_EnableUNICODE(enable: LongInt); cdecl; external SDLLibName;
   197 procedure SDL_EnableUNICODE(enable: LongInt); cdecl; external SDLLibName;
   195 
   198 
   230 function  SDL_PollEvent(event: PSDL_Event): LongInt; cdecl; external SDLLibName;
   233 function  SDL_PollEvent(event: PSDL_Event): LongInt; cdecl; external SDLLibName;
   231 
   234 
   232 function  SDL_ShowCursor(toggle: LongInt): LongInt; cdecl; external SDLLibName;
   235 function  SDL_ShowCursor(toggle: LongInt): LongInt; cdecl; external SDLLibName;
   233 
   236 
   234 procedure SDL_WM_SetCaption(title: PChar; icon: PChar); cdecl; external SDLLibName;
   237 procedure SDL_WM_SetCaption(title: PChar; icon: PChar); cdecl; external SDLLibName;
       
   238 
       
   239 function  SDL_CreateThread(fn: pointer; data: pointer): PSDL_Thread; cdecl; external SDLLibName;
       
   240 procedure SDL_WaitThread(thread: PSDL_Thread; status: PLongInt); cdecl; external SDLLibName;
       
   241 function  SDL_CreateMutex: PSDL_mutex; cdecl; external SDLLibName;
       
   242 procedure SDL_DestroyMutex(mutex: PSDL_mutex); cdecl; external SDLLibName;
       
   243 function  SDL_LockMutex(mutex: PSDL_mutex): LongInt; cdecl; external SDLLibName name 'SDL_mutexP';
       
   244 function  SDL_UnlockMutex(mutex: PSDL_mutex): LongInt; cdecl; external SDLLibName name 'SDL_mutexV';
   235 
   245 
   236 (*  TTF  *)
   246 (*  TTF  *)
   237 
   247 
   238 const {$IFDEF WIN32}
   248 const {$IFDEF WIN32}
   239       SDL_TTFLibName = 'SDL_ttf.dll';
   249       SDL_TTFLibName = 'SDL_ttf.dll';