author | Xeli |
Sun, 21 Aug 2011 18:14:49 +0200 | |
branch | hedgeroid |
changeset 5625 | 9add7b92c5f0 |
parent 5577 | 272c82f82cee |
child 5725 | e27100a0e2d0 |
permissions | -rw-r--r-- |
4 | 1 |
(* |
1066 | 2 |
* Hedgewars, a free turn based strategy game |
4976 | 3 |
* Copyright (c) 2004-2011 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} |
|
5286 | 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} |
|
5286 | 44 |
{$IFNDEF ANDROID} |
45 |
{$linklib pthread} |
|
46 |
{$ENDIF} |
|
3385 | 47 |
{$ENDIF} |
4 | 48 |
{$ENDIF} |
49 |
||
2599 | 50 |
{$IFDEF FPC} |
2601 | 51 |
{$PACKRECORDS C} |
2606
ed687a8d081f
updated build files for macosx and optimization system
koda
parents:
2601
diff
changeset
|
52 |
{$ELSE} |
ed687a8d081f
updated build files for macosx and optimization system
koda
parents:
2601
diff
changeset
|
53 |
{$DEFINE cdecl attribute(cdecl)} |
2599 | 54 |
{$ENDIF} |
4 | 55 |
|
1819 | 56 |
{$IFDEF DARWIN} |
2630 | 57 |
{$IFNDEF IPHONEOS} |
2698 | 58 |
{$PASCALMAINNAME SDL_main} |
2630 | 59 |
{$linkframework Cocoa} |
60 |
{$linkframework SDL} |
|
61 |
{$linkframework SDL_net} |
|
62 |
{$linkframework SDL_image} |
|
63 |
{$linkframework SDL_ttf} |
|
64 |
{$linkframework SDL_mixer} |
|
3405 | 65 |
{$linkframework OpenGL} |
2630 | 66 |
{$ENDIF} |
1819 | 67 |
{$ENDIF} |
2630 | 68 |
|
1819 | 69 |
|
1997 | 70 |
(* SDL *) |
2390 | 71 |
const |
72 |
{$IFDEF WIN32} |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
73 |
SDLLibName = 'SDL.dll'; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
74 |
SDL_TTFLibName = 'SDL_ttf.dll'; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
75 |
SDL_MixerLibName = 'SDL_mixer.dll'; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
76 |
SDL_ImageLibName = 'SDL_image.dll'; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
77 |
SDL_NetLibName = 'SDL_net.dll'; |
2600 | 78 |
{$ELSE} |
2663 | 79 |
{$IFDEF DARWIN} |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
80 |
SDLLibName = 'SDL'; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
81 |
SDL_TTFLibName = 'SDL_ttf'; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
82 |
SDL_MixerLibName = 'SDL_mixer'; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
83 |
SDL_ImageLibName = 'SDL_image'; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
84 |
SDL_NetLibName = 'SDL_net'; |
2663 | 85 |
{$ELSE} |
5286 | 86 |
{$IFDEF ANDROID} |
87 |
SDLLibName = 'SDL'; |
|
88 |
SDL_TTFLibName = 'libSDL_ttf.so'; |
|
89 |
SDL_MixerLibName = 'libSDL_mixer.so'; |
|
90 |
SDL_ImageLibName = 'libSDL_image.so'; |
|
91 |
SDL_NetLibName = 'libSDL_net.so'; |
|
92 |
{$ELSE} |
|
93 |
SDLLibName = 'SDL'; |
|
94 |
SDL_TTFLibName = 'libSDL_ttf.so'; |
|
95 |
SDL_MixerLibName = 'libSDL_mixer.so'; |
|
96 |
SDL_ImageLibName = 'libSDL_image.so'; |
|
97 |
SDL_NetLibName = 'libSDL_net.so'; |
|
98 |
{$ENDIF} |
|
2663 | 99 |
{$ENDIF} |
2390 | 100 |
{$ENDIF} |
2600 | 101 |
|
102 |
///////////////////////////////////////////////////////////////// |
|
103 |
///////////////////// CONSTANT DEFINITIONS ///////////////////// |
|
104 |
///////////////////////////////////////////////////////////////// |
|
105 |
||
5046
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
106 |
// SDL_Init() flags |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
107 |
SDL_INIT_TIMER = $00000001; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
108 |
SDL_INIT_AUDIO = $00000010; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
109 |
SDL_INIT_VIDEO = $00000020; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
110 |
SDL_INIT_JOYSTICK = $00000200; |
2633 | 111 |
{$IFDEF SDL13} |
5046
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
112 |
SDL_INIT_HAPTIC = $00001000; |
2633 | 113 |
{$ELSE} |
5046
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
114 |
SDL_INIT_CDROM = $00000100; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
115 |
SDL_INIT_EVENTTHREAD = $01000000; |
2633 | 116 |
{$ENDIF} |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
117 |
SDL_INIT_NOPARACHUTE = $00100000; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
118 |
SDL_INIT_EVERYTHING = $0000FFFF; |
2240
7ce9e6b7be3b
-Removal of older WAV files, now useless thanks to OpenAL
koda
parents:
2200
diff
changeset
|
119 |
|
5046
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
120 |
SDL_APPINPUTFOCUS = $02; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
121 |
SDL_BUTTON_WHEELUP = 4; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
122 |
SDL_BUTTON_WHEELDOWN = 5; |
3463 | 123 |
|
3349 | 124 |
{$IFDEF SDL13} |
5004
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
125 |
// SDL_Event types |
5046
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
126 |
SDL_FIRSTEVENT = 0; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
127 |
SDL_QUITEV = $100; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
128 |
SDL_WINDOWEVENT = $200; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
129 |
SDL_SYSWMEVENT = $201; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
130 |
SDL_KEYDOWN = $300; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
131 |
SDL_KEYUP = $301; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
132 |
SDL_TEXTEDITING = $302; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
133 |
SDL_TEXTINPUT = $303; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
134 |
SDL_MOUSEMOTION = $400; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
135 |
SDL_MOUSEBUTTONDOWN = $401; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
136 |
SDL_MOUSEBUTTONUP = $402; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
137 |
SDL_MOUSEWHEEL = $403; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
138 |
SDL_INPUTMOTION = $500; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
139 |
SDL_INPUTBUTTONDOWN = $501; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
140 |
SDL_INPUTBUTTONUP = $502; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
141 |
SDL_INPUTWHEEL = $503; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
142 |
SDL_INPUTPROXIMITYIN = $504; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
143 |
SDL_INPUTPROXIMITYOUT = $505; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
144 |
SDL_JOYAXISMOTION = $600; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
145 |
SDL_JOYBALLMOTION = $601; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
146 |
SDL_JOYHATMOTION = $602; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
147 |
SDL_JOYBUTTONDOWN = $603; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
148 |
SDL_JOYBUTTONUP = $604; |
5544 | 149 |
SDL_FINGERDOWN = $700; |
150 |
SDL_FINGERUP = $701; |
|
151 |
SDL_FINGERMOTION = $702; |
|
5046
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
152 |
//TODO: implement otheer event types |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
153 |
SDL_USEREVENT = $8000; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
154 |
SDL_LASTEVENT = $FFFF; |
3697 | 155 |
|
5004
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
156 |
// SDL_Surface flags |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
157 |
SDL_SWSURFACE = $00000000; //*< Not used */ |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
158 |
SDL_PREALLOC = $00000001; //*< Surface uses preallocated memory */ |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
159 |
SDL_RLEACCEL = $00000002; //*< Surface is RLE encoded */ |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
160 |
SDL_DONTFREE = $00000004; //*< Surface is referenced internally */ |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
161 |
SDL_SRCALPHA = $00010000; |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
162 |
SDL_SRCCOLORKEY = $00020000; |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
163 |
SDL_ANYFORMAT = $00100000; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
164 |
SDL_HWPALETTE = $00200000; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
165 |
SDL_DOUBLEBUF = $00400000; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
166 |
SDL_FULLSCREEN = $00800000; |
5004
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
167 |
SDL_RESIZABLE = $01000000; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
168 |
SDL_NOFRAME = $02000000; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
169 |
SDL_OPENGL = $04000000; |
5004
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
170 |
SDL_HWSURFACE = $08000001; //*< Not used */ |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
171 |
SDL_ASYNCBLIT = $08000000; //*< Not used */ |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
172 |
SDL_RLEACCELOK = $08000000; //*< Not used */ |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
173 |
SDL_HWACCEL = $08000000; //*< Not used */ |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
174 |
|
5046
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
175 |
// SDL_Renderer flags |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
176 |
SDL_RENDERER_SOFTWARE = $00000001; //*< The renderer is a software fallback */ |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
177 |
SDL_RENDERER_ACCELERATED = $00000002; //*< The renderer uses hardware acceleration */ |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
178 |
SDL_RENDERER_PRESENTVSYNC = $00000004; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
179 |
|
5004
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
180 |
// SDL_WindowFlags (enum) |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
181 |
SDL_WINDOW_FULLSCREEN = $00000001; //*< fullscreen window, implies borderless */ |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
182 |
SDL_WINDOW_OPENGL = $00000002; //*< window usable with OpenGL context */ |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
183 |
SDL_WINDOW_SHOWN = $00000004; //*< window is visible */ |
5046
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
184 |
SDL_WINDOW_HIDDEN = $00000008; //*< window is not visible */ |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
185 |
SDL_WINDOW_BORDERLESS = $00000010; //*< no window decoration */ |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
186 |
SDL_WINDOW_RESIZABLE = $00000020; //*< window can be resized */ |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
187 |
SDL_WINDOW_MINIMIZED = $00000040; //*< window is minimized */ |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
188 |
SDL_WINDOW_MAXIMIZED = $00000080; //*< window is maximized */ |
5004
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
189 |
SDL_WINDOW_INPUT_GRABBED = $00000100; //*< window has grabbed input focus */ |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
190 |
SDL_WINDOW_INPUT_FOCUS = $00000200; //*< window has input focus */ |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
191 |
SDL_WINDOW_MOUSE_FOCUS = $00000400; //*< window has mouse focus */ |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
192 |
SDL_WINDOW_FOREIGN = $00000800; //*< window not created by SDL */ |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
193 |
|
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
194 |
SDL_WINDOWPOS_CENTERED_MASK = $2FFF0000; |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
195 |
|
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
196 |
// SDL_WindowEventID (enum) |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
197 |
SDL_WINDOWEVENT_NONE = 0; //*< Never used |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
198 |
SDL_WINDOWEVENT_SHOWN = 1; //*< Window has been shown |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
199 |
SDL_WINDOWEVENT_HIDDEN = 2; //*< Window has been hidden |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
200 |
SDL_WINDOWEVENT_EXPOSED = 3; //*< Window has been exposed and should be redrawn |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
201 |
SDL_WINDOWEVENT_MOVED = 4; //*< Window has been moved to data1, data2 |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
202 |
SDL_WINDOWEVENT_RESIZED = 5; //*< Window size changed to data1xdata2 |
5046
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
203 |
SDL_WINDOWEVENT_SIZE_CHANGED = 6; //*< The window size has changed, [...] */ |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
204 |
SDL_WINDOWEVENT_MINIMIZED = 7; //*< Window has been minimized |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
205 |
SDL_WINDOWEVENT_MAXIMIZED = 8; //*< Window has been maximized |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
206 |
SDL_WINDOWEVENT_RESTORED = 9; //*< Window has been restored to normal size and position |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
207 |
SDL_WINDOWEVENT_ENTER = 10; //*< Window has gained mouse focus |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
208 |
SDL_WINDOWEVENT_LEAVE = 11; //*< Window has lost mouse focus |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
209 |
SDL_WINDOWEVENT_FOCUS_GAINED = 12; //*< Window has gained keyboard focus |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
210 |
SDL_WINDOWEVENT_FOCUS_LOST = 13; //*< Window has lost keyboard focus |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
211 |
SDL_WINDOWEVENT_CLOSE = 14; //*< The window manager requests that the window be closed */ |
2241
7992f7ba388d
completes removal of wav files, updates SDLh and adds DEBUGFILE to hwengine when compiled in Debug mode
koda
parents:
2240
diff
changeset
|
212 |
{$ELSE} |
5004
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
213 |
// SDL_Event types |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
214 |
SDL_NOEVENT = 0; |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
215 |
SDL_ACTIVEEVENT = 1; |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
216 |
SDL_KEYDOWN = 2; |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
217 |
SDL_KEYUP = 3; |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
218 |
SDL_MOUSEMOTION = 4; |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
219 |
SDL_MOUSEBUTTONDOWN = 5; |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
220 |
SDL_MOUSEBUTTONUP = 6; |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
221 |
SDL_JOYAXISMOTION = 7; |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
222 |
SDL_JOYBALLMOTION = 8; |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
223 |
SDL_JOYHATMOTION = 9; |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
224 |
SDL_JOYBUTTONDOWN = 10; |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
225 |
SDL_JOYBUTTONUP = 11; |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
226 |
SDL_QUITEV = 12; |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
227 |
SDL_VIDEORESIZE = 16; // TODO: outdated? no longer in SDL 1.3? |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
228 |
|
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
229 |
// SDL_Surface flags |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
230 |
SDL_SWSURFACE = $00000000; |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
231 |
SDL_HWSURFACE = $00000001; |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
232 |
SDL_OPENGL = $00000002; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
233 |
SDL_ASYNCBLIT = $00000004; |
5004
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
234 |
SDL_RESIZABLE = $00000010; |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
235 |
SDL_NOFRAME = $00000020; |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
236 |
SDL_HWACCEL = $00000100; |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
237 |
SDL_SRCCOLORKEY = $00001000; |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
238 |
SDL_RLEACCEL = $00004000; |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
239 |
SDL_SRCALPHA = $00010000; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
240 |
SDL_ANYFORMAT = $00100000; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
241 |
SDL_HWPALETTE = $20000000; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
242 |
SDL_DOUBLEBUF = $40000000; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
243 |
SDL_FULLSCREEN = $80000000; |
2241
7992f7ba388d
completes removal of wav files, updates SDLh and adds DEBUGFILE to hwengine when compiled in Debug mode
koda
parents:
2240
diff
changeset
|
244 |
{$ENDIF} |
945
4ead9cde4e14
- Start chat implementation: chat strings are on the screen
unc0rr
parents:
883
diff
changeset
|
245 |
|
2586
204e6b2885bc
added little/big endian checks, added symbol for touch input, simplified iphoneos definitions
koda
parents:
2579
diff
changeset
|
246 |
{$IFDEF ENDIAN_LITTLE} |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
247 |
RMask = $000000FF; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
248 |
GMask = $0000FF00; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
249 |
BMask = $00FF0000; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
250 |
AMask = $FF000000; |
5041 | 251 |
RShift = 0; |
252 |
GShift = 8; |
|
253 |
BShift = 16; |
|
254 |
AShift = 24; |
|
2586
204e6b2885bc
added little/big endian checks, added symbol for touch input, simplified iphoneos definitions
koda
parents:
2579
diff
changeset
|
255 |
{$ELSE} |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
256 |
RMask = $FF000000; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
257 |
GMask = $00FF0000; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
258 |
BMask = $0000FF00; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
259 |
AMask = $000000FF; |
5041 | 260 |
RShift = 24; |
261 |
GShift = 16; |
|
262 |
BShift = 8; |
|
263 |
AShift = 0; |
|
2586
204e6b2885bc
added little/big endian checks, added symbol for touch input, simplified iphoneos definitions
koda
parents:
2579
diff
changeset
|
264 |
{$ENDIF} |
2575 | 265 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
266 |
{* SDL_mixer *} |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
267 |
MIX_MAX_VOLUME = 128; |
5004
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
268 |
MIX_INIT_FLAC = $00000001; |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
269 |
MIX_INIT_MOD = $00000002; |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
270 |
MIX_INIT_MP3 = $00000004; |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
271 |
MIX_INIT_OGG = $00000008; |
3697 | 272 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
273 |
{* SDL_TTF *} |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
274 |
TTF_STYLE_NORMAL = 0; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
275 |
TTF_STYLE_BOLD = 1; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
276 |
TTF_STYLE_ITALIC = 2; |
2600 | 277 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
278 |
{* SDL Joystick *} |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
279 |
SDL_HAT_CENTERED = $00; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
280 |
SDL_HAT_UP = $01; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
281 |
SDL_HAT_RIGHT = $02; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
282 |
SDL_HAT_DOWN = $04; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
283 |
SDL_HAT_LEFT = $08; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
284 |
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
|
285 |
SDL_HAT_RIGHTDOWN = SDL_HAT_RIGHT or SDL_HAT_DOWN; |
5004
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
286 |
SDL_HAT_LEFTUP = SDL_HAT_LEFT or SDL_HAT_UP; |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
287 |
SDL_HAT_LEFTDOWN = SDL_HAT_LEFT or SDL_HAT_DOWN; |
2600 | 288 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
289 |
{* SDL_image *} |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
290 |
IMG_INIT_JPG = $00000001; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
291 |
IMG_INIT_PNG = $00000002; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
292 |
IMG_INIT_TIF = $00000004; |
2600 | 293 |
|
294 |
///////////////////////////////////////////////////////////////// |
|
295 |
/////////////////////// TYPE DEFINITIONS /////////////////////// |
|
296 |
///////////////////////////////////////////////////////////////// |
|
297 |
||
3697 | 298 |
type |
5046
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
299 |
{$IFDEF SDL13} |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
300 |
PSDL_Window = Pointer; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
301 |
PSDL_Renderer = Pointer; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
302 |
PSDL_Texture = Pointer; |
5486
e75f7c3c6275
ios: this should prevent at least one of the crashes zorg spotted; also added some callbacks in SDLh; also polished project file (from -O2 to -Os)
koda
parents:
5187
diff
changeset
|
303 |
PSDL_GLContext= Pointer; |
5046
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
304 |
{$ENDIF} |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
305 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
306 |
PSDL_Rect = ^TSDL_Rect; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
307 |
TSDL_Rect = record |
2390 | 308 |
{$IFDEF SDL13} |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
309 |
x, y, w, h: LongInt; |
2390 | 310 |
{$ELSE} |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
311 |
x, y: SmallInt; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
312 |
w, h: Word; |
2390 | 313 |
{$ENDIF} |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
314 |
end; |
4 | 315 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
316 |
TPoint = record |
5046
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
317 |
X, Y: LongInt; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
318 |
end; |
4 | 319 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
320 |
PSDL_PixelFormat = ^TSDL_PixelFormat; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
321 |
TSDL_PixelFormat = record |
5004
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
322 |
{$IFDEF SDL13} |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
323 |
format: Longword; |
5046
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
324 |
palette: Pointer; // actually it is a PSDL_Palette |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
325 |
BitsPerPixel : Byte; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
326 |
BytesPerPixel: Byte; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
327 |
padding: array[0..1] of Byte; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
328 |
RMask : Longword; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
329 |
GMask : Longword; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
330 |
BMask : Longword; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
331 |
AMask : Longword; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
332 |
Rloss : Byte; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
333 |
Gloss : Byte; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
334 |
Bloss : Byte; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
335 |
Aloss : Byte; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
336 |
Rshift: Byte; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
337 |
Gshift: Byte; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
338 |
Bshift: Byte; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
339 |
Ashift: Byte; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
340 |
refcount: LongInt; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
341 |
next: PSDL_PixelFormat; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
342 |
{$ELSE} |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
343 |
palette: Pointer; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
344 |
BitsPerPixel : Byte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
345 |
BytesPerPixel: Byte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
346 |
Rloss : Byte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
347 |
Gloss : Byte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
348 |
Bloss : Byte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
349 |
Aloss : Byte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
350 |
Rshift: Byte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
351 |
Gshift: Byte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
352 |
Bshift: Byte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
353 |
Ashift: Byte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
354 |
RMask : Longword; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
355 |
GMask : Longword; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
356 |
BMask : Longword; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
357 |
AMask : Longword; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
358 |
colorkey: Longword; |
5004
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
359 |
alpha: Byte; |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
360 |
{$ENDIF} |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
361 |
end; |
5286 | 362 |
|
363 |
SDL_eventaction = (SDL_ADDEVENT = 0, SDL_PEEPEVENT, SDL_GETEVENT); |
|
4 | 364 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
365 |
PSDL_Surface = ^TSDL_Surface; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
366 |
TSDL_Surface = record |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
367 |
flags : Longword; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
368 |
format: PSDL_PixelFormat; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
369 |
w, h : LongInt; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
370 |
pitch : Word; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
371 |
pixels: Pointer; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
372 |
offset: LongInt; |
5046
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
373 |
{$IFDEF SDL13} |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
374 |
userdata: Pointer; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
375 |
locked: LongInt; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
376 |
lock_data: Pointer; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
377 |
clip_rect: TSDL_Rect; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
378 |
map: Pointer; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
379 |
refcount: LongInt; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
380 |
{$ENDIF} |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
381 |
end; |
4 | 382 |
|
2248
26e11cb27c61
real fix for iphone color (reverting previous commit)
koda
parents:
2242
diff
changeset
|
383 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
384 |
PSDL_Color = ^TSDL_Color; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
385 |
TSDL_Color = record |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
386 |
case byte of |
5046
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
387 |
0: ( r: Byte; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
388 |
g: Byte; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
389 |
b: Byte; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
390 |
unused: Byte; ); |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
391 |
1: ( value: Longword; ); |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
392 |
end; |
4 | 393 |
|
2248
26e11cb27c61
real fix for iphone color (reverting previous commit)
koda
parents:
2242
diff
changeset
|
394 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
395 |
PSDL_RWops = ^TSDL_RWops; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
396 |
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
|
397 |
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
|
398 |
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
|
399 |
TClose = function( context: PSDL_RWops ): LongInt; cdecl; |
4 | 400 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
401 |
TStdio = record |
5046
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
402 |
autoclose: {$IFDEF SDL13}boolean{$ELSE}LongInt{$ENDIF}; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
403 |
fp: pointer; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
404 |
end; |
2379 | 405 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
406 |
TMem = record |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
407 |
base: PByte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
408 |
here: PByte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
409 |
stop: PByte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
410 |
end; |
4 | 411 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
412 |
TUnknown = record |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
413 |
data1: Pointer; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
414 |
end; |
4 | 415 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
416 |
TSDL_RWops = record |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
417 |
seek: TSeek; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
418 |
read: TRead; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
419 |
write: TWrite; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
420 |
close: TClose; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
421 |
type_: Longword; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
422 |
case Byte of |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
423 |
0: (stdio: TStdio); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
424 |
1: (mem: TMem); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
425 |
2: (unknown: TUnknown); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
426 |
end; |
2379 | 427 |
|
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
428 |
|
2663 | 429 |
{* SDL_Event type definition *} |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
430 |
|
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
431 |
{$IFDEF SDL13} |
5046
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
432 |
TSDL_KeySym = record |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
433 |
scancode: LongInt; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
434 |
sym: LongInt; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
435 |
modifier: Smallint; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
436 |
unicode: LongInt; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
437 |
end; |
3697 | 438 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
439 |
TSDL_WindowEvent = record |
3349 | 440 |
type_: LongInt; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
441 |
windowID: LongInt; |
3349 | 442 |
event: byte; |
443 |
padding1, padding2, padding3: byte; |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
444 |
data1, data2: LongInt; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
445 |
end; |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
446 |
{$ELSE} |
3463 | 447 |
TSDL_KeySym = record |
448 |
scancode: Byte; |
|
449 |
sym: Longword; |
|
450 |
modifier: Longword; |
|
451 |
unicode: Word; |
|
452 |
end; |
|
453 |
||
3349 | 454 |
// these two are present in sdl1.3 but only for backward compatibility |
455 |
// 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
|
456 |
TSDL_ActiveEvent = record |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
457 |
type_: byte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
458 |
gain: byte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
459 |
state: byte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
460 |
end; |
2714
c85ffe57d971
update iphone frontend to the new (silly) sdl api, code cleanups for other sections
koda
parents:
2701
diff
changeset
|
461 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
462 |
TSDL_ResizeEvent = record |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
463 |
type_: Byte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
464 |
w, h: LongInt; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
465 |
end; |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
466 |
{$ENDIF} |
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
467 |
|
5046
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
468 |
TSDL_KeyboardEvent = record |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
469 |
{$IFDEF SDL13} |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
470 |
type_: LongInt; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
471 |
windowID: LongInt; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
472 |
state, repeat_, padding2, padding3: byte; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
473 |
{$ELSE} |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
474 |
type_: byte; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
475 |
which: byte; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
476 |
state: byte; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
477 |
{$ENDIF} |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
478 |
keysym: TSDL_KeySym; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
479 |
end; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
480 |
|
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
481 |
//TODO: implement SDL_TextEditingEvent + SDL_TextInputEvent for sdl13 |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
482 |
|
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
483 |
// this structure is wrong but the correct version makes the game hang |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
484 |
TSDL_MouseMotionEvent = record |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
485 |
which: byte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
486 |
state: byte; |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
487 |
{$IFDEF SDL13} |
3349 | 488 |
type_: LongInt; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
489 |
windowID: LongInt; |
3349 | 490 |
padding1, padding2: byte; |
5286 | 491 |
x, y, z,xrel, yrel : LongInt; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
492 |
pressure, pressure_max, pressure_min, |
3697 | 493 |
rotation, tilt, cursor: LongInt; |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
494 |
{$ELSE} |
3349 | 495 |
type_: byte; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
496 |
x, y, xrel, yrel : word; |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
497 |
{$ENDIF} |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
498 |
end; |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
499 |
|
5046
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
500 |
TSDL_MouseButtonEvent = record |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
501 |
{$IFDEF SDL13} |
3349 | 502 |
type_: LongInt; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
503 |
windowID: LongInt; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
504 |
x, y: LongInt; |
3349 | 505 |
padding1: byte; |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
506 |
{$ELSE} |
5046
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
507 |
type_, |
3389 | 508 |
which, |
509 |
button, |
|
510 |
state: byte; |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
511 |
x, y: word; |
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; |
2376 | 514 |
|
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
515 |
{$IFDEF SDL13} |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
516 |
TSDL_MouseWheelEvent = record |
3349 | 517 |
type_: LongInt; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
518 |
windowID: LongInt; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
519 |
which: Byte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
520 |
x, y: LongInt; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
521 |
end; |
3697 | 522 |
|
5046
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
523 |
//TODO: implement SDL_ProximityEvent |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
524 |
{$ENDIF} |
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
525 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
526 |
TSDL_JoyAxisEvent = record |
5046
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
527 |
type_: {$IFDEF SDL13}LongInt{$ELSE}Byte{$ENDIF}; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
528 |
which: Byte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
529 |
axis: Byte; |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
530 |
{$IFDEF SDL13} |
5046
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
531 |
padding1, padding2: Byte; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
532 |
value: LongInt; |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
533 |
{$ELSE} |
3748 | 534 |
value: Smallint; |
3697 | 535 |
{$ENDIF} |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
536 |
end; |
3697 | 537 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
538 |
TSDL_JoyBallEvent = record |
5046
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
539 |
type_: {$IFDEF SDL13}LongInt{$ELSE}Byte{$ENDIF}; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
540 |
which: Byte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
541 |
ball: Byte; |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
542 |
{$IFDEF SDL13} |
5046
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
543 |
padding1, padding2: Byte; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
544 |
xrel, yrel: LongInt; |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
545 |
{$ELSE} |
3748 | 546 |
xrel, yrel: Smallint; |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
547 |
{$ENDIF} |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
548 |
end; |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
549 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
550 |
TSDL_JoyHatEvent = record |
5046
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
551 |
type_: {$IFDEF SDL13}LongInt{$ELSE}Byte{$ENDIF}; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
552 |
which: Byte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
553 |
hat: Byte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
554 |
value: Byte; |
5046
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
555 |
{$IFDEF SDL13} |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
556 |
padding1: Byte; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
557 |
{$ENDIF} |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
558 |
end; |
3697 | 559 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
560 |
TSDL_JoyButtonEvent = record |
5046
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
561 |
type_: {$IFDEF SDL13}LongInt{$ELSE}Byte{$ENDIF}; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
562 |
which: Byte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
563 |
button: Byte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
564 |
state: Byte; |
5046
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
565 |
{$IFDEF SDL13} |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
566 |
padding1: Byte; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
567 |
{$ENDIF} |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
568 |
end; |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
569 |
|
5550
50650032c251
Zoom and moving the camera now works with SDL_FINGER* events
Xeli
parents:
5544
diff
changeset
|
570 |
SDL_TouchID = Int32; |
50650032c251
Zoom and moving the camera now works with SDL_FINGER* events
Xeli
parents:
5544
diff
changeset
|
571 |
SDL_FingerID = Int32; |
50650032c251
Zoom and moving the camera now works with SDL_FINGER* events
Xeli
parents:
5544
diff
changeset
|
572 |
|
50650032c251
Zoom and moving the camera now works with SDL_FINGER* events
Xeli
parents:
5544
diff
changeset
|
573 |
TSDL_TouchFingerEvent = record |
50650032c251
Zoom and moving the camera now works with SDL_FINGER* events
Xeli
parents:
5544
diff
changeset
|
574 |
type_: UInt32; |
50650032c251
Zoom and moving the camera now works with SDL_FINGER* events
Xeli
parents:
5544
diff
changeset
|
575 |
windowId: UInt32; |
50650032c251
Zoom and moving the camera now works with SDL_FINGER* events
Xeli
parents:
5544
diff
changeset
|
576 |
touchId: SDL_TouchID; |
50650032c251
Zoom and moving the camera now works with SDL_FINGER* events
Xeli
parents:
5544
diff
changeset
|
577 |
fingerId: SDL_FingerID; |
50650032c251
Zoom and moving the camera now works with SDL_FINGER* events
Xeli
parents:
5544
diff
changeset
|
578 |
state, padding1, padding2, padding3: UInt8; |
50650032c251
Zoom and moving the camera now works with SDL_FINGER* events
Xeli
parents:
5544
diff
changeset
|
579 |
x,y: UInt16; |
50650032c251
Zoom and moving the camera now works with SDL_FINGER* events
Xeli
parents:
5544
diff
changeset
|
580 |
dx,dy: Int16; |
50650032c251
Zoom and moving the camera now works with SDL_FINGER* events
Xeli
parents:
5544
diff
changeset
|
581 |
pressure: UInt16; |
50650032c251
Zoom and moving the camera now works with SDL_FINGER* events
Xeli
parents:
5544
diff
changeset
|
582 |
end; |
5046
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
583 |
//TODO: implement SDL_TouchButtonEvent, SDL_MultiGestureEvent, SDL_DollarGestureEvent |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
584 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
585 |
TSDL_QuitEvent = record |
5046
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
586 |
type_: {$IFDEF SDL13}LongInt{$ELSE}Byte{$ENDIF}; |
3349 | 587 |
end; |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
588 |
|
4454 | 589 |
TSDL_UserEvent = record |
590 |
{$IFDEF SDL13} |
|
591 |
type_: LongInt; |
|
592 |
windowID: LongInt; |
|
593 |
{$ELSE} |
|
594 |
type_: Byte; |
|
595 |
{$ENDIF} |
|
596 |
code: LongInt; |
|
597 |
data1, data2: Pointer; |
|
598 |
end; |
|
599 |
||
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
600 |
PSDL_Event = ^TSDL_Event; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
601 |
TSDL_Event = record |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
602 |
{$IFDEF SDL13} |
3463 | 603 |
case LongInt of |
604 |
SDL_FIRSTEVENT: (type_: LongInt); |
|
5052 | 605 |
SDL_WINDOWEVENT: (window: TSDL_WindowEvent); |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
606 |
SDL_KEYDOWN, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
607 |
SDL_KEYUP: (key: TSDL_KeyboardEvent); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
608 |
SDL_TEXTEDITING, |
5052 | 609 |
SDL_TEXTINPUT: (edit: byte); |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
610 |
SDL_MOUSEMOTION: (motion: TSDL_MouseMotionEvent); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
611 |
SDL_MOUSEBUTTONDOWN, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
612 |
SDL_MOUSEBUTTONUP: (button: TSDL_MouseButtonEvent); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
613 |
SDL_MOUSEWHEEL: (wheel: TSDL_MouseWheelEvent); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
614 |
SDL_JOYAXISMOTION: (jaxis: TSDL_JoyAxisEvent); |
5052 | 615 |
SDL_JOYBALLMOTION: (jball: TSDL_JoyBallEvent); |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
616 |
SDL_JOYHATMOTION: (jhat: TSDL_JoyHatEvent); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
617 |
SDL_JOYBUTTONDOWN, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
618 |
SDL_JOYBUTTONUP: (jbutton: TSDL_JoyButtonEvent); |
5550
50650032c251
Zoom and moving the camera now works with SDL_FINGER* events
Xeli
parents:
5544
diff
changeset
|
619 |
SDL_FINGERMOTION, |
50650032c251
Zoom and moving the camera now works with SDL_FINGER* events
Xeli
parents:
5544
diff
changeset
|
620 |
SDL_FINGERUP, |
50650032c251
Zoom and moving the camera now works with SDL_FINGER* events
Xeli
parents:
5544
diff
changeset
|
621 |
SDL_FINGERDOWN:(tfinger: TSDL_TouchFingerEvent); |
5046
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
622 |
SDL_QUITEV: (quit: TSDL_QuitEvent); |
4454 | 623 |
SDL_USEREVENT: (user: TSDL_UserEvent); |
5046
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
624 |
//TODO: implement other events |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
625 |
{$ELSE} |
3463 | 626 |
case Byte of |
3349 | 627 |
SDL_NOEVENT: (type_: byte); |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
628 |
SDL_ACTIVEEVENT: (active: TSDL_ActiveEvent); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
629 |
SDL_KEYDOWN, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
630 |
SDL_KEYUP: (key: TSDL_KeyboardEvent); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
631 |
SDL_MOUSEMOTION: (motion: TSDL_MouseMotionEvent); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
632 |
SDL_MOUSEBUTTONDOWN, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
633 |
SDL_MOUSEBUTTONUP: (button: TSDL_MouseButtonEvent); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
634 |
SDL_JOYAXISMOTION: (jaxis: TSDL_JoyAxisEvent); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
635 |
SDL_JOYHATMOTION: (jhat: TSDL_JoyHatEvent); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
636 |
SDL_JOYBALLMOTION: (jball: TSDL_JoyBallEvent); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
637 |
SDL_JOYBUTTONDOWN, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
638 |
SDL_JOYBUTTONUP: (jbutton: TSDL_JoyButtonEvent); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
639 |
SDL_QUITEV: (quit: TSDL_QuitEvent); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
640 |
//SDL_SYSWMEVENT,SDL_EVENT_RESERVEDA,SDL_EVENT_RESERVEDB |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
641 |
//SDL_VIDEORESIZE: (resize: TSDL_ResizeEvent); |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
642 |
{$ENDIF} |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
643 |
end; |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
644 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
645 |
PByteArray = ^TByteArray; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
646 |
TByteArray = array[0..65535] of Byte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
647 |
PLongWordArray = ^TLongWordArray; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
648 |
TLongWordArray = array[0..16383] of LongWord; |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
649 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
650 |
PSDL_Thread = Pointer; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
651 |
PSDL_mutex = Pointer; |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
652 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
653 |
TSDL_GLattr = ( |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
654 |
SDL_GL_RED_SIZE, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
655 |
SDL_GL_GREEN_SIZE, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
656 |
SDL_GL_BLUE_SIZE, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
657 |
SDL_GL_ALPHA_SIZE, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
658 |
SDL_GL_BUFFER_SIZE, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
659 |
SDL_GL_DOUBLEBUFFER, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
660 |
SDL_GL_DEPTH_SIZE, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
661 |
SDL_GL_STENCIL_SIZE, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
662 |
SDL_GL_ACCUM_RED_SIZE, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
663 |
SDL_GL_ACCUM_GREEN_SIZE, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
664 |
SDL_GL_ACCUM_BLUE_SIZE, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
665 |
SDL_GL_ACCUM_ALPHA_SIZE, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
666 |
SDL_GL_STEREO, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
667 |
SDL_GL_MULTISAMPLEBUFFERS, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
668 |
SDL_GL_MULTISAMPLESAMPLES, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
669 |
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
|
670 |
{$IFDEF SDL13} |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
671 |
SDL_GL_RETAINED_BACKING, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
672 |
SDL_GL_CONTEXT_MAJOR_VERSION, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
673 |
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
|
674 |
{$ELSE} |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
675 |
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
|
676 |
{$ENDIF} |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
677 |
); |
2376 | 678 |
|
2252 | 679 |
{$IFDEF SDL13} |
3697 | 680 |
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
|
681 |
SDL_ARRAYORDER_NONE, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
682 |
SDL_ARRAYORDER_RGB, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
683 |
SDL_ARRAYORDER_RGBA, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
684 |
SDL_ARRAYORDER_ARGB, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
685 |
SDL_ARRAYORDER_BGR, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
686 |
SDL_ARRAYORDER_BGRA, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
687 |
SDL_ARRAYORDER_ABGR |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
688 |
); |
2252 | 689 |
{$ENDIF} |
4 | 690 |
|
2600 | 691 |
// Joystick/Controller support |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
692 |
PSDL_Joystick = ^TSDL_Joystick; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
693 |
TSDL_Joystick = record |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
694 |
end; |
2600 | 695 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
696 |
{* SDL_TTF *} |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
697 |
PTTF_Font = ^TTTF_font; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
698 |
TTTF_Font = record |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
699 |
end; |
2600 | 700 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
701 |
{* SDL_mixer *} |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
702 |
PMixChunk = ^TMixChunk; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
703 |
TMixChunk = record |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
704 |
allocated: Longword; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
705 |
abuf : PByte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
706 |
alen : Longword; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
707 |
volume : PByte; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
708 |
end; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
709 |
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
|
710 |
TMix_Fading = (MIX_NO_FADING, MIX_FADING_OUT, MIX_FADING_IN); |
2600 | 711 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
712 |
TMidiSong = record |
2600 | 713 |
samples : LongInt; |
714 |
events : pointer; |
|
715 |
end; |
|
716 |
||
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
717 |
TMusicUnion = record |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
718 |
case Byte of |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
719 |
0: ( midi : TMidiSong ); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
720 |
1: ( ogg : pointer); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
721 |
end; |
2600 | 722 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
723 |
PMixMusic = ^TMixMusic; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
724 |
TMixMusic = record |
2600 | 725 |
end; |
726 |
||
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
727 |
{* SDL_net *} |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
728 |
TIPAddress = record |
2600 | 729 |
host: Longword; |
730 |
port: Word; |
|
731 |
end; |
|
732 |
||
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
733 |
PTCPSocket = ^TTCPSocket; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
734 |
TTCPSocket = record |
2600 | 735 |
ready: LongInt; |
736 |
channel: LongInt; |
|
737 |
remoteAddress: TIPaddress; |
|
738 |
localAddress: TIPaddress; |
|
739 |
sflag: LongInt; |
|
740 |
end; |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
741 |
PSDLNet_SocketSet = ^TSDLNet_SocketSet; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
742 |
TSDLNet_SocketSet = record |
2600 | 743 |
numsockets, |
744 |
maxsockets: LongInt; |
|
745 |
sockets: PTCPSocket; |
|
746 |
end; |
|
747 |
||
748 |
||
749 |
///////////////////////////////////////////////////////////////// |
|
750 |
///////////////////// FUNCTION DEFINITIONS ///////////////////// |
|
751 |
///////////////////////////////////////////////////////////////// |
|
752 |
||
753 |
||
754 |
{* SDL *} |
|
432 | 755 |
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
|
756 |
function SDL_InitSubSystem(flags: LongWord): LongInt; cdecl; external SDLLibName; |
4 | 757 |
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
|
758 |
|
432 | 759 |
function SDL_VideoDriverName(var namebuf; maxlen: LongInt): PChar; cdecl; external SDLLibName; |
5103 | 760 |
function SDL_EnableUNICODE(enable: LongInt): LongInt; cdecl; external SDLLibName; |
761 |
function SDL_EnableKeyRepeat(delay_, interval: LongInt): LongInt; cdecl; external SDLLibName; |
|
4 | 762 |
|
763 |
procedure SDL_Delay(msec: Longword); cdecl; external SDLLibName; |
|
764 |
function SDL_GetTicks: Longword; cdecl; external SDLLibName; |
|
765 |
||
766 |
function SDL_MustLock(Surface: PSDL_Surface): Boolean; |
|
432 | 767 |
function SDL_LockSurface(Surface: PSDL_Surface): LongInt; cdecl; external SDLLibName; |
4 | 768 |
procedure SDL_UnlockSurface(Surface: PSDL_Surface); cdecl; external SDLLibName; |
769 |
||
770 |
function SDL_GetError: PChar; cdecl; external SDLLibName; |
|
771 |
||
432 | 772 |
function SDL_SetVideoMode(width, height, bpp: LongInt; flags: Longword): PSDL_Surface; cdecl; external SDLLibName; |
773 |
function SDL_CreateRGBSurface(flags: Longword; Width, Height, Depth: LongInt; RMask, GMask, BMask, AMask: Longword): PSDL_Surface; cdecl; external SDLLibName; |
|
774 |
function SDL_CreateRGBSurfaceFrom(pixels: Pointer; width, height, depth, pitch: LongInt; RMask, GMask, BMask, AMask: Longword): PSDL_Surface; cdecl; external SDLLibName; |
|
4 | 775 |
procedure SDL_FreeSurface(Surface: PSDL_Surface); cdecl; external SDLLibName; |
105 | 776 |
function SDL_SetColorKey(surface: PSDL_Surface; flag, key: Longword): LongInt; cdecl; external SDLLibName; |
2017 | 777 |
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
|
778 |
function SDL_ConvertSurface(src: PSDL_Surface; fmt: PSDL_PixelFormat; flags: LongInt): PSDL_Surface; cdecl; external SDLLibName; |
4 | 779 |
|
105 | 780 |
function SDL_UpperBlit(src: PSDL_Surface; srcrect: PSDL_Rect; dst: PSDL_Surface; dstrect: PSDL_Rect): LongInt; cdecl; external SDLLibName; |
781 |
function SDL_FillRect(dst: PSDL_Surface; dstrect: PSDL_Rect; color: Longword): LongInt; cdecl; external SDLLibName; |
|
782 |
procedure SDL_UpdateRect(Screen: PSDL_Surface; x, y: LongInt; w, h: Longword); cdecl; external SDLLibName; |
|
432 | 783 |
function SDL_Flip(Screen: PSDL_Surface): LongInt; cdecl; external SDLLibName; |
4 | 784 |
|
785 |
procedure SDL_GetRGB(pixel: Longword; fmt: PSDL_PixelFormat; r, g, b: PByte); cdecl; external SDLLibName; |
|
3341 | 786 |
procedure SDL_GetRGBA(pixel: Longword; fmt: PSDL_PixelFormat; r, g, b, a: PByte); cdecl; external SDLLibName; |
107 | 787 |
function SDL_MapRGB(format: PSDL_PixelFormat; r, g, b: Byte): Longword; cdecl; external SDLLibName; |
2575 | 788 |
function SDL_MapRGBA(format: PSDL_PixelFormat; r, g, b, a: Byte): Longword; cdecl; external SDLLibName; |
4 | 789 |
|
790 |
function SDL_DisplayFormat(Surface: PSDL_Surface): PSDL_Surface; cdecl; external SDLLibName; |
|
35 | 791 |
function SDL_DisplayFormatAlpha(Surface: PSDL_Surface): PSDL_Surface; cdecl; external SDLLibName; |
4 | 792 |
|
793 |
function SDL_RWFromFile(filename, mode: PChar): PSDL_RWops; cdecl; external SDLLibName; |
|
432 | 794 |
function SDL_SaveBMP_RW(surface: PSDL_Surface; dst: PSDL_RWops; freedst: LongInt): LongInt; cdecl; external SDLLibName; |
4 | 795 |
|
2152 | 796 |
{$IFDEF SDL13} |
3697 | 797 |
function SDL_CreateWindow(title: PChar; x,y,w,h, flags: LongInt): PSDL_Window; cdecl; external SDLLibName; |
4933 | 798 |
function SDL_CreateRenderer(window: PSDL_Window; index, flags: LongInt): PSDL_Renderer; cdecl; external SDLLibName; |
5486
e75f7c3c6275
ios: this should prevent at least one of the crashes zorg spotted; also added some callbacks in SDLh; also polished project file (from -O2 to -Os)
koda
parents:
5187
diff
changeset
|
799 |
function SDL_DestroyWindow(window: PSDL_Window): LongInt; cdecl; external SDLLibName; |
4933 | 800 |
function SDL_DestroyRenderer(renderer: PSDL_Renderer): LongInt; cdecl; external SDLLibName; |
5486
e75f7c3c6275
ios: this should prevent at least one of the crashes zorg spotted; also added some callbacks in SDLh; also polished project file (from -O2 to -Os)
koda
parents:
5187
diff
changeset
|
801 |
|
e75f7c3c6275
ios: this should prevent at least one of the crashes zorg spotted; also added some callbacks in SDLh; also polished project file (from -O2 to -Os)
koda
parents:
5187
diff
changeset
|
802 |
function SDL_GL_CreateContext(window: PSDL_Window): PSDL_GLContext; cdecl; external SDLLibName; |
e75f7c3c6275
ios: this should prevent at least one of the crashes zorg spotted; also added some callbacks in SDLh; also polished project file (from -O2 to -Os)
koda
parents:
5187
diff
changeset
|
803 |
procedure SDL_GL_DeleteContext(context: PSDL_GLContext); cdecl; external SDLLibName; |
e75f7c3c6275
ios: this should prevent at least one of the crashes zorg spotted; also added some callbacks in SDLh; also polished project file (from -O2 to -Os)
koda
parents:
5187
diff
changeset
|
804 |
function SDL_GL_SwapWindow(window: PSDL_Window): LongInt; cdecl; external SDLLibName; |
5505
a55aab592950
Ditch the renderer system in sdl1.3 and use the 'old fashioned' sdl/opengl context. This gives us more flexibility and less problem in receiving video events (expecially on mobile platform) as well as not having to care to reset the gl context every time sdl interferes.
koda
parents:
5486
diff
changeset
|
805 |
function SDL_GL_SetSwapInterval(interval: LongInt): LongInt; cdecl; external SDLLibName; |
5177 | 806 |
|
4933 | 807 |
procedure SDL_VideoQuit; cdecl; external SDLLibName; |
4911
5d10bd725efe
update libs and move the multiwindow handling from internal libsdl mods to proper apis usage
koda
parents:
4454
diff
changeset
|
808 |
function SDL_GetNumVideoDisplays: LongInt; cdecl; external SDLLibName; |
5486
e75f7c3c6275
ios: this should prevent at least one of the crashes zorg spotted; also added some callbacks in SDLh; also polished project file (from -O2 to -Os)
koda
parents:
5187
diff
changeset
|
809 |
procedure SDL_ShowWindow(window: PSDL_Window); cdecl; external SDLLibName; |
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2714
diff
changeset
|
810 |
|
4933 | 811 |
function SDL_SetRenderDrawColor(renderer: PSDL_Renderer; r,g,b,a: byte): LongInt; cdecl; external SDLLibName; |
5187 | 812 |
function SDL_GetRenderer(window: PSDL_Window): PSDL_Renderer; cdecl; external SDLLibName; |
4933 | 813 |
function SDL_RenderFillRect(renderer: PSDL_Renderer; rect: PSDL_Rect): LongInt; cdecl; external SDLLibName; |
814 |
function SDL_RenderClear(renderer: PSDL_Renderer): LongInt; cdecl; external SDLLibName; |
|
815 |
procedure SDL_RenderPresent(renderer: PSDL_Renderer); cdecl; external SDLLibName; |
|
816 |
function SDL_RenderReadPixels(renderer: PSDL_Renderer; rect: PSDL_Rect; format: LongInt; pixels: pointer; pitch: LongInt): LongInt; cdecl; external SDLLibName; |
|
5187 | 817 |
function SDL_RenderSetViewport(window: PSDL_Window; rect: PSDL_Rect): LongInt; cdecl; external SDLLibName; |
2697 | 818 |
|
2242 | 819 |
function SDL_SelectMouse(index: LongInt): LongInt; cdecl; external SDLLibName; |
2697 | 820 |
function SDL_GetRelativeMouseState(x, y: PLongInt): Byte; cdecl; external SDLLibName; |
2579 | 821 |
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
|
822 |
function SDL_PixelFormatEnumToMasks(format: TSDL_ArrayByteOrder; bpp: PLongInt; Rmask, Gmask, Bmask, Amask: PLongInt): boolean; cdecl; external SDLLibName; |
5004
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
823 |
|
5286 | 824 |
|
825 |
procedure SDL_WarpMouseInWindow(window: PSDL_Window; x, y: LongInt); cdecl; external SDLLibName ; |
|
826 |
||
827 |
function SDL_SetHint(name, value: PChar): boolean; cdecl; external SDLLibName; |
|
828 |
||
829 |
function SDL_PeepEvents(event: PSDL_Event; numevents: LongInt; action: SDL_eventaction; minType, maxType: LongInt): LongInt; cdecl; external SDLLibName; |
|
830 |
||
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
|
831 |
{$ENDIF} |
2714
c85ffe57d971
update iphone frontend to the new (silly) sdl api, code cleanups for other sections
koda
parents:
2701
diff
changeset
|
832 |
|
2242 | 833 |
function SDL_GetMouseState(x, y: PLongInt): Byte; cdecl; external SDLLibName; |
4 | 834 |
function SDL_GetKeyName(key: Longword): PChar; cdecl; external SDLLibName; |
835 |
||
2428 | 836 |
procedure SDL_PumpEvents; cdecl; external SDLLibName; |
432 | 837 |
function SDL_PollEvent(event: PSDL_Event): LongInt; cdecl; external SDLLibName; |
2590 | 838 |
function SDL_WaitEvent(event: PSDL_Event): LongInt; cdecl; external SDLLibName; |
4 | 839 |
|
432 | 840 |
function SDL_ShowCursor(toggle: LongInt): LongInt; cdecl; external SDLLibName; |
4 | 841 |
|
2800 | 842 |
procedure SDL_WM_SetIcon(icon: PSDL_Surface; mask : byte); cdecl; external SDLLibName; |
4 | 843 |
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
|
844 |
function SDL_WM_ToggleFullScreen(surface: PSDL_Surface): LongInt; cdecl; external SDLLibName; |
4 | 845 |
|
5504 | 846 |
function SDL_CreateThread(fn: pointer; data: pointer): PSDL_Thread; cdecl; external SDLLibName; |
847 |
procedure SDL_WaitThread(thread: PSDL_Thread; status: PLongInt); cdecl; external SDLLibName; |
|
433 | 848 |
function SDL_CreateMutex: PSDL_mutex; cdecl; external SDLLibName; |
849 |
procedure SDL_DestroyMutex(mutex: PSDL_mutex); cdecl; external SDLLibName; |
|
850 |
function SDL_LockMutex(mutex: PSDL_mutex): LongInt; cdecl; external SDLLibName name 'SDL_mutexP'; |
|
851 |
function SDL_UnlockMutex(mutex: PSDL_mutex): LongInt; cdecl; external SDLLibName name 'SDL_mutexV'; |
|
852 |
||
2252 | 853 |
function SDL_GL_SetAttribute(attr: TSDL_GLattr; value: LongInt): LongInt; cdecl; external SDLLibName; |
753 | 854 |
procedure SDL_GL_SwapBuffers(); cdecl; external SDLLibName; |
855 |
||
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
856 |
function SDL_NumJoysticks: LongInt; cdecl; external SDLLibName; |
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
857 |
function SDL_JoystickName(idx: LongInt): PChar; cdecl; external SDLLibName; |
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
858 |
function SDL_JoystickOpen(idx: LongInt): PSDL_Joystick; cdecl; external SDLLibName; |
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
859 |
function SDL_JoystickOpened(idx: LongInt): LongInt; cdecl; external SDLLibName; |
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
860 |
function SDL_JoystickIndex(joy: PSDL_Joystick): LongInt; cdecl; external SDLLibName; |
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
861 |
function SDL_JoystickNumAxes(joy: PSDL_Joystick): LongInt; cdecl; external SDLLibName; |
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
862 |
function SDL_JoystickNumBalls(joy: PSDL_Joystick): LongInt; cdecl; external SDLLibName; |
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
863 |
function SDL_JoystickNumHats(joy: PSDL_Joystick): LongInt; cdecl; external SDLLibName; |
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
864 |
function SDL_JoystickNumButtons(joy: PSDL_Joystick): LongInt; cdecl; external SDLLibName; |
2428 | 865 |
procedure SDL_JoystickUpdate; cdecl; external SDLLibName; |
2591
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
866 |
function SDL_JoystickEventState(state: LongInt): LongInt; cdecl; external SDLLibName; |
c6597b65caea
other controls implementation + sdlh revisited (once again)
koda
parents:
2590
diff
changeset
|
867 |
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
|
868 |
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
|
869 |
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
|
870 |
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
|
871 |
procedure SDL_JoystickClose(joy: PSDL_Joystick); cdecl; external SDLLibName; |
2428 | 872 |
|
5565 | 873 |
{$IFDEF WIN32} |
3153 | 874 |
function SDL_putenv(const text: PChar): LongInt; cdecl; external SDLLibName; |
875 |
function SDL_getenv(const text: PChar): PChar; cdecl; external SDLLibName; |
|
5565 | 876 |
{$ENDIF} |
3153 | 877 |
|
5052 | 878 |
{* Compatibility between SDL-1.2 and SDL-1.3 *} |
879 |
procedure SDL_WarpMouse(x, y: Word); {$IFNDEF SDL13}cdecl; external SDLLibName;{$ENDIF} |
|
880 |
function SDL_GetKeyState(numkeys: PLongInt): PByteArray; cdecl; external SDLLibName {$IFDEF SDL13} name 'SDL_GetKeyboardState'{$ENDIF}; |
|
881 |
function SDL_AllocFormat(format: Longword): PSDL_PixelFormat; {$IFDEF SDL13}cdecl; external SDLLibName;{$ENDIF} |
|
882 |
procedure SDL_FreeFormat(pixelformat: PSDL_PixelFormat); {$IFDEF SDL13}cdecl; external SDLLibName;{$ENDIF} |
|
883 |
||
3405 | 884 |
{* OpenGL *} |
885 |
{$IFDEF DARWIN} |
|
886 |
function CGLGetCurrentContext(): Pointer; cdecl; external 'OpenGL'; |
|
887 |
procedure CGLSetParameter(context: Pointer; option: LongInt; value: Pointer); cdecl; external 'OpenGL'; |
|
888 |
{$ENDIF} |
|
889 |
||
5052 | 890 |
(* SDL_ttf *) |
2600 | 891 |
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
|
892 |
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
|
893 |
|
4380 | 894 |
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
|
895 |
|
2664
949c189ba568
powerpc and gameserver compilation disabled temporarily
koda
parents:
2663
diff
changeset
|
896 |
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
|
897 |
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
|
898 |
function TTF_RenderUTF8_Shaded(font: PTTF_Font; const text: PChar; fg, bg: TSDL_Color): PSDL_Surface; cdecl; external SDL_TTFLibName; |
2600 | 899 |
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
|
900 |
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
|
901 |
|
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
902 |
(* 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
|
903 |
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
|
904 |
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
|
905 |
|
2515
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
906 |
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
|
907 |
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
|
908 |
|
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
909 |
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
|
910 |
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
|
911 |
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
|
912 |
|
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
913 |
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
|
914 |
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
|
915 |
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
|
916 |
|
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
917 |
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
|
918 |
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
|
919 |
|
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
920 |
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
|
921 |
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
|
922 |
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
|
923 |
|
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
924 |
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
|
925 |
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
|
926 |
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
|
927 |
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
|
928 |
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
|
929 |
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
|
930 |
|
4956
48e1f9a04c28
usound: added function for loops with fade in and out
koda
parents:
4933
diff
changeset
|
931 |
function Mix_FadeInChannelTimed(channel: LongInt; chunk: PMixChunk; loops: LongInt; fadems: LongInt; ticks: LongInt): LongInt; cdecl; external SDL_MixerLibName; |
48e1f9a04c28
usound: added function for loops with fade in and out
koda
parents:
4933
diff
changeset
|
932 |
function Mix_FadeOutChannel(channel: LongInt; fadems: LongInt): LongInt; cdecl; external SDL_MixerLibName; |
48e1f9a04c28
usound: added function for loops with fade in and out
koda
parents:
4933
diff
changeset
|
933 |
|
2515
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
934 |
(* SDL_image *) |
2669 | 935 |
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
|
936 |
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
|
937 |
|
2600 | 938 |
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
|
939 |
function IMG_Load_RW(rwop: PSDL_RWops; freesrc: LongInt): PSDL_Surface; cdecl; external SDL_ImageLibName; |
2600 | 940 |
function IMG_LoadPNG_RW(rwop: PSDL_RWops): PSDL_Surface; cdecl; external SDL_ImageLibName; |
5046
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
941 |
function IMG_LoadTyped_RW(rwop: PSDL_RWops; freesrc: LongInt; type_: PChar): PSDL_Surface; cdecl; external SDL_ImageLibName; |
2592 | 942 |
|
2515
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
943 |
(* SDL_net *) |
2600 | 944 |
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
|
945 |
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
|
946 |
|
2600 | 947 |
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
|
948 |
function SDLNet_ResolveHost(var address: TIPaddress; host: PChar; port: Word): LongInt; cdecl; external SDL_NetLibName; |
2600 | 949 |
function SDLNet_TCP_Accept(server: PTCPsocket): PTCPSocket; cdecl; external SDL_NetLibName; |
950 |
function SDLNet_TCP_Open(var ip: TIPaddress): PTCPSocket; cdecl; external SDL_NetLibName; |
|
951 |
function SDLNet_TCP_Send(sock: PTCPsocket; data: Pointer; len: LongInt): LongInt; cdecl; external SDL_NetLibName; |
|
952 |
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
|
953 |
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
|
954 |
procedure SDLNet_FreeSocketSet(_set: PSDLNet_SocketSet); cdecl; external SDL_NetLibName; |
2600 | 955 |
function SDLNet_AddSocket(_set: PSDLNet_SocketSet; sock: PTCPSocket): LongInt; cdecl; external SDL_NetLibName; |
956 |
function SDLNet_CheckSockets(_set: PSDLNet_SocketSet; timeout: LongInt): LongInt; cdecl; external SDL_NetLibName; |
|
2630 | 957 |
|
2515
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
958 |
|
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2477
diff
changeset
|
959 |
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
|
960 |
procedure SDLNet_Write32(value: LongWord; buf: pointer); |
2600 | 961 |
function SDLNet_Read16(buf: pointer): Word; |
962 |
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
|
963 |
|
4 | 964 |
implementation |
5046
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
965 |
uses uVariables; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
966 |
|
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
967 |
{$IFDEF SDL13} |
5052 | 968 |
// this needs to be reimplemented because in SDL_compat.c the window is the one created in the SDL_SetVideoMode |
969 |
// compatible function, but we use SDL_CreateWindow, so the window would be NULL |
|
5046
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
970 |
procedure SDL_WarpMouse(x, y: Word); |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
971 |
begin |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
972 |
SDL_WarpMouseInWindow(SDLwindow, x, y); |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
973 |
end; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
974 |
{$ELSE} |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
975 |
function SDL_AllocFormat(format: Longword): PSDL_PixelFormat; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
976 |
const conversionFormat: TSDL_PixelFormat = ( |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
977 |
palette: nil; BitsPerPixel: 32; BytesPerPixel: 4; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
978 |
Rloss: 0; Gloss: 0; Bloss: 0; Aloss: 0; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
979 |
Rshift: RShift; Gshift: GShift; Bshift: BShift; Ashift: AShift; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
980 |
RMask: RMask; GMask: GMask; BMask: BMask; AMask: AMask; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
981 |
colorkey: 0; alpha: 255); |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
982 |
begin |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
983 |
format:= format; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
984 |
exit(@conversionFormat); |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
985 |
end; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
986 |
|
5052 | 987 |
procedure SDL_FreeFormat(pixelformat: PSDL_PixelFormat); |
5046
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
988 |
begin |
5052 | 989 |
pixelformat:= pixelformat; |
5046
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
990 |
end; |
fc6639d56799
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
koda
parents:
5041
diff
changeset
|
991 |
{$ENDIF} |
4 | 992 |
|
993 |
function SDL_MustLock(Surface: PSDL_Surface): Boolean; |
|
994 |
begin |
|
5004
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
995 |
{$IFDEF SDL13} |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
996 |
SDL_MustLock:= ((surface^.flags and SDL_RLEACCEL) <> 0) |
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
997 |
{$ELSE} |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
998 |
SDL_MustLock:= ( surface^.offset <> 0 ) or (( surface^.flags and (SDL_HWSURFACE or SDL_ASYNCBLIT or SDL_RLEACCEL)) <> 0) |
5004
2efa6a414518
update some sdl-1.3 bindings (working up to rev 5296)
koda
parents:
4976
diff
changeset
|
999 |
{$ENDIF} |
4 | 1000 |
end; |
1001 |
||
459
95163c6efa69
Do not use SDL_Net's to/from network byte order conversion functions
unc0rr
parents:
433
diff
changeset
|
1002 |
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
|
1003 |
begin |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
1004 |
PByteArray(buf)^[1]:= value; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
1005 |
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
|
1006 |
end; |
95163c6efa69
Do not use SDL_Net's to/from network byte order conversion functions
unc0rr
parents:
433
diff
changeset
|
1007 |
|
95163c6efa69
Do not use SDL_Net's to/from network byte order conversion functions
unc0rr
parents:
433
diff
changeset
|
1008 |
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
|
1009 |
begin |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
1010 |
PByteArray(buf)^[3]:= value; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
1011 |
PByteArray(buf)^[2]:= value shr 8; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
1012 |
PByteArray(buf)^[1]:= value shr 16; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
1013 |
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
|
1014 |
end; |
95163c6efa69
Do not use SDL_Net's to/from network byte order conversion functions
unc0rr
parents:
433
diff
changeset
|
1015 |
|
95163c6efa69
Do not use SDL_Net's to/from network byte order conversion functions
unc0rr
parents:
433
diff
changeset
|
1016 |
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
|
1017 |
begin |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
1018 |
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
|
1019 |
(PByteArray(buf)^[0] shl 8) |
95163c6efa69
Do not use SDL_Net's to/from network byte order conversion functions
unc0rr
parents:
433
diff
changeset
|
1020 |
end; |
95163c6efa69
Do not use SDL_Net's to/from network byte order conversion functions
unc0rr
parents:
433
diff
changeset
|
1021 |
|
95163c6efa69
Do not use SDL_Net's to/from network byte order conversion functions
unc0rr
parents:
433
diff
changeset
|
1022 |
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
|
1023 |
begin |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2800
diff
changeset
|
1024 |
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
|
1025 |
(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
|
1026 |
(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
|
1027 |
(PByteArray(buf)^[0] shl 24) |
95163c6efa69
Do not use SDL_Net's to/from network byte order conversion functions
unc0rr
parents:
433
diff
changeset
|
1028 |
end; |
4 | 1029 |
end. |