122 dstrect.y:= Padding + 1; |
122 dstrect.y:= Padding + 1; |
123 // doesn't matter if .w and .h still include padding, SDL_UpperBlit will clip |
123 // doesn't matter if .w and .h still include padding, SDL_UpperBlit will clip |
124 |
124 |
125 |
125 |
126 // create and blit text shadow |
126 // create and blit text shadow |
127 strSurface:= TTF_RenderUTF8_Solid(Fontz[font].Handle, Str2PChar(str), shadowcolor); |
127 strSurface:= TTF_RenderUTF8_Blended(Fontz[font].Handle, Str2PChar(str), shadowcolor); |
128 SDL_UpperBlit(strSurface, nil, resSurface, @dstrect); |
128 SDL_UpperBlit(strSurface, nil, resSurface, @dstrect); |
129 SDL_FreeSurface(strSurface); |
129 SDL_FreeSurface(strSurface); |
130 |
130 |
131 // non-shadow text starts at padding |
131 // non-shadow text starts at padding |
132 dstrect.x:= Padding; |
132 dstrect.x:= Padding; |
133 dstrect.y:= Padding; |
133 dstrect.y:= Padding; |
134 |
134 |
135 // create and blit text |
135 // create and blit text |
136 strSurface:= TTF_RenderUTF8_Solid(Fontz[font].Handle, Str2PChar(str), cl.color); |
136 strSurface:= TTF_RenderUTF8_Blended(Fontz[font].Handle, Str2PChar(str), cl.color); |
137 SDL_UpperBlit(strSurface, nil, resSurface, @dstrect); |
137 SDL_UpperBlit(strSurface, nil, resSurface, @dstrect); |
138 SDL_FreeSurface(strSurface); |
138 SDL_FreeSurface(strSurface); |
139 |
139 |
140 cl.Tex:= Surface2Tex(resSurface, false); |
140 cl.Tex:= Surface2Tex(resSurface, false); |
141 |
141 |