5 Simple DirectMedia Layer
6 Copyright (C) 1997-2013 Sam Lantinga <slouken@libsdl.org>
8 Pascal-Header-Conversion
9 Copyright (C) 2012-2014 Tim Blume aka End/EV1313
11 SDL.pas is based on the files:
20 "sdl_gamecontroller.h",
56 cause there's a much better OpenGL-Header avaible at delphigl.com:
60 Parts of the SDL.pas are from the SDL-1.2-Headerconversion from the JEDI-Team,
61 written by Domenique Louis and others.
63 I've changed the names of the dll for 32 & 64-Bit, so theres no conflict
64 between 32 & 64 bit Libraries.
66 This software is provided 'as-is', without any express or implied
67 warranty. In no case will the authors be held liable for any damages
68 arising from the use of this software.
70 Permission is granted to anyone to use this software for any purpose,
71 including commercial applications, and to alter it and redistribute it
72 freely, subject to the following restrictions:
74 1. The origin of this software must not be misrepresented; you must not
75 claim that you wrote the original software. If you use this software
76 in a product, an acknowledgment in the product documentation would be
77 appreciated but is not required.
78 2. Altered source versions must be plainly marked as such, and must not be
79 misrepresented as being the original software.
80 3. This notice may not be removed or altered from any source distribution.
84 - DelphiGL.com - Community
85 - Domenique Louis and everyone else from the JEDI-Team
86 - Sam Latinga and everyone else from the SDL-Team
92 ? 31.01.2016: updated sdlevents.inc to SDL2 2.0.4, adressing issue #24 (thx to imantsg)
93 ? 16.01.2016: Delphi 6+ bugfixes/compatibility. Thx to Peter Karpov for identifiying and testing.
94 v.1.80-stable; 09.10.2014: added sdl_cpuinfo.h and sdl_clipboard.h
95 v.1.74-stable; 10.11.2013: added sdl_gamecontroller.h
96 v.1.73-stable; 08.11.2013: added sdl_hints.h and some keystate helpers
98 v.1.72-stable; 23.09.2013: fixed bug with procedures without parameters
99 (they must have brakets)
100 v.1.70-stable; 17.09.2013: added "sdl_messagebox.h" and "sdl_haptic.h"
101 v.1.63-stable; 16.09.2013: added libs sdl2_image and sdl2_ttf and added sdl_audio.h
102 v.1.62-stable; 03.09.2013: fixed.
103 v.1.61-stable; 02.09.2013: now it should REALLY work with Mac...
104 v.1.60-stable; 01.09.2013: now it should work with Delphi XE4 for Windows and
105 MacOS and of course Lazarus. thx to kotai :D
106 v.1.55-Alpha; 24.08.2013: fixed bug with SDL_GetEventState thx to d.l.i.w.
107 v.1.54-Alpha; 24.08.2013: added sdl_loadso.h
108 v.1.53-Alpha; 24.08.2013: renamed *really* and fixed linux comp.
109 v.1.52-Alpha; 24.08.2013: renamed sdl.pas to sdl2.pas
110 v.1.51-Alpha; 24.08.2013: added sdl_platform.h
111 v.1.50-Alpha; 24.08.2013: the header is now modular. thx for the hint from d.l.i.w.
112 v.1.40-Alpha; 13.08.2013: Added MacOS compatibility (thx to stoney-fd)
113 v.1.34-Alpha; 05.08.2013: Added missing functions from sdl_thread.h
114 v.1.33-Alpha; 31.07.2013: Added missing units for Linux. thx to Cybermonkey
115 v.1.32-Alpha; 31.07.2013: Fixed three bugs, thx to grieferatwork
116 v.1.31-Alpha; 30.07.2013: Added "sdl_power.h"
117 v.1.30-Alpha; 26.07.2013: Added "sdl_thread.h" and "sdl_mutex.h"
118 v.1.25-Alpha; 29.07.2013: Added Makros for SDL_RWops
119 v.1.24-Alpha; 28.07.2013: Fixed bug with RWops and size_t
120 v.1.23-Alpha; 27.07.2013: Fixed two bugs, thx to GrieferAtWork
121 v.1.22-Alpha; 24.07.2013: Added "sdl_shape.h" and TSDL_Window
122 (and ordered the translated header list ^^)
123 v.1.21-Alpha; 23.07.2013: Added TSDL_Error
124 v.1.20-Alpha; 19.07.2013: Added "sdl_timer.h"
125 v.1.10-Alpha; 09.07.2013: Added "sdl_render.h"
126 v.1.00-Alpha; 05.07.2013: Initial Alpha-Release.
141 {$IF NOT DEFINED(HAIKU) AND NOT DEFINED(ANDROID)}
158 SDL_LibName
= 'SDL2.dll';
162 SDL_LibName
= 'libSDL2.so.0';
163 {$ELSEIF DEFINED(UNIX)}
165 SDL_LibName
= 'libSDL2.dylib';
168 SDL_LibName
= 'libSDL2.so';
170 SDL_LibName
= 'libSDL2.so.0';
176 SDL_LibName
= 'SDL2';
194 {$I sdlblendmode.inc}
200 {$I sdlmessagebox.inc}
206 {$I sdlgamecontroller.inc}
212 {$I sdlclipboard.inc}
214 {$I sdlfilesystem.inc}
221 //from "sdl_version.h"
222 procedure SDL_VERSION(Out x
: TSDL_Version
);
224 x
.major
:= SDL_MAJOR_VERSION
;
225 x
.minor
:= SDL_MINOR_VERSION
;
226 x
.patch
:= SDL_PATCHLEVEL
;
229 function SDL_VERSIONNUM(X
,Y
,Z
: UInt32
): Cardinal;
231 Result
:= X
*1000 + Y
*100 + Z
;
234 function SDL_COMPILEDVERSION
: Cardinal;
236 Result
:= SDL_VERSIONNUM(SDL_MAJOR_VERSION
,
241 function SDL_VERSION_ATLEAST(X
,Y
,Z
: Cardinal): Boolean;
243 Result
:= SDL_COMPILEDVERSION
>= SDL_VERSIONNUM(X
,Y
,Z
);
247 function SDL_Button(button
: SInt32
): SInt32
;
249 Result
:= 1 shl (button
- 1);
253 //from "sdl_thread.h"
255 function SDL_CreateThread(fn
: TSDL_ThreadFunction
; name
: PAnsiChar
; data
: Pointer): PSDL_Thread
; overload
;
257 Result
:= SDL_CreateThread(fn
,name
,data
,nil,nil);
263 function SDL_RectEmpty(X
: TSDL_Rect
): Boolean;
265 Result
:= (X
.w
<= 0) or (X
.h
<= 0);
268 function SDL_RectEquals(A
: TSDL_Rect
; B
: TSDL_Rect
): Boolean;
270 Result
:= (A
.x
= B
.x
) and (A
.y
= B
.y
) and (A
.w
= B
.w
) and (A
.h
= B
.h
);
275 function SDL_RWsize(ctx
: PSDL_RWops
): SInt64
;
277 Result
:= ctx
^.size(ctx
);
280 function SDL_RWseek(ctx
: PSDL_RWops
; offset
: SInt64
; whence
: SInt32
): SInt64
;
282 Result
:= ctx
^.seek(ctx
,offset
,whence
);
285 function SDL_RWtell(ctx
: PSDL_RWops
): SInt64
;
287 Result
:= ctx
^.seek(ctx
, 0, RW_SEEK_CUR
);
290 function SDL_RWread(ctx
: PSDL_RWops
; ptr
: Pointer; size
: size_t
; n
: size_t
): size_t
;
292 Result
:= ctx
^.read(ctx
, ptr
, size
, n
);
295 function SDL_RWwrite(ctx
: PSDL_RWops
; ptr
: Pointer; size
: size_t
; n
: size_t
): size_t
;
297 Result
:= ctx
^.write(ctx
, ptr
, size
, n
);
300 function SDL_RWclose(ctx
: PSDL_RWops
): SInt32
;
302 Result
:= ctx
^.close(ctx
);
307 function SDL_LoadWAV(_file
: PAnsiChar
; spec
: PSDL_AudioSpec
; audio_buf
: PPUInt8
; audio_len
: PUInt32
): PSDL_AudioSpec
;
309 Result
:= SDL_LoadWAV_RW(SDL_RWFromFile(_file
, 'rb'), 1, spec
, audio_buf
, audio_len
);
312 function SDL_AUDIO_BITSIZE(x
: Cardinal): Cardinal;
314 Result
:= x
and SDL_AUDIO_MASK_BITSIZE
;
317 function SDL_AUDIO_ISFLOAT(x
: Cardinal): Cardinal;
319 Result
:= x
and SDL_AUDIO_MASK_DATATYPE
;
322 function SDL_AUDIO_ISBIGENDIAN(x
: Cardinal): Cardinal;
324 Result
:= x
and SDL_AUDIO_MASK_ENDIAN
;
327 function SDL_AUDIO_ISSIGNED(x
: Cardinal): Cardinal;
329 Result
:= x
and SDL_AUDIO_MASK_SIGNED
;
332 function SDL_AUDIO_ISINT(x
: Cardinal): Cardinal;
334 Result
:= not SDL_AUDIO_ISFLOAT(x
);
337 function SDL_AUDIO_ISLITTLEENDIAN(x
: Cardinal): Cardinal;
339 Result
:= not SDL_AUDIO_ISLITTLEENDIAN(x
);
342 function SDL_AUDIO_ISUNSIGNED(x
: Cardinal): Cardinal;
344 Result
:= not SDL_AUDIO_ISSIGNED(x
);
347 //from "sdl_pixels.h"
349 function SDL_PIXELFLAG(X
: Cardinal): Cardinal;
351 Result
:= (X
shr 28) and $0F;
354 function SDL_PIXELTYPE(X
: Cardinal): Cardinal;
356 Result
:= (X
shr 24) and $0F;
359 function SDL_PIXELORDER(X
: Cardinal): Cardinal;
361 Result
:= (X
shr 20) and $0F;
364 function SDL_PIXELLAYOUT(X
: Cardinal): Cardinal;
366 Result
:= (X
shr 16) and $0F;
369 function SDL_BITSPERPIXEL(X
: Cardinal): Cardinal;
371 Result
:= (X
shr 8) and $FF;
374 function SDL_IsPixelFormat_FOURCC(format
: Variant
): Boolean;
376 {* The flag is set to 1 because 0x1? is not in the printable ASCII range *}
377 Result
:= format
and SDL_PIXELFLAG(format
) <> 1;
380 //from "sdl_surface.h"
381 function SDL_LoadBMP(_file
: PAnsiChar
): PSDL_Surface
;
383 Result
:= SDL_LoadBMP_RW(SDL_RWFromFile(_file
, 'rb'), 1);
386 function SDL_SaveBMP(Const surface
:PSDL_Surface
; Const filename
:AnsiString
):sInt32
;
388 Result
:= SDL_SaveBMP_RW(surface
, SDL_RWFromFile(PAnsiChar(filename
), 'wb'), 1)
392 * Evaluates to true if the surface needs to be locked before access.
394 function SDL_MUSTLOCK(Const S
:PSDL_Surface
):Boolean;
396 Result
:= ((S
^.flags
and SDL_RLEACCEL
) <> 0)
400 function SDL_WindowPos_IsUndefined(X
: Variant
): Variant
;
402 Result
:= (X
and $FFFF0000) = SDL_WINDOWPOS_UNDEFINED_MASK
;
405 function SDL_WindowPos_IsCentered(X
: Variant
): Variant
;
407 Result
:= (X
and $FFFF0000) = SDL_WINDOWPOS_CENTERED_MASK
;
410 //from "sdl_events.h"
412 function SDL_GetEventState(type_
: UInt32
): UInt8
;
414 Result
:= SDL_EventState(type_
, SDL_QUERY
);
417 // from "sdl_timer.h"
418 function SDL_TICKS_PASSED(Const A
, B
:UInt32
):Boolean;
420 Result
:= ((Int64(B
) - Int64(A
)) <= 0)
423 // from "sdl_gamecontroller.h"
425 * Load a set of mappings from a file, filtered by the current SDL_GetPlatform()
427 function SDL_GameControllerAddMappingsFromFile(Const FilePath
:PAnsiChar
):SInt32
;
429 Result
:= SDL_GameControllerAddMappingsFromRW(SDL_RWFromFile(FilePath
, 'rb'), 1)