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

mbColorLib: Beginning to add MaxHue, MaxSaturation and MaxValue properties to HSV ColorPickers

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5535 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-12-17 21:35:57 +00:00
parent ecb22f64c6
commit 8763264447
6 changed files with 375 additions and 182 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
components/mbColorLib/SLColorPicker.pas
View File

@ -251,9 +251,9 @@ var
begin
triple := HSLToRGBTriple(FHue, FSat, FLum);
if not WebSafe then
Result := RGBTripleToTColor(triple)
Result := RGBTripleToColor(triple)
else
Result := GetWebSafe(RGBTripleToTColor(triple));
Result := GetWebSafe(RGBTripleToColor(triple));
end;
function TSLColorPicker.GetColorAtPoint(x, y: integer): TColor;
@ -262,9 +262,9 @@ var
begin
triple := HSLToRGBTriple(FHue, MulDiv(255, x, Width), MulDiv(255, Height - y, Height));
if not WebSafe then
Result := RGBTripleToTColor(triple)
Result := RGBTripleToColor(triple)
else
Result := GetWebSafe(RGBTripleToTColor(triple));
Result := GetWebSafe(RGBTripleToColor(triple));
end;
procedure TSLColorPicker.CNKeyDown(