equal
deleted
inserted
replaced
106 Result.h:= h + 2; |
106 Result.h:= h + 2; |
107 DrawRoundRect(@Result, cWhiteColor, cColorNearBlack, Surface); |
107 DrawRoundRect(@Result, cWhiteColor, cColorNearBlack, Surface); |
108 clr.r:= Color shr 16; |
108 clr.r:= Color shr 16; |
109 clr.g:= (Color shr 8) and $FF; |
109 clr.g:= (Color shr 8) and $FF; |
110 clr.b:= Color and $FF; |
110 clr.b:= Color and $FF; |
|
111 clr.a:= $FF; |
111 tmpsurf:= TTF_RenderUTF8_Blended(Fontz[Font].Handle, PChar(s), clr); |
112 tmpsurf:= TTF_RenderUTF8_Blended(Fontz[Font].Handle, PChar(s), clr); |
112 Result.x:= X + 3; |
113 Result.x:= X + 3; |
113 Result.y:= Y + 1; |
114 Result.y:= Y + 1; |
114 SDLTry(tmpsurf <> nil, true); |
115 SDLTry(tmpsurf <> nil, true); |
115 SDL_UpperBlit(tmpsurf, nil, Surface, @Result); |
116 SDL_UpperBlit(tmpsurf, nil, Surface, @Result); |
372 r.x:= X; |
373 r.x:= X; |
373 r.y:= Y; |
374 r.y:= Y; |
374 clr.r:= $FF; |
375 clr.r:= $FF; |
375 clr.g:= $FF; |
376 clr.g:= $FF; |
376 clr.b:= $FF; |
377 clr.b:= $FF; |
|
378 clr.a:= $FF; |
377 tmpsurf:= TTF_RenderUTF8_Solid(Fontz[Font].Handle, PChar(s), clr); |
379 tmpsurf:= TTF_RenderUTF8_Solid(Fontz[Font].Handle, PChar(s), clr); |
378 SDLTry(tmpsurf <> nil, true); |
380 SDLTry(tmpsurf <> nil, true); |
379 SDL_UpperBlit(tmpsurf, nil, Surface, @r); |
381 SDL_UpperBlit(tmpsurf, nil, Surface, @r); |
380 SDL_FreeSurface(tmpsurf) |
382 SDL_FreeSurface(tmpsurf) |
381 end; |
383 end; |