150 |
150 |
151 texsurf:= SDL_CreateRGBSurface(SDL_SWSURFACE, r.w, r.h, 32, RMask, GMask, BMask, AMask); |
151 texsurf:= SDL_CreateRGBSurface(SDL_SWSURFACE, r.w, r.h, 32, RMask, GMask, BMask, AMask); |
152 TryDo(texsurf <> nil, errmsgCreateSurface, true); |
152 TryDo(texsurf <> nil, errmsgCreateSurface, true); |
153 TryDo(SDL_SetColorKey(texsurf, SDL_SRCCOLORKEY, 0) = 0, errmsgTransparentSet, true); |
153 TryDo(SDL_SetColorKey(texsurf, SDL_SRCCOLORKEY, 0) = 0, errmsgTransparentSet, true); |
154 |
154 |
155 DrawRoundRect(@r, cWhiteColor, cNearBlackColorChannels.value, texsurf, true); |
155 DrawRoundRect(@r, cWhiteColor, cNearBlackColor, texsurf, true); |
156 rr:= r; |
156 rr:= r; |
157 inc(rr.x, 2); dec(rr.w, 4); inc(rr.y, 2); dec(rr.h, 4); |
157 inc(rr.x, 2); dec(rr.w, 4); inc(rr.y, 2); dec(rr.h, 4); |
158 DrawRoundRect(@rr, Clan^.Color, Clan^.Color, texsurf, false); |
158 DrawRoundRect(@rr, Clan^.Color, Clan^.Color, texsurf, false); |
159 HealthTex:= Surface2Tex(texsurf, false); |
159 HealthTex:= Surface2Tex(texsurf, false); |
160 SDL_FreeSurface(texsurf); |
160 SDL_FreeSurface(texsurf); |