hedgewars/SDLh.pas
changeset 308 806c3b55500d
parent 206 32fa6282efe2
child 316 57d50189ad86
equal deleted inserted replaced
307:96b428ac11f2 308:806c3b55500d
    53       SDL_HWACCEL     = $00000100;
    53       SDL_HWACCEL     = $00000100;
    54       SDL_SRCCOLORKEY = $00001000;
    54       SDL_SRCCOLORKEY = $00001000;
    55       SDL_RLEACCEL    = $00004000;
    55       SDL_RLEACCEL    = $00004000;
    56       
    56       
    57       SDL_NOEVENT     = 0;
    57       SDL_NOEVENT     = 0;
       
    58       SDL_ACTIVEEVENT = 1;
    58       SDL_KEYDOWN     = 2;
    59       SDL_KEYDOWN     = 2;
    59       SDL_KEYUP       = 3;
    60       SDL_KEYUP       = 3;
    60       SDL_QUITEV      = 12;
    61       SDL_QUITEV      = 12;
       
    62 
       
    63       SDL_APPINPUTFOCUS = 2;
    61 
    64 
    62       SDL_INIT_VIDEO  = $00000020;
    65       SDL_INIT_VIDEO  = $00000020;
    63       SDL_INIT_AUDIO  = $00000010;
    66       SDL_INIT_AUDIO  = $00000010;
    64       
    67       
    65 type PSDL_Rect = ^TSDL_Rect;
    68 type PSDL_Rect = ^TSDL_Rect;
   156                    sym: Longword;
   159                    sym: Longword;
   157                    modifier: Longword;
   160                    modifier: Longword;
   158                    unicode: Word;
   161                    unicode: Word;
   159                    end;
   162                    end;
   160 
   163 
       
   164      TSDL_ActiveEvent = record
       
   165 	                type_: byte;
       
   166                         gain: byte;
       
   167                         state: byte;
       
   168                         end;
       
   169 
   161      TSDL_KeyboardEvent = record
   170      TSDL_KeyboardEvent = record
   162                           type_: Byte;
   171                           type_: Byte;
   163                           which: Byte;
   172                           which: Byte;
   164                           state: Byte;
   173                           state: Byte;
   165                           keysym: TSDL_KeySym;
   174                           keysym: TSDL_KeySym;
   170                       end;
   179                       end;
   171      PSDL_Event = ^TSDL_Event;
   180      PSDL_Event = ^TSDL_Event;
   172      TSDL_Event = record
   181      TSDL_Event = record
   173                   case Byte of
   182                   case Byte of
   174                        SDL_NOEVENT: (type_: byte);
   183                        SDL_NOEVENT: (type_: byte);
       
   184                        SDL_ACTIVEEVENT: (active: TSDL_ActiveEvent);
   175                        SDL_KEYDOWN, SDL_KEYUP: (key: TSDL_KeyboardEvent);
   185                        SDL_KEYDOWN, SDL_KEYUP: (key: TSDL_KeyboardEvent);
   176                        SDL_QUITEV: (quit: TSDL_QuitEvent);
   186                        SDL_QUITEV: (quit: TSDL_QuitEvent);
   177                        end;
   187                        end;
   178 
   188 
   179      PByteArray = ^TByteArray;
   189      PByteArray = ^TByteArray;