uColorComboBox.pas
procedure TUniColorComboBox.SetJSColor(AColor: TAlphaColor);
var
Ident: Integer;
ColorStr: string;
begin
if AColor = claNull then
begin
JSCall('setValue', ['#00000000'])
end
else if AlphaColorToString(AColor).Chars[0] <> '#' then
JSCall('setValue', [LowerCase(AlphaColorToString(AColor))])
else
begin
ColorStr := AlphaColorToString(AColor);
ColorStr := Copy(ColorStr, 4, 9) + Copy(ColorStr, 2, 2);
JSCall('setValue', [ColorStr]);
end;
end;