hedgewars/uRenderUtils.pas
changeset 14655 b055360684bd
parent 13490 8935dcc0e130
child 14757 8563cc40fc1e
--- a/hedgewars/uRenderUtils.pas	Sat Jan 19 05:06:33 2019 +0100
+++ b/hedgewars/uRenderUtils.pas	Sun Jan 20 21:41:49 2019 +0100
@@ -46,7 +46,7 @@
 begin
     r:= rect^;
     if Clear then
-        SDL_FillRect(Surface, @r, SDL_MapRGB(Surface^.format, 0, 0, 0));
+        SDL_FillRect(Surface, @r, SDL_MapRGBA(Surface^.format, 0, 0, 0, 0));
 
     BorderColor:= SDL_MapRGB(Surface^.format, BorderColor shr 16, BorderColor shr 8, BorderColor and $FF);
     FillColor:= SDL_MapRGB(Surface^.format, FillColor shr 16, FillColor shr 8, FillColor and $FF);