From 5f056f744380612d09981600cf6f43ed93964fac Mon Sep 17 00:00:00 2001
From: Toxa <untoxa@mail.ru>
Date: Fri, 29 Jan 2021 16:40:36 +0300
Subject: [PATCH] lighter grid, showing tile boundaries

---
 gbcomp/Gbpgrd.pas | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/gbcomp/Gbpgrd.pas b/gbcomp/Gbpgrd.pas
index 7d2cb11..c822507 100644
--- a/gbcomp/Gbpgrd.pas
+++ b/gbcomp/Gbpgrd.pas
@@ -242,23 +242,23 @@ procedure TGBPixelGrid.Paint;
     end;
 
     (* Draw gridlines *)
-    if FGridLines then
-    begin
+    if FGridLines then with Image.Canvas do begin
       (* draw horizontal lines *)
       for i := 1 to FYLen-1 do
-        with Image.Canvas do
         begin
+          if (i mod 8 = 0) then Pen.Color:= clBlack else Pen.Color:= clLtGray;
           MoveTo(i*FPixelSize,1);
           LineTo(i*FPixelSize, height-1);
         end;
 
       (* draw vertical lines *)
       for i := 1 to FYLen-1 do
-        with Image.Canvas do
         begin
+          if (i mod 8 = 0) then Pen.Color:= clBlack else Pen.Color:= clLtGray;
           MoveTo(1,i*FPixelSize);
           LineTo(Width-1, i*FPixelSize);
         end;
+      Pen.Color:= clBlack;
     end;
 
     (* Draw nibble markers *)