--- a/hedgewars/SDLh.pas	Mon Aug 19 09:11:49 2019 -0400
+++ b/hedgewars/SDLh.pas	Mon Aug 19 18:06:46 2019 +0300
@@ -218,6 +218,7 @@
     GShift = 8;
     BShift = 16;
     AShift = 24;
+    AByteIndex = 0;
 {$ELSE}
     RMask = $FF000000;
     GMask = $00FF0000;
@@ -227,6 +228,7 @@
     GShift = 16;
     BShift = 8;
     AShift = 0;
+    AByteIndex = 3;
 {$ENDIF}
 
     KMOD_NONE   = $0000;