diff --git a/src/game/g_holmes.pas b/src/game/g_holmes.pas
index d16aa603f57a480a8319ae940fde412e0763bb10..4590560f2a3a1d5b632bc683b625de4f933ed80a 100644 (file)
--- a/src/game/g_holmes.pas
+++ b/src/game/g_holmes.pas
*
* This program is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
- * the Free Software Foundation, either version 3 of the License, or
- * (at your option) any later version.
+ * the Free Software Foundation, version 3 of the License ONLY.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
implementation
uses
+ {$INCLUDE ../nogl/noGLuses.inc}
{rttiobj,} typinfo, e_texture,
- SysUtils, Classes, GL, SDL2,
+ SysUtils, Classes, SDL2,
MAPDEF, g_main, g_options,
utils, hashtable, xparser;
mx, my, mw, mh: Integer;
//pan: TPanel;
//ex, ey: Integer;
+ s: AnsiString;
+ dx, dy: Integer;
begin
if (gPlayer1 = nil) then exit;
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;