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