pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

fpspreadsheet: Fix compilation issue due to stupid 64-bit fpc not being able to pick correct overload of MinValue. Less hints on 64 bit.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7556 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-07-22 17:55:17 +00:00
parent 901b92fa72
commit 64b69c2893
12 changed files with 20 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
components/fpspreadsheet/source/common/fpsutils.pas
View File

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