From: Ketmar Dark <ketmar@ketmar.no-ip.org>
Date: Mon, 25 Sep 2017 19:24:08 +0000 (+0300)
Subject: HolmesUI: rendering cosmetix
X-Git-Url: http://deadsoftware.ru/gitweb?a=commitdiff_plain;h=007b3a8fcfe260417aa379da9e6b4e84ddc028d4;p=d2df-sdl.git

HolmesUI: rendering cosmetix
---

diff --git a/src/gx/gh_ui.pas b/src/gx/gh_ui.pas
index c37b1c1..4f4133f 100644
--- a/src/gx/gh_ui.pas
+++ b/src/gx/gh_ui.pas
@@ -1815,7 +1815,7 @@ begin
   if (strEquCI1251(prname, 'title')) or (strEquCI1251(prname, 'caption')) then
   begin
     mCaption := par.expectStrOrId(true);
-    mDefSize := TLaySize.Create(Length(mCaption)*8+2, 8);
+    mDefSize := TLaySize.Create(Length(mCaption)*8+3, 8);
     result := true;
     exit;
   end;
@@ -1844,9 +1844,9 @@ begin
   if (Length(mCaption) > 0) then
   begin
     setScissor(mFrameWidth+1, 0, mWidth-mFrameWidth-2, 8);
-    tx := gx+((mWidth-Length(mCaption)*8) div 2)-1;
-    if mHasFrame then fillRect(tx, gy, Length(mCaption)*8+2, 8, 0, 0, 128);
-    drawText8(tx+1, gy, mCaption, r, g, b);
+    tx := gx+((mWidth-Length(mCaption)*8) div 2);
+    if mHasFrame then fillRect(tx-2, gy, Length(mCaption)*8+3, 8, 0, 0, 128);
+    drawText8(tx, gy, mCaption, r, g, b);
   end;
 end;