author | unc0rr |
Sun, 30 Jan 2011 20:38:40 +0300 | |
branch | server_refactor |
changeset 4618 | 0f56fa511f65 |
parent 4454 | 42bfc1a70968 |
child 4911 | 5d10bd725efe |
permissions | -rw-r--r-- |
4 | 1 |
(* |
1066 | 2 |
* Hedgewars, a free turn based strategy game |
883 | 3 |
* Copyright (c) 2004-2008 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} |
2630 | 25 |
{$DEFINE UNIX} |
2599 | 26 |
{$ENDIF} |
27 |
{$IFDEF FREEBSD} |
|
2630 | 28 |
{$DEFINE UNIX} |
4 | 29 |
{$ENDIF} |
3385 | 30 |
{$IFDEF DARWIN} |
31 |
{$DEFINE UNIX} |
|
32 |
{$ENDIF} |
|
33 |
{$IFDEF HAIKU} |
|
34 |
{$DEFINE UNIX} |
|
35 |
{$ENDIF} |
|
4 | 36 |
|
37 |
{$IFDEF UNIX} |
|
1903 | 38 |
{$IFNDEF DARWIN} |
1556
3369f016b79d
Patch for engine to successfully build on Mac OS X by Michael Schindler
unc0rr
parents:
1225
diff
changeset
|
39 |
{$linklib c} |
3369f016b79d
Patch for engine to successfully build on Mac OS X by Michael Schindler
unc0rr
parents:
1225
diff
changeset
|
40 |
{$ENDIF} |
3385 | 41 |
{$IFDEF HAIKU} |
42 |
{$linklib root} |
|
43 |
{$ELSE} |
|
44 |
{$linklib pthread} |
|
45 |
{$ENDIF} |
|
4 | 46 |
{$ENDIF} |
47 |
||
2599 | 48 |
{$IFDEF FPC} |
2601 | 49 |
{$PACKRECORDS C} |
2606
ed687a8d081f
updated build files for macosx and optimization system
koda
parents:
2601
diff
changeset
|
50 |
{$ELSE} |
ed687a8d081f
updated build files for macosx and optimization system
koda
parents:
2601
diff
changeset
|
51 |
{$DEFINE cdecl attribute(cdecl)} |
2599 | 52 |
{$ENDIF} |
4 | 53 |
|
1819 | 54 |
{$IFDEF DARWIN} |
2630 | 55 |
{$IFNDEF IPHONEOS} |
2698 | 56 |
{$PASCALMAINNAME SDL_main} |
2630 | 57 |
{$linkframework Cocoa} |
58 |
{$linkframework SDL} |
|
59 |
{$linkframework SDL_net} |
|
60 |
{$linkframework SDL_image} |
|
61 |
{$linkframework SDL_ttf} |
|
62 |
{$linkframework SDL_mixer} |
|
3405 | 63 |
{$linkframework OpenGL} |
2630 | 64 |
{$ENDIF} |
1819 | 65 |
{$ENDIF} |
2630 | 66 |
|
1819 | 67 |
|
1997 | 68 |
(* SDL *) |
2390 | 69 |
const |
70 |
{$IFDEF WIN32} |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
71 |
SDLLibName = 'SDL.dll'; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
72 |
SDL_TTFLibName = 'SDL_ttf.dll'; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
73 |
SDL_MixerLibName = 'SDL_mixer.dll'; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
74 |
SDL_ImageLibName = 'SDL_image.dll'; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
75 |
SDL_NetLibName = 'SDL_net.dll'; |
2600 | 76 |
{$ELSE} |
2663 | 77 |
{$IFDEF DARWIN} |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
78 |
SDLLibName = 'SDL'; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
79 |
SDL_TTFLibName = 'SDL_ttf'; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
80 |
SDL_MixerLibName = 'SDL_mixer'; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
81 |
SDL_ImageLibName = 'SDL_image'; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
82 |
SDL_NetLibName = 'SDL_net'; |
2663 | 83 |
{$ELSE} |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
84 |
SDLLibName = 'libSDL.so'; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
85 |
SDL_TTFLibName = 'libSDL_ttf.so'; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
86 |
SDL_MixerLibName = 'libSDL_mixer.so'; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
87 |
SDL_ImageLibName = 'libSDL_image.so'; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
88 |
SDL_NetLibName = 'libSDL_net.so'; |
2663 | 89 |
{$ENDIF} |
2390 | 90 |
{$ENDIF} |
2600 | 91 |
|
92 |
///////////////////////////////////////////////////////////////// |
|
93 |
///////////////////// CONSTANT DEFINITIONS ///////////////////// |
|
94 |
///////////////////////////////////////////////////////////////// |
|
95 |
||
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
96 |
SDL_SWSURFACE = $00000000; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
97 |
SDL_HWSURFACE = $00000001; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
98 |
SDL_SRCALPHA = $00010000; |
3697 | 99 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
100 |
SDL_INIT_TIMER = $00000001; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
101 |
SDL_INIT_AUDIO = $00000010; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
102 |
SDL_INIT_VIDEO = $00000020; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
103 |
SDL_INIT_JOYSTICK = $00000200; |
2633 | 104 |
{$IFDEF SDL13} |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
105 |
SDL_INIT_HAPTIC = $00001000; |
2633 | 106 |
{$ELSE} |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
107 |
SDL_INIT_CDROM = $00000100; |
2633 | 108 |
{$ENDIF} |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
109 |
SDL_INIT_NOPARACHUTE = $00100000; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
110 |
SDL_INIT_EVENTTHREAD = $01000000; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
111 |
SDL_INIT_EVERYTHING = $0000FFFF; |
2240
7ce9e6b7be3b
-Removal of older WAV files, now useless thanks to OpenAL
koda
parents:
2200
diff
changeset
|
112 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
113 |
SDL_APPINPUTFOCUS = 2; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
114 |
SDL_BUTTON_WHEELUP = 4; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
115 |
SDL_BUTTON_WHEELDOWN = 5; |
3463 | 116 |
|
117 |
||
2663 | 118 |
{*begin SDL_Event binding*} |
3349 | 119 |
|
120 |
{$IFDEF SDL13} |
|
121 |
SDL_FIRSTEVENT = 0; |
|
122 |
SDL_QUITEV = $100; |
|
123 |
SDL_WINDOWEVENT = $200; |
|
124 |
SDL_SYSWMEVENT = $201; |
|
125 |
SDL_KEYDOWN = $300; |
|
126 |
SDL_KEYUP = $301; |
|
127 |
SDL_TEXTEDITING = $302; |
|
128 |
SDL_TEXTINPUT = $303; |
|
129 |
SDL_MOUSEMOTION = $400; |
|
130 |
SDL_MOUSEBUTTONDOWN = $401; |
|
131 |
SDL_MOUSEBUTTONUP = $402; |
|
132 |
SDL_MOUSEWHEEL = $403; |
|
133 |
SDL_PROXIMITYIN = $500; |
|
134 |
SDL_PROXIMITYOUT = $501; |
|
135 |
SDL_JOYAXISMOTION = $600; |
|
136 |
SDL_JOYBALLMOTION = $601; |
|
137 |
SDL_JOYHATMOTION = $602; |
|
138 |
SDL_JOYBUTTONDOWN = $603; |
|
139 |
SDL_JOYBUTTONUP = $604; |
|
140 |
SDL_USEREVENT = $8000; |
|
141 |
SDL_LASTEVENT = $FFFF; |
|
142 |
{$ELSE} |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
143 |
SDL_NOEVENT = 0; |
3349 | 144 |
SDL_ACTIVEEVENT = 1; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
145 |
SDL_KEYDOWN = 2; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
146 |
SDL_KEYUP = 3; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
147 |
SDL_MOUSEMOTION = 4; |
3349 | 148 |
SDL_MOUSEBUTTONDOWN = 5; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
149 |
SDL_MOUSEBUTTONUP = 6; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
150 |
SDL_JOYAXISMOTION = 7; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
151 |
SDL_JOYBALLMOTION = 8; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
152 |
SDL_JOYHATMOTION = 9; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
153 |
SDL_JOYBUTTONDOWN = 10; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
154 |
SDL_JOYBUTTONUP = 11; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
155 |
SDL_QUITEV = 12; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
156 |
SDL_VIDEORESIZE = 16; // TODO: outdated? no longer in SDL 1.3? |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
157 |
{$ENDIF} |
2663 | 158 |
{*end SDL_Event binding*} |
3697 | 159 |
|
2241
7992f7ba388d
completes removal of wav files, updates SDLh and adds DEBUGFILE to hwengine when compiled in Debug mode
koda
parents:
2240
diff
changeset
|
160 |
{$IFDEF SDL13} |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
161 |
SDL_ASYNCBLIT = $08000000; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
162 |
SDL_ANYFORMAT = $10000000; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
163 |
SDL_HWPALETTE = $00200000; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
164 |
SDL_DOUBLEBUF = $00400000; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
165 |
SDL_FULLSCREEN = $00800000; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
166 |
SDL_HWACCEL = $08000000; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
167 |
SDL_SRCCOLORKEY = $00020000; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
168 |
SDL_RLEACCEL = $08000000; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
169 |
SDL_NOFRAME = $02000000; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
170 |
SDL_OPENGL = $04000000; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
171 |
SDL_RESIZABLE = $01000000; |
2241
7992f7ba388d
completes removal of wav files, updates SDLh and adds DEBUGFILE to hwengine when compiled in Debug mode
koda
parents:
2240
diff
changeset
|
172 |
{$ELSE} |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
173 |
SDL_ASYNCBLIT = $00000004; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
174 |
SDL_ANYFORMAT = $00100000; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
175 |
SDL_HWPALETTE = $20000000; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
176 |
SDL_DOUBLEBUF = $40000000; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
177 |
SDL_FULLSCREEN = $80000000; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
178 |
SDL_HWACCEL = $00000100; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
179 |
SDL_SRCCOLORKEY = $00001000; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
180 |
SDL_RLEACCEL = $00004000; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
181 |
SDL_NOFRAME = $00000020; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
182 |
SDL_OPENGL = $00000002; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
183 |
SDL_RESIZABLE = $00000010; |
2241
7992f7ba388d
completes removal of wav files, updates SDLh and adds DEBUGFILE to hwengine when compiled in Debug mode
koda
parents:
2240
diff
changeset
|
184 |
{$ENDIF} |
945
4ead9cde4e14
- Start chat implementation: chat strings are on the screen
unc0rr
parents:
883
diff
changeset
|
185 |
|
2567 | 186 |
|
2586
204e6b2885bc
added little/big endian checks, added symbol for touch input, simplified iphoneos definitions
koda
parents:
2579
diff
changeset
|
187 |
{$IFDEF ENDIAN_LITTLE} |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
188 |
RMask = $000000FF; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
189 |
GMask = $0000FF00; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
190 |
BMask = $00FF0000; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
191 |
AMask = $FF000000; |
2586
204e6b2885bc
added little/big endian checks, added symbol for touch input, simplified iphoneos definitions
koda
parents:
2579
diff
changeset
|
192 |
{$ELSE} |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
193 |
RMask = $FF000000; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
194 |
GMask = $00FF0000; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
195 |
BMask = $0000FF00; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
196 |
AMask = $000000FF; |
2586
204e6b2885bc
added little/big endian checks, added symbol for touch input, simplified iphoneos definitions
koda
parents:
2579
diff
changeset
|
197 |
{$ENDIF} |
2575 | 198 |
|
2697 | 199 |
{$IFDEF SDL13} |
3463 | 200 |
// SDL_WindowFlags (enum) |
2697 | 201 |
SDL_WINDOW_FULLSCREEN = $00000001; //*< fullscreen window, implies borderless */ |
202 |
SDL_WINDOW_OPENGL = $00000002; //*< window usable with OpenGL context */ |
|
203 |
SDL_WINDOW_SHOWN = $00000004; //*< window is visible */ |
|
204 |
SDL_WINDOW_BORDERLESS = $00000008; //*< no window decoration */ |
|
205 |
SDL_WINDOW_RESIZABLE = $00000010; //*< window can be resized */ |
|
206 |
SDL_WINDOW_MINIMIZED = $00000020; //*< window is minimized */ |
|
207 |
SDL_WINDOW_MAXIMIZED = $00000040; //*< window is maximized */ |
|
208 |
SDL_WINDOW_INPUT_GRABBED = $00000100; //*< window has grabbed input focus */ |
|
209 |
SDL_WINDOW_INPUT_FOCUS = $00000200; //*< window has input focus */ |
|
210 |
SDL_WINDOW_MOUSE_FOCUS = $00000400; //*< window has mouse focus */ |
|
211 |
SDL_WINDOW_FOREIGN = $00000800; //*< window not created by SDL */ |
|
3697 | 212 |
|
3463 | 213 |
// SDL_WindowEventID (enum) |
214 |
SDL_WINDOWEVENT_NONE = 0; //*< Never used |
|
215 |
SDL_WINDOWEVENT_SHOWN = 1; //*< Window has been shown |
|
216 |
SDL_WINDOWEVENT_HIDDEN = 2; //*< Window has been hidden |
|
3697 | 217 |
SDL_WINDOWEVENT_EXPOSED = 3; //*< Window has been exposed and should be redrawn |
3463 | 218 |
SDL_WINDOWEVENT_MOVED = 4; //*< Window has been moved to data1, data2 |
219 |
SDL_WINDOWEVENT_RESIZED = 5; //*< Window size changed to data1xdata2 |
|
220 |
SDL_WINDOWEVENT_MINIMIZED = 6; //*< Window has been minimized |
|
221 |
SDL_WINDOWEVENT_MAXIMIZED = 7; //*< Window has been maximized |
|
222 |
SDL_WINDOWEVENT_RESTORED = 8; //*< Window has been restored to normal size and position |
|
223 |
SDL_WINDOWEVENT_ENTER = 9; //*< Window has gained mouse focus |
|
224 |
SDL_WINDOWEVENT_LEAVE = 10; //*< Window has lost mouse focus |
|
225 |
SDL_WINDOWEVENT_FOCUS_GAINED = 11; //*< Window has gained keyboard focus |
|
226 |
SDL_WINDOWEVENT_FOCUS_LOST = 12; //*< Window has lost keyboard focus |
|
227 |
SDL_WINDOWEVENT_CLOSE = 13; //*< The window manager requests that the window be closed */ |
|
2697 | 228 |
{$ENDIF} |
229 |
||
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
230 |
{* SDL_mixer *} |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
231 |
MIX_MAX_VOLUME = 128; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
232 |
MIX_INIT_FLAC = $00000001; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
233 |
MIX_INIT_MOD = $00000002; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
234 |
MIX_INIT_MP3 = $00000004; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
235 |
MIX_INIT_OGG = $00000008; |
3697 | 236 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
237 |
{* SDL_TTF *} |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
238 |
TTF_STYLE_NORMAL = 0; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
239 |
TTF_STYLE_BOLD = 1; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
240 |
TTF_STYLE_ITALIC = 2; |
2600 | 241 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
242 |
{* SDL Joystick *} |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
243 |
SDL_HAT_CENTERED = $00; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
244 |
SDL_HAT_UP = $01; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
245 |
SDL_HAT_RIGHT = $02; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
246 |
SDL_HAT_DOWN = $04; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
247 |
SDL_HAT_LEFT = $08; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
248 |
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
|
249 |
SDL_HAT_RIGHTDOWN = SDL_HAT_RIGHT or SDL_HAT_DOWN; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
250 |
SDL_HAT_LEFTUP = SDL_HAT_LEFT or SDL_HAT_UP; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
251 |
SDL_HAT_LEFTDOWN = SDL_HAT_LEFT or SDL_HAT_DOWN; |
2600 | 252 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
253 |
{* SDL_image *} |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
254 |
IMG_INIT_JPG = $00000001; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
255 |
IMG_INIT_PNG = $00000002; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
256 |
IMG_INIT_TIF = $00000004; |
2600 | 257 |
|
258 |
///////////////////////////////////////////////////////////////// |
|
259 |
/////////////////////// TYPE DEFINITIONS /////////////////////// |
|
260 |
///////////////////////////////////////////////////////////////// |
|
261 |
||
3697 | 262 |
type |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
263 |
PSDL_Rect = ^TSDL_Rect; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
264 |
TSDL_Rect = record |
2390 | 265 |
{$IFDEF SDL13} |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
266 |
x, y, w, h: LongInt; |
2390 | 267 |
{$ELSE} |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
268 |
x, y: SmallInt; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
269 |
w, h: Word; |
2390 | 270 |
{$ENDIF} |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
271 |
end; |
4 | 272 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
273 |
TPoint = record |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
274 |
X: LongInt; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
275 |
Y: LongInt; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
276 |
end; |
4 | 277 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
278 |
PSDL_PixelFormat = ^TSDL_PixelFormat; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
279 |
TSDL_PixelFormat = record |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
280 |
palette: Pointer; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
281 |
BitsPerPixel : Byte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
282 |
BytesPerPixel: Byte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
283 |
Rloss : Byte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
284 |
Gloss : Byte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
285 |
Bloss : Byte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
286 |
Aloss : Byte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
287 |
Rshift: Byte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
288 |
Gshift: Byte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
289 |
Bshift: Byte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
290 |
Ashift: Byte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
291 |
RMask : Longword; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
292 |
GMask : Longword; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
293 |
BMask : Longword; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
294 |
AMask : Longword; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
295 |
colorkey: Longword; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
296 |
alpha : Byte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
297 |
end; |
4 | 298 |
|
299 |
||
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
300 |
PSDL_Surface = ^TSDL_Surface; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
301 |
TSDL_Surface = record |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
302 |
flags : Longword; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
303 |
format: PSDL_PixelFormat; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
304 |
w, h : LongInt; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
305 |
pitch : Word; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
306 |
pixels: Pointer; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
307 |
offset: LongInt; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
308 |
end; |
4 | 309 |
|
2248
26e11cb27c61
real fix for iphone color (reverting previous commit)
koda
parents:
2242
diff
changeset
|
310 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
311 |
PSDL_Color = ^TSDL_Color; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
312 |
TSDL_Color = record |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
313 |
case byte of |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
314 |
0: ( r: Byte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
315 |
g: Byte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
316 |
b: Byte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
317 |
unused: Byte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
318 |
); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
319 |
1: ( value: Longword); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
320 |
end; |
4 | 321 |
|
2248
26e11cb27c61
real fix for iphone color (reverting previous commit)
koda
parents:
2242
diff
changeset
|
322 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
323 |
PSDL_RWops = ^TSDL_RWops; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
324 |
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
|
325 |
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
|
326 |
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
|
327 |
TClose = function( context: PSDL_RWops ): LongInt; cdecl; |
4 | 328 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
329 |
TStdio = record |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
330 |
autoclose: LongInt; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
331 |
fp: pointer; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
332 |
end; |
2379 | 333 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
334 |
TMem = record |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
335 |
base: PByte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
336 |
here: PByte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
337 |
stop: PByte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
338 |
end; |
4 | 339 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
340 |
TUnknown = record |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
341 |
data1: Pointer; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
342 |
end; |
4 | 343 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
344 |
TSDL_RWops = record |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
345 |
seek: TSeek; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
346 |
read: TRead; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
347 |
write: TWrite; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
348 |
close: TClose; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
349 |
type_: Longword; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
350 |
case Byte of |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
351 |
0: (stdio: TStdio); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
352 |
1: (mem: TMem); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
353 |
2: (unknown: TUnknown); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
354 |
end; |
2379 | 355 |
|
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
356 |
|
2663 | 357 |
{* SDL_Event type definition *} |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
358 |
|
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
359 |
{$IFDEF SDL13} |
3697 | 360 |
PSDL_Window = pointer; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
361 |
PSDL_Texture = pointer; |
3697 | 362 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
363 |
TSDL_WindowEvent = record |
3349 | 364 |
type_: LongInt; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
365 |
windowID: LongInt; |
3349 | 366 |
event: byte; |
367 |
padding1, padding2, padding3: byte; |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
368 |
data1, data2: LongInt; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
369 |
end; |
3697 | 370 |
|
3463 | 371 |
TSDL_KeySym = record |
372 |
scancode, |
|
373 |
sym, |
|
374 |
modifier, |
|
375 |
unicode: LongInt; |
|
376 |
end; |
|
2663 | 377 |
|
378 |
// implement SDL_TextEditingEvent + SDL_TextInputEvent for sdl13 |
|
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
379 |
{$ELSE} |
3463 | 380 |
TSDL_KeySym = record |
381 |
scancode: Byte; |
|
382 |
sym: Longword; |
|
383 |
modifier: Longword; |
|
384 |
unicode: Word; |
|
385 |
end; |
|
386 |
||
3349 | 387 |
// these two are present in sdl1.3 but only for backward compatibility |
388 |
// and in 1.3 type_ is LongInt, not byte |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
389 |
TSDL_ActiveEvent = record |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
390 |
type_: byte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
391 |
gain: byte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
392 |
state: byte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
393 |
end; |
2714
c85ffe57d971
update iphone frontend to the new (silly) sdl api, code cleanups for other sections
koda
parents:
2701
diff
changeset
|
394 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
395 |
TSDL_ResizeEvent = record |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
396 |
type_: Byte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
397 |
w, h: LongInt; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
398 |
end; |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
399 |
{$ENDIF} |
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
400 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
401 |
TSDL_MouseMotionEvent = record |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
402 |
which: byte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
403 |
state: byte; |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
404 |
{$IFDEF SDL13} |
3349 | 405 |
type_: LongInt; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
406 |
windowID: LongInt; |
3349 | 407 |
padding1, padding2: byte; |
408 |
x, y, z, xrel, yrel : LongInt; |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
409 |
pressure, pressure_max, pressure_min, |
3697 | 410 |
rotation, tilt, cursor: LongInt; |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
411 |
{$ELSE} |
3349 | 412 |
type_: byte; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
413 |
x, y, xrel, yrel : word; |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
414 |
{$ENDIF} |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
415 |
end; |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
416 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
417 |
TSDL_KeyboardEvent = record |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
418 |
{$IFDEF SDL13} |
3349 | 419 |
type_: LongInt; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
420 |
windowID: LongInt; |
3349 | 421 |
padding1, padding2: byte; |
422 |
{$ELSE} |
|
423 |
type_: byte; |
|
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
424 |
{$ENDIF} |
3349 | 425 |
which: byte; |
426 |
state: byte; |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
427 |
keysym: TSDL_KeySym; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
428 |
end; |
308 | 429 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
430 |
TSDL_MouseButtonEvent = record |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
431 |
{$IFDEF SDL13} |
3349 | 432 |
_type: LongInt; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
433 |
windowID: LongInt; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
434 |
x, y: LongInt; |
3349 | 435 |
padding1: byte; |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
436 |
{$ELSE} |
3389 | 437 |
_type, |
438 |
which, |
|
439 |
button, |
|
440 |
state: byte; |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
441 |
x, y: word; |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
442 |
{$ENDIF} |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
443 |
end; |
2376 | 444 |
|
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
445 |
{$IFDEF SDL13} |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
446 |
TSDL_MouseWheelEvent = record |
3349 | 447 |
type_: LongInt; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
448 |
windowID: LongInt; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
449 |
which: Byte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
450 |
x, y: LongInt; |
3349 | 451 |
padding1, padding2, padding3: byte; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
452 |
end; |
3697 | 453 |
|
3349 | 454 |
// implement SDL_ProximityEvent |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
455 |
{$ENDIF} |
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
456 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
457 |
TSDL_JoyAxisEvent = record |
3463 | 458 |
{$IFDEF SDL13} |
459 |
type_: LongInt; |
|
460 |
{$ELSE} |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
461 |
type_: Byte; |
3463 | 462 |
{$ENDIF} |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
463 |
which: Byte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
464 |
axis: Byte; |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
465 |
{$IFDEF SDL13} |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
466 |
value: LongInt; |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
467 |
{$ELSE} |
3748 | 468 |
value: Smallint; |
3697 | 469 |
{$ENDIF} |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
470 |
end; |
3697 | 471 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
472 |
TSDL_JoyBallEvent = record |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
473 |
which: Byte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
474 |
ball: Byte; |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
475 |
{$IFDEF SDL13} |
3349 | 476 |
type_: LongInt; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
477 |
xrel, yrel: LongInt; |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
478 |
{$ELSE} |
3349 | 479 |
type_: Byte; |
3748 | 480 |
xrel, yrel: Smallint; |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
481 |
{$ENDIF} |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
482 |
end; |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
483 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
484 |
TSDL_JoyHatEvent = record |
3349 | 485 |
{$IFDEF SDL13} |
486 |
type_: LongInt; |
|
487 |
{$ELSE} |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
488 |
type_: Byte; |
3349 | 489 |
{$ENDIF} |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
490 |
which: Byte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
491 |
hat: Byte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
492 |
value: Byte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
493 |
end; |
3697 | 494 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
495 |
TSDL_JoyButtonEvent = record |
3349 | 496 |
{$IFDEF SDL13} |
497 |
type_: LongInt; |
|
498 |
{$ELSE} |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
499 |
type_: Byte; |
3349 | 500 |
{$ENDIF} |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
501 |
which: Byte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
502 |
button: Byte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
503 |
state: Byte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
504 |
end; |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
505 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
506 |
TSDL_QuitEvent = record |
3349 | 507 |
{$IFDEF SDL13} |
508 |
type_: LongInt; |
|
509 |
{$ELSE} |
|
510 |
type_: Byte; |
|
511 |
{$ENDIF} |
|
512 |
end; |
|
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
513 |
|
4454 | 514 |
TSDL_UserEvent = record |
515 |
{$IFDEF SDL13} |
|
516 |
type_: LongInt; |
|
517 |
windowID: LongInt; |
|
518 |
{$ELSE} |
|
519 |
type_: Byte; |
|
520 |
{$ENDIF} |
|
521 |
code: LongInt; |
|
522 |
data1, data2: Pointer; |
|
523 |
end; |
|
524 |
||
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
525 |
PSDL_Event = ^TSDL_Event; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
526 |
TSDL_Event = record |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
527 |
{$IFDEF SDL13} |
3463 | 528 |
case LongInt of |
529 |
SDL_FIRSTEVENT: (type_: LongInt); |
|
3349 | 530 |
SDL_QUITEV: (quit: TSDL_QuitEvent); |
3463 | 531 |
SDL_WINDOWEVENT: (wevent: TSDL_WindowEvent); |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
532 |
SDL_KEYDOWN, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
533 |
SDL_KEYUP: (key: TSDL_KeyboardEvent); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
534 |
SDL_TEXTEDITING, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
535 |
SDL_TEXTINPUT: (txtin: byte); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
536 |
SDL_MOUSEMOTION: (motion: TSDL_MouseMotionEvent); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
537 |
SDL_MOUSEBUTTONDOWN, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
538 |
SDL_MOUSEBUTTONUP: (button: TSDL_MouseButtonEvent); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
539 |
SDL_MOUSEWHEEL: (wheel: TSDL_MouseWheelEvent); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
540 |
SDL_JOYAXISMOTION: (jaxis: TSDL_JoyAxisEvent); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
541 |
SDL_JOYHATMOTION: (jhat: TSDL_JoyHatEvent); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
542 |
SDL_JOYBALLMOTION: (jball: TSDL_JoyBallEvent); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
543 |
SDL_JOYBUTTONDOWN, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
544 |
SDL_JOYBUTTONUP: (jbutton: TSDL_JoyButtonEvent); |
4454 | 545 |
SDL_USEREVENT: (user: TSDL_UserEvent); |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
546 |
{$ELSE} |
3463 | 547 |
case Byte of |
3349 | 548 |
SDL_NOEVENT: (type_: byte); |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
549 |
SDL_ACTIVEEVENT: (active: TSDL_ActiveEvent); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
550 |
SDL_KEYDOWN, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
551 |
SDL_KEYUP: (key: TSDL_KeyboardEvent); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
552 |
SDL_MOUSEMOTION: (motion: TSDL_MouseMotionEvent); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
553 |
SDL_MOUSEBUTTONDOWN, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
554 |
SDL_MOUSEBUTTONUP: (button: TSDL_MouseButtonEvent); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
555 |
SDL_JOYAXISMOTION: (jaxis: TSDL_JoyAxisEvent); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
556 |
SDL_JOYHATMOTION: (jhat: TSDL_JoyHatEvent); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
557 |
SDL_JOYBALLMOTION: (jball: TSDL_JoyBallEvent); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
558 |
SDL_JOYBUTTONDOWN, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
559 |
SDL_JOYBUTTONUP: (jbutton: TSDL_JoyButtonEvent); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
560 |
SDL_QUITEV: (quit: TSDL_QuitEvent); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
561 |
//SDL_SYSWMEVENT,SDL_EVENT_RESERVEDA,SDL_EVENT_RESERVEDB |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
562 |
//SDL_VIDEORESIZE: (resize: TSDL_ResizeEvent); |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
563 |
{$ENDIF} |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
564 |
end; |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
565 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
566 |
PByteArray = ^TByteArray; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
567 |
TByteArray = array[0..65535] of Byte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
568 |
PLongWordArray = ^TLongWordArray; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
569 |
TLongWordArray = array[0..16383] of LongWord; |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
570 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
571 |
PSDL_Thread = Pointer; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
572 |
PSDL_mutex = Pointer; |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
573 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
574 |
TSDL_GLattr = ( |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
575 |
SDL_GL_RED_SIZE, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
576 |
SDL_GL_GREEN_SIZE, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
577 |
SDL_GL_BLUE_SIZE, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
578 |
SDL_GL_ALPHA_SIZE, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
579 |
SDL_GL_BUFFER_SIZE, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
580 |
SDL_GL_DOUBLEBUFFER, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
581 |
SDL_GL_DEPTH_SIZE, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
582 |
SDL_GL_STENCIL_SIZE, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
583 |
SDL_GL_ACCUM_RED_SIZE, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
584 |
SDL_GL_ACCUM_GREEN_SIZE, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
585 |
SDL_GL_ACCUM_BLUE_SIZE, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
586 |
SDL_GL_ACCUM_ALPHA_SIZE, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
587 |
SDL_GL_STEREO, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
588 |
SDL_GL_MULTISAMPLEBUFFERS, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
589 |
SDL_GL_MULTISAMPLESAMPLES, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
590 |
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
|
591 |
{$IFDEF SDL13} |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
592 |
SDL_GL_RETAINED_BACKING, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
593 |
SDL_GL_CONTEXT_MAJOR_VERSION, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
594 |
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
|
595 |
{$ELSE} |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
596 |
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
|
597 |
{$ENDIF} |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
598 |
); |
2376 | 599 |
|
2252 | 600 |
{$IFDEF SDL13} |
3697 | 601 |
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
|
602 |
SDL_ARRAYORDER_NONE, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
603 |
SDL_ARRAYORDER_RGB, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
604 |
SDL_ARRAYORDER_RGBA, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
605 |
SDL_ARRAYORDER_ARGB, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
606 |
SDL_ARRAYORDER_BGR, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
607 |
SDL_ARRAYORDER_BGRA, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
608 |
SDL_ARRAYORDER_ABGR |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
609 |
); |
2252 | 610 |
{$ENDIF} |
4 | 611 |
|
2600 | 612 |
// Joystick/Controller support |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
613 |
PSDL_Joystick = ^TSDL_Joystick; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
614 |
TSDL_Joystick = record |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
615 |
end; |
2600 | 616 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
617 |
{* SDL_TTF *} |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
618 |
PTTF_Font = ^TTTF_font; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
619 |
TTTF_Font = record |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
620 |
end; |
2600 | 621 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
622 |
{* SDL_mixer *} |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
623 |
PMixChunk = ^TMixChunk; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
624 |
TMixChunk = record |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
625 |
allocated: Longword; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
626 |
abuf : PByte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
627 |
alen : Longword; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
628 |
volume : PByte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
629 |
end; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
630 |
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
|
631 |
TMix_Fading = (MIX_NO_FADING, MIX_FADING_OUT, MIX_FADING_IN); |
2600 | 632 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
633 |
TMidiSong = record |
2600 | 634 |
samples : LongInt; |
635 |
events : pointer; |
|
636 |
end; |
|
637 |
||
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
638 |
TMusicUnion = record |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
639 |
case Byte of |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
640 |
0: ( midi : TMidiSong ); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
641 |
1: ( ogg : pointer); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
642 |
end; |
2600 | 643 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
644 |
PMixMusic = ^TMixMusic; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
645 |
TMixMusic = record |
2600 | 646 |
end; |
647 |
||
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
648 |
{* SDL_net *} |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
649 |
TIPAddress = record |
2600 | 650 |
host: Longword; |
651 |
port: Word; |
|
652 |
end; |
|
653 |
||
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
654 |
PTCPSocket = ^TTCPSocket; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
655 |
TTCPSocket = record |
2600 | 656 |
ready: LongInt; |
657 |
channel: LongInt; |
|
658 |
remoteAddress: TIPaddress; |
|
659 |
localAddress: TIPaddress; |
|
660 |
sflag: LongInt; |
|
661 |
end; |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
662 |
PSDLNet_SocketSet = ^TSDLNet_SocketSet; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
663 |
TSDLNet_SocketSet = record |
2600 | 664 |
numsockets, |
665 |
maxsockets: LongInt; |
|
666 |
sockets: PTCPSocket; |
|
667 |
end; |
|
668 |
||
669 |
||
670 |
///////////////////////////////////////////////////////////////// |
|
671 |
///////////////////// FUNCTION DEFINITIONS ///////////////////// |
|
672 |
///////////////////////////////////////////////////////////////// |
|
673 |
||
674 |
||
675 |
{* SDL *} |
|
432 | 676 |
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
|
677 |
function SDL_InitSubSystem(flags: LongWord): LongInt; cdecl; external SDLLibName; |
4 | 678 |
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
|
679 |
|
432 | 680 |
function SDL_VideoDriverName(var namebuf; maxlen: LongInt): PChar; cdecl; external SDLLibName; |
681 |
procedure SDL_EnableUNICODE(enable: LongInt); cdecl; external SDLLibName; |
|
4 | 682 |
|
683 |
procedure SDL_Delay(msec: Longword); cdecl; external SDLLibName; |
|
684 |
function SDL_GetTicks: Longword; cdecl; external SDLLibName; |
|
685 |
||
686 |
function SDL_MustLock(Surface: PSDL_Surface): Boolean; |
|
432 | 687 |
function SDL_LockSurface(Surface: PSDL_Surface): LongInt; cdecl; external SDLLibName; |
4 | 688 |
procedure SDL_UnlockSurface(Surface: PSDL_Surface); cdecl; external SDLLibName; |
689 |
||
690 |
function SDL_GetError: PChar; cdecl; external SDLLibName; |
|
691 |
||
432 | 692 |
function SDL_SetVideoMode(width, height, bpp: LongInt; flags: Longword): PSDL_Surface; cdecl; external SDLLibName; |
693 |
function SDL_CreateRGBSurface(flags: Longword; Width, Height, Depth: LongInt; RMask, GMask, BMask, AMask: Longword): PSDL_Surface; cdecl; external SDLLibName; |
|
694 |
function SDL_CreateRGBSurfaceFrom(pixels: Pointer; width, height, depth, pitch: LongInt; RMask, GMask, BMask, AMask: Longword): PSDL_Surface; cdecl; external SDLLibName; |
|
4 | 695 |
procedure SDL_FreeSurface(Surface: PSDL_Surface); cdecl; external SDLLibName; |
105 | 696 |
function SDL_SetColorKey(surface: PSDL_Surface; flag, key: Longword): LongInt; cdecl; external SDLLibName; |
2017 | 697 |
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
|
698 |
function SDL_ConvertSurface(src: PSDL_Surface; fmt: PSDL_PixelFormat; flags: LongInt): PSDL_Surface; cdecl; external SDLLibName; |
4 | 699 |
|
105 | 700 |
function SDL_UpperBlit(src: PSDL_Surface; srcrect: PSDL_Rect; dst: PSDL_Surface; dstrect: PSDL_Rect): LongInt; cdecl; external SDLLibName; |
701 |
function SDL_FillRect(dst: PSDL_Surface; dstrect: PSDL_Rect; color: Longword): LongInt; cdecl; external SDLLibName; |
|
702 |
procedure SDL_UpdateRect(Screen: PSDL_Surface; x, y: LongInt; w, h: Longword); cdecl; external SDLLibName; |
|
432 | 703 |
function SDL_Flip(Screen: PSDL_Surface): LongInt; cdecl; external SDLLibName; |
4 | 704 |
|
705 |
procedure SDL_GetRGB(pixel: Longword; fmt: PSDL_PixelFormat; r, g, b: PByte); cdecl; external SDLLibName; |
|
3341 | 706 |
procedure SDL_GetRGBA(pixel: Longword; fmt: PSDL_PixelFormat; r, g, b, a: PByte); cdecl; external SDLLibName; |
107 | 707 |
function SDL_MapRGB(format: PSDL_PixelFormat; r, g, b: Byte): Longword; cdecl; external SDLLibName; |
2575 | 708 |
function SDL_MapRGBA(format: PSDL_PixelFormat; r, g, b, a: Byte): Longword; cdecl; external SDLLibName; |
4 | 709 |
|
710 |
function SDL_DisplayFormat(Surface: PSDL_Surface): PSDL_Surface; cdecl; external SDLLibName; |
|
35 | 711 |
function SDL_DisplayFormatAlpha(Surface: PSDL_Surface): PSDL_Surface; cdecl; external SDLLibName; |
4 | 712 |
|
713 |
function SDL_RWFromFile(filename, mode: PChar): PSDL_RWops; cdecl; external SDLLibName; |
|
432 | 714 |
function SDL_SaveBMP_RW(surface: PSDL_Surface; dst: PSDL_RWops; freedst: LongInt): LongInt; cdecl; external SDLLibName; |
4 | 715 |
|
2152 | 716 |
{$IFDEF SDL13} |
3697 | 717 |
function SDL_CreateWindow(title: PChar; x,y,w,h, flags: LongInt): PSDL_Window; cdecl; external SDLLibName; |
718 |
function SDL_CreateRenderer(window: PSDL_Window; index, flags: LongInt): LongInt; cdecl; external SDLLibName; |
|
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2714
diff
changeset
|
719 |
function SDL_SetRenderDrawColor(r,g,b,a: byte): LongInt; cdecl; external SDLLibName; |
3598 | 720 |
function SDL_DestroyRenderer(window: PSDL_Window): LongInt; cdecl; external SDLLibName; |
721 |
function SDL_DestroyWindow(window: PSDL_Window): LongInt; cdecl; external SDLLibName; |
|
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2714
diff
changeset
|
722 |
|
2697 | 723 |
function SDL_RenderFill(rect: PSDL_Rect): LongInt; |
724 |
function SDL_RenderFillRect(rect: PSDL_Rect): LongInt; cdecl; external SDLLibName; |
|
725 |
function SDL_RenderClear: LongInt; cdecl; external SDLLibName; |
|
726 |
procedure SDL_RenderPresent; cdecl; external SDLLibName; |
|
2699
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2698
diff
changeset
|
727 |
procedure SDL_VideoQuit; cdecl; external SDLLibName; |
2697 | 728 |
|
2242 | 729 |
function SDL_SelectMouse(index: LongInt): LongInt; cdecl; external SDLLibName; |
2697 | 730 |
function SDL_GetRelativeMouseState(x, y: PLongInt): Byte; cdecl; external SDLLibName; |
2579 | 731 |
function SDL_GetNumMice: LongInt; cdecl; external SDLLibName; |
2586
204e6b2885bc
added little/big endian checks, added symbol for touch input, simplified iphoneos definitions
koda
parents:
2579
diff
changeset
|
732 |
function SDL_PixelFormatEnumToMasks(format: TSDL_ArrayByteOrder; bpp: PLongInt; Rmask, Gmask, Bmask, Amask: PLongInt): boolean; cdecl; external SDLLibName; |
3701 | 733 |
function SDL_RenderReadPixels(rect: PSDL_Rect; format: LongInt; pixels: pointer; pitch: LongInt): 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
|
734 |
{$ENDIF} |
2714
c85ffe57d971
update iphone frontend to the new (silly) sdl api, code cleanups for other sections
koda
parents:
2701
diff
changeset
|
735 |
|
c85ffe57d971
update iphone frontend to the new (silly) sdl api, code cleanups for other sections
koda
parents:
2701
diff
changeset
|
736 |
function SDL_GetKeyState(numkeys: PLongInt): PByteArray; cdecl; external SDLLibName {$IFDEF SDL13} name 'SDL_GetKeyboardState'{$ENDIF}; |
2242 | 737 |
function SDL_GetMouseState(x, y: PLongInt): Byte; cdecl; external SDLLibName; |
4 | 738 |
function SDL_GetKeyName(key: Longword): PChar; cdecl; external SDLLibName; |
739 |
procedure SDL_WarpMouse(x, y: Word); cdecl; external SDLLibName; |
|
740 |
||
2428 | 741 |
procedure SDL_PumpEvents; cdecl; external SDLLibName; |
432 | 742 |
function SDL_PollEvent(event: PSDL_Event): LongInt; cdecl; external SDLLibName; |
2590 | 743 |
function SDL_WaitEvent(event: PSDL_Event): LongInt; cdecl; external SDLLibName; |
4 | 744 |
|
432 | 745 |
function SDL_ShowCursor(toggle: LongInt): LongInt; cdecl; external SDLLibName; |
4 | 746 |
|
2800 | 747 |
procedure SDL_WM_SetIcon(icon: PSDL_Surface; mask : byte); cdecl; external SDLLibName; |
4 | 748 |
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
|
749 |
function SDL_WM_ToggleFullScreen(surface: PSDL_Surface): LongInt; cdecl; external SDLLibName; |
4 | 750 |
|
433 | 751 |
function SDL_CreateMutex: PSDL_mutex; cdecl; external SDLLibName; |
752 |
procedure SDL_DestroyMutex(mutex: PSDL_mutex); cdecl; external SDLLibName; |
|
753 |
function SDL_LockMutex(mutex: PSDL_mutex): LongInt; cdecl; external SDLLibName name 'SDL_mutexP'; |
|
754 |
function SDL_UnlockMutex(mutex: PSDL_mutex): LongInt; cdecl; external SDLLibName name 'SDL_mutexV'; |
|
755 |
||
2252 | 756 |
function SDL_GL_SetAttribute(attr: TSDL_GLattr; value: LongInt): LongInt; cdecl; external SDLLibName; |
753 | 757 |
procedure SDL_GL_SwapBuffers(); cdecl; external SDLLibName; |
758 |
||
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
759 |
function SDL_NumJoysticks: LongInt; cdecl; external SDLLibName; |
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
760 |
function SDL_JoystickName(idx: LongInt): PChar; cdecl; external SDLLibName; |
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
761 |
function SDL_JoystickOpen(idx: LongInt): PSDL_Joystick; cdecl; external SDLLibName; |
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
762 |
function SDL_JoystickOpened(idx: LongInt): LongInt; cdecl; external SDLLibName; |
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
763 |
function SDL_JoystickIndex(joy: PSDL_Joystick): LongInt; cdecl; external SDLLibName; |
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
764 |
function SDL_JoystickNumAxes(joy: PSDL_Joystick): LongInt; cdecl; external SDLLibName; |
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
765 |
function SDL_JoystickNumBalls(joy: PSDL_Joystick): LongInt; cdecl; external SDLLibName; |
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
766 |
function SDL_JoystickNumHats(joy: PSDL_Joystick): LongInt; cdecl; external SDLLibName; |
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
767 |
function SDL_JoystickNumButtons(joy: PSDL_Joystick): LongInt; cdecl; external SDLLibName; |
2428 | 768 |
procedure SDL_JoystickUpdate; cdecl; external SDLLibName; |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
769 |
function SDL_JoystickEventState(state: LongInt): LongInt; cdecl; external SDLLibName; |
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
770 |
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
|
771 |
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
|
772 |
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
|
773 |
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
|
774 |
procedure SDL_JoystickClose(joy: PSDL_Joystick); cdecl; external SDLLibName; |
2428 | 775 |
|
3153 | 776 |
function SDL_putenv(const text: PChar): LongInt; cdecl; external SDLLibName; |
777 |
function SDL_getenv(const text: PChar): PChar; cdecl; external SDLLibName; |
|
778 |
||
3405 | 779 |
{* OpenGL *} |
780 |
{$IFDEF DARWIN} |
|
781 |
function CGLGetCurrentContext(): Pointer; cdecl; external 'OpenGL'; |
|
782 |
procedure CGLSetParameter(context: Pointer; option: LongInt; value: Pointer); cdecl; external 'OpenGL'; |
|
783 |
{$ENDIF} |
|
784 |
||
2600 | 785 |
(* SDL_TTF *) |
786 |
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
|
787 |
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
|
788 |
|
4380 | 789 |
function TTF_SizeUTF8(font: PTTF_Font; const text: PChar; out w, h: LongInt): LongInt; cdecl; external SDL_TTFLibName; |
2665
50b4e544c163
complete transition of longword->sdl_color for TTF bindings
koda
parents:
2664
diff
changeset
|
790 |
|
2664
949c189ba568
powerpc and gameserver compilation disabled temporarily
koda
parents:
2663
diff
changeset
|
791 |
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
|
792 |
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
|
793 |
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
|
794 |
|
2600 | 795 |
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
|
796 |
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
|
797 |
|
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
798 |
(* SDL_mixer *) |
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
|
799 |
function Mix_Init(flags: LongInt): LongInt; cdecl; external SDL_MixerLibName; |
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
|
800 |
procedure Mix_Quit; cdecl; external SDL_MixerLibName; |
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
|
801 |
|
2515
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
802 |
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
|
803 |
procedure Mix_CloseAudio; 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
|
804 |
|
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
805 |
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
|
806 |
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
|
807 |
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
|
808 |
|
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
809 |
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
|
810 |
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
|
811 |
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
|
812 |
|
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
813 |
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
|
814 |
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
|
815 |
|
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
816 |
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
|
817 |
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
|
818 |
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
|
819 |
|
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
820 |
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
|
821 |
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
|
822 |
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
|
823 |
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
|
824 |
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
|
825 |
function Mix_HaltChannel(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
|
826 |
|
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
827 |
(* SDL_image *) |
2669 | 828 |
function IMG_Init(flags: LongInt): LongInt; cdecl; external SDL_ImageLibName; |
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
|
829 |
procedure IMG_Quit; cdecl; external SDL_ImageLibName; |
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
|
830 |
|
2600 | 831 |
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
|
832 |
function IMG_Load_RW(rwop: PSDL_RWops; freesrc: LongInt): PSDL_Surface; cdecl; external SDL_ImageLibName; |
2600 | 833 |
function IMG_LoadPNG_RW(rwop: PSDL_RWops): PSDL_Surface; cdecl; external SDL_ImageLibName; |
2701
3a8560c00f78
settings tab has now a very nice iphone-like interface
koda
parents:
2699
diff
changeset
|
834 |
function IMG_LoadTyped_RW(rwop: PSDL_RWops; freesrc: LongInt; _type: PChar): PSDL_Surface; cdecl; external SDL_ImageLibName; |
2592 | 835 |
|
2515
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
836 |
(* SDL_net *) |
2600 | 837 |
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
|
838 |
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
|
839 |
|
2600 | 840 |
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
|
841 |
function SDLNet_ResolveHost(var address: TIPaddress; host: PChar; port: Word): LongInt; cdecl; external SDL_NetLibName; |
2600 | 842 |
function SDLNet_TCP_Accept(server: PTCPsocket): PTCPSocket; cdecl; external SDL_NetLibName; |
843 |
function SDLNet_TCP_Open(var ip: TIPaddress): PTCPSocket; cdecl; external SDL_NetLibName; |
|
844 |
function SDLNet_TCP_Send(sock: PTCPsocket; data: Pointer; len: LongInt): LongInt; cdecl; external SDL_NetLibName; |
|
845 |
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
|
846 |
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
|
847 |
procedure SDLNet_FreeSocketSet(_set: PSDLNet_SocketSet); cdecl; external SDL_NetLibName; |
2600 | 848 |
function SDLNet_AddSocket(_set: PSDLNet_SocketSet; sock: PTCPSocket): LongInt; cdecl; external SDL_NetLibName; |
849 |
function SDLNet_CheckSockets(_set: PSDLNet_SocketSet; timeout: LongInt): LongInt; cdecl; external SDL_NetLibName; |
|
2630 | 850 |
|
2515
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
851 |
|
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
852 |
procedure SDLNet_Write16(value: Word; buf: pointer); |
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
853 |
procedure SDLNet_Write32(value: LongWord; buf: pointer); |
2600 | 854 |
function SDLNet_Read16(buf: pointer): Word; |
855 |
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
|
856 |
|
4 | 857 |
implementation |
858 |
||
859 |
function SDL_MustLock(Surface: PSDL_Surface): Boolean; |
|
860 |
begin |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
861 |
SDL_MustLock:= ( surface^.offset <> 0 ) or (( surface^.flags and (SDL_HWSURFACE or SDL_ASYNCBLIT or SDL_RLEACCEL)) <> 0) |
4 | 862 |
end; |
863 |
||
459
95163c6efa69
Do not use SDL_Net's to/from network byte order conversion functions
unc0rr
parents:
433
diff
changeset
|
864 |
procedure SDLNet_Write16(value: Word; buf: pointer); |
95163c6efa69
Do not use SDL_Net's to/from network byte order conversion functions
unc0rr
parents:
433
diff
changeset
|
865 |
begin |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
866 |
PByteArray(buf)^[1]:= value; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
867 |
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
|
868 |
end; |
95163c6efa69
Do not use SDL_Net's to/from network byte order conversion functions
unc0rr
parents:
433
diff
changeset
|
869 |
|
95163c6efa69
Do not use SDL_Net's to/from network byte order conversion functions
unc0rr
parents:
433
diff
changeset
|
870 |
procedure SDLNet_Write32(value: LongWord; buf: pointer); |
95163c6efa69
Do not use SDL_Net's to/from network byte order conversion functions
unc0rr
parents:
433
diff
changeset
|
871 |
begin |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
872 |
PByteArray(buf)^[3]:= value; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
873 |
PByteArray(buf)^[2]:= value shr 8; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
874 |
PByteArray(buf)^[1]:= value shr 16; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
875 |
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
|
876 |
end; |
95163c6efa69
Do not use SDL_Net's to/from network byte order conversion functions
unc0rr
parents:
433
diff
changeset
|
877 |
|
95163c6efa69
Do not use SDL_Net's to/from network byte order conversion functions
unc0rr
parents:
433
diff
changeset
|
878 |
function SDLNet_Read16(buf: pointer): Word; |
95163c6efa69
Do not use SDL_Net's to/from network byte order conversion functions
unc0rr
parents:
433
diff
changeset
|
879 |
begin |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
880 |
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
|
881 |
(PByteArray(buf)^[0] shl 8) |
95163c6efa69
Do not use SDL_Net's to/from network byte order conversion functions
unc0rr
parents:
433
diff
changeset
|
882 |
end; |
95163c6efa69
Do not use SDL_Net's to/from network byte order conversion functions
unc0rr
parents:
433
diff
changeset
|
883 |
|
95163c6efa69
Do not use SDL_Net's to/from network byte order conversion functions
unc0rr
parents:
433
diff
changeset
|
884 |
function SDLNet_Read32(buf: pointer): LongWord; |
95163c6efa69
Do not use SDL_Net's to/from network byte order conversion functions
unc0rr
parents:
433
diff
changeset
|
885 |
begin |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
886 |
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
|
887 |
(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
|
888 |
(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
|
889 |
(PByteArray(buf)^[0] shl 24) |
95163c6efa69
Do not use SDL_Net's to/from network byte order conversion functions
unc0rr
parents:
433
diff
changeset
|
890 |
end; |
95163c6efa69
Do not use SDL_Net's to/from network byte order conversion functions
unc0rr
parents:
433
diff
changeset
|
891 |
|
2697 | 892 |
{$IFDEF SDL13} |
893 |
function SDL_RenderFill(rect: PSDL_Rect): LongInt; |
|
894 |
var res: LongInt; |
|
895 |
begin |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
896 |
if (rect <> nil) then res:= SDL_RenderFillRect(rect) |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
897 |
else res:= SDL_RenderClear(); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
898 |
exit(res); |
2697 | 899 |
end; |
900 |
{$ENDIF} |
|
901 |
||
4 | 902 |
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
|
903 |