paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 16:59:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: graphutil: fixed range check

Browse Source 
git-svn-id: trunk@44973 -
This commit is contained in:
mattias 2014-05-08 13:36:10 +00:00
parent 030ca130a5
commit f35d89328d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/graphutil.pp
View File

@ -123,7 +123,7 @@ begin
// calculate lightness // calculate lightness
cMax := MaxIntValue([R, G, B]); cMax := MaxIntValue([R, G, B]);
cMin := MinIntValue([R, G, B]); cMin := MinIntValue([R, G, B]);
L := (cMax + cMin + 1) div 2; L := (integer(cMax) + cMin + 1) div 2;
diff := cMax - cMin; diff := cMax - cMin;
if diff = 0 if diff = 0
@ -145,7 +145,7 @@ begin
Bdelta := (cMax - B); Bdelta := (cMax - B);
if R = cMax 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 else if G = cMax
then H := HUE_120 + integer(Rdelta - Bdelta) * 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; else H := HUE_240 + integer(Gdelta - Rdelta) * HUE_060 div diff;