paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-27 22:20:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: fix range check errors

Browse Source 
git-svn-id: trunk@36719 -
This commit is contained in:
paul 2012-04-11 03:22:05 +00:00
parent 9ba1572df7
commit 6eb348b717
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/graphutil.pp
View File

@ -142,7 +142,7 @@ begin
// chromatic case // chromatic case
// saturation // saturation
if L <= 128 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); else S := integer(diff * 255) div (510 - cMax - cMin);
// hue // hue
@ -151,10 +151,10 @@ begin
Bdelta := (cMax - B); Bdelta := (cMax - B);
if R = cMax 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 else if G = cMax
then H := HUE_120 + ((Rdelta - Bdelta) * HUE_060) div diff then H := HUE_120 + integer((Rdelta - Bdelta) * HUE_060) div diff
else H := HUE_240 + ((Gdelta - Rdelta) * HUE_060) div diff; else H := HUE_240 + integer((Gdelta - Rdelta) * HUE_060) div diff;
end; end;
end; end;