742 |
742 |
743 texsurf:= SDL_CreateRGBSurface(SDL_SWSURFACE, r.w, r.h, 32, RMask, GMask, BMask, AMask); |
743 texsurf:= SDL_CreateRGBSurface(SDL_SWSURFACE, r.w, r.h, 32, RMask, GMask, BMask, AMask); |
744 TryDo(texsurf <> nil, errmsgCreateSurface, true); |
744 TryDo(texsurf <> nil, errmsgCreateSurface, true); |
745 TryDo(SDL_SetColorKey(texsurf, SDL_SRCCOLORKEY, 0) = 0, errmsgTransparentSet, true); |
745 TryDo(SDL_SetColorKey(texsurf, SDL_SRCCOLORKEY, 0) = 0, errmsgTransparentSet, true); |
746 |
746 |
747 DrawRoundRect(@r, cWhiteColor, cNearBlackColorChannels.value, texsurf, true); |
747 DrawRoundRect(@r, cWhiteColor, cNearBlackColor, texsurf, true); |
748 rr:= r; |
748 rr:= r; |
749 inc(rr.x, 2); dec(rr.w, 4); inc(rr.y, 2); dec(rr.h, 4); |
749 inc(rr.x, 2); dec(rr.w, 4); inc(rr.y, 2); dec(rr.h, 4); |
750 DrawRoundRect(@rr, clan^.Color, clan^.Color, texsurf, false); |
750 DrawRoundRect(@rr, clan^.Color, clan^.Color, texsurf, false); |
751 |
751 |
752 FreeTexture(team^.HealthTex); |
752 FreeTexture(team^.HealthTex); |