equal
deleted
inserted
replaced
89 ///////////////////////////////////////////////////////////////// |
89 ///////////////////////////////////////////////////////////////// |
90 |
90 |
91 // SDL_Init() flags |
91 // SDL_Init() flags |
92 SDL_INIT_TIMER = $00000001; |
92 SDL_INIT_TIMER = $00000001; |
93 SDL_INIT_AUDIO = $00000010; |
93 SDL_INIT_AUDIO = $00000010; |
94 SDL_INIT_VIDEO = $00000020; |
94 SDL_INIT_VIDEO = $00000020; // implies SDL_INIT_EVENTS (sdl2) |
95 SDL_INIT_JOYSTICK = $00000200; |
95 SDL_INIT_JOYSTICK = $00000200; // implies SDL_INIT_EVENTS (sdl2) |
96 {$IFDEF SDL2} |
96 {$IFDEF SDL2} |
97 SDL_INIT_HAPTIC = $00001000; |
97 SDL_INIT_HAPTIC = $00001000; |
98 SDL_INIT_GAMECONTROLLER = $00002000; // implicitly activates JOYSTICK */ |
98 SDL_INIT_GAMECONTROLLER = $00002000; // implies SDL_INIT_JOYSTICK |
|
99 SDL_INIT_EVENTS = $00004000; |
99 {$ELSE} |
100 {$ELSE} |
100 SDL_INIT_CDROM = $00000100; |
101 SDL_INIT_CDROM = $00000100; |
101 SDL_INIT_EVENTTHREAD = $01000000; |
102 SDL_INIT_EVENTTHREAD = $01000000; |
102 {$ENDIF} |
103 {$ENDIF} |
103 SDL_INIT_NOPARACHUTE = $00100000; |
104 SDL_INIT_NOPARACHUTE = $00100000; |
450 {$ENDIF} |
451 {$ENDIF} |
451 end; |
452 end; |
452 |
453 |
453 {$IFDEF ANDROID} |
454 {$IFDEF ANDROID} |
454 TAndroidio = record |
455 TAndroidio = record |
455 fileName, inputStream, readableByteChannel, readMethod, assetFileDescriptor : Pointer; |
456 fileName, inputStream, readableByteChannel: Pointer; |
|
457 readMethod, assetFileDescriptor: Pointer; |
456 position, size, offset: Int64; |
458 position, size, offset: Int64; |
457 fd: LongInt; |
459 fd: LongInt; |
458 end; |
460 end; |
459 {$ELSE} |
461 {$ELSE} |
460 {$IFDEF WIN32} |
462 {$IFDEF WIN32} |
461 TWinbuffer = record |
463 TWinbuffer = record |
462 data = pointer; |
464 data: Pointer; |
463 size, left : LongInt; |
465 size, left: LongInt; |
464 end; |
466 end; |
465 TWindowsio = record |
467 TWindowsio = record |
466 append = {$IFDEF SDL2}Boolean{$ELSE}LongInt{$ENDIF}; |
468 append : {$IFDEF SDL2}Boolean{$ELSE}LongInt{$ENDIF}; |
467 h = pointer; |
469 h : Pointer; |
468 buffer = TWinbuffer; |
470 buffer : TWinbuffer; |
469 end; |
471 end; |
470 {$ENDIF} |
472 {$ENDIF} |
471 {$ENDIF} |
473 {$ENDIF} |
472 |
474 |
473 TSDL_RWops = record |
475 TSDL_RWops = record |
897 |
899 |
898 PMixMusic = ^TMixMusic; |
900 PMixMusic = ^TMixMusic; |
899 TMixMusic = record |
901 TMixMusic = record |
900 end; |
902 end; |
901 |
903 |
902 TPostMix = procedure(udata: pointer; stream: PByte; len: LongInt); cdecl; |
904 TPostMix = procedure(udata: Pointer; stream: PByte; len: LongInt); cdecl; |
903 |
905 |
904 {* SDL_net *} |
906 {* SDL_net *} |
905 TIPAddress = record |
907 TIPAddress = record |
906 host: LongWord; |
908 host: LongWord; |
907 port: Word; |
909 port: Word; |
1116 function Mix_HaltMusic: LongInt; cdecl; external SDL_MixerLibName; |
1118 function Mix_HaltMusic: LongInt; cdecl; external SDL_MixerLibName; |
1117 |
1119 |
1118 function Mix_FadeInChannelTimed(channel: LongInt; chunk: PMixChunk; loops: LongInt; fadems: LongInt; ticks: LongInt): LongInt; cdecl; external SDL_MixerLibName; |
1120 function Mix_FadeInChannelTimed(channel: LongInt; chunk: PMixChunk; loops: LongInt; fadems: LongInt; ticks: LongInt): LongInt; cdecl; external SDL_MixerLibName; |
1119 function Mix_FadeOutChannel(channel: LongInt; fadems: LongInt): LongInt; cdecl; external SDL_MixerLibName; |
1121 function Mix_FadeOutChannel(channel: LongInt; fadems: LongInt): LongInt; cdecl; external SDL_MixerLibName; |
1120 |
1122 |
1121 procedure Mix_SetPostMix( mix_func: TPostMix; arg: pointer); cdecl; external SDL_MixerLibName; |
1123 procedure Mix_SetPostMix( mix_func: TPostMix; arg: Pointer); cdecl; external SDL_MixerLibName; |
1122 |
1124 |
1123 (* SDL_image *) |
1125 (* SDL_image *) |
1124 function IMG_Init(flags: LongInt): LongInt; {$IFDEF SDL_IMAGE_NEWER}cdecl; external SDL_ImageLibName{$ELSE}inline{$ENDIF}; |
1126 function IMG_Init(flags: LongInt): LongInt; {$IFDEF SDL_IMAGE_NEWER}cdecl; external SDL_ImageLibName{$ELSE}inline{$ENDIF}; |
1125 procedure IMG_Quit; {$IFDEF SDL_IMAGE_NEWER}cdecl; external SDL_ImageLibName{$ELSE}inline{$ENDIF}; |
1127 procedure IMG_Quit; {$IFDEF SDL_IMAGE_NEWER}cdecl; external SDL_ImageLibName{$ELSE}inline{$ENDIF}; |
1126 |
1128 |