author | unc0rr |
Tue, 09 Oct 2012 21:08:37 +0400 | |
changeset 7735 | 4c7e282b5732 |
parent 7565 | 00568d3054d0 |
child 8022 | 10b3b93c1f56 |
child 8026 | 4a4f21070479 |
permissions | -rw-r--r-- |
4 | 1 |
(* |
1066 | 2 |
* Hedgewars, a free turn based strategy game |
6700 | 3 |
* Copyright (c) 2004-2012 Andrey Korotaev <unC0Rr@gmail.com> |
4 | 4 |
* |
183 | 5 |
* This program is free software; you can redistribute it and/or modify |
6 |
* it under the terms of the GNU General Public License as published by |
|
7 |
* the Free Software Foundation; version 2 of the License |
|
4 | 8 |
* |
183 | 9 |
* This program is distributed in the hope that it will be useful, |
10 |
* but WITHOUT ANY WARRANTY; without even the implied warranty of |
|
11 |
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
|
12 |
* GNU General Public License for more details. |
|
4 | 13 |
* |
183 | 14 |
* You should have received a copy of the GNU General Public License |
15 |
* along with this program; if not, write to the Free Software |
|
16 |
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA |
|
4 | 17 |
*) |
18 |
||
2690 | 19 |
{$INCLUDE "options.inc"} |
2630 | 20 |
|
4 | 21 |
unit SDLh; |
22 |
interface |
|
753 | 23 |
|
2599 | 24 |
{$IFDEF LINUX} |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
25 |
{$DEFINE UNIX} |
2599 | 26 |
{$ENDIF} |
27 |
{$IFDEF FREEBSD} |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
28 |
{$DEFINE UNIX} |
4 | 29 |
{$ENDIF} |
3385 | 30 |
{$IFDEF DARWIN} |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
31 |
{$DEFINE UNIX} |
3385 | 32 |
{$ENDIF} |
33 |
{$IFDEF HAIKU} |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
34 |
{$DEFINE UNIX} |
3385 | 35 |
{$ENDIF} |
4 | 36 |
|
37 |
{$IFDEF UNIX} |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
38 |
{$IFNDEF DARWIN} |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
39 |
{$linklib c} |
5286 | 40 |
{$ENDIF} |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
41 |
{$IFDEF HAIKU} |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
42 |
{$linklib root} |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
43 |
{$ELSE} |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
44 |
{$IFNDEF ANDROID} |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
45 |
{$linklib pthread} |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
46 |
{$ENDIF} |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
47 |
{$ENDIF} |
4 | 48 |
{$ENDIF} |
49 |
||
2599 | 50 |
{$IFDEF FPC} |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
51 |
{$PACKRECORDS C} |
2606
ed687a8d081f
updated build files for macosx and optimization system
koda
parents:
2601
diff
changeset
|
52 |
{$ELSE} |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
53 |
{$DEFINE cdecl attribute(cdecl)} |
6974
2d3beb445d64
minor changes for more compatibilities with other compilers
koda
parents:
6972
diff
changeset
|
54 |
type PByte = ^Byte; |
2d3beb445d64
minor changes for more compatibilities with other compilers
koda
parents:
6972
diff
changeset
|
55 |
type PInteger = ^Integer; |
2d3beb445d64
minor changes for more compatibilities with other compilers
koda
parents:
6972
diff
changeset
|
56 |
type PLongInt = ^LongInt; |
2599 | 57 |
{$ENDIF} |
4 | 58 |
|
1819 | 59 |
{$IFDEF DARWIN} |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
60 |
{$IFNDEF IPHONEOS} |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
61 |
{$PASCALMAINNAME SDL_main} |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
62 |
{$linkframework Cocoa} |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
63 |
{$linkframework SDL} |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
64 |
{$linkframework SDL_net} |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
65 |
{$linkframework SDL_image} |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
66 |
{$linkframework SDL_ttf} |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
67 |
{$linkframework SDL_mixer} |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
68 |
{$linkframework OpenGL} |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
69 |
{$ENDIF} |
1819 | 70 |
{$ENDIF} |
2630 | 71 |
|
1819 | 72 |
|
1997 | 73 |
(* SDL *) |
2390 | 74 |
const |
75 |
{$IFDEF WIN32} |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
76 |
SDLLibName = 'SDL.dll'; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
77 |
SDL_TTFLibName = 'SDL_ttf.dll'; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
78 |
SDL_MixerLibName = 'SDL_mixer.dll'; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
79 |
SDL_ImageLibName = 'SDL_image.dll'; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
80 |
SDL_NetLibName = 'SDL_net.dll'; |
2600 | 81 |
{$ELSE} |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
82 |
{$IFDEF DARWIN} |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
83 |
SDLLibName = 'SDL'; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
84 |
SDL_TTFLibName = 'SDL_ttf'; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
85 |
SDL_MixerLibName = 'SDL_mixer'; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
86 |
SDL_ImageLibName = 'SDL_image'; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
87 |
SDL_NetLibName = 'SDL_net'; |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
88 |
{$ELSE} |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
89 |
SDLLibName = 'libSDL.so'; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
90 |
SDL_TTFLibName = 'libSDL_ttf.so'; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
91 |
SDL_MixerLibName = 'libSDL_mixer.so'; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
92 |
SDL_ImageLibName = 'libSDL_image.so'; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
93 |
SDL_NetLibName = 'libSDL_net.so'; |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
94 |
{$ENDIF} |
2390 | 95 |
{$ENDIF} |
2600 | 96 |
|
97 |
///////////////////////////////////////////////////////////////// |
|
98 |
///////////////////// CONSTANT DEFINITIONS ///////////////////// |
|
99 |
///////////////////////////////////////////////////////////////// |
|
100 |
||
5046
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
101 |
// SDL_Init() flags |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
102 |
SDL_INIT_TIMER = $00000001; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
103 |
SDL_INIT_AUDIO = $00000010; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
104 |
SDL_INIT_VIDEO = $00000020; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
105 |
SDL_INIT_JOYSTICK = $00000200; |
2633 | 106 |
{$IFDEF SDL13} |
5046
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
107 |
SDL_INIT_HAPTIC = $00001000; |
2633 | 108 |
{$ELSE} |
5046
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
109 |
SDL_INIT_CDROM = $00000100; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
110 |
SDL_INIT_EVENTTHREAD = $01000000; |
2633 | 111 |
{$ENDIF} |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
112 |
SDL_INIT_NOPARACHUTE = $00100000; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
113 |
SDL_INIT_EVERYTHING = $0000FFFF; |
2240
7ce9e6b7be3b
-Removal of older WAV files, now useless thanks to OpenAL
koda
parents:
2200
diff
changeset
|
114 |
|
6282
de449b2d9607
just for the sake of it, add the missing sdl13 events and do some cleanup
koda
parents:
6281
diff
changeset
|
115 |
SDL_ALLEVENTS = $FFFFFFFF; |
5046
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
116 |
SDL_APPINPUTFOCUS = $02; |
6917 | 117 |
|
118 |
SDL_BUTTON_LEFT = 1; |
|
119 |
SDL_BUTTON_MIDDLE = 2; |
|
120 |
SDL_BUTTON_RIGHT = 3; |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
121 |
SDL_BUTTON_WHEELUP = 4; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
122 |
SDL_BUTTON_WHEELDOWN = 5; |
3463 | 123 |
|
3349 | 124 |
{$IFDEF SDL13} |
5004
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
125 |
// SDL_Event types |
5046
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
126 |
SDL_FIRSTEVENT = 0; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
127 |
SDL_QUITEV = $100; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
128 |
SDL_WINDOWEVENT = $200; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
129 |
SDL_SYSWMEVENT = $201; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
130 |
SDL_KEYDOWN = $300; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
131 |
SDL_KEYUP = $301; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
132 |
SDL_TEXTEDITING = $302; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
133 |
SDL_TEXTINPUT = $303; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
134 |
SDL_MOUSEMOTION = $400; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
135 |
SDL_MOUSEBUTTONDOWN = $401; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
136 |
SDL_MOUSEBUTTONUP = $402; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
137 |
SDL_MOUSEWHEEL = $403; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
138 |
SDL_INPUTMOTION = $500; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
139 |
SDL_INPUTBUTTONDOWN = $501; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
140 |
SDL_INPUTBUTTONUP = $502; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
141 |
SDL_INPUTWHEEL = $503; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
142 |
SDL_INPUTPROXIMITYIN = $504; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
143 |
SDL_INPUTPROXIMITYOUT = $505; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
144 |
SDL_JOYAXISMOTION = $600; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
145 |
SDL_JOYBALLMOTION = $601; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
146 |
SDL_JOYHATMOTION = $602; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
147 |
SDL_JOYBUTTONDOWN = $603; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
148 |
SDL_JOYBUTTONUP = $604; |
6282
de449b2d9607
just for the sake of it, add the missing sdl13 events and do some cleanup
koda
parents:
6281
diff
changeset
|
149 |
SDL_FINGERDOWN = $700; |
de449b2d9607
just for the sake of it, add the missing sdl13 events and do some cleanup
koda
parents:
6281
diff
changeset
|
150 |
SDL_FINGERUP = $701; |
de449b2d9607
just for the sake of it, add the missing sdl13 events and do some cleanup
koda
parents:
6281
diff
changeset
|
151 |
SDL_FINGERMOTION = $702; |
de449b2d9607
just for the sake of it, add the missing sdl13 events and do some cleanup
koda
parents:
6281
diff
changeset
|
152 |
SDL_TOUCHBUTTONDOWN = $703; |
de449b2d9607
just for the sake of it, add the missing sdl13 events and do some cleanup
koda
parents:
6281
diff
changeset
|
153 |
SDL_TOUCHBUTTONUP = $704; |
de449b2d9607
just for the sake of it, add the missing sdl13 events and do some cleanup
koda
parents:
6281
diff
changeset
|
154 |
SDL_DOLLARGESTURE = $800; |
de449b2d9607
just for the sake of it, add the missing sdl13 events and do some cleanup
koda
parents:
6281
diff
changeset
|
155 |
SDL_DOLLARRECORD = $801; |
de449b2d9607
just for the sake of it, add the missing sdl13 events and do some cleanup
koda
parents:
6281
diff
changeset
|
156 |
SDL_MULTIGESTURE = $802; |
de449b2d9607
just for the sake of it, add the missing sdl13 events and do some cleanup
koda
parents:
6281
diff
changeset
|
157 |
SDL_CLIPBOARDUPDATE = $900; |
6551
a2f39cb9af62
fix a couple of loose ends: sdl_mixer is informed of that OGG is provided by Tremor with its own macro, there is no more a segfault on Tremor cleanup, added new event type and timestamp entry for SDL, removed spurious characters from the japanese translation, uSound errors now are output with SDLTry, uSound doesn't need sound preloading any more
koda
parents:
6415
diff
changeset
|
158 |
SDL_DROPFILE = $1000; |
5046
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
159 |
SDL_USEREVENT = $8000; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
160 |
SDL_LASTEVENT = $FFFF; |
6282
de449b2d9607
just for the sake of it, add the missing sdl13 events and do some cleanup
koda
parents:
6281
diff
changeset
|
161 |
// no compatibility events $7000 |
3697 | 162 |
|
5004
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
163 |
// SDL_Surface flags |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
164 |
SDL_SWSURFACE = $00000000; //*< Not used */ |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
165 |
SDL_PREALLOC = $00000001; //*< Surface uses preallocated memory */ |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
166 |
SDL_RLEACCEL = $00000002; //*< Surface is RLE encoded */ |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
167 |
SDL_DONTFREE = $00000004; //*< Surface is referenced internally */ |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
168 |
SDL_SRCALPHA = $00010000; |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
169 |
SDL_SRCCOLORKEY = $00020000; |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
170 |
SDL_ANYFORMAT = $00100000; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
171 |
SDL_HWPALETTE = $00200000; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
172 |
SDL_DOUBLEBUF = $00400000; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
173 |
SDL_FULLSCREEN = $00800000; |
5004
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
174 |
SDL_RESIZABLE = $01000000; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
175 |
SDL_NOFRAME = $02000000; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
176 |
SDL_OPENGL = $04000000; |
5004
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
177 |
SDL_HWSURFACE = $08000001; //*< Not used */ |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
178 |
SDL_ASYNCBLIT = $08000000; //*< Not used */ |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
179 |
SDL_RLEACCELOK = $08000000; //*< Not used */ |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
180 |
SDL_HWACCEL = $08000000; //*< Not used */ |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
181 |
|
5046
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
182 |
// SDL_Renderer flags |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
183 |
SDL_RENDERER_SOFTWARE = $00000001; //*< The renderer is a software fallback */ |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
184 |
SDL_RENDERER_ACCELERATED = $00000002; //*< The renderer uses hardware acceleration */ |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
185 |
SDL_RENDERER_PRESENTVSYNC = $00000004; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
186 |
|
5004
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
187 |
// SDL_WindowFlags (enum) |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
188 |
SDL_WINDOW_FULLSCREEN = $00000001; //*< fullscreen window, implies borderless */ |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
189 |
SDL_WINDOW_OPENGL = $00000002; //*< window usable with OpenGL context */ |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
190 |
SDL_WINDOW_SHOWN = $00000004; //*< window is visible */ |
5046
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
191 |
SDL_WINDOW_HIDDEN = $00000008; //*< window is not visible */ |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
192 |
SDL_WINDOW_BORDERLESS = $00000010; //*< no window decoration */ |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
193 |
SDL_WINDOW_RESIZABLE = $00000020; //*< window can be resized */ |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
194 |
SDL_WINDOW_MINIMIZED = $00000040; //*< window is minimized */ |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
195 |
SDL_WINDOW_MAXIMIZED = $00000080; //*< window is maximized */ |
5004
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
196 |
SDL_WINDOW_INPUT_GRABBED = $00000100; //*< window has grabbed input focus */ |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
197 |
SDL_WINDOW_INPUT_FOCUS = $00000200; //*< window has input focus */ |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
198 |
SDL_WINDOW_MOUSE_FOCUS = $00000400; //*< window has mouse focus */ |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
199 |
SDL_WINDOW_FOREIGN = $00000800; //*< window not created by SDL */ |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
200 |
|
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
201 |
SDL_WINDOWPOS_CENTERED_MASK = $2FFF0000; |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
202 |
|
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
203 |
// SDL_WindowEventID (enum) |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
204 |
SDL_WINDOWEVENT_NONE = 0; //*< Never used |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
205 |
SDL_WINDOWEVENT_SHOWN = 1; //*< Window has been shown |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
206 |
SDL_WINDOWEVENT_HIDDEN = 2; //*< Window has been hidden |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
207 |
SDL_WINDOWEVENT_EXPOSED = 3; //*< Window has been exposed and should be redrawn |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
208 |
SDL_WINDOWEVENT_MOVED = 4; //*< Window has been moved to data1, data2 |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
209 |
SDL_WINDOWEVENT_RESIZED = 5; //*< Window size changed to data1xdata2 |
5046
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
210 |
SDL_WINDOWEVENT_SIZE_CHANGED = 6; //*< The window size has changed, [...] */ |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
211 |
SDL_WINDOWEVENT_MINIMIZED = 7; //*< Window has been minimized |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
212 |
SDL_WINDOWEVENT_MAXIMIZED = 8; //*< Window has been maximized |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
213 |
SDL_WINDOWEVENT_RESTORED = 9; //*< Window has been restored to normal size and position |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
214 |
SDL_WINDOWEVENT_ENTER = 10; //*< Window has gained mouse focus |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
215 |
SDL_WINDOWEVENT_LEAVE = 11; //*< Window has lost mouse focus |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
216 |
SDL_WINDOWEVENT_FOCUS_GAINED = 12; //*< Window has gained keyboard focus |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
217 |
SDL_WINDOWEVENT_FOCUS_LOST = 13; //*< Window has lost keyboard focus |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
218 |
SDL_WINDOWEVENT_CLOSE = 14; //*< The window manager requests that the window be closed */ |
2241
7992f7ba388d
completes removal of wav files, updates SDLh and adds DEBUGFILE to hwengine when compiled in Debug mode
koda
parents:
2240
diff
changeset
|
219 |
{$ELSE} |
5004
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
220 |
// SDL_Event types |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
221 |
SDL_NOEVENT = 0; |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
222 |
SDL_ACTIVEEVENT = 1; |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
223 |
SDL_KEYDOWN = 2; |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
224 |
SDL_KEYUP = 3; |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
225 |
SDL_MOUSEMOTION = 4; |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
226 |
SDL_MOUSEBUTTONDOWN = 5; |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
227 |
SDL_MOUSEBUTTONUP = 6; |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
228 |
SDL_JOYAXISMOTION = 7; |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
229 |
SDL_JOYBALLMOTION = 8; |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
230 |
SDL_JOYHATMOTION = 9; |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
231 |
SDL_JOYBUTTONDOWN = 10; |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
232 |
SDL_JOYBUTTONUP = 11; |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
233 |
SDL_QUITEV = 12; |
5670
e01f0b6f1969
enable window resizing (tested only on linux) - fix issue 103
koda
parents:
5660
diff
changeset
|
234 |
SDL_VIDEORESIZE = 16; |
5004
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
235 |
|
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
236 |
// SDL_Surface flags |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
237 |
SDL_SWSURFACE = $00000000; |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
238 |
SDL_HWSURFACE = $00000001; |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
239 |
SDL_OPENGL = $00000002; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
240 |
SDL_ASYNCBLIT = $00000004; |
5004
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
241 |
SDL_RESIZABLE = $00000010; |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
242 |
SDL_NOFRAME = $00000020; |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
243 |
SDL_HWACCEL = $00000100; |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
244 |
SDL_SRCCOLORKEY = $00001000; |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
245 |
SDL_RLEACCEL = $00004000; |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
246 |
SDL_SRCALPHA = $00010000; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
247 |
SDL_ANYFORMAT = $00100000; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
248 |
SDL_HWPALETTE = $20000000; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
249 |
SDL_DOUBLEBUF = $40000000; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
250 |
SDL_FULLSCREEN = $80000000; |
2241
7992f7ba388d
completes removal of wav files, updates SDLh and adds DEBUGFILE to hwengine when compiled in Debug mode
koda
parents:
2240
diff
changeset
|
251 |
{$ENDIF} |
945
4ead9cde4e14
- Start chat implementation: chat strings are on the screen
unc0rr
parents:
883
diff
changeset
|
252 |
|
2586
204e6b2885bc
added little/big endian checks, added symbol for touch input, simplified iphoneos definitions
koda
parents:
2579
diff
changeset
|
253 |
{$IFDEF ENDIAN_LITTLE} |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
254 |
RMask = $000000FF; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
255 |
GMask = $0000FF00; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
256 |
BMask = $00FF0000; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
257 |
AMask = $FF000000; |
5041 | 258 |
RShift = 0; |
259 |
GShift = 8; |
|
260 |
BShift = 16; |
|
261 |
AShift = 24; |
|
2586
204e6b2885bc
added little/big endian checks, added symbol for touch input, simplified iphoneos definitions
koda
parents:
2579
diff
changeset
|
262 |
{$ELSE} |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
263 |
RMask = $FF000000; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
264 |
GMask = $00FF0000; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
265 |
BMask = $0000FF00; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
266 |
AMask = $000000FF; |
5041 | 267 |
RShift = 24; |
268 |
GShift = 16; |
|
269 |
BShift = 8; |
|
270 |
AShift = 0; |
|
2586
204e6b2885bc
added little/big endian checks, added symbol for touch input, simplified iphoneos definitions
koda
parents:
2579
diff
changeset
|
271 |
{$ENDIF} |
2575 | 272 |
|
7191
9419294e5f33
first attempt at implementing support for keys with modifiers
Xeli
parents:
7167
diff
changeset
|
273 |
KMOD_NONE = $0000; |
9419294e5f33
first attempt at implementing support for keys with modifiers
Xeli
parents:
7167
diff
changeset
|
274 |
KMOD_LSHIFT = $0001; |
9419294e5f33
first attempt at implementing support for keys with modifiers
Xeli
parents:
7167
diff
changeset
|
275 |
KMOD_RSHIFT = $0002; |
9419294e5f33
first attempt at implementing support for keys with modifiers
Xeli
parents:
7167
diff
changeset
|
276 |
KMOD_LCTRL = $0040; |
9419294e5f33
first attempt at implementing support for keys with modifiers
Xeli
parents:
7167
diff
changeset
|
277 |
KMOD_RCTRL = $0080; |
7193 | 278 |
KMOD_LALT = $0400; |
279 |
KMOD_RALT = $0800; |
|
7191
9419294e5f33
first attempt at implementing support for keys with modifiers
Xeli
parents:
7167
diff
changeset
|
280 |
KMOD_LMETA = $0400; |
9419294e5f33
first attempt at implementing support for keys with modifiers
Xeli
parents:
7167
diff
changeset
|
281 |
KMOD_RMETA = $0800; |
9419294e5f33
first attempt at implementing support for keys with modifiers
Xeli
parents:
7167
diff
changeset
|
282 |
KMOD_NUM = $1000; |
9419294e5f33
first attempt at implementing support for keys with modifiers
Xeli
parents:
7167
diff
changeset
|
283 |
KMOD_CAPS = $2000; |
9419294e5f33
first attempt at implementing support for keys with modifiers
Xeli
parents:
7167
diff
changeset
|
284 |
KMOD_MODE = $4000; |
9419294e5f33
first attempt at implementing support for keys with modifiers
Xeli
parents:
7167
diff
changeset
|
285 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
286 |
{* SDL_mixer *} |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
287 |
MIX_MAX_VOLUME = 128; |
5004
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
288 |
MIX_INIT_FLAC = $00000001; |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
289 |
MIX_INIT_MOD = $00000002; |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
290 |
MIX_INIT_MP3 = $00000004; |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
291 |
MIX_INIT_OGG = $00000008; |
3697 | 292 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
293 |
{* SDL_TTF *} |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
294 |
TTF_STYLE_NORMAL = 0; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
295 |
TTF_STYLE_BOLD = 1; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
296 |
TTF_STYLE_ITALIC = 2; |
2600 | 297 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
298 |
{* SDL Joystick *} |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
299 |
SDL_HAT_CENTERED = $00; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
300 |
SDL_HAT_UP = $01; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
301 |
SDL_HAT_RIGHT = $02; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
302 |
SDL_HAT_DOWN = $04; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
303 |
SDL_HAT_LEFT = $08; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
304 |
SDL_HAT_RIGHTUP = SDL_HAT_RIGHT or SDL_HAT_UP; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
305 |
SDL_HAT_RIGHTDOWN = SDL_HAT_RIGHT or SDL_HAT_DOWN; |
5004
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
306 |
SDL_HAT_LEFTUP = SDL_HAT_LEFT or SDL_HAT_UP; |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
307 |
SDL_HAT_LEFTDOWN = SDL_HAT_LEFT or SDL_HAT_DOWN; |
2600 | 308 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
309 |
{* SDL_image *} |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
310 |
IMG_INIT_JPG = $00000001; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
311 |
IMG_INIT_PNG = $00000002; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
312 |
IMG_INIT_TIF = $00000004; |
2600 | 313 |
|
5724 | 314 |
|
2600 | 315 |
///////////////////////////////////////////////////////////////// |
316 |
/////////////////////// TYPE DEFINITIONS /////////////////////// |
|
317 |
///////////////////////////////////////////////////////////////// |
|
318 |
||
6284 | 319 |
// two important reference points for the wanderers of this area |
320 |
// http://www.freepascal.org/docs-html/ref/refsu5.html |
|
321 |
// http://www.freepascal.org/docs-html/prog/progsu144.html |
|
322 |
||
3697 | 323 |
type |
5046
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
324 |
{$IFDEF SDL13} |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
325 |
PSDL_Window = Pointer; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
326 |
PSDL_Renderer = Pointer; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
327 |
PSDL_Texture = Pointer; |
5486
e75f7c3c6275
ios: this should prevent at least one of the crashes zorg spotted; also added some callbacks in SDLh; also polished project file (from -O2 to -Os)
koda
parents:
5187
diff
changeset
|
328 |
PSDL_GLContext= Pointer; |
6693 | 329 |
TSDL_FingerId = Int64; |
330 |
TSDL_TouchId = Int64; |
|
5046
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
331 |
{$ENDIF} |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
332 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
333 |
PSDL_Rect = ^TSDL_Rect; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
334 |
TSDL_Rect = record |
2390 | 335 |
{$IFDEF SDL13} |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
336 |
x, y, w, h: LongInt; |
2390 | 337 |
{$ELSE} |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
338 |
x, y: SmallInt; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
339 |
w, h: Word; |
2390 | 340 |
{$ENDIF} |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
341 |
end; |
4 | 342 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
343 |
TPoint = record |
5046
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
344 |
X, Y: LongInt; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
345 |
end; |
4 | 346 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
347 |
PSDL_PixelFormat = ^TSDL_PixelFormat; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
348 |
TSDL_PixelFormat = record |
5004
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
349 |
{$IFDEF SDL13} |
6284 | 350 |
format: LongWord; |
351 |
palette: Pointer; |
|
5046
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
352 |
BitsPerPixel : Byte; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
353 |
BytesPerPixel: Byte; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
354 |
padding: array[0..1] of Byte; |
6284 | 355 |
RMask : LongWord; |
356 |
GMask : LongWord; |
|
357 |
BMask : LongWord; |
|
358 |
AMask : LongWord; |
|
5046
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
359 |
Rloss : Byte; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
360 |
Gloss : Byte; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
361 |
Bloss : Byte; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
362 |
Aloss : Byte; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
363 |
Rshift: Byte; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
364 |
Gshift: Byte; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
365 |
Bshift: Byte; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
366 |
Ashift: Byte; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
367 |
refcount: LongInt; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
368 |
next: PSDL_PixelFormat; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
369 |
{$ELSE} |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
370 |
palette: Pointer; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
371 |
BitsPerPixel : Byte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
372 |
BytesPerPixel: Byte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
373 |
Rloss : Byte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
374 |
Gloss : Byte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
375 |
Bloss : Byte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
376 |
Aloss : Byte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
377 |
Rshift: Byte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
378 |
Gshift: Byte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
379 |
Bshift: Byte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
380 |
Ashift: Byte; |
6284 | 381 |
RMask : LongWord; |
382 |
GMask : LongWord; |
|
383 |
BMask : LongWord; |
|
384 |
AMask : LongWord; |
|
385 |
colorkey: LongWord; |
|
5004
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
386 |
alpha: Byte; |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
387 |
{$ENDIF} |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
388 |
end; |
4 | 389 |
|
6974
2d3beb445d64
minor changes for more compatibilities with other compilers
koda
parents:
6972
diff
changeset
|
390 |
TSDL_eventaction = (SDL_ADDEVENT, SDL_PEEPEVENT, SDL_GETEVENT); |
4 | 391 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
392 |
PSDL_Surface = ^TSDL_Surface; |
6285 | 393 |
TSDL_Surface = record |
6284 | 394 |
flags : LongWord; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
395 |
format: PSDL_PixelFormat; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
396 |
w, h : LongInt; |
6284 | 397 |
pitch : {$IFDEF SDL13}LongInt{$ELSE}Word{$ENDIF}; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
398 |
pixels: Pointer; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
399 |
offset: LongInt; |
5046
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
400 |
{$IFDEF SDL13} |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
401 |
userdata: Pointer; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
402 |
locked: LongInt; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
403 |
lock_data: Pointer; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
404 |
clip_rect: TSDL_Rect; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
405 |
map: Pointer; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
406 |
refcount: LongInt; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
407 |
{$ENDIF} |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
408 |
end; |
4 | 409 |
|
2248
26e11cb27c61
real fix for iphone color (reverting previous commit)
koda
parents:
2242
diff
changeset
|
410 |
|
7035 | 411 |
PSDL_Color = ^TSDL_Color; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
412 |
TSDL_Color = record |
7546
b50556f2a0e8
This union hasn't been needed for 5 years, and makes using other headers harder.
nemo
parents:
7237
diff
changeset
|
413 |
r: Byte; |
b50556f2a0e8
This union hasn't been needed for 5 years, and makes using other headers harder.
nemo
parents:
7237
diff
changeset
|
414 |
g: Byte; |
b50556f2a0e8
This union hasn't been needed for 5 years, and makes using other headers harder.
nemo
parents:
7237
diff
changeset
|
415 |
b: Byte; |
b50556f2a0e8
This union hasn't been needed for 5 years, and makes using other headers harder.
nemo
parents:
7237
diff
changeset
|
416 |
unused: Byte; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
417 |
end; |
4 | 418 |
|
2248
26e11cb27c61
real fix for iphone color (reverting previous commit)
koda
parents:
2242
diff
changeset
|
419 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
420 |
PSDL_RWops = ^TSDL_RWops; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
421 |
TSeek = function( context: PSDL_RWops; offset: LongInt; whence: LongInt ): LongInt; cdecl; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
422 |
TRead = function( context: PSDL_RWops; Ptr: Pointer; size: LongInt; maxnum : LongInt ): LongInt; cdecl; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
423 |
TWrite = function( context: PSDL_RWops; Ptr: Pointer; size: LongInt; num: LongInt ): LongInt; cdecl; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
424 |
TClose = function( context: PSDL_RWops ): LongInt; cdecl; |
4 | 425 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
426 |
TStdio = record |
6284 | 427 |
autoclose: {$IFDEF SDL13}Boolean{$ELSE}LongInt{$ENDIF}; |
428 |
fp: Pointer; |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
429 |
end; |
2379 | 430 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
431 |
TMem = record |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
432 |
base: PByte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
433 |
here: PByte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
434 |
stop: PByte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
435 |
end; |
4 | 436 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
437 |
TUnknown = record |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
438 |
data1: Pointer; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
439 |
end; |
4 | 440 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
441 |
TSDL_RWops = record |
6891
ab9843957664
Improve rendering of function types, ranges, and more
unc0rr
parents:
6879
diff
changeset
|
442 |
seek: TSeek; |
ab9843957664
Improve rendering of function types, ranges, and more
unc0rr
parents:
6879
diff
changeset
|
443 |
read: TRead; |
ab9843957664
Improve rendering of function types, ranges, and more
unc0rr
parents:
6879
diff
changeset
|
444 |
write: TWrite; |
ab9843957664
Improve rendering of function types, ranges, and more
unc0rr
parents:
6879
diff
changeset
|
445 |
close: TClose; |
6284 | 446 |
type_: LongWord; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
447 |
case Byte of |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
448 |
0: (stdio: TStdio); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
449 |
1: (mem: TMem); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
450 |
2: (unknown: TUnknown); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
451 |
end; |
2379 | 452 |
|
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
453 |
|
2663 | 454 |
{* SDL_Event type definition *} |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
455 |
|
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
456 |
{$IFDEF SDL13} |
5046
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
457 |
TSDL_KeySym = record |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
458 |
scancode: LongInt; |
6917 | 459 |
sym: LongWord; |
6284 | 460 |
modifier: Word; |
461 |
unicode: LongWord; |
|
5046
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
462 |
end; |
3697 | 463 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
464 |
TSDL_WindowEvent = record |
6284 | 465 |
type_: LongWord; |
6551
a2f39cb9af62
fix a couple of loose ends: sdl_mixer is informed of that OGG is provided by Tremor with its own macro, there is no more a segfault on Tremor cleanup, added new event type and timestamp entry for SDL, removed spurious characters from the japanese translation, uSound errors now are output with SDLTry, uSound doesn't need sound preloading any more
koda
parents:
6415
diff
changeset
|
466 |
timestamp: LongWord; |
6284 | 467 |
windowID: LongWord; |
468 |
event: Byte; |
|
469 |
padding1, padding2, padding3: Byte; |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
470 |
data1, data2: LongInt; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
471 |
end; |
6282
de449b2d9607
just for the sake of it, add the missing sdl13 events and do some cleanup
koda
parents:
6281
diff
changeset
|
472 |
|
de449b2d9607
just for the sake of it, add the missing sdl13 events and do some cleanup
koda
parents:
6281
diff
changeset
|
473 |
// available in sdl12 but not exposed |
de449b2d9607
just for the sake of it, add the missing sdl13 events and do some cleanup
koda
parents:
6281
diff
changeset
|
474 |
TSDL_TextEditingEvent = record |
6284 | 475 |
type_: LongWord; |
6551
a2f39cb9af62
fix a couple of loose ends: sdl_mixer is informed of that OGG is provided by Tremor with its own macro, there is no more a segfault on Tremor cleanup, added new event type and timestamp entry for SDL, removed spurious characters from the japanese translation, uSound errors now are output with SDLTry, uSound doesn't need sound preloading any more
koda
parents:
6415
diff
changeset
|
476 |
timestamp: LongWord; |
6284 | 477 |
windowID: LongWord; |
6282
de449b2d9607
just for the sake of it, add the missing sdl13 events and do some cleanup
koda
parents:
6281
diff
changeset
|
478 |
text: array[0..31] of Byte; |
de449b2d9607
just for the sake of it, add the missing sdl13 events and do some cleanup
koda
parents:
6281
diff
changeset
|
479 |
start, lenght: LongInt; |
de449b2d9607
just for the sake of it, add the missing sdl13 events and do some cleanup
koda
parents:
6281
diff
changeset
|
480 |
end; |
de449b2d9607
just for the sake of it, add the missing sdl13 events and do some cleanup
koda
parents:
6281
diff
changeset
|
481 |
|
de449b2d9607
just for the sake of it, add the missing sdl13 events and do some cleanup
koda
parents:
6281
diff
changeset
|
482 |
// available in sdl12 but not exposed |
de449b2d9607
just for the sake of it, add the missing sdl13 events and do some cleanup
koda
parents:
6281
diff
changeset
|
483 |
TSDL_TextInputEvent = record |
6284 | 484 |
type_: LongWord; |
6551
a2f39cb9af62
fix a couple of loose ends: sdl_mixer is informed of that OGG is provided by Tremor with its own macro, there is no more a segfault on Tremor cleanup, added new event type and timestamp entry for SDL, removed spurious characters from the japanese translation, uSound errors now are output with SDLTry, uSound doesn't need sound preloading any more
koda
parents:
6415
diff
changeset
|
485 |
timestamp: LongWord; |
6284 | 486 |
windowID: LongWord; |
6282
de449b2d9607
just for the sake of it, add the missing sdl13 events and do some cleanup
koda
parents:
6281
diff
changeset
|
487 |
text: array[0..31] of Byte; |
de449b2d9607
just for the sake of it, add the missing sdl13 events and do some cleanup
koda
parents:
6281
diff
changeset
|
488 |
end; |
de449b2d9607
just for the sake of it, add the missing sdl13 events and do some cleanup
koda
parents:
6281
diff
changeset
|
489 |
|
de449b2d9607
just for the sake of it, add the missing sdl13 events and do some cleanup
koda
parents:
6281
diff
changeset
|
490 |
TSDL_TouchFingerEvent = record |
6284 | 491 |
type_: LongWord; |
6551
a2f39cb9af62
fix a couple of loose ends: sdl_mixer is informed of that OGG is provided by Tremor with its own macro, there is no more a segfault on Tremor cleanup, added new event type and timestamp entry for SDL, removed spurious characters from the japanese translation, uSound errors now are output with SDLTry, uSound doesn't need sound preloading any more
koda
parents:
6415
diff
changeset
|
492 |
timestamp: LongWord; |
6284 | 493 |
windowId: LongWord; |
6693 | 494 |
touchId: TSDL_TouchId; |
495 |
fingerId: TSDL_FingerId; |
|
6282
de449b2d9607
just for the sake of it, add the missing sdl13 events and do some cleanup
koda
parents:
6281
diff
changeset
|
496 |
state, padding1, padding2, padding3: Byte; |
6284 | 497 |
x, y: Word; |
498 |
dx, dy: SmallInt; |
|
6282
de449b2d9607
just for the sake of it, add the missing sdl13 events and do some cleanup
koda
parents:
6281
diff
changeset
|
499 |
pressure: Word; |
de449b2d9607
just for the sake of it, add the missing sdl13 events and do some cleanup
koda
parents:
6281
diff
changeset
|
500 |
end; |
de449b2d9607
just for the sake of it, add the missing sdl13 events and do some cleanup
koda
parents:
6281
diff
changeset
|
501 |
|
de449b2d9607
just for the sake of it, add the missing sdl13 events and do some cleanup
koda
parents:
6281
diff
changeset
|
502 |
TSDL_TouchButtonEvent = record |
6284 | 503 |
type_: LongWord; |
6551
a2f39cb9af62
fix a couple of loose ends: sdl_mixer is informed of that OGG is provided by Tremor with its own macro, there is no more a segfault on Tremor cleanup, added new event type and timestamp entry for SDL, removed spurious characters from the japanese translation, uSound errors now are output with SDLTry, uSound doesn't need sound preloading any more
koda
parents:
6415
diff
changeset
|
504 |
timestamp: LongWord; |
6284 | 505 |
windowId: LongWord; |
6693 | 506 |
touchId: TSDL_TouchId; |
6282
de449b2d9607
just for the sake of it, add the missing sdl13 events and do some cleanup
koda
parents:
6281
diff
changeset
|
507 |
state, button, padding1, padding2: Byte; |
de449b2d9607
just for the sake of it, add the missing sdl13 events and do some cleanup
koda
parents:
6281
diff
changeset
|
508 |
end; |
de449b2d9607
just for the sake of it, add the missing sdl13 events and do some cleanup
koda
parents:
6281
diff
changeset
|
509 |
|
de449b2d9607
just for the sake of it, add the missing sdl13 events and do some cleanup
koda
parents:
6281
diff
changeset
|
510 |
TSDL_MultiGestureEvent = record |
6284 | 511 |
type_: LongWord; |
6551
a2f39cb9af62
fix a couple of loose ends: sdl_mixer is informed of that OGG is provided by Tremor with its own macro, there is no more a segfault on Tremor cleanup, added new event type and timestamp entry for SDL, removed spurious characters from the japanese translation, uSound errors now are output with SDLTry, uSound doesn't need sound preloading any more
koda
parents:
6415
diff
changeset
|
512 |
timestamp: LongWord; |
6284 | 513 |
windowId: LongWord; |
6693 | 514 |
touchId: TSDL_TouchId; |
6284 | 515 |
dTheta, dDist, x, y: Single; |
6283
6ec7bf51e04f
oops, fix the size of a few event structs i just added
koda
parents:
6282
diff
changeset
|
516 |
numFingers, padding: Word; |
6282
de449b2d9607
just for the sake of it, add the missing sdl13 events and do some cleanup
koda
parents:
6281
diff
changeset
|
517 |
end; |
de449b2d9607
just for the sake of it, add the missing sdl13 events and do some cleanup
koda
parents:
6281
diff
changeset
|
518 |
|
de449b2d9607
just for the sake of it, add the missing sdl13 events and do some cleanup
koda
parents:
6281
diff
changeset
|
519 |
TSDL_DollarGestureEvent = record |
6284 | 520 |
type_: LongWord; |
6551
a2f39cb9af62
fix a couple of loose ends: sdl_mixer is informed of that OGG is provided by Tremor with its own macro, there is no more a segfault on Tremor cleanup, added new event type and timestamp entry for SDL, removed spurious characters from the japanese translation, uSound errors now are output with SDLTry, uSound doesn't need sound preloading any more
koda
parents:
6415
diff
changeset
|
521 |
timestamp: LongWord; |
6284 | 522 |
windowId: LongWord; |
6283
6ec7bf51e04f
oops, fix the size of a few event structs i just added
koda
parents:
6282
diff
changeset
|
523 |
touchId: Int64; |
6ec7bf51e04f
oops, fix the size of a few event structs i just added
koda
parents:
6282
diff
changeset
|
524 |
gesturedId: Int64; |
6284 | 525 |
numFingers: LongWord; |
6283
6ec7bf51e04f
oops, fix the size of a few event structs i just added
koda
parents:
6282
diff
changeset
|
526 |
error: Single; |
6282
de449b2d9607
just for the sake of it, add the missing sdl13 events and do some cleanup
koda
parents:
6281
diff
changeset
|
527 |
end; |
de449b2d9607
just for the sake of it, add the missing sdl13 events and do some cleanup
koda
parents:
6281
diff
changeset
|
528 |
|
6551
a2f39cb9af62
fix a couple of loose ends: sdl_mixer is informed of that OGG is provided by Tremor with its own macro, there is no more a segfault on Tremor cleanup, added new event type and timestamp entry for SDL, removed spurious characters from the japanese translation, uSound errors now are output with SDLTry, uSound doesn't need sound preloading any more
koda
parents:
6415
diff
changeset
|
529 |
TSDL_DropEvent = record |
a2f39cb9af62
fix a couple of loose ends: sdl_mixer is informed of that OGG is provided by Tremor with its own macro, there is no more a segfault on Tremor cleanup, added new event type and timestamp entry for SDL, removed spurious characters from the japanese translation, uSound errors now are output with SDLTry, uSound doesn't need sound preloading any more
koda
parents:
6415
diff
changeset
|
530 |
type_: LongWord; |
a2f39cb9af62
fix a couple of loose ends: sdl_mixer is informed of that OGG is provided by Tremor with its own macro, there is no more a segfault on Tremor cleanup, added new event type and timestamp entry for SDL, removed spurious characters from the japanese translation, uSound errors now are output with SDLTry, uSound doesn't need sound preloading any more
koda
parents:
6415
diff
changeset
|
531 |
timestamp: LongWord; |
a2f39cb9af62
fix a couple of loose ends: sdl_mixer is informed of that OGG is provided by Tremor with its own macro, there is no more a segfault on Tremor cleanup, added new event type and timestamp entry for SDL, removed spurious characters from the japanese translation, uSound errors now are output with SDLTry, uSound doesn't need sound preloading any more
koda
parents:
6415
diff
changeset
|
532 |
filename: PChar; |
a2f39cb9af62
fix a couple of loose ends: sdl_mixer is informed of that OGG is provided by Tremor with its own macro, there is no more a segfault on Tremor cleanup, added new event type and timestamp entry for SDL, removed spurious characters from the japanese translation, uSound errors now are output with SDLTry, uSound doesn't need sound preloading any more
koda
parents:
6415
diff
changeset
|
533 |
end; |
a2f39cb9af62
fix a couple of loose ends: sdl_mixer is informed of that OGG is provided by Tremor with its own macro, there is no more a segfault on Tremor cleanup, added new event type and timestamp entry for SDL, removed spurious characters from the japanese translation, uSound errors now are output with SDLTry, uSound doesn't need sound preloading any more
koda
parents:
6415
diff
changeset
|
534 |
|
6282
de449b2d9607
just for the sake of it, add the missing sdl13 events and do some cleanup
koda
parents:
6281
diff
changeset
|
535 |
TSDL_SysWMEvent = record |
6284 | 536 |
type_: LongWord; |
6551
a2f39cb9af62
fix a couple of loose ends: sdl_mixer is informed of that OGG is provided by Tremor with its own macro, there is no more a segfault on Tremor cleanup, added new event type and timestamp entry for SDL, removed spurious characters from the japanese translation, uSound errors now are output with SDLTry, uSound doesn't need sound preloading any more
koda
parents:
6415
diff
changeset
|
537 |
timestamp: LongWord; |
6284 | 538 |
msg: Pointer; |
6282
de449b2d9607
just for the sake of it, add the missing sdl13 events and do some cleanup
koda
parents:
6281
diff
changeset
|
539 |
end; |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
540 |
{$ELSE} |
3463 | 541 |
TSDL_KeySym = record |
542 |
scancode: Byte; |
|
6284 | 543 |
sym: LongWord; |
544 |
modifier: LongWord; |
|
3463 | 545 |
unicode: Word; |
546 |
end; |
|
547 |
||
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
548 |
TSDL_ActiveEvent = record |
6284 | 549 |
type_: Byte; |
550 |
gain: Byte; |
|
551 |
state: Byte; |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
552 |
end; |
2714
c85ffe57d971
update iphone frontend to the new (silly) sdl api, code cleanups for other sections
koda
parents:
2701
diff
changeset
|
553 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
554 |
TSDL_ResizeEvent = record |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
555 |
type_: Byte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
556 |
w, h: LongInt; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
557 |
end; |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
558 |
{$ENDIF} |
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
559 |
|
5046
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
560 |
TSDL_KeyboardEvent = record |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
561 |
{$IFDEF SDL13} |
6284 | 562 |
type_: LongWord; |
6917 | 563 |
// timestamp: LongWord; |
6284 | 564 |
windowID: LongWord; |
6917 | 565 |
state, repeat_ {*,padding2, padding3*}: Byte; |
5046
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
566 |
{$ELSE} |
6284 | 567 |
type_, which, state: Byte; |
5046
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
568 |
{$ENDIF} |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
569 |
keysym: TSDL_KeySym; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
570 |
end; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
571 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
572 |
TSDL_MouseMotionEvent = record |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
573 |
{$IFDEF SDL13} |
6284 | 574 |
type_: LongWord; |
6551
a2f39cb9af62
fix a couple of loose ends: sdl_mixer is informed of that OGG is provided by Tremor with its own macro, there is no more a segfault on Tremor cleanup, added new event type and timestamp entry for SDL, removed spurious characters from the japanese translation, uSound errors now are output with SDLTry, uSound doesn't need sound preloading any more
koda
parents:
6415
diff
changeset
|
575 |
timestamp: LongWord; |
6284 | 576 |
windowID: LongWord; |
577 |
state, padding1, padding2, padding3: Byte; |
|
3349 | 578 |
x, y, z, xrel, yrel : LongInt; |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
579 |
{$ELSE} |
6284 | 580 |
type_, which, state: Byte; |
581 |
x, y, xrel, yrel : Word; |
|
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
582 |
{$ENDIF} |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
583 |
end; |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
584 |
|
5046
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
585 |
TSDL_MouseButtonEvent = record |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
586 |
{$IFDEF SDL13} |
6284 | 587 |
type_: LongWord; |
6551
a2f39cb9af62
fix a couple of loose ends: sdl_mixer is informed of that OGG is provided by Tremor with its own macro, there is no more a segfault on Tremor cleanup, added new event type and timestamp entry for SDL, removed spurious characters from the japanese translation, uSound errors now are output with SDLTry, uSound doesn't need sound preloading any more
koda
parents:
6415
diff
changeset
|
588 |
timestamp: LongWord; |
6284 | 589 |
windowID: LongWord; |
6917 | 590 |
button, state, padding1, padding2: Byte; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
591 |
x, y: LongInt; |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
592 |
{$ELSE} |
6284 | 593 |
type_, which, button, state: Byte; |
594 |
x, y: Word; |
|
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
595 |
{$ENDIF} |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
596 |
end; |
2376 | 597 |
|
6283
6ec7bf51e04f
oops, fix the size of a few event structs i just added
koda
parents:
6282
diff
changeset
|
598 |
TSDL_MouseWheelEvent = record |
6284 | 599 |
type_: LongWord; |
6283
6ec7bf51e04f
oops, fix the size of a few event structs i just added
koda
parents:
6282
diff
changeset
|
600 |
{$IFDEF SDL13} |
6551
a2f39cb9af62
fix a couple of loose ends: sdl_mixer is informed of that OGG is provided by Tremor with its own macro, there is no more a segfault on Tremor cleanup, added new event type and timestamp entry for SDL, removed spurious characters from the japanese translation, uSound errors now are output with SDLTry, uSound doesn't need sound preloading any more
koda
parents:
6415
diff
changeset
|
601 |
timestamp: LongWord; |
6284 | 602 |
windowID: LongWord; |
6283
6ec7bf51e04f
oops, fix the size of a few event structs i just added
koda
parents:
6282
diff
changeset
|
603 |
{$ELSE} |
6ec7bf51e04f
oops, fix the size of a few event structs i just added
koda
parents:
6282
diff
changeset
|
604 |
which: Byte; |
6ec7bf51e04f
oops, fix the size of a few event structs i just added
koda
parents:
6282
diff
changeset
|
605 |
{$ENDIF} |
6ec7bf51e04f
oops, fix the size of a few event structs i just added
koda
parents:
6282
diff
changeset
|
606 |
x, y: LongInt; |
6ec7bf51e04f
oops, fix the size of a few event structs i just added
koda
parents:
6282
diff
changeset
|
607 |
end; |
6ec7bf51e04f
oops, fix the size of a few event structs i just added
koda
parents:
6282
diff
changeset
|
608 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
609 |
TSDL_JoyAxisEvent = record |
6551
a2f39cb9af62
fix a couple of loose ends: sdl_mixer is informed of that OGG is provided by Tremor with its own macro, there is no more a segfault on Tremor cleanup, added new event type and timestamp entry for SDL, removed spurious characters from the japanese translation, uSound errors now are output with SDLTry, uSound doesn't need sound preloading any more
koda
parents:
6415
diff
changeset
|
610 |
{$IFDEF SDL13} |
a2f39cb9af62
fix a couple of loose ends: sdl_mixer is informed of that OGG is provided by Tremor with its own macro, there is no more a segfault on Tremor cleanup, added new event type and timestamp entry for SDL, removed spurious characters from the japanese translation, uSound errors now are output with SDLTry, uSound doesn't need sound preloading any more
koda
parents:
6415
diff
changeset
|
611 |
type_: LongWord; |
a2f39cb9af62
fix a couple of loose ends: sdl_mixer is informed of that OGG is provided by Tremor with its own macro, there is no more a segfault on Tremor cleanup, added new event type and timestamp entry for SDL, removed spurious characters from the japanese translation, uSound errors now are output with SDLTry, uSound doesn't need sound preloading any more
koda
parents:
6415
diff
changeset
|
612 |
timestamp: LongWord; |
a2f39cb9af62
fix a couple of loose ends: sdl_mixer is informed of that OGG is provided by Tremor with its own macro, there is no more a segfault on Tremor cleanup, added new event type and timestamp entry for SDL, removed spurious characters from the japanese translation, uSound errors now are output with SDLTry, uSound doesn't need sound preloading any more
koda
parents:
6415
diff
changeset
|
613 |
{$ELSE} |
a2f39cb9af62
fix a couple of loose ends: sdl_mixer is informed of that OGG is provided by Tremor with its own macro, there is no more a segfault on Tremor cleanup, added new event type and timestamp entry for SDL, removed spurious characters from the japanese translation, uSound errors now are output with SDLTry, uSound doesn't need sound preloading any more
koda
parents:
6415
diff
changeset
|
614 |
type_: Byte; |
a2f39cb9af62
fix a couple of loose ends: sdl_mixer is informed of that OGG is provided by Tremor with its own macro, there is no more a segfault on Tremor cleanup, added new event type and timestamp entry for SDL, removed spurious characters from the japanese translation, uSound errors now are output with SDLTry, uSound doesn't need sound preloading any more
koda
parents:
6415
diff
changeset
|
615 |
{$ENDIF} |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
616 |
which: Byte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
617 |
axis: Byte; |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
618 |
{$IFDEF SDL13} |
5046
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
619 |
padding1, padding2: Byte; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
620 |
value: LongInt; |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
621 |
{$ELSE} |
6284 | 622 |
value: SmallInt; |
3697 | 623 |
{$ENDIF} |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
624 |
end; |
3697 | 625 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
626 |
TSDL_JoyBallEvent = record |
6551
a2f39cb9af62
fix a couple of loose ends: sdl_mixer is informed of that OGG is provided by Tremor with its own macro, there is no more a segfault on Tremor cleanup, added new event type and timestamp entry for SDL, removed spurious characters from the japanese translation, uSound errors now are output with SDLTry, uSound doesn't need sound preloading any more
koda
parents:
6415
diff
changeset
|
627 |
{$IFDEF SDL13} |
a2f39cb9af62
fix a couple of loose ends: sdl_mixer is informed of that OGG is provided by Tremor with its own macro, there is no more a segfault on Tremor cleanup, added new event type and timestamp entry for SDL, removed spurious characters from the japanese translation, uSound errors now are output with SDLTry, uSound doesn't need sound preloading any more
koda
parents:
6415
diff
changeset
|
628 |
type_: LongWord; |
a2f39cb9af62
fix a couple of loose ends: sdl_mixer is informed of that OGG is provided by Tremor with its own macro, there is no more a segfault on Tremor cleanup, added new event type and timestamp entry for SDL, removed spurious characters from the japanese translation, uSound errors now are output with SDLTry, uSound doesn't need sound preloading any more
koda
parents:
6415
diff
changeset
|
629 |
timestamp: LongWord; |
a2f39cb9af62
fix a couple of loose ends: sdl_mixer is informed of that OGG is provided by Tremor with its own macro, there is no more a segfault on Tremor cleanup, added new event type and timestamp entry for SDL, removed spurious characters from the japanese translation, uSound errors now are output with SDLTry, uSound doesn't need sound preloading any more
koda
parents:
6415
diff
changeset
|
630 |
{$ELSE} |
a2f39cb9af62
fix a couple of loose ends: sdl_mixer is informed of that OGG is provided by Tremor with its own macro, there is no more a segfault on Tremor cleanup, added new event type and timestamp entry for SDL, removed spurious characters from the japanese translation, uSound errors now are output with SDLTry, uSound doesn't need sound preloading any more
koda
parents:
6415
diff
changeset
|
631 |
type_: Byte; |
a2f39cb9af62
fix a couple of loose ends: sdl_mixer is informed of that OGG is provided by Tremor with its own macro, there is no more a segfault on Tremor cleanup, added new event type and timestamp entry for SDL, removed spurious characters from the japanese translation, uSound errors now are output with SDLTry, uSound doesn't need sound preloading any more
koda
parents:
6415
diff
changeset
|
632 |
{$ENDIF} |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
633 |
which: Byte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
634 |
ball: Byte; |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
635 |
{$IFDEF SDL13} |
5046
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
636 |
padding1, padding2: Byte; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
637 |
xrel, yrel: LongInt; |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
638 |
{$ELSE} |
6284 | 639 |
xrel, yrel: SmallInt; |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
640 |
{$ENDIF} |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
641 |
end; |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
642 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
643 |
TSDL_JoyHatEvent = record |
6551
a2f39cb9af62
fix a couple of loose ends: sdl_mixer is informed of that OGG is provided by Tremor with its own macro, there is no more a segfault on Tremor cleanup, added new event type and timestamp entry for SDL, removed spurious characters from the japanese translation, uSound errors now are output with SDLTry, uSound doesn't need sound preloading any more
koda
parents:
6415
diff
changeset
|
644 |
{$IFDEF SDL13} |
a2f39cb9af62
fix a couple of loose ends: sdl_mixer is informed of that OGG is provided by Tremor with its own macro, there is no more a segfault on Tremor cleanup, added new event type and timestamp entry for SDL, removed spurious characters from the japanese translation, uSound errors now are output with SDLTry, uSound doesn't need sound preloading any more
koda
parents:
6415
diff
changeset
|
645 |
type_: LongWord; |
a2f39cb9af62
fix a couple of loose ends: sdl_mixer is informed of that OGG is provided by Tremor with its own macro, there is no more a segfault on Tremor cleanup, added new event type and timestamp entry for SDL, removed spurious characters from the japanese translation, uSound errors now are output with SDLTry, uSound doesn't need sound preloading any more
koda
parents:
6415
diff
changeset
|
646 |
timestamp: LongWord; |
a2f39cb9af62
fix a couple of loose ends: sdl_mixer is informed of that OGG is provided by Tremor with its own macro, there is no more a segfault on Tremor cleanup, added new event type and timestamp entry for SDL, removed spurious characters from the japanese translation, uSound errors now are output with SDLTry, uSound doesn't need sound preloading any more
koda
parents:
6415
diff
changeset
|
647 |
{$ELSE} |
a2f39cb9af62
fix a couple of loose ends: sdl_mixer is informed of that OGG is provided by Tremor with its own macro, there is no more a segfault on Tremor cleanup, added new event type and timestamp entry for SDL, removed spurious characters from the japanese translation, uSound errors now are output with SDLTry, uSound doesn't need sound preloading any more
koda
parents:
6415
diff
changeset
|
648 |
type_: Byte; |
a2f39cb9af62
fix a couple of loose ends: sdl_mixer is informed of that OGG is provided by Tremor with its own macro, there is no more a segfault on Tremor cleanup, added new event type and timestamp entry for SDL, removed spurious characters from the japanese translation, uSound errors now are output with SDLTry, uSound doesn't need sound preloading any more
koda
parents:
6415
diff
changeset
|
649 |
{$ENDIF} |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
650 |
which: Byte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
651 |
hat: Byte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
652 |
value: Byte; |
5046
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
653 |
{$IFDEF SDL13} |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
654 |
padding1: Byte; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
655 |
{$ENDIF} |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
656 |
end; |
3697 | 657 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
658 |
TSDL_JoyButtonEvent = record |
6551
a2f39cb9af62
fix a couple of loose ends: sdl_mixer is informed of that OGG is provided by Tremor with its own macro, there is no more a segfault on Tremor cleanup, added new event type and timestamp entry for SDL, removed spurious characters from the japanese translation, uSound errors now are output with SDLTry, uSound doesn't need sound preloading any more
koda
parents:
6415
diff
changeset
|
659 |
{$IFDEF SDL13} |
a2f39cb9af62
fix a couple of loose ends: sdl_mixer is informed of that OGG is provided by Tremor with its own macro, there is no more a segfault on Tremor cleanup, added new event type and timestamp entry for SDL, removed spurious characters from the japanese translation, uSound errors now are output with SDLTry, uSound doesn't need sound preloading any more
koda
parents:
6415
diff
changeset
|
660 |
type_: LongWord; |
a2f39cb9af62
fix a couple of loose ends: sdl_mixer is informed of that OGG is provided by Tremor with its own macro, there is no more a segfault on Tremor cleanup, added new event type and timestamp entry for SDL, removed spurious characters from the japanese translation, uSound errors now are output with SDLTry, uSound doesn't need sound preloading any more
koda
parents:
6415
diff
changeset
|
661 |
timestamp: LongWord; |
a2f39cb9af62
fix a couple of loose ends: sdl_mixer is informed of that OGG is provided by Tremor with its own macro, there is no more a segfault on Tremor cleanup, added new event type and timestamp entry for SDL, removed spurious characters from the japanese translation, uSound errors now are output with SDLTry, uSound doesn't need sound preloading any more
koda
parents:
6415
diff
changeset
|
662 |
{$ELSE} |
a2f39cb9af62
fix a couple of loose ends: sdl_mixer is informed of that OGG is provided by Tremor with its own macro, there is no more a segfault on Tremor cleanup, added new event type and timestamp entry for SDL, removed spurious characters from the japanese translation, uSound errors now are output with SDLTry, uSound doesn't need sound preloading any more
koda
parents:
6415
diff
changeset
|
663 |
type_: Byte; |
a2f39cb9af62
fix a couple of loose ends: sdl_mixer is informed of that OGG is provided by Tremor with its own macro, there is no more a segfault on Tremor cleanup, added new event type and timestamp entry for SDL, removed spurious characters from the japanese translation, uSound errors now are output with SDLTry, uSound doesn't need sound preloading any more
koda
parents:
6415
diff
changeset
|
664 |
{$ENDIF} |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
665 |
which: Byte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
666 |
button: Byte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
667 |
state: Byte; |
5046
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
668 |
{$IFDEF SDL13} |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
669 |
padding1: Byte; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
670 |
{$ENDIF} |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
671 |
end; |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
672 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
673 |
TSDL_QuitEvent = record |
6551
a2f39cb9af62
fix a couple of loose ends: sdl_mixer is informed of that OGG is provided by Tremor with its own macro, there is no more a segfault on Tremor cleanup, added new event type and timestamp entry for SDL, removed spurious characters from the japanese translation, uSound errors now are output with SDLTry, uSound doesn't need sound preloading any more
koda
parents:
6415
diff
changeset
|
674 |
{$IFDEF SDL13} |
a2f39cb9af62
fix a couple of loose ends: sdl_mixer is informed of that OGG is provided by Tremor with its own macro, there is no more a segfault on Tremor cleanup, added new event type and timestamp entry for SDL, removed spurious characters from the japanese translation, uSound errors now are output with SDLTry, uSound doesn't need sound preloading any more
koda
parents:
6415
diff
changeset
|
675 |
type_: LongWord; |
a2f39cb9af62
fix a couple of loose ends: sdl_mixer is informed of that OGG is provided by Tremor with its own macro, there is no more a segfault on Tremor cleanup, added new event type and timestamp entry for SDL, removed spurious characters from the japanese translation, uSound errors now are output with SDLTry, uSound doesn't need sound preloading any more
koda
parents:
6415
diff
changeset
|
676 |
timestamp: LongWord; |
a2f39cb9af62
fix a couple of loose ends: sdl_mixer is informed of that OGG is provided by Tremor with its own macro, there is no more a segfault on Tremor cleanup, added new event type and timestamp entry for SDL, removed spurious characters from the japanese translation, uSound errors now are output with SDLTry, uSound doesn't need sound preloading any more
koda
parents:
6415
diff
changeset
|
677 |
{$ELSE} |
a2f39cb9af62
fix a couple of loose ends: sdl_mixer is informed of that OGG is provided by Tremor with its own macro, there is no more a segfault on Tremor cleanup, added new event type and timestamp entry for SDL, removed spurious characters from the japanese translation, uSound errors now are output with SDLTry, uSound doesn't need sound preloading any more
koda
parents:
6415
diff
changeset
|
678 |
type_: Byte; |
a2f39cb9af62
fix a couple of loose ends: sdl_mixer is informed of that OGG is provided by Tremor with its own macro, there is no more a segfault on Tremor cleanup, added new event type and timestamp entry for SDL, removed spurious characters from the japanese translation, uSound errors now are output with SDLTry, uSound doesn't need sound preloading any more
koda
parents:
6415
diff
changeset
|
679 |
{$ENDIF} |
3349 | 680 |
end; |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
681 |
|
4454 | 682 |
TSDL_UserEvent = record |
683 |
{$IFDEF SDL13} |
|
6284 | 684 |
type_: LongWord; |
6551
a2f39cb9af62
fix a couple of loose ends: sdl_mixer is informed of that OGG is provided by Tremor with its own macro, there is no more a segfault on Tremor cleanup, added new event type and timestamp entry for SDL, removed spurious characters from the japanese translation, uSound errors now are output with SDLTry, uSound doesn't need sound preloading any more
koda
parents:
6415
diff
changeset
|
685 |
timestamp: LongWord; |
6284 | 686 |
windowID: LongWord; |
4454 | 687 |
{$ELSE} |
688 |
type_: Byte; |
|
689 |
{$ENDIF} |
|
690 |
code: LongInt; |
|
691 |
data1, data2: Pointer; |
|
692 |
end; |
|
693 |
||
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
694 |
PSDL_Event = ^TSDL_Event; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
695 |
TSDL_Event = record |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
696 |
{$IFDEF SDL13} |
3463 | 697 |
case LongInt of |
698 |
SDL_FIRSTEVENT: (type_: LongInt); |
|
5052 | 699 |
SDL_WINDOWEVENT: (window: TSDL_WindowEvent); |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
700 |
SDL_KEYDOWN, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
701 |
SDL_KEYUP: (key: TSDL_KeyboardEvent); |
6282
de449b2d9607
just for the sake of it, add the missing sdl13 events and do some cleanup
koda
parents:
6281
diff
changeset
|
702 |
SDL_TEXTEDITING: (edit: TSDL_TextEditingEvent); |
de449b2d9607
just for the sake of it, add the missing sdl13 events and do some cleanup
koda
parents:
6281
diff
changeset
|
703 |
SDL_TEXTINPUT: (tedit: TSDL_TextInputEvent); |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
704 |
SDL_MOUSEMOTION: (motion: TSDL_MouseMotionEvent); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
705 |
SDL_MOUSEBUTTONDOWN, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
706 |
SDL_MOUSEBUTTONUP: (button: TSDL_MouseButtonEvent); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
707 |
SDL_MOUSEWHEEL: (wheel: TSDL_MouseWheelEvent); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
708 |
SDL_JOYAXISMOTION: (jaxis: TSDL_JoyAxisEvent); |
5052 | 709 |
SDL_JOYBALLMOTION: (jball: TSDL_JoyBallEvent); |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
710 |
SDL_JOYHATMOTION: (jhat: TSDL_JoyHatEvent); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
711 |
SDL_JOYBUTTONDOWN, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
712 |
SDL_JOYBUTTONUP: (jbutton: TSDL_JoyButtonEvent); |
5046
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
713 |
SDL_QUITEV: (quit: TSDL_QuitEvent); |
4454 | 714 |
SDL_USEREVENT: (user: TSDL_UserEvent); |
6282
de449b2d9607
just for the sake of it, add the missing sdl13 events and do some cleanup
koda
parents:
6281
diff
changeset
|
715 |
SDL_SYSWMEVENT: (syswm: TSDL_SysWMEvent); |
de449b2d9607
just for the sake of it, add the missing sdl13 events and do some cleanup
koda
parents:
6281
diff
changeset
|
716 |
SDL_FINGERDOWN, |
de449b2d9607
just for the sake of it, add the missing sdl13 events and do some cleanup
koda
parents:
6281
diff
changeset
|
717 |
SDL_FINGERUP, |
de449b2d9607
just for the sake of it, add the missing sdl13 events and do some cleanup
koda
parents:
6281
diff
changeset
|
718 |
SDL_FINGERMOTION: (tfinger: TSDL_TouchFingerEvent); |
de449b2d9607
just for the sake of it, add the missing sdl13 events and do some cleanup
koda
parents:
6281
diff
changeset
|
719 |
SDL_TOUCHBUTTONUP, |
de449b2d9607
just for the sake of it, add the missing sdl13 events and do some cleanup
koda
parents:
6281
diff
changeset
|
720 |
SDL_TOUCHBUTTONDOWN: (tbutton: TSDL_TouchButtonEvent); |
de449b2d9607
just for the sake of it, add the missing sdl13 events and do some cleanup
koda
parents:
6281
diff
changeset
|
721 |
SDL_MULTIGESTURE: (mgesture: TSDL_MultiGestureEvent); |
de449b2d9607
just for the sake of it, add the missing sdl13 events and do some cleanup
koda
parents:
6281
diff
changeset
|
722 |
SDL_DOLLARGESTURE: (dgesture: TSDL_DollarGestureEvent); |
6551
a2f39cb9af62
fix a couple of loose ends: sdl_mixer is informed of that OGG is provided by Tremor with its own macro, there is no more a segfault on Tremor cleanup, added new event type and timestamp entry for SDL, removed spurious characters from the japanese translation, uSound errors now are output with SDLTry, uSound doesn't need sound preloading any more
koda
parents:
6415
diff
changeset
|
723 |
SDL_DROPFILE: (drop: TSDL_DropEvent); |
6280 | 724 |
SDL_ALLEVENTS: (foo: shortstring); |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
725 |
{$ELSE} |
3463 | 726 |
case Byte of |
6284 | 727 |
SDL_NOEVENT: (type_: Byte); |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
728 |
SDL_ACTIVEEVENT: (active: TSDL_ActiveEvent); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
729 |
SDL_KEYDOWN, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
730 |
SDL_KEYUP: (key: TSDL_KeyboardEvent); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
731 |
SDL_MOUSEMOTION: (motion: TSDL_MouseMotionEvent); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
732 |
SDL_MOUSEBUTTONDOWN, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
733 |
SDL_MOUSEBUTTONUP: (button: TSDL_MouseButtonEvent); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
734 |
SDL_JOYAXISMOTION: (jaxis: TSDL_JoyAxisEvent); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
735 |
SDL_JOYHATMOTION: (jhat: TSDL_JoyHatEvent); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
736 |
SDL_JOYBALLMOTION: (jball: TSDL_JoyBallEvent); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
737 |
SDL_JOYBUTTONDOWN, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
738 |
SDL_JOYBUTTONUP: (jbutton: TSDL_JoyButtonEvent); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
739 |
SDL_QUITEV: (quit: TSDL_QuitEvent); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
740 |
//SDL_SYSWMEVENT,SDL_EVENT_RESERVEDA,SDL_EVENT_RESERVEDB |
5670
e01f0b6f1969
enable window resizing (tested only on linux) - fix issue 103
koda
parents:
5660
diff
changeset
|
741 |
SDL_VIDEORESIZE: (resize: TSDL_ResizeEvent); |
6280 | 742 |
SDL_ALLEVENTS: (foo: shortstring); |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
743 |
{$ENDIF} |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
744 |
end; |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
745 |
|
5745
71e69623be39
allow fullscreen resolution selection (but still leaves in the auto max for commodity)
koda
parents:
5724
diff
changeset
|
746 |
TSDL_EventFilter = function( event : PSDL_Event ): Integer; cdecl; |
71e69623be39
allow fullscreen resolution selection (but still leaves in the auto max for commodity)
koda
parents:
5724
diff
changeset
|
747 |
|
7035 | 748 |
TByteArray = array[0..65535] of Byte; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
749 |
PByteArray = ^TByteArray; |
7035 | 750 |
TLongWordArray = array[0..16383] of LongWord; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
751 |
PLongWordArray = ^TLongWordArray; |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
752 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
753 |
PSDL_Thread = Pointer; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
754 |
PSDL_mutex = Pointer; |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
755 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
756 |
TSDL_GLattr = ( |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
757 |
SDL_GL_RED_SIZE, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
758 |
SDL_GL_GREEN_SIZE, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
759 |
SDL_GL_BLUE_SIZE, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
760 |
SDL_GL_ALPHA_SIZE, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
761 |
SDL_GL_BUFFER_SIZE, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
762 |
SDL_GL_DOUBLEBUFFER, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
763 |
SDL_GL_DEPTH_SIZE, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
764 |
SDL_GL_STENCIL_SIZE, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
765 |
SDL_GL_ACCUM_RED_SIZE, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
766 |
SDL_GL_ACCUM_GREEN_SIZE, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
767 |
SDL_GL_ACCUM_BLUE_SIZE, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
768 |
SDL_GL_ACCUM_ALPHA_SIZE, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
769 |
SDL_GL_STEREO, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
770 |
SDL_GL_MULTISAMPLEBUFFERS, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
771 |
SDL_GL_MULTISAMPLESAMPLES, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
772 |
SDL_GL_ACCELERATED_VISUAL, |
2617
ef0d93cd61b2
add option for vsync -- good results on mac and linux, should be harmless on others (please test)
koda
parents:
2606
diff
changeset
|
773 |
{$IFDEF SDL13} |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
774 |
SDL_GL_RETAINED_BACKING, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
775 |
SDL_GL_CONTEXT_MAJOR_VERSION, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
776 |
SDL_GL_CONTEXT_MINOR_VERSION |
2617
ef0d93cd61b2
add option for vsync -- good results on mac and linux, should be harmless on others (please test)
koda
parents:
2606
diff
changeset
|
777 |
{$ELSE} |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
778 |
SDL_GL_SWAP_CONTROL |
2617
ef0d93cd61b2
add option for vsync -- good results on mac and linux, should be harmless on others (please test)
koda
parents:
2606
diff
changeset
|
779 |
{$ENDIF} |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
780 |
); |
2376 | 781 |
|
2252 | 782 |
{$IFDEF SDL13} |
6284 | 783 |
TSDL_ArrayByteOrder = ( // array component order, low Byte -> high Byte |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
784 |
SDL_ARRAYORDER_NONE, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
785 |
SDL_ARRAYORDER_RGB, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
786 |
SDL_ARRAYORDER_RGBA, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
787 |
SDL_ARRAYORDER_ARGB, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
788 |
SDL_ARRAYORDER_BGR, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
789 |
SDL_ARRAYORDER_BGRA, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
790 |
SDL_ARRAYORDER_ABGR |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
791 |
); |
2252 | 792 |
{$ENDIF} |
4 | 793 |
|
2600 | 794 |
// Joystick/Controller support |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
795 |
PSDL_Joystick = ^TSDL_Joystick; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
796 |
TSDL_Joystick = record |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
797 |
end; |
2600 | 798 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
799 |
{* SDL_TTF *} |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
800 |
PTTF_Font = ^TTTF_font; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
801 |
TTTF_Font = record |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
802 |
end; |
2600 | 803 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
804 |
{* SDL_mixer *} |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
805 |
PMixChunk = ^TMixChunk; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
806 |
TMixChunk = record |
6284 | 807 |
allocated: LongWord; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
808 |
abuf : PByte; |
6284 | 809 |
alen : LongWord; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
810 |
volume : PByte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
811 |
end; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
812 |
TMusic = (MUS_CMD, MUS_WAV, MUS_MOD, MUS_MID, MUS_OGG, MUS_MP3); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
813 |
TMix_Fading = (MIX_NO_FADING, MIX_FADING_OUT, MIX_FADING_IN); |
2600 | 814 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
815 |
TMidiSong = record |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
816 |
samples : LongInt; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
817 |
events : Pointer; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
818 |
end; |
2600 | 819 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
820 |
TMusicUnion = record |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
821 |
case Byte of |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
822 |
0: ( midi : TMidiSong ); |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
823 |
1: ( ogg : Pointer); |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
824 |
end; |
2600 | 825 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
826 |
PMixMusic = ^TMixMusic; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
827 |
TMixMusic = record |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
828 |
end; |
2600 | 829 |
|
7180 | 830 |
TPostMix = procedure(udata: pointer; stream: PByte; len: LongInt); cdecl; |
831 |
||
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
832 |
{* SDL_net *} |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
833 |
TIPAddress = record |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
834 |
host: LongWord; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
835 |
port: Word; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
836 |
end; |
2600 | 837 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
838 |
PTCPSocket = ^TTCPSocket; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
839 |
TTCPSocket = record |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
840 |
ready: LongInt; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
841 |
channel: LongInt; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
842 |
remoteAddress: TIPaddress; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
843 |
localAddress: TIPaddress; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
844 |
sflag: LongInt; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
845 |
end; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
846 |
PSDLNet_SocketSet = ^TSDLNet_SocketSet; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
847 |
TSDLNet_SocketSet = record |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
848 |
numsockets, |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
849 |
maxsockets: LongInt; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
850 |
sockets: PTCPSocket; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
851 |
end; |
2600 | 852 |
|
853 |
||
854 |
///////////////////////////////////////////////////////////////// |
|
855 |
///////////////////// FUNCTION DEFINITIONS ///////////////////// |
|
856 |
///////////////////////////////////////////////////////////////// |
|
857 |
||
858 |
||
859 |
{* SDL *} |
|
6284 | 860 |
function SDL_Init(flags: LongWord): LongInt; cdecl; external SDLLibName; |
2674
2fce032f2f95
lupdate + Palewolf's updated spanish translation + other patches of mine
koda
parents:
2671
diff
changeset
|
861 |
function SDL_InitSubSystem(flags: LongWord): LongInt; cdecl; external SDLLibName; |
4 | 862 |
procedure SDL_Quit; cdecl; external SDLLibName; |
2671
7e0f88013fe8
smaller patches, one missing Sky-lowres, IMG_Init and Mix_Init (might require newer libraries), updates to SDL bindings, code cleanup, new compile flags
koda
parents:
2669
diff
changeset
|
863 |
|
6284 | 864 |
procedure SDL_Delay(msec: LongWord); cdecl; external SDLLibName; |
865 |
function SDL_GetTicks: LongWord; cdecl; external SDLLibName; |
|
4 | 866 |
|
867 |
function SDL_MustLock(Surface: PSDL_Surface): Boolean; |
|
432 | 868 |
function SDL_LockSurface(Surface: PSDL_Surface): LongInt; cdecl; external SDLLibName; |
4 | 869 |
procedure SDL_UnlockSurface(Surface: PSDL_Surface); cdecl; external SDLLibName; |
870 |
||
871 |
function SDL_GetError: PChar; cdecl; external SDLLibName; |
|
872 |
||
6284 | 873 |
function SDL_SetVideoMode(width, height, bpp: LongInt; flags: LongWord): PSDL_Surface; cdecl; external SDLLibName; |
874 |
function SDL_CreateRGBSurface(flags: LongWord; Width, Height, Depth: LongInt; RMask, GMask, BMask, AMask: LongWord): PSDL_Surface; cdecl; external SDLLibName; |
|
875 |
function SDL_CreateRGBSurfaceFrom(pixels: Pointer; width, height, depth, pitch: LongInt; RMask, GMask, BMask, AMask: LongWord): PSDL_Surface; cdecl; external SDLLibName; |
|
4 | 876 |
procedure SDL_FreeSurface(Surface: PSDL_Surface); cdecl; external SDLLibName; |
6284 | 877 |
function SDL_SetColorKey(surface: PSDL_Surface; flag, key: LongWord): LongInt; cdecl; external SDLLibName; |
878 |
function SDL_SetAlpha(surface: PSDL_Surface; flag, key: LongWord): LongInt; cdecl; external SDLLibName; |
|
2248
26e11cb27c61
real fix for iphone color (reverting previous commit)
koda
parents:
2242
diff
changeset
|
879 |
function SDL_ConvertSurface(src: PSDL_Surface; fmt: PSDL_PixelFormat; flags: LongInt): PSDL_Surface; cdecl; external SDLLibName; |
4 | 880 |
|
105 | 881 |
function SDL_UpperBlit(src: PSDL_Surface; srcrect: PSDL_Rect; dst: PSDL_Surface; dstrect: PSDL_Rect): LongInt; cdecl; external SDLLibName; |
6284 | 882 |
function SDL_FillRect(dst: PSDL_Surface; dstrect: PSDL_Rect; color: LongWord): LongInt; cdecl; external SDLLibName; |
883 |
procedure SDL_UpdateRect(Screen: PSDL_Surface; x, y: LongInt; w, h: LongWord); cdecl; external SDLLibName; |
|
432 | 884 |
function SDL_Flip(Screen: PSDL_Surface): LongInt; cdecl; external SDLLibName; |
4 | 885 |
|
6284 | 886 |
procedure SDL_GetRGB(pixel: LongWord; fmt: PSDL_PixelFormat; r, g, b: PByte); cdecl; external SDLLibName; |
887 |
procedure SDL_GetRGBA(pixel: LongWord; fmt: PSDL_PixelFormat; r, g, b, a: PByte); cdecl; external SDLLibName; |
|
888 |
function SDL_MapRGB(format: PSDL_PixelFormat; r, g, b: Byte): LongWord; cdecl; external SDLLibName; |
|
889 |
function SDL_MapRGBA(format: PSDL_PixelFormat; r, g, b, a: Byte): LongWord; cdecl; external SDLLibName; |
|
4 | 890 |
|
891 |
function SDL_DisplayFormat(Surface: PSDL_Surface): PSDL_Surface; cdecl; external SDLLibName; |
|
35 | 892 |
function SDL_DisplayFormatAlpha(Surface: PSDL_Surface): PSDL_Surface; cdecl; external SDLLibName; |
4 | 893 |
|
894 |
function SDL_RWFromFile(filename, mode: PChar): PSDL_RWops; cdecl; external SDLLibName; |
|
432 | 895 |
function SDL_SaveBMP_RW(surface: PSDL_Surface; dst: PSDL_RWops; freedst: LongInt): LongInt; cdecl; external SDLLibName; |
4 | 896 |
|
2152 | 897 |
{$IFDEF SDL13} |
6284 | 898 |
function SDL_CreateWindow(title: PChar; x,y,w,h: LongInt; flags: LongWord): PSDL_Window; cdecl; external SDLLibName; |
899 |
function SDL_CreateRenderer(window: PSDL_Window; index: LongInt; flags: LongWord): PSDL_Renderer; cdecl; external SDLLibName; |
|
5486
e75f7c3c6275
ios: this should prevent at least one of the crashes zorg spotted; also added some callbacks in SDLh; also polished project file (from -O2 to -Os)
koda
parents:
5187
diff
changeset
|
900 |
function SDL_DestroyWindow(window: PSDL_Window): LongInt; cdecl; external SDLLibName; |
4933 | 901 |
function SDL_DestroyRenderer(renderer: PSDL_Renderer): LongInt; cdecl; external SDLLibName; |
6021 | 902 |
procedure SDL_SetWindowSize(window: PSDL_Window; w, h: LongInt); cdecl; external SDLLibName; |
6281
dc9c44f47e75
avoid linking compatible code from sdl library, let's provide our own
koda
parents:
6280
diff
changeset
|
903 |
function SDL_GetCurrentVideoDriver:Pchar; cdecl; external SDLLibName; |
5486
e75f7c3c6275
ios: this should prevent at least one of the crashes zorg spotted; also added some callbacks in SDLh; also polished project file (from -O2 to -Os)
koda
parents:
5187
diff
changeset
|
904 |
|
e75f7c3c6275
ios: this should prevent at least one of the crashes zorg spotted; also added some callbacks in SDLh; also polished project file (from -O2 to -Os)
koda
parents:
5187
diff
changeset
|
905 |
function SDL_GL_CreateContext(window: PSDL_Window): PSDL_GLContext; cdecl; external SDLLibName; |
e75f7c3c6275
ios: this should prevent at least one of the crashes zorg spotted; also added some callbacks in SDLh; also polished project file (from -O2 to -Os)
koda
parents:
5187
diff
changeset
|
906 |
procedure SDL_GL_DeleteContext(context: PSDL_GLContext); cdecl; external SDLLibName; |
e75f7c3c6275
ios: this should prevent at least one of the crashes zorg spotted; also added some callbacks in SDLh; also polished project file (from -O2 to -Os)
koda
parents:
5187
diff
changeset
|
907 |
function SDL_GL_SwapWindow(window: PSDL_Window): LongInt; cdecl; external SDLLibName; |
5505
a55aab592950
Ditch the renderer system in sdl1.3 and use the 'old fashioned' sdl/opengl context. This gives us more flexibility and less problem in receiving video events (expecially on mobile platform) as well as not having to care to reset the gl context every time sdl interferes.
koda
parents:
5486
diff
changeset
|
908 |
function SDL_GL_SetSwapInterval(interval: LongInt): LongInt; cdecl; external SDLLibName; |
5177 | 909 |
|
4933 | 910 |
procedure SDL_VideoQuit; cdecl; external SDLLibName; |
4911
5d10bd725efe
update libs and move the multiwindow handling from internal libsdl mods to proper apis usage
koda
parents:
4454
diff
changeset
|
911 |
function SDL_GetNumVideoDisplays: LongInt; cdecl; external SDLLibName; |
5486
e75f7c3c6275
ios: this should prevent at least one of the crashes zorg spotted; also added some callbacks in SDLh; also polished project file (from -O2 to -Os)
koda
parents:
5187
diff
changeset
|
912 |
procedure SDL_ShowWindow(window: PSDL_Window); cdecl; external SDLLibName; |
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2714
diff
changeset
|
913 |
|
6284 | 914 |
function SDL_SetRenderDrawColor(renderer: PSDL_Renderer; r,g,b,a: Byte): LongInt; cdecl; external SDLLibName; |
5187 | 915 |
function SDL_GetRenderer(window: PSDL_Window): PSDL_Renderer; cdecl; external SDLLibName; |
4933 | 916 |
function SDL_RenderFillRect(renderer: PSDL_Renderer; rect: PSDL_Rect): LongInt; cdecl; external SDLLibName; |
917 |
function SDL_RenderClear(renderer: PSDL_Renderer): LongInt; cdecl; external SDLLibName; |
|
918 |
procedure SDL_RenderPresent(renderer: PSDL_Renderer); cdecl; external SDLLibName; |
|
6284 | 919 |
function SDL_RenderReadPixels(renderer: PSDL_Renderer; rect: PSDL_Rect; format: LongInt; pixels: Pointer; pitch: LongInt): LongInt; cdecl; external SDLLibName; |
5187 | 920 |
function SDL_RenderSetViewport(window: PSDL_Window; rect: PSDL_Rect): LongInt; cdecl; external SDLLibName; |
2697 | 921 |
|
922 |
function SDL_GetRelativeMouseState(x, y: PLongInt): Byte; cdecl; external SDLLibName; |
|
6284 | 923 |
function SDL_PixelFormatEnumToMasks(format: TSDL_ArrayByteOrder; bpp: PLongInt; Rmask, Gmask, Bmask, Amask: PLongInt): Boolean; cdecl; external SDLLibName; |
5004
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
924 |
|
5046
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
925 |
procedure SDL_WarpMouseInWindow(window: PSDL_Window; x, y: LongInt); cdecl; external SDLLibName; |
6284 | 926 |
function SDL_SetHint(name, value: PChar): Boolean; cdecl; external SDLLibName; |
6281
dc9c44f47e75
avoid linking compatible code from sdl library, let's provide our own
koda
parents:
6280
diff
changeset
|
927 |
procedure SDL_StartTextInput; cdecl; external SDLLibName; |
5724 | 928 |
|
6974
2d3beb445d64
minor changes for more compatibilities with other compilers
koda
parents:
6972
diff
changeset
|
929 |
function SDL_PeepEvents(event: PSDL_Event; numevents: LongInt; action: TSDL_eventaction; minType, maxType: LongWord): LongInt; cdecl; external SDLLibName; |
6341 | 930 |
function SDL_CreateThread(fn: Pointer; name: PChar; data: Pointer): PSDL_Thread; cdecl; external SDLLibName; |
5724 | 931 |
{$ELSE} |
6341 | 932 |
function SDL_CreateThread(fn: Pointer; data: Pointer): PSDL_Thread; cdecl; external SDLLibName; |
6974
2d3beb445d64
minor changes for more compatibilities with other compilers
koda
parents:
6972
diff
changeset
|
933 |
function SDL_PeepEvents(event: PSDL_Event; numevents: LongInt; action: TSDL_eventaction; mask: LongWord): LongInt; cdecl; external SDLLibName; |
2671
7e0f88013fe8
smaller patches, one missing Sky-lowres, IMG_Init and Mix_Init (might require newer libraries), updates to SDL bindings, code cleanup, new compile flags
koda
parents:
2669
diff
changeset
|
934 |
{$ENDIF} |
2714
c85ffe57d971
update iphone frontend to the new (silly) sdl api, code cleanups for other sections
koda
parents:
2701
diff
changeset
|
935 |
|
2242 | 936 |
function SDL_GetMouseState(x, y: PLongInt): Byte; cdecl; external SDLLibName; |
6284 | 937 |
function SDL_GetKeyName(key: LongWord): PChar; cdecl; external SDLLibName; |
6900 | 938 |
function SDL_GetScancodeName(key: LongWord): PChar; cdecl; external SDLLibName; |
6917 | 939 |
function SDL_GetKeyFromScancode(key: LongWord): LongInt; cdecl; external SDLLibName; |
940 |
||
4 | 941 |
|
2428 | 942 |
procedure SDL_PumpEvents; cdecl; external SDLLibName; |
432 | 943 |
function SDL_PollEvent(event: PSDL_Event): LongInt; cdecl; external SDLLibName; |
2590 | 944 |
function SDL_WaitEvent(event: PSDL_Event): LongInt; cdecl; external SDLLibName; |
6284 | 945 |
procedure SDL_SetEventFilter(filter: TSDL_EventFilter); cdecl; external SDLLibName; |
4 | 946 |
|
432 | 947 |
function SDL_ShowCursor(toggle: LongInt): LongInt; cdecl; external SDLLibName; |
4 | 948 |
|
6284 | 949 |
procedure SDL_WM_SetIcon(icon: PSDL_Surface; mask : Byte); cdecl; external SDLLibName; |
4 | 950 |
procedure SDL_WM_SetCaption(title: PChar; icon: PChar); cdecl; external SDLLibName; |
2674
2fce032f2f95
lupdate + Palewolf's updated spanish translation + other patches of mine
koda
parents:
2671
diff
changeset
|
951 |
function SDL_WM_ToggleFullScreen(surface: PSDL_Surface): LongInt; cdecl; external SDLLibName; |
4 | 952 |
|
6330 | 953 |
procedure SDL_WaitThread(thread: PSDL_Thread; status: PLongInt); cdecl; external SDLLibName; |
433 | 954 |
function SDL_CreateMutex: PSDL_mutex; cdecl; external SDLLibName; |
955 |
procedure SDL_DestroyMutex(mutex: PSDL_mutex); cdecl; external SDLLibName; |
|
956 |
function SDL_LockMutex(mutex: PSDL_mutex): LongInt; cdecl; external SDLLibName name 'SDL_mutexP'; |
|
957 |
function SDL_UnlockMutex(mutex: PSDL_mutex): LongInt; cdecl; external SDLLibName name 'SDL_mutexV'; |
|
958 |
||
2252 | 959 |
function SDL_GL_SetAttribute(attr: TSDL_GLattr; value: LongInt): LongInt; cdecl; external SDLLibName; |
7016 | 960 |
procedure SDL_GL_SwapBuffers; cdecl; external SDLLibName; |
753 | 961 |
|
7180 | 962 |
procedure SDL_LockAudio; cdecl; external SDLLibName; |
963 |
procedure SDL_UnlockAudio; cdecl; external SDLLibName; |
|
964 |
||
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
965 |
function SDL_NumJoysticks: LongInt; cdecl; external SDLLibName; |
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
966 |
function SDL_JoystickName(idx: LongInt): PChar; cdecl; external SDLLibName; |
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
967 |
function SDL_JoystickOpen(idx: LongInt): PSDL_Joystick; cdecl; external SDLLibName; |
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
968 |
function SDL_JoystickOpened(idx: LongInt): LongInt; cdecl; external SDLLibName; |
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
969 |
function SDL_JoystickIndex(joy: PSDL_Joystick): LongInt; cdecl; external SDLLibName; |
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
970 |
function SDL_JoystickNumAxes(joy: PSDL_Joystick): LongInt; cdecl; external SDLLibName; |
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
971 |
function SDL_JoystickNumBalls(joy: PSDL_Joystick): LongInt; cdecl; external SDLLibName; |
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
972 |
function SDL_JoystickNumHats(joy: PSDL_Joystick): LongInt; cdecl; external SDLLibName; |
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
973 |
function SDL_JoystickNumButtons(joy: PSDL_Joystick): LongInt; cdecl; external SDLLibName; |
2428 | 974 |
procedure SDL_JoystickUpdate; cdecl; external SDLLibName; |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
975 |
function SDL_JoystickEventState(state: LongInt): LongInt; cdecl; external SDLLibName; |
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
976 |
function SDL_JoystickGetAxis(joy: PSDL_Joystick; axis: LongInt): LongInt; cdecl; external SDLLibName; |
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
977 |
function SDL_JoystickGetBall(joy: PSDL_Joystick; ball: LongInt; dx: PInteger; dy: PInteger): Word; cdecl; external SDLLibName; |
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
978 |
function SDL_JoystickGetHat(joy: PSDL_Joystick; hat: LongInt): Byte; cdecl; external SDLLibName; |
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
979 |
function SDL_JoystickGetButton(joy: PSDL_Joystick; button: LongInt): Byte; cdecl; external SDLLibName; |
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
980 |
procedure SDL_JoystickClose(joy: PSDL_Joystick); cdecl; external SDLLibName; |
2428 | 981 |
|
5565 | 982 |
{$IFDEF WIN32} |
3153 | 983 |
function SDL_putenv(const text: PChar): LongInt; cdecl; external SDLLibName; |
984 |
function SDL_getenv(const text: PChar): PChar; cdecl; external SDLLibName; |
|
5565 | 985 |
{$ENDIF} |
3153 | 986 |
|
7167
0b3b306f129a
Android: added a callback to java to determine dpi/dip how much we should scale the ui
Xeli
parents:
7049
diff
changeset
|
987 |
|
5052 | 988 |
{* Compatibility between SDL-1.2 and SDL-1.3 *} |
7049 | 989 |
procedure SDL_WarpMouse(x, y: Word); {$IFDEF SDL13}inline{$ELSE}cdecl; external SDLLibName{$ENDIF}; |
5052 | 990 |
function SDL_GetKeyState(numkeys: PLongInt): PByteArray; cdecl; external SDLLibName {$IFDEF SDL13} name 'SDL_GetKeyboardState'{$ENDIF}; |
6284 | 991 |
function SDL_AllocFormat(format: LongWord): PSDL_PixelFormat; {$IFDEF SDL13}cdecl; external SDLLibName;{$ENDIF} |
6285 | 992 |
procedure SDL_FreeFormat(pixelformat: PSDL_PixelFormat); {$IFDEF SDL13}cdecl; external SDLLibName;{$ENDIF} |
6281
dc9c44f47e75
avoid linking compatible code from sdl library, let's provide our own
koda
parents:
6280
diff
changeset
|
993 |
function SDL_VideoDriverName(namebuf: PChar; maxlen: LongInt): PChar; {$IFNDEF SDL13}cdecl; external SDLLibName;{$ENDIF} |
dc9c44f47e75
avoid linking compatible code from sdl library, let's provide our own
koda
parents:
6280
diff
changeset
|
994 |
function SDL_EnableUNICODE(enable: LongInt): LongInt; {$IFNDEF SDL13}cdecl; external SDLLibName;{$ENDIF} |
6976 | 995 |
function SDL_EnableKeyRepeat(timedelay, interval: LongInt): LongInt; {$IFNDEF SDL13}cdecl; external SDLLibName;{$ENDIF} |
5052 | 996 |
|
997 |
(* SDL_ttf *) |
|
2600 | 998 |
function TTF_Init: LongInt; cdecl; external SDL_TTFLibName; |
2515
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
999 |
procedure TTF_Quit; cdecl; external SDL_TTFLibName; |
2671
7e0f88013fe8
smaller patches, one missing Sky-lowres, IMG_Init and Mix_Init (might require newer libraries), updates to SDL bindings, code cleanup, new compile flags
koda
parents:
2669
diff
changeset
|
1000 |
|
6286
835392304f81
and while we are giving SDLh.pas all this love, let's fix the signature of one SDL_ttf calls
koda
parents:
6285
diff
changeset
|
1001 |
function TTF_SizeUTF8(font: PTTF_Font; const text: PChar; w, h: PLongInt): LongInt; cdecl; external SDL_TTFLibName; |
2665
50b4e544c163
complete transition of longword->sdl_color for TTF bindings
koda
parents:
2664
diff
changeset
|
1002 |
|
2664
949c189ba568
powerpc and gameserver compilation disabled temporarily
koda
parents:
2663
diff
changeset
|
1003 |
function TTF_RenderUTF8_Solid(font: PTTF_Font; const text: PChar; fg: TSDL_Color): PSDL_Surface; cdecl; external SDL_TTFLibName; |
2665
50b4e544c163
complete transition of longword->sdl_color for TTF bindings
koda
parents:
2664
diff
changeset
|
1004 |
function TTF_RenderUTF8_Blended(font: PTTF_Font; const text: PChar; fg: TSDL_Color): PSDL_Surface; cdecl; external SDL_TTFLibName; |
2664
949c189ba568
powerpc and gameserver compilation disabled temporarily
koda
parents:
2663
diff
changeset
|
1005 |
function TTF_RenderUTF8_Shaded(font: PTTF_Font; const text: PChar; fg, bg: TSDL_Color): PSDL_Surface; cdecl; external SDL_TTFLibName; |
2515
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
1006 |
|
2600 | 1007 |
function TTF_OpenFont(const filename: PChar; size: LongInt): PTTF_Font; cdecl; external SDL_TTFLibName; |
2515
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
1008 |
procedure TTF_SetFontStyle(font: PTTF_Font; style: LongInt); cdecl; external SDL_TTFLibName; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
1009 |
|
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
1010 |
(* SDL_mixer *) |
6072 | 1011 |
function Mix_Init(flags: LongInt): LongInt; {$IFDEF SDL_MIXER_NEWER}cdecl; external SDL_MixerLibName;{$ENDIF} |
1012 |
procedure Mix_Quit; {$IFDEF SDL_MIXER_NEWER}cdecl; external SDL_MixerLibName;{$ENDIF} |
|
2671
7e0f88013fe8
smaller patches, one missing Sky-lowres, IMG_Init and Mix_Init (might require newer libraries), updates to SDL bindings, code cleanup, new compile flags
koda
parents:
2669
diff
changeset
|
1013 |
|
2515
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
1014 |
function Mix_OpenAudio(frequency: LongInt; format: Word; channels: LongInt; chunksize: LongInt): LongInt; cdecl; external SDL_MixerLibName; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
1015 |
procedure Mix_CloseAudio; cdecl; external SDL_MixerLibName; |
7180 | 1016 |
function Mix_QuerySpec(frequency: PLongInt; format: PWord; channels: PLongInt): LongInt; cdecl; external SDL_MixerLibName; |
2515
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
1017 |
|
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
1018 |
function Mix_Volume(channel: LongInt; volume: LongInt): LongInt; cdecl; external SDL_MixerLibName; |
2665
50b4e544c163
complete transition of longword->sdl_color for TTF bindings
koda
parents:
2664
diff
changeset
|
1019 |
function Mix_SetDistance(channel: LongInt; distance: Byte): LongInt; cdecl; external SDL_MixerLibName; |
2515
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
1020 |
function Mix_VolumeMusic(volume: LongInt): LongInt; cdecl; external SDL_MixerLibName; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
1021 |
|
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
1022 |
function Mix_AllocateChannels(numchans: LongInt): LongInt; cdecl; external SDL_MixerLibName; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
1023 |
procedure Mix_FreeChunk(chunk: PMixChunk); cdecl; external SDL_MixerLibName; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
1024 |
procedure Mix_FreeMusic(music: PMixMusic); cdecl; external SDL_MixerLibName; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
1025 |
|
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
1026 |
function Mix_LoadWAV_RW(src: PSDL_RWops; freesrc: LongInt): PMixChunk; cdecl; external SDL_MixerLibName; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
1027 |
function Mix_LoadMUS(const filename: PChar): PMixMusic; cdecl; external SDL_MixerLibName; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
1028 |
|
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
1029 |
function Mix_Playing(channel: LongInt): LongInt; cdecl; external SDL_MixerLibName; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
1030 |
function Mix_PlayingMusic: LongInt; cdecl; external SDL_MixerLibName; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
1031 |
function Mix_FadeInMusic(music: PMixMusic; loops: LongInt; ms: LongInt): LongInt; cdecl; external SDL_MixerLibName; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
1032 |
|
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
1033 |
function Mix_PlayChannelTimed(channel: LongInt; chunk: PMixChunk; loops: LongInt; ticks: LongInt): LongInt; cdecl; external SDL_MixerLibName; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
1034 |
function Mix_PlayMusic(music: PMixMusic; loops: LongInt): LongInt; cdecl; external SDL_MixerLibName; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
1035 |
function Mix_PausedMusic(music: PMixMusic): LongInt; cdecl; external SDL_MixerLibName; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
1036 |
function Mix_PauseMusic(music: PMixMusic): LongInt; cdecl; external SDL_MixerLibName; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
1037 |
function Mix_ResumeMusic(music: PMixMusic): LongInt; cdecl; external SDL_MixerLibName; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
1038 |
function Mix_HaltChannel(channel: LongInt): LongInt; cdecl; external SDL_MixerLibName; |
6362
ceacd1b61833
modify ReleaseSound so that it performs a partial release of unused sounds, useful for responding to memory warnings
koda
parents:
6329
diff
changeset
|
1039 |
function Mix_HaltMusic: LongInt; cdecl; external SDL_MixerLibName; |
2515
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
1040 |
|
4956
48e1f9a04c28
usound: added function for loops with fade in and out
koda
parents:
4933
diff
changeset
|
1041 |
function Mix_FadeInChannelTimed(channel: LongInt; chunk: PMixChunk; loops: LongInt; fadems: LongInt; ticks: LongInt): LongInt; cdecl; external SDL_MixerLibName; |
48e1f9a04c28
usound: added function for loops with fade in and out
koda
parents:
4933
diff
changeset
|
1042 |
function Mix_FadeOutChannel(channel: LongInt; fadems: LongInt): LongInt; cdecl; external SDL_MixerLibName; |
48e1f9a04c28
usound: added function for loops with fade in and out
koda
parents:
4933
diff
changeset
|
1043 |
|
7180 | 1044 |
procedure Mix_SetPostMix( mix_func: TPostMix; arg: pointer); cdecl; external SDL_MixerLibName; |
1045 |
||
2515
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
1046 |
(* SDL_image *) |
6072 | 1047 |
function IMG_Init(flags: LongInt): LongInt; {$IFDEF SDL_IMAGE_NEWER}cdecl; external SDL_ImageLibName;{$ENDIF} |
1048 |
procedure IMG_Quit; {$IFDEF SDL_IMAGE_NEWER}cdecl; external SDL_ImageLibName;{$ENDIF} |
|
2671
7e0f88013fe8
smaller patches, one missing Sky-lowres, IMG_Init and Mix_Init (might require newer libraries), updates to SDL bindings, code cleanup, new compile flags
koda
parents:
2669
diff
changeset
|
1049 |
|
2600 | 1050 |
function IMG_Load(const _file: PChar): PSDL_Surface; cdecl; external SDL_ImageLibName; |
2701
3a8560c00f78
settings tab has now a very nice iphone-like interface
koda
parents:
2699
diff
changeset
|
1051 |
function IMG_Load_RW(rwop: PSDL_RWops; freesrc: LongInt): PSDL_Surface; cdecl; external SDL_ImageLibName; |
2600 | 1052 |
function IMG_LoadPNG_RW(rwop: PSDL_RWops): PSDL_Surface; cdecl; external SDL_ImageLibName; |
5046
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
1053 |
function IMG_LoadTyped_RW(rwop: PSDL_RWops; freesrc: LongInt; type_: PChar): PSDL_Surface; cdecl; external SDL_ImageLibName; |
2592 | 1054 |
|
2515
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
1055 |
(* SDL_net *) |
2600 | 1056 |
function SDLNet_Init: LongInt; cdecl; external SDL_NetLibName; |
2515
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
1057 |
procedure SDLNet_Quit; cdecl; external SDL_NetLibName; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
1058 |
|
2600 | 1059 |
function SDLNet_AllocSocketSet(maxsockets: LongInt): PSDLNet_SocketSet; cdecl; external SDL_NetLibName; |
2671
7e0f88013fe8
smaller patches, one missing Sky-lowres, IMG_Init and Mix_Init (might require newer libraries), updates to SDL bindings, code cleanup, new compile flags
koda
parents:
2669
diff
changeset
|
1060 |
function SDLNet_ResolveHost(var address: TIPaddress; host: PChar; port: Word): LongInt; cdecl; external SDL_NetLibName; |
2600 | 1061 |
function SDLNet_TCP_Accept(server: PTCPsocket): PTCPSocket; cdecl; external SDL_NetLibName; |
1062 |
function SDLNet_TCP_Open(var ip: TIPaddress): PTCPSocket; cdecl; external SDL_NetLibName; |
|
1063 |
function SDLNet_TCP_Send(sock: PTCPsocket; data: Pointer; len: LongInt): LongInt; cdecl; external SDL_NetLibName; |
|
1064 |
function SDLNet_TCP_Recv(sock: PTCPsocket; data: Pointer; len: LongInt): LongInt; cdecl; external SDL_NetLibName; |
|
2515
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
1065 |
procedure SDLNet_TCP_Close(sock: PTCPsocket); cdecl; external SDL_NetLibName; |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
1066 |
procedure SDLNet_FreeSocketSet(_set: PSDLNet_SocketSet); cdecl; external SDL_NetLibName; |
2600 | 1067 |
function SDLNet_AddSocket(_set: PSDLNet_SocketSet; sock: PTCPSocket): LongInt; cdecl; external SDL_NetLibName; |
1068 |
function SDLNet_CheckSockets(_set: PSDLNet_SocketSet; timeout: LongInt): LongInt; cdecl; external SDL_NetLibName; |
|
2630 | 1069 |
|
2515
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
1070 |
|
6284 | 1071 |
procedure SDLNet_Write16(value: Word; buf: Pointer); |
1072 |
procedure SDLNet_Write32(value: LongWord; buf: Pointer); |
|
1073 |
function SDLNet_Read16(buf: Pointer): Word; |
|
1074 |
function SDLNet_Read32(buf: Pointer): LongWord; |
|
3663
8c28abf427f5
reduce the number of keywords used and switch to BMP format for screenshots
koda
parents:
3598
diff
changeset
|
1075 |
|
4 | 1076 |
implementation |
6974
2d3beb445d64
minor changes for more compatibilities with other compilers
koda
parents:
6972
diff
changeset
|
1077 |
{$IFDEF SDL13} |
7049 | 1078 |
uses strings, uVariables, uStore; |
5046
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
1079 |
|
6974
2d3beb445d64
minor changes for more compatibilities with other compilers
koda
parents:
6972
diff
changeset
|
1080 |
// compatible functions |
7049 | 1081 |
procedure SDL_WarpMouse(x, y: Word); inline; |
5046
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
1082 |
begin |
7049 | 1083 |
WarpMouse(x, y); |
5046
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
1084 |
end; |
6281
dc9c44f47e75
avoid linking compatible code from sdl library, let's provide our own
koda
parents:
6280
diff
changeset
|
1085 |
|
dc9c44f47e75
avoid linking compatible code from sdl library, let's provide our own
koda
parents:
6280
diff
changeset
|
1086 |
function SDL_VideoDriverName(namebuf: PChar; maxlen: LongInt): PChar; |
dc9c44f47e75
avoid linking compatible code from sdl library, let's provide our own
koda
parents:
6280
diff
changeset
|
1087 |
var name : PChar = nil; |
dc9c44f47e75
avoid linking compatible code from sdl library, let's provide our own
koda
parents:
6280
diff
changeset
|
1088 |
begin |
dc9c44f47e75
avoid linking compatible code from sdl library, let's provide our own
koda
parents:
6280
diff
changeset
|
1089 |
name:= SDL_GetCurrentVideoDriver(); |
dc9c44f47e75
avoid linking compatible code from sdl library, let's provide our own
koda
parents:
6280
diff
changeset
|
1090 |
if (name <> nil) and (namebuf <> nil) then |
dc9c44f47e75
avoid linking compatible code from sdl library, let's provide our own
koda
parents:
6280
diff
changeset
|
1091 |
begin |
dc9c44f47e75
avoid linking compatible code from sdl library, let's provide our own
koda
parents:
6280
diff
changeset
|
1092 |
strlcopy(namebuf, name, maxlen); |
6990
40e5af28d026
change every return value into a more pascal-ish form, using the name of the fucntion (helps the parser and macpas compaitilibity)
koda
parents:
6982
diff
changeset
|
1093 |
SDL_VideoDriverName:= namebuf |
6281
dc9c44f47e75
avoid linking compatible code from sdl library, let's provide our own
koda
parents:
6280
diff
changeset
|
1094 |
end; |
6990
40e5af28d026
change every return value into a more pascal-ish form, using the name of the fucntion (helps the parser and macpas compaitilibity)
koda
parents:
6982
diff
changeset
|
1095 |
SDL_VideoDriverName:= name; |
6281
dc9c44f47e75
avoid linking compatible code from sdl library, let's provide our own
koda
parents:
6280
diff
changeset
|
1096 |
end; |
dc9c44f47e75
avoid linking compatible code from sdl library, let's provide our own
koda
parents:
6280
diff
changeset
|
1097 |
|
dc9c44f47e75
avoid linking compatible code from sdl library, let's provide our own
koda
parents:
6280
diff
changeset
|
1098 |
function SDL_EnableUNICODE(enable: LongInt): LongInt; |
dc9c44f47e75
avoid linking compatible code from sdl library, let's provide our own
koda
parents:
6280
diff
changeset
|
1099 |
begin |
7049 | 1100 |
enable:= enable; // avoid hint |
6281
dc9c44f47e75
avoid linking compatible code from sdl library, let's provide our own
koda
parents:
6280
diff
changeset
|
1101 |
SDL_StartTextInput(); |
6990
40e5af28d026
change every return value into a more pascal-ish form, using the name of the fucntion (helps the parser and macpas compaitilibity)
koda
parents:
6982
diff
changeset
|
1102 |
SDL_EnableUNICODE:= 0; |
6281
dc9c44f47e75
avoid linking compatible code from sdl library, let's provide our own
koda
parents:
6280
diff
changeset
|
1103 |
end; |
dc9c44f47e75
avoid linking compatible code from sdl library, let's provide our own
koda
parents:
6280
diff
changeset
|
1104 |
|
6974
2d3beb445d64
minor changes for more compatibilities with other compilers
koda
parents:
6972
diff
changeset
|
1105 |
function SDL_EnableKeyRepeat(timedelay, interval: LongInt): LongInt; |
6281
dc9c44f47e75
avoid linking compatible code from sdl library, let's provide our own
koda
parents:
6280
diff
changeset
|
1106 |
begin |
6974
2d3beb445d64
minor changes for more compatibilities with other compilers
koda
parents:
6972
diff
changeset
|
1107 |
timedelay:= timedelay; // avoid hint |
2d3beb445d64
minor changes for more compatibilities with other compilers
koda
parents:
6972
diff
changeset
|
1108 |
interval:= interval; // avoid hint |
6990
40e5af28d026
change every return value into a more pascal-ish form, using the name of the fucntion (helps the parser and macpas compaitilibity)
koda
parents:
6982
diff
changeset
|
1109 |
SDL_EnableKeyRepeat:= 0; |
6281
dc9c44f47e75
avoid linking compatible code from sdl library, let's provide our own
koda
parents:
6280
diff
changeset
|
1110 |
end; |
5046
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
1111 |
{$ELSE} |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
1112 |
const conversionFormat: TSDL_PixelFormat = ( |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
1113 |
palette: nil; BitsPerPixel: 32; BytesPerPixel: 4; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
1114 |
Rloss: 0; Gloss: 0; Bloss: 0; Aloss: 0; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
1115 |
Rshift: RShift; Gshift: GShift; Bshift: BShift; Ashift: AShift; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
1116 |
RMask: RMask; GMask: GMask; BMask: BMask; AMask: AMask; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
1117 |
colorkey: 0; alpha: 255); |
6982 | 1118 |
|
1119 |
function SDL_AllocFormat(format: LongWord): PSDL_PixelFormat; |
|
5046
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
1120 |
begin |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
1121 |
format:= format; |
6990
40e5af28d026
change every return value into a more pascal-ish form, using the name of the fucntion (helps the parser and macpas compaitilibity)
koda
parents:
6982
diff
changeset
|
1122 |
SDL_AllocFormat:= @conversionFormat; |
5046
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
1123 |
end; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
1124 |
|
5052 | 1125 |
procedure SDL_FreeFormat(pixelformat: PSDL_PixelFormat); |
5046
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
1126 |
begin |
6974
2d3beb445d64
minor changes for more compatibilities with other compilers
koda
parents:
6972
diff
changeset
|
1127 |
pixelformat:= pixelformat; // avoid hint |
5046
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
1128 |
end; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
1129 |
{$ENDIF} |
4 | 1130 |
|
1131 |
function SDL_MustLock(Surface: PSDL_Surface): Boolean; |
|
1132 |
begin |
|
6072 | 1133 |
SDL_MustLock:= |
5004
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
1134 |
{$IFDEF SDL13} |
6072 | 1135 |
((surface^.flags and SDL_RLEACCEL) <> 0) |
5004
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
1136 |
{$ELSE} |
6072 | 1137 |
( surface^.offset <> 0 ) or (( surface^.flags and (SDL_HWSURFACE or SDL_ASYNCBLIT or SDL_RLEACCEL)) <> 0) |
5004
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
1138 |
{$ENDIF} |
4 | 1139 |
end; |
1140 |
||
6072 | 1141 |
{$IFNDEF SDL_MIXER_NEWER} |
1142 |
function Mix_Init(flags: LongInt): LongInt; |
|
1143 |
begin |
|
6990
40e5af28d026
change every return value into a more pascal-ish form, using the name of the fucntion (helps the parser and macpas compaitilibity)
koda
parents:
6982
diff
changeset
|
1144 |
Mix_Init:= flags; |
6072 | 1145 |
end; |
1146 |
||
1147 |
procedure Mix_Quit; |
|
1148 |
begin |
|
1149 |
end; |
|
1150 |
{$ENDIF} |
|
1151 |
||
1152 |
{$IFNDEF SDL_IMAGE_NEWER} |
|
1153 |
function IMG_Init(flags: LongInt): LongInt; |
|
1154 |
begin |
|
6990
40e5af28d026
change every return value into a more pascal-ish form, using the name of the fucntion (helps the parser and macpas compaitilibity)
koda
parents:
6982
diff
changeset
|
1155 |
IMG_Init:= flags; |
6072 | 1156 |
end; |
1157 |
||
1158 |
procedure IMG_Quit; |
|
1159 |
begin |
|
1160 |
end; |
|
1161 |
{$ENDIF} |
|
1162 |
||
6284 | 1163 |
procedure SDLNet_Write16(value: Word; buf: Pointer); |
459
95163c6efa69
Do not use SDL_Net's to/from network byte order conversion functions
unc0rr
parents:
433
diff
changeset
|
1164 |
begin |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
1165 |
PByteArray(buf)^[1]:= value; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
1166 |
PByteArray(buf)^[0]:= value shr 8 |
459
95163c6efa69
Do not use SDL_Net's to/from network byte order conversion functions
unc0rr
parents:
433
diff
changeset
|
1167 |
end; |
95163c6efa69
Do not use SDL_Net's to/from network byte order conversion functions
unc0rr
parents:
433
diff
changeset
|
1168 |
|
6284 | 1169 |
procedure SDLNet_Write32(value: LongWord; buf: Pointer); |
459
95163c6efa69
Do not use SDL_Net's to/from network byte order conversion functions
unc0rr
parents:
433
diff
changeset
|
1170 |
begin |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
1171 |
PByteArray(buf)^[3]:= value; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
1172 |
PByteArray(buf)^[2]:= value shr 8; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
1173 |
PByteArray(buf)^[1]:= value shr 16; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
1174 |
PByteArray(buf)^[0]:= value shr 24 |
459
95163c6efa69
Do not use SDL_Net's to/from network byte order conversion functions
unc0rr
parents:
433
diff
changeset
|
1175 |
end; |
95163c6efa69
Do not use SDL_Net's to/from network byte order conversion functions
unc0rr
parents:
433
diff
changeset
|
1176 |
|
6284 | 1177 |
function SDLNet_Read16(buf: Pointer): Word; |
459
95163c6efa69
Do not use SDL_Net's to/from network byte order conversion functions
unc0rr
parents:
433
diff
changeset
|
1178 |
begin |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
1179 |
SDLNet_Read16:= PByteArray(buf)^[1] or |
459
95163c6efa69
Do not use SDL_Net's to/from network byte order conversion functions
unc0rr
parents:
433
diff
changeset
|
1180 |
(PByteArray(buf)^[0] shl 8) |
95163c6efa69
Do not use SDL_Net's to/from network byte order conversion functions
unc0rr
parents:
433
diff
changeset
|
1181 |
end; |
95163c6efa69
Do not use SDL_Net's to/from network byte order conversion functions
unc0rr
parents:
433
diff
changeset
|
1182 |
|
6284 | 1183 |
function SDLNet_Read32(buf: Pointer): LongWord; |
459
95163c6efa69
Do not use SDL_Net's to/from network byte order conversion functions
unc0rr
parents:
433
diff
changeset
|
1184 |
begin |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
1185 |
SDLNet_Read32:= PByteArray(buf)^[3] or |
459
95163c6efa69
Do not use SDL_Net's to/from network byte order conversion functions
unc0rr
parents:
433
diff
changeset
|
1186 |
(PByteArray(buf)^[2] shl 8) or |
95163c6efa69
Do not use SDL_Net's to/from network byte order conversion functions
unc0rr
parents:
433
diff
changeset
|
1187 |
(PByteArray(buf)^[1] shl 16) or |
95163c6efa69
Do not use SDL_Net's to/from network byte order conversion functions
unc0rr
parents:
433
diff
changeset
|
1188 |
(PByteArray(buf)^[0] shl 24) |
95163c6efa69
Do not use SDL_Net's to/from network byte order conversion functions
unc0rr
parents:
433
diff
changeset
|
1189 |
end; |
95163c6efa69
Do not use SDL_Net's to/from network byte order conversion functions
unc0rr
parents:
433
diff
changeset
|
1190 |
|
4 | 1191 |
end. |
2241
7992f7ba388d
completes removal of wav files, updates SDLh and adds DEBUGFILE to hwengine when compiled in Debug mode
koda
parents:
2240
diff
changeset
|
1192 |