From f35d89328ddfa31efd25cd875f09974c49014ccd Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Thu, 8 May 2014 13:36:10 +0000
Subject: [PATCH] lcl: graphutil: fixed range check

git-svn-id: trunk@44973 -
---
 lcl/graphutil.pp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lcl/graphutil.pp b/lcl/graphutil.pp
index de6491676e..706c6b6e14 100644
--- a/lcl/graphutil.pp
+++ b/lcl/graphutil.pp
@@ -123,7 +123,7 @@ begin
   // calculate lightness
   cMax := MaxIntValue([R, G, B]);
   cMin := MinIntValue([R, G, B]);
-  L := (cMax + cMin + 1) div 2;
+  L := (integer(cMax) + cMin + 1) div 2;
   diff := cMax - cMin;
 
   if diff = 0
@@ -145,7 +145,7 @@ begin
     Bdelta := (cMax - B);
 
     if R = cMax
-    then H := HUE_000 + integer(Bdelta - Gdelta) * HUE_060 div diff
+    then H := (HUE_000 + integer(Bdelta - Gdelta) * HUE_060 div diff) and $ff
     else if G = cMax
     then H := HUE_120 + integer(Rdelta - Bdelta) * HUE_060 div diff
     else H := HUE_240 + integer(Gdelta - Rdelta) * HUE_060 div diff;