equal
deleted
inserted
replaced
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; |