hedgewars/SDLh.pas
changeset 15340 4e91a7050add
parent 15318 360c24fe6071
child 15341 53ca3783eca3
equal deleted inserted replaced
15339:cf4a9632e649 15340:4e91a7050add
   216     AMask = $FF000000;
   216     AMask = $FF000000;
   217     RShift = 0;
   217     RShift = 0;
   218     GShift = 8;
   218     GShift = 8;
   219     BShift = 16;
   219     BShift = 16;
   220     AShift = 24;
   220     AShift = 24;
       
   221     AByteIndex = 0;
   221 {$ELSE}
   222 {$ELSE}
   222     RMask = $FF000000;
   223     RMask = $FF000000;
   223     GMask = $00FF0000;
   224     GMask = $00FF0000;
   224     BMask = $0000FF00;
   225     BMask = $0000FF00;
   225     AMask = $000000FF;
   226     AMask = $000000FF;
   226     RShift = 24;
   227     RShift = 24;
   227     GShift = 16;
   228     GShift = 16;
   228     BShift = 8;
   229     BShift = 8;
   229     AShift = 0;
   230     AShift = 0;
       
   231     AByteIndex = 3;
   230 {$ENDIF}
   232 {$ENDIF}
   231 
   233 
   232     KMOD_NONE   = $0000;
   234     KMOD_NONE   = $0000;
   233     KMOD_LSHIFT = $0001;
   235     KMOD_LSHIFT = $0001;
   234     KMOD_RSHIFT = $0002;
   236     KMOD_RSHIFT = $0002;