render: load image for TGUIImage within render

[d2df-sdl.git] / src / game / opengl / r_gui.pas

diff --git a/src/game/opengl/r_gui.pas b/src/game/opengl/r_gui.pas
index 3463a9ea100bc06167283342cceed2a9b1ddc622..8df2b400683901d1f7ff64fedf827beeed961cd6 100644 (file)
--- a/src/game/opengl/r_gui.pas
+++ b/src/game/opengl/r_gui.pas
@@ -26,6 +26,7 @@ interface
   procedure r_GUI_GetLogoSize (out w, h: WORD);
   procedure r_GUI_GetMaxFontSize (BigFont: Boolean; out w, h: Integer);
   procedure r_GUI_GetStringSize (BigFont: Boolean; str: String; out w, h: Integer);
+
   procedure r_GUI_Draw_Window (win: TGUIWindow);
 
 implementation
@@ -500,8 +501,12 @@ implementation
     end
     else
     begin
-      if g_Texture_Get(ctrl.ImageRes, ID) then
-        e_Draw(ID, ctrl.X, ctrl.Y, 0, True, False);
+      if g_Texture_CreateWADEx(ctrl.ImageRes, ctrl.ImageRes) then
+      begin
+        if g_Texture_Get(ctrl.ImageRes, ID) then
+          e_Draw(ID, ctrl.X, ctrl.Y, 0, True, False);
+        g_Texture_Delete(ctrl.ImageRes);
+      end;
     end;
   end;