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