hedgewars/SDLh.pas
changeset 2252 03fd99dff989
parent 2251 bf0b59d3536a
child 2253 ecd10eaa5daf
equal deleted inserted replaced
2251:bf0b59d3536a 2252:03fd99dff989
    99 {$IFDEF SDL13}
    99 {$IFDEF SDL13}
   100       SDL_MOUSEMOTION  = 5;
   100       SDL_MOUSEMOTION  = 5;
   101 {$ENDIF}
   101 {$ENDIF}
   102 
   102 
   103       SDL_APPINPUTFOCUS = 2;
   103       SDL_APPINPUTFOCUS = 2;
   104       SDL_GL_DOUBLEBUFFER = 5;
       
   105 
   104 
   106       RMask = $000000FF;
   105       RMask = $000000FF;
   107       GMask = $0000FF00;
   106       GMask = $0000FF00;
   108       BMask = $00FF0000;
   107       BMask = $00FF0000;
   109       AMask = $FF000000;
   108       AMask = $FF000000;
   218                           type_: Byte;
   217                           type_: Byte;
   219                           which: Byte;
   218                           which: Byte;
   220                           state: Byte;
   219                           state: Byte;
   221                           keysym: TSDL_KeySym;
   220                           keysym: TSDL_KeySym;
   222                           end;
   221                           end;
   223 						  
   222      TSDL_GLattr = (
   224 	 {$IFDEF SDL13}
   223     SDL_GL_RED_SIZE,
   225 	 TSDL_MouseMotionEvent = record
   224     SDL_GL_GREEN_SIZE,
   226 							 type_: byte;
   225     SDL_GL_BLUE_SIZE,
   227 							 which: byte;
   226     SDL_GL_ALPHA_SIZE,
   228 							 state: byte;
   227     SDL_GL_BUFFER_SIZE,
   229 							 x    : LongInt;
   228     SDL_GL_DOUBLEBUFFER,
   230 							 y    : LongInt;
   229     SDL_GL_DEPTH_SIZE,
   231 							 xrel : LongInt;
   230     SDL_GL_STENCIL_SIZE,
   232 							 yrel : LongInt;
   231     SDL_GL_ACCUM_RED_SIZE,
   233 							 end;
   232     SDL_GL_ACCUM_GREEN_SIZE,
   234 	 {$ENDIF}
   233     SDL_GL_ACCUM_BLUE_SIZE,
       
   234     SDL_GL_ACCUM_ALPHA_SIZE,
       
   235     SDL_GL_STEREO,
       
   236     SDL_GL_MULTISAMPLEBUFFERS,
       
   237     SDL_GL_MULTISAMPLESAMPLES,
       
   238     SDL_GL_ACCELERATED_VISUAL,
       
   239     SDL_GL_RETAINED_BACKING,
       
   240     SDL_GL_CONTEXT_MAJOR_VERSION,
       
   241     SDL_GL_CONTEXT_MINOR_VERSION );
       
   242 	  
       
   243 {$IFDEF SDL13}
       
   244      TSDL_MouseMotionEvent = record
       
   245                              type_: byte;
       
   246                              which: byte;
       
   247                              state: byte;
       
   248                              x    : LongInt;
       
   249                              y    : LongInt;
       
   250                              xrel : LongInt;
       
   251                              yrel : LongInt;
       
   252                              end;
       
   253 {$ENDIF}
   235 
   254 
   236      TSDL_QuitEvent = record
   255      TSDL_QuitEvent = record
   237                       type_: Byte;
   256                       type_: Byte;
   238                       end;
   257                       end;
   239 	 TSDL_ResizeEvent = record
   258      TSDL_ResizeEvent = record
   240 			type_: Byte;
   259 			type_: Byte;
   241 			w, h: LongInt;
   260 			w, h: LongInt;
   242 			end;
   261 			end;
   243 
   262 
   244      PSDL_Event = ^TSDL_Event;
   263      PSDL_Event = ^TSDL_Event;
   247                        SDL_NOEVENT: (type_: byte);
   266                        SDL_NOEVENT: (type_: byte);
   248                        SDL_ACTIVEEVENT: (active: TSDL_ActiveEvent);
   267                        SDL_ACTIVEEVENT: (active: TSDL_ActiveEvent);
   249                        SDL_KEYDOWN, SDL_KEYUP: (key: TSDL_KeyboardEvent);
   268                        SDL_KEYDOWN, SDL_KEYUP: (key: TSDL_KeyboardEvent);
   250                        SDL_QUITEV: (quit: TSDL_QuitEvent);
   269                        SDL_QUITEV: (quit: TSDL_QuitEvent);
   251                        SDL_VIDEORESIZE: (resize: TSDL_ResizeEvent);
   270                        SDL_VIDEORESIZE: (resize: TSDL_ResizeEvent);
   252 	 {$IFDEF SDL13}
   271 {$IFDEF SDL13}
   253 					   SDL_MOUSEMOTION: (motion: TSDL_MouseMotionEvent);
   272                        SDL_MOUSEMOTION: (motion: TSDL_MouseMotionEvent);
   254      {$ENDIF}
   273 {$ENDIF}
   255 	                   end;
   274      end;
   256 
   275 
   257      PByteArray = ^TByteArray;
   276      PByteArray = ^TByteArray;
   258      TByteArray = array[0..65535] of Byte;
   277      TByteArray = array[0..65535] of Byte;
   259      PLongWordArray = ^TLongWordArray;
   278      PLongWordArray = ^TLongWordArray;
   260      TLongWordArray = array[0..16383] of LongWord;
   279      TLongWordArray = array[0..16383] of LongWord;
   320 function  SDL_CreateMutex: PSDL_mutex; cdecl; external SDLLibName;
   339 function  SDL_CreateMutex: PSDL_mutex; cdecl; external SDLLibName;
   321 procedure SDL_DestroyMutex(mutex: PSDL_mutex); cdecl; external SDLLibName;
   340 procedure SDL_DestroyMutex(mutex: PSDL_mutex); cdecl; external SDLLibName;
   322 function  SDL_LockMutex(mutex: PSDL_mutex): LongInt; cdecl; external SDLLibName name 'SDL_mutexP';
   341 function  SDL_LockMutex(mutex: PSDL_mutex): LongInt; cdecl; external SDLLibName name 'SDL_mutexP';
   323 function  SDL_UnlockMutex(mutex: PSDL_mutex): LongInt; cdecl; external SDLLibName name 'SDL_mutexV';
   342 function  SDL_UnlockMutex(mutex: PSDL_mutex): LongInt; cdecl; external SDLLibName name 'SDL_mutexV';
   324 
   343 
   325 function  SDL_GL_SetAttribute(attr: byte; value: LongInt): LongInt; cdecl; external SDLLibName;
   344 function  SDL_GL_SetAttribute(attr: TSDL_GLattr; value: LongInt): LongInt; cdecl; external SDLLibName;
   326 procedure SDL_GL_SwapBuffers(); cdecl; external SDLLibName;
   345 procedure SDL_GL_SwapBuffers(); cdecl; external SDLLibName;
   327 
   346 
   328 (*  TTF  *)
   347 (*  TTF  *)
   329 
   348 
   330 const {$IFDEF WIN32}
   349 const {$IFDEF WIN32}