From 18ef43a3d4eee789dc76573281e5d466c4e22e37 Mon Sep 17 00:00:00 2001
From: Toxa <untoxa@mail.ru>
Date: Thu, 4 Feb 2021 17:04:28 +0300
Subject: [PATCH] minor changes to color normalization function

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

diff --git a/gbcomp/Gbconst.pas b/gbcomp/Gbconst.pas
index 54d689c..6cf6ec7 100644
--- a/gbcomp/Gbconst.pas
+++ b/gbcomp/Gbconst.pas
@@ -215,10 +215,10 @@ function NormalizeClipColor(cIn : TColor): TColor;
     Result:= cIn;
   end else begin
     case (byte(RgbToGray(cIn)) SHR 6) of
-      0 : Result := clBlack;
-      1 : Result := clDkGray;
-      2 : Result := clLtGray;
-      3 : Result := clWhite;
+      0  : Result := clBlack;
+      1  : Result := clDkGray;
+      2  : Result := clLtGray;
+      else Result := clWhite;
     end;
   end;
 end;