From 6d7e09e8e5f8c6c202c093df86385c75ca10ffef Mon Sep 17 00:00:00 2001 From: Ketmar Dark Date: Wed, 19 Jun 2019 11:27:52 +0300 Subject: [PATCH] holmes: added outline for map position --- src/game/g_holmes.pas | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) diff --git a/src/game/g_holmes.pas b/src/game/g_holmes.pas index 96c1c01..34fac81 100644 --- a/src/game/g_holmes.pas +++ b/src/game/g_holmes.pas @@ -1250,6 +1250,8 @@ var mx, my, mw, mh: Integer; //pan: TPanel; //ex, ey: Integer; + s: AnsiString; + dx, dy: Integer; begin if (gPlayer1 = nil) then exit; @@ -1324,10 +1326,19 @@ begin if showMapCurPos then begin + s := Format('mappos:(%d,%d)', [pmsCurMapX, pmsCurMapY]); gxSetContext(hlmContext); hlmContext.font := 'win8'; + hlmContext.color := TGxRGBA.Create(0, 0, 0); + for dy := -1 to 1 do + begin + for dx := -1 to 1 do + begin + if (dx <> 0) or (dy <> 0) then hlmContext.drawText(4+dx, gWinSizeY-10+dy, s); + end; + end; hlmContext.color := TGxRGBA.Create(255, 255, 0); - hlmContext.drawText(4, gWinSizeY-10, Format('mappos:(%d,%d)', [pmsCurMapX, pmsCurMapY])); + hlmContext.drawText(4, gWinSizeY-10, s); gxSetContext(nil); end; end; -- 2.29.2