equal
deleted
inserted
replaced
247 {$I+} |
247 {$I+} |
248 TryDo(IOResult = 0, msgFailed, true); |
248 TryDo(IOResult = 0, msgFailed, true); |
249 WriteLnToConsole(msgOK); |
249 WriteLnToConsole(msgOK); |
250 val(s, cExplosionBorderColor, c); |
250 val(s, cExplosionBorderColor, c); |
251 TryDo(c = 0, 'Theme data corrupted', true); |
251 TryDo(c = 0, 'Theme data corrupted', true); |
252 cExplosionBorderColor:= SDL_MapRGB(LandSurface^.format, |
252 cExplosionBorderColor:= (cExplosionBorderColor shr 16) or |
253 cExplosionBorderColor shr 16, |
253 (cExplosionBorderColor and $FF) or |
254 cExplosionBorderColor shr 8, |
254 (cExplosionBorderColor shl 16) or |
255 cExplosionBorderColor and $FF); |
255 $FF000000 |
256 end; |
256 end; |
257 |
257 |
258 begin |
258 begin |
259 for fi:= Low(THWFont) to High(THWFont) do |
259 for fi:= Low(THWFont) to High(THWFont) do |
260 with Fontz[fi] do |
260 with Fontz[fi] do |