equal
deleted
inserted
replaced
374 r.y:= Y; |
374 r.y:= Y; |
375 clr.r:= $FF; |
375 clr.r:= $FF; |
376 clr.g:= $FF; |
376 clr.g:= $FF; |
377 clr.b:= $FF; |
377 clr.b:= $FF; |
378 tmpsurf:= TTF_RenderUTF8_Solid(Fontz[Font].Handle, PChar(s), clr.value); |
378 tmpsurf:= TTF_RenderUTF8_Solid(Fontz[Font].Handle, PChar(s), clr.value); |
379 SDLTry(tmpsurf <> nil, true); |
379 if tmpsurf = nil then |
|
380 begin |
|
381 SetKB(1); |
|
382 exit |
|
383 end; |
380 SDL_UpperBlit(tmpsurf, nil, Surface, @r); |
384 SDL_UpperBlit(tmpsurf, nil, Surface, @r); |
381 SDL_FreeSurface(tmpsurf) |
385 SDL_FreeSurface(tmpsurf) |
382 end; |
386 end; |
383 |
387 |
384 procedure DrawLand(X, Y: integer; Surface: PSDL_Surface); |
388 procedure DrawLand(X, Y: integer; Surface: PSDL_Surface); |