equal
deleted
inserted
replaced
138 s:= p^.TeamName + ':' + IntToStr(p^.TeamHealth) + ':'; |
138 s:= p^.TeamName + ':' + IntToStr(p^.TeamHealth) + ':'; |
139 GetTeamStatString:= s; |
139 GetTeamStatString:= s; |
140 end; |
140 end; |
141 |
141 |
142 procedure initModule; |
142 procedure initModule; |
|
143 const SDL_PIXELFORMAT_ABGR8888 = ((1 shl 31) or (6 shl 24) or (7 shl 20) or (6 shl 16) or (32 shl 8) or 4); |
143 begin |
144 begin |
144 // SDL_PIXELFORMAT_RGB8888 |
145 conversionFormat:= SDL_AllocFormat(SDL_PIXELFORMAT_ABGR8888); |
145 conversionFormat:= SDL_AllocFormat($86462004); |
|
146 end; |
146 end; |
147 |
147 |
148 procedure freeModule; |
148 procedure freeModule; |
149 begin |
149 begin |
150 recordFileName:= ''; |
150 recordFileName:= ''; |
151 {$IFDEF SDL13} |
|
152 SDL_FreeFormat(conversionFormat); |
151 SDL_FreeFormat(conversionFormat); |
153 {$ENDIF} |
|
154 end; |
152 end; |
155 |
153 |
156 end. |
154 end. |