From 007b3a8fcfe260417aa379da9e6b4e84ddc028d4 Mon Sep 17 00:00:00 2001 From: Ketmar Dark Date: Mon, 25 Sep 2017 22:24:08 +0300 Subject: [PATCH] HolmesUI: rendering cosmetix --- src/gx/gh_ui.pas | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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; -- 2.29.2