equal
deleted
inserted
replaced
109 SDL_INIT_NOPARACHUTE = $00100000; |
109 SDL_INIT_NOPARACHUTE = $00100000; |
110 SDL_INIT_EVERYTHING = $0000FFFF; |
110 SDL_INIT_EVERYTHING = $0000FFFF; |
111 |
111 |
112 SDL_ALLEVENTS = $FFFFFFFF; |
112 SDL_ALLEVENTS = $FFFFFFFF; |
113 SDL_APPINPUTFOCUS = $02; |
113 SDL_APPINPUTFOCUS = $02; |
|
114 |
|
115 SDL_BUTTON_LEFT = 1; |
|
116 SDL_BUTTON_MIDDLE = 2; |
|
117 SDL_BUTTON_RIGHT = 3; |
114 SDL_BUTTON_WHEELUP = 4; |
118 SDL_BUTTON_WHEELUP = 4; |
115 SDL_BUTTON_WHEELDOWN = 5; |
119 SDL_BUTTON_WHEELDOWN = 5; |
116 |
120 |
117 {$IFDEF SDL13} |
121 {$IFDEF SDL13} |
118 // SDL_Event types |
122 // SDL_Event types |
703 {* SDL_Event type definition *} |
707 {* SDL_Event type definition *} |
704 |
708 |
705 {$IFDEF SDL13} |
709 {$IFDEF SDL13} |
706 TSDL_KeySym = record |
710 TSDL_KeySym = record |
707 scancode: LongInt; |
711 scancode: LongInt; |
708 sym: LongInt; |
712 sym: LongWord; |
709 modifier: Word; |
713 modifier: Word; |
710 unicode: LongWord; |
714 unicode: LongWord; |
711 end; |
715 end; |
712 |
716 |
713 TSDL_WindowEvent = record |
717 TSDL_WindowEvent = record |
807 {$ENDIF} |
811 {$ENDIF} |
808 |
812 |
809 TSDL_KeyboardEvent = record |
813 TSDL_KeyboardEvent = record |
810 {$IFDEF SDL13} |
814 {$IFDEF SDL13} |
811 type_: LongWord; |
815 type_: LongWord; |
812 timestamp: LongWord; |
816 // timestamp: LongWord; |
813 windowID: LongWord; |
817 windowID: LongWord; |
814 state, repeat_, padding2, padding3: Byte; |
818 state, repeat_ {*,padding2, padding3*}: Byte; |
815 {$ELSE} |
819 {$ELSE} |
816 type_, which, state: Byte; |
820 type_, which, state: Byte; |
817 {$ENDIF} |
821 {$ENDIF} |
818 keysym: TSDL_KeySym; |
822 keysym: TSDL_KeySym; |
819 end; |
823 end; |
834 TSDL_MouseButtonEvent = record |
838 TSDL_MouseButtonEvent = record |
835 {$IFDEF SDL13} |
839 {$IFDEF SDL13} |
836 type_: LongWord; |
840 type_: LongWord; |
837 timestamp: LongWord; |
841 timestamp: LongWord; |
838 windowID: LongWord; |
842 windowID: LongWord; |
839 buttonm, state, padding1, padding2: Byte; |
843 button, state, padding1, padding2: Byte; |
840 x, y: LongInt; |
844 x, y: LongInt; |
841 {$ELSE} |
845 {$ELSE} |
842 type_, which, button, state: Byte; |
846 type_, which, button, state: Byte; |
843 x, y: Word; |
847 x, y: Word; |
844 {$ENDIF} |
848 {$ENDIF} |
1181 {$ENDIF} |
1185 {$ENDIF} |
1182 |
1186 |
1183 function SDL_GetMouseState(x, y: PLongInt): Byte; cdecl; external SDLLibName; |
1187 function SDL_GetMouseState(x, y: PLongInt): Byte; cdecl; external SDLLibName; |
1184 function SDL_GetKeyName(key: LongWord): PChar; cdecl; external SDLLibName; |
1188 function SDL_GetKeyName(key: LongWord): PChar; cdecl; external SDLLibName; |
1185 function SDL_GetScancodeName(key: LongWord): PChar; cdecl; external SDLLibName; |
1189 function SDL_GetScancodeName(key: LongWord): PChar; cdecl; external SDLLibName; |
|
1190 function SDL_GetKeyFromScancode(key: LongWord): LongInt; cdecl; external SDLLibName; |
|
1191 |
1186 |
1192 |
1187 procedure SDL_PumpEvents; cdecl; external SDLLibName; |
1193 procedure SDL_PumpEvents; cdecl; external SDLLibName; |
1188 function SDL_PollEvent(event: PSDL_Event): LongInt; cdecl; external SDLLibName; |
1194 function SDL_PollEvent(event: PSDL_Event): LongInt; cdecl; external SDLLibName; |
1189 function SDL_WaitEvent(event: PSDL_Event): LongInt; cdecl; external SDLLibName; |
1195 function SDL_WaitEvent(event: PSDL_Event): LongInt; cdecl; external SDLLibName; |
1190 procedure SDL_SetEventFilter(filter: TSDL_EventFilter); cdecl; external SDLLibName; |
1196 procedure SDL_SetEventFilter(filter: TSDL_EventFilter); cdecl; external SDLLibName; |