Source position: HSLUtils.pas line 86
procedure RGBtoHSLRange(
RGB: TColor;
var H: Integer;
var S: Integer;
var L: Integer
);