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

lcl: fix range check error again

Browse Source 
git-svn-id: trunk@36826 -
This commit is contained in:
paul 2012-04-17 02:25:08 +00:00
parent 11cfc83de8
commit b703e8b2e7
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/graphutil.pp
View File

@ -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;