130 r.w:= cTeamHealthWidth + 5; |
130 r.w:= cTeamHealthWidth + 5; |
131 r.h:= NameTag^.h; |
131 r.h:= NameTag^.h; |
132 |
132 |
133 HealthSurf:= SDL_CreateRGBSurface(SDL_HWSURFACE, r.w, r.h, cBits, PixelFormat^.RMask, PixelFormat^.GMask, PixelFormat^.BMask, PixelFormat^.AMask); |
133 HealthSurf:= SDL_CreateRGBSurface(SDL_HWSURFACE, r.w, r.h, cBits, PixelFormat^.RMask, PixelFormat^.GMask, PixelFormat^.BMask, PixelFormat^.AMask); |
134 TryDo(HealthSurf <> nil, errmsgCreateSurface, true); |
134 TryDo(HealthSurf <> nil, errmsgCreateSurface, true); |
|
135 TryDo(SDL_SetColorKey(HealthSurf, SDL_SRCCOLORKEY or SDL_RLEACCEL, 0) = 0, errmsgTransparentSet, true); |
135 |
136 |
136 DrawRoundRect(@r, cWhiteColor, cColorNearBlack, HealthSurf, true); |
137 DrawRoundRect(@r, cWhiteColor, cColorNearBlack, HealthSurf, true); |
137 rr:= r; |
138 rr:= r; |
138 inc(rr.x, 2); dec(rr.w, 4); inc(rr.y, 2); dec(rr.h, 4); |
139 inc(rr.x, 2); dec(rr.w, 4); inc(rr.y, 2); dec(rr.h, 4); |
139 DrawRoundRect(@rr, Clan^.AdjColor, Clan^.AdjColor, HealthSurf, false); |
140 DrawRoundRect(@rr, Clan^.AdjColor, Clan^.AdjColor, HealthSurf, false); |