From b703e8b2e71eb36964cf6cf8eb8b8ce600fe3e0c Mon Sep 17 00:00:00 2001 From: paul Date: Tue, 17 Apr 2012 02:25:08 +0000 Subject: [PATCH] lcl: fix range check error again git-svn-id: trunk@36826 - --- lcl/graphutil.pp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lcl/graphutil.pp b/lcl/graphutil.pp index 7378c97f71..3860e9252f 100644 --- a/lcl/graphutil.pp +++ b/lcl/graphutil.pp @@ -151,10 +151,10 @@ 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 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; + then H := HUE_120 + integer(Rdelta - Bdelta) * HUE_060 div diff + else H := HUE_240 + integer(Gdelta - Rdelta) * HUE_060 div diff; end; end;