hedgewars/SDLh.pas
branchhedgeroid
changeset 6330 1bde8940e1bb
parent 6328 d14adf1c7721
child 6334 b05d3af9a58e
equal deleted inserted replaced
6328:d14adf1c7721 6330:1bde8940e1bb
   462         type_: LongWord;
   462         type_: LongWord;
   463         windowID: LongWord;
   463         windowID: LongWord;
   464         text: array[0..31] of Byte;
   464         text: array[0..31] of Byte;
   465         end;
   465         end;
   466 
   466 
       
   467     SDL_TouchID = LongInt;
       
   468     SDL_FingerID = LongInt;
       
   469 
   467     TSDL_TouchFingerEvent = record
   470     TSDL_TouchFingerEvent = record
   468         type_: LongWord;
   471         type_: LongWord;
   469         windowId: LongWord;
   472         windowId: LongWord;
   470         touchId: Int64;
   473         touchId: Int64;
   471         fingerId: Int64;
   474         fingerId: Int64;
   562         type_: LongWord;
   565         type_: LongWord;
   563 {$IFDEF SDL13}
   566 {$IFDEF SDL13}
   564         windowID: LongWord;
   567         windowID: LongWord;
   565 {$ELSE}
   568 {$ELSE}
   566         which: Byte;
   569         which: Byte;
       
   570 {$ENDIF}
   567         x, y: LongInt;
   571         x, y: LongInt;
   568         end;
   572         end;
   569 
   573 
   570     TSDL_JoyAxisEvent = record
   574     TSDL_JoyAxisEvent = record
   571         type_: {$IFDEF SDL13}LongWord{$ELSE}Byte{$ENDIF};
   575         type_: {$IFDEF SDL13}LongWord{$ELSE}Byte{$ENDIF};
   609 {$IFDEF SDL13}
   613 {$IFDEF SDL13}
   610         padding1: Byte;
   614         padding1: Byte;
   611 {$ENDIF}
   615 {$ENDIF}
   612         end;
   616         end;
   613 
   617 
   614     SDL_TouchID = LongInt;
       
   615     SDL_FingerID = LongInt;
       
   616 
       
   617     TSDL_TouchFingerEvent = record
       
   618         type_: LongWord;
       
   619         windowId: LongWord;
       
   620         touchId: SDL_TouchID;
       
   621         fingerId: SDL_FingerID;
       
   622         state, padding1, padding2, padding3: Byte;
       
   623         x,y: Word;
       
   624         dx,dy: ShortInt;
       
   625         pressure: Word;
       
   626     end;
       
   627 //TODO: implement SDL_TouchButtonEvent, SDL_MultiGestureEvent, SDL_DollarGestureEvent
   618 //TODO: implement SDL_TouchButtonEvent, SDL_MultiGestureEvent, SDL_DollarGestureEvent
   628 
   619 
   629     TSDL_QuitEvent = record
   620     TSDL_QuitEvent = record
   630         type_: {$IFDEF SDL13}LongWord{$ELSE}Byte{$ENDIF};
   621         type_: {$IFDEF SDL13}LongWord{$ELSE}Byte{$ENDIF};
   631         end;
   622         end;
   658             SDL_JOYAXISMOTION: (jaxis: TSDL_JoyAxisEvent);
   649             SDL_JOYAXISMOTION: (jaxis: TSDL_JoyAxisEvent);
   659             SDL_JOYBALLMOTION: (jball: TSDL_JoyBallEvent);
   650             SDL_JOYBALLMOTION: (jball: TSDL_JoyBallEvent);
   660             SDL_JOYHATMOTION: (jhat: TSDL_JoyHatEvent);
   651             SDL_JOYHATMOTION: (jhat: TSDL_JoyHatEvent);
   661             SDL_JOYBUTTONDOWN,
   652             SDL_JOYBUTTONDOWN,
   662             SDL_JOYBUTTONUP: (jbutton: TSDL_JoyButtonEvent);
   653             SDL_JOYBUTTONUP: (jbutton: TSDL_JoyButtonEvent);
   663             SDL_FINGERMOTION,
       
   664             SDL_FINGERUP,
       
   665             SDL_FINGERDOWN:(tfinger: TSDL_TouchFingerEvent);
       
   666             SDL_QUITEV: (quit: TSDL_QuitEvent);
   654             SDL_QUITEV: (quit: TSDL_QuitEvent);
   667             SDL_USEREVENT: (user: TSDL_UserEvent);
   655             SDL_USEREVENT: (user: TSDL_UserEvent);
   668             SDL_SYSWMEVENT: (syswm: TSDL_SysWMEvent);
   656             SDL_SYSWMEVENT: (syswm: TSDL_SysWMEvent);
   669             SDL_FINGERDOWN,
   657             SDL_FINGERDOWN,
   670             SDL_FINGERUP,
   658             SDL_FINGERUP,
   893 
   881 
   894 procedure SDL_WM_SetIcon(icon: PSDL_Surface; mask : Byte); cdecl; external SDLLibName;
   882 procedure SDL_WM_SetIcon(icon: PSDL_Surface; mask : Byte); cdecl; external SDLLibName;
   895 procedure SDL_WM_SetCaption(title: PChar; icon: PChar); cdecl; external SDLLibName;
   883 procedure SDL_WM_SetCaption(title: PChar; icon: PChar); cdecl; external SDLLibName;
   896 function  SDL_WM_ToggleFullScreen(surface: PSDL_Surface): LongInt; cdecl; external SDLLibName;
   884 function  SDL_WM_ToggleFullScreen(surface: PSDL_Surface): LongInt; cdecl; external SDLLibName;
   897 
   885 
       
   886 function  SDL_CreateThread(fn: pointer; data: pointer): PSDL_Thread; cdecl; external SDLLibName;
       
   887 procedure SDL_WaitThread(thread: PSDL_Thread; status: PLongInt); cdecl; external SDLLibName;
   898 function  SDL_CreateMutex: PSDL_mutex; cdecl; external SDLLibName;
   888 function  SDL_CreateMutex: PSDL_mutex; cdecl; external SDLLibName;
   899 procedure SDL_DestroyMutex(mutex: PSDL_mutex); cdecl; external SDLLibName;
   889 procedure SDL_DestroyMutex(mutex: PSDL_mutex); cdecl; external SDLLibName;
   900 function  SDL_LockMutex(mutex: PSDL_mutex): LongInt; cdecl; external SDLLibName name 'SDL_mutexP';
   890 function  SDL_LockMutex(mutex: PSDL_mutex): LongInt; cdecl; external SDLLibName name 'SDL_mutexP';
   901 function  SDL_UnlockMutex(mutex: PSDL_mutex): LongInt; cdecl; external SDLLibName name 'SDL_mutexV';
   891 function  SDL_UnlockMutex(mutex: PSDL_mutex): LongInt; cdecl; external SDLLibName name 'SDL_mutexV';
   902 
   892