hedgewars/uMisc.pas
branchwebgl
changeset 9958 5a222923c8f8
parent 9521 8054d9d775fd
child 10015 4feced261c68
equal deleted inserted replaced
9956:0c6286c67b8d 9958:5a222923c8f8
   299 begin
   299 begin
   300     s:= p^.TeamName + ':' + IntToStr(p^.TeamHealth) + ':';
   300     s:= p^.TeamName + ':' + IntToStr(p^.TeamHealth) + ':';
   301     GetTeamStatString:= s;
   301     GetTeamStatString:= s;
   302 end;
   302 end;
   303 
   303 
   304 procedure initModule;
       
   305 {$IFDEF SDL2}
   304 {$IFDEF SDL2}
   306 const SDL_PIXELFORMAT_ABGR8888 = (1 shl 28) or (6 shl 24) or (7 shl 20) or (6 shl 16) or (32 shl 8) or 4;
   305 const SDL_PIXELFORMAT_ABGR8888 = (1 shl 28) or (6 shl 24) or (7 shl 20) or (6 shl 16) or (32 shl 8) or 4;
   307 {$ELSE}
   306 {$ELSE}
   308 const format: TSDL_PixelFormat = (
   307 const format: TSDL_PixelFormat = (
   309         palette: nil; BitsPerPixel: 32; BytesPerPixel: 4;
   308         palette: nil; BitsPerPixel: 32; BytesPerPixel: 4;
   310         Rloss: 0; Gloss: 0; Bloss: 0; Aloss: 0;
   309         Rloss: 0; Gloss: 0; Bloss: 0; Aloss: 0;
   311         Rshift: RShift; Gshift: GShift; Bshift: BShift; Ashift: AShift;
   310         Rshift: RShift; Gshift: GShift; Bshift: BShift; Ashift: AShift;
   312         RMask: RMask; GMask: GMask; BMask: BMask; AMask: AMask;
   311         RMask: RMask; GMask: GMask; BMask: BMask; AMask: AMask;
   313         colorkey: 0; alpha: 255);
   312         colorkey: 0; alpha: 255);
   314 {$ENDIF}
   313 {$ENDIF}
       
   314 
       
   315 procedure initModule;
   315 begin
   316 begin
   316 {$IFDEF SDL2}
   317 {$IFDEF SDL2}
   317     conversionFormat:= SDL_AllocFormat(SDL_PIXELFORMAT_ABGR8888);
   318     conversionFormat:= SDL_AllocFormat(SDL_PIXELFORMAT_ABGR8888);
   318 {$ELSE}
   319 {$ELSE}
   319     conversionFormat:= @format;
   320     conversionFormat:= @format;