equal
deleted
inserted
replaced
114 clr.r:= Color shr 16; |
114 clr.r:= Color shr 16; |
115 clr.g:= (Color shr 8) and $FF; |
115 clr.g:= (Color shr 8) and $FF; |
116 clr.b:= Color and $FF; |
116 clr.b:= Color and $FF; |
117 clr.a:= $FF; |
117 clr.a:= $FF; |
118 tmpsurf:= TTF_RenderUTF8_Blended(Fontz[Font].Handle, s, clr); |
118 tmpsurf:= TTF_RenderUTF8_Blended(Fontz[Font].Handle, s, clr); |
119 if tmpsurf = nil then exit; |
119 if tmpsurf = nil then exit(finalRect); |
120 tmpsurf:= doSurfaceConversion(tmpsurf); |
120 tmpsurf:= doSurfaceConversion(tmpsurf); |
121 |
121 |
122 if tmpsurf <> nil then |
122 if tmpsurf <> nil then |
123 begin |
123 begin |
124 SDL_UpperBlit(tmpsurf, nil, Surface, @finalRect); |
124 SDL_UpperBlit(tmpsurf, nil, Surface, @finalRect); |