过程名称 ColorToHSL
所在单元 GisDefs
过程原型
procedure ColorToHSL(const _color: TColor; var _h: Real; var _s: Real; var _l: Real);
过程说明
根据TColor 转换至 HSL颜色.
HSL即色相、饱和度、亮度（英语：Hue, Saturation, Lightness），又称HLS。
举例说明
var
h, s, l: Real;
c: TColor;
begin
c := RGBToColor(,,);
ColorToHSL(c, h, s, l);
ShowMessage(Format('H = %f , S = %f , L = %f', [h*, s, l]));
c := HSLToColor(h, s, l);
ShowMessage(IntToStr(c));
if c = RGBToColor(,,) then ShowMessage('OK');
end;
| RGB | HSL | HSV | 结果 |
|---|---|---|---|
| (1, 0, 0) | (0°, 1, 0.5) | (0°, 1, 1) | |
| (0.5, 1, 0.5) | (120°, 1, 0.75) | (120°, 0.5, 1) | |
| (0, 0, 0.5) | (240°, 1, 0.25) | (240°, 1, 0.5) |