From: Ketmar Dark <ketmar@ketmar.no-ip.org>
Date: Fri, 29 Dec 2017 00:36:12 +0000 (+0200)
Subject: fancy pbar width and rendering fixes (don't be so smart, ketmar!)
X-Git-Url: http://deadsoftware.ru/gitweb?a=commitdiff_plain;h=ec50cdbeee486b1988050f0794624dcd9796c038;p=d2df-sdl.git

fancy pbar width and rendering fixes (don't be so smart, ketmar!)
---

diff --git a/src/game/g_game.pas b/src/game/g_game.pas
index 7e20f09..9553cbe 100644
--- a/src/game/g_game.pas
+++ b/src/game/g_game.pas
@@ -2579,7 +2579,8 @@ procedure DrawLoadingStat();
       g_Texture_Get('UI_GFX_PBAR_MARKER', idm);
       g_Texture_GetSize('UI_GFX_PBAR_MARKER', wm, hm);
 
-      rectW := gScreenWidth-64;
+      //rectW := gScreenWidth-360;
+      rectW := trunc(624.0*gScreenWidth/1024.0);
       rectH := hl;
 
       x0 := (gScreenWidth-rectW) div 2;
@@ -2607,7 +2608,7 @@ procedure DrawLoadingStat();
       if (wdt > rectW-wl-wr) then wdt := rectW-wr-wr;
       if (wdt > 0) then
       begin
-        my := y0+(rectH-wm) div 2;
+        my := y0; // don't be so smart, ketmar: +(rectH-wm) div 2;
         glScissor(x0+wl, gScreenHeight-my-rectH, wdt, hm);
         f := x0+wl;
         while (wdt > 0) do
@@ -2619,13 +2620,6 @@ procedure DrawLoadingStat();
       end;
 
       glScissor(0, 0, gScreenWidth, gScreenHeight);
-
-{
-procedure e_DrawSize(ID: DWORD; X, Y: Integer; Alpha: Byte; AlphaChannel: Boolean;
-                     Blending: Boolean; Width, Height: Word; Mirror: TMirrorType = TMirrorType.None);
-        if g_Texture_Get('MENU_BACKGROUND', ID) then e_DrawSize(ID, 0, 0, 0, False, False, gScreenWidth, gScreenHeight)
-        else e_Clear(GL_COLOR_BUFFER_BIT, 0, 0, 0);
-}
     end
     else
     begin