From 6eb348b717b86adb3e97ce93d5a4bda93d5c349d Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Wed, 11 Apr 2012 03:22:05 +0000
Subject: [PATCH] lcl: fix range check errors

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

diff --git a/lcl/graphutil.pp b/lcl/graphutil.pp
index 93efcf4e94..7378c97f71 100644
--- a/lcl/graphutil.pp
+++ b/lcl/graphutil.pp
@@ -142,7 +142,7 @@ begin
     // chromatic case
     // saturation
     if L <= 128
-    then S := (diff * 255) div (cMax + cMin)
+    then S := integer(diff * 255) div (cMax + cMin)
     else S := integer(diff * 255) div (510 - cMax - cMin);
 
     // hue
@@ -151,10 +151,10 @@ begin
     Bdelta := (cMax - B);
 
     if R = cMax
-    then H := HUE_000 + ((Bdelta - Gdelta) * HUE_060) div diff
+    then H := HUE_000 + integer((Bdelta - Gdelta) * HUE_060) div diff
     else if G = cMax
-    then H := HUE_120 + ((Rdelta - Bdelta) * HUE_060) div diff
-    else H := HUE_240 + ((Gdelta - Rdelta) * HUE_060) div diff;
+    then H := HUE_120 + integer((Rdelta - Bdelta) * HUE_060) div diff
+    else H := HUE_240 + integer((Gdelta - Rdelta) * HUE_060) div diff;
   end;
 end;