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

spktoolbar: Less hints and warnings

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6174 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-02-05 12:05:26 +00:00
parent e6b9f9169d
commit fdee2dddbe
13 changed files with 101 additions and 96 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
components/spktoolbar/SpkGraphTools/SpkGraphTools.pas
View File

@ -161,9 +161,9 @@ begin
c1 := TRgbColor(ColorToRGB(AColor1));
c2 := TRgbColor(ColorToRGB(AColor2));
result := rgb(
max(0, min(255, c1.R + c2.R)),
max(0, min(255, c1.G + c2.G)),
max(0, min(255, c1.B + c2.B))
max(0, min(255, Integer(c1.R) + c2.R)),
max(0, min(255, Integer(c1.G) + c2.G)),
max(0, min(255, Integer(c1.B) + c2.B))
);
end;
@ -174,9 +174,9 @@ begin
c1 := TRgbColor(ColorToRGB(AColor1));
c2 := TRgbColor(ColorToRGB(AColor2));
result := rgb(
max(0, min(255, c1.R * c2.R)),
max(0, min(255, c1.G * c2.G)),
max(0, min(255, c1.B * c2.B))
max(0, min(255, Integer(c1.R) * c2.R)),
max(0, min(255, Integer(c1.G) * c2.G)),
max(0, min(255, Integer(c1.B) * c2.B))
);
end;
@ -186,9 +186,9 @@ var
begin
c := TRgbColor(ColorToRGB(AColor));
result := rgb(
max(0, min(255, c.R * AScalar)),
max(0, min(255, c.G * AScalar)),
max(0, min(255, c.B * AScalar))
max(0, min(255, AScalar * c.R)),
max(0, min(255, AScalar * c.G)),
max(0, min(255, AScalar * c.B))
);
end;