168 tmpsurf:= LoadImage(PChar(s), true, true, false); |
168 tmpsurf:= LoadImage(PChar(s), true, true, false); |
169 |
169 |
170 Team:= TeamsList; |
170 Team:= TeamsList; |
171 while Team<>nil do |
171 while Team<>nil do |
172 begin |
172 begin |
173 Team.CrosshairSurf:= SDL_CreateRGBSurface(SDL_HWSURFACE, 24, 360, cBits, PixelFormat.RMask, PixelFormat.GMask, PixelFormat.BMask, PixelFormat.AMask); |
173 Team.CrosshairSurf:= SDL_CreateRGBSurface(SDL_HWSURFACE, tmpsurf.w, tmpsurf.h, cBits, PixelFormat.RMask, PixelFormat.GMask, PixelFormat.BMask, PixelFormat.AMask); |
174 TryDo(Team.CrosshairSurf <> nil, errmsgCreateSurface, true); |
174 TryDo(Team.CrosshairSurf <> nil, errmsgCreateSurface, true); |
175 SDL_FillRect(Team.CrosshairSurf, nil, Team.AdjColor); |
175 SDL_FillRect(Team.CrosshairSurf, nil, Team.AdjColor); |
176 SDL_UpperBlit(tmpsurf, nil, Team.CrosshairSurf, nil); |
176 SDL_UpperBlit(tmpsurf, nil, Team.CrosshairSurf, nil); |
177 TryDo(SDL_SetColorKey(Team.CrosshairSurf, SDL_SRCCOLORKEY or SDL_RLEACCEL, 0) = 0, errmsgTransparentSet, true); |
177 TryDo(SDL_SetColorKey(Team.CrosshairSurf, SDL_SRCCOLORKEY or SDL_RLEACCEL, 0) = 0, errmsgTransparentSet, true); |
178 Team:= Team.Next |
178 Team:= Team.Next |