转换 TColor 到 HTML 颜色串

时间：2024-01-16 10:41:38
//转换 TColor 到 HTML 颜色串

function ColorToHtml(color:TColor):string;

var

  RgbColor : TColorRef;

begin

    RgbColor := ColorToRGB(color);

    Result:=Format('#%.2x%.2x%.2x',[GetRValue(RgbColor),GetGValue(RgbColor),GetBValue(RgbColor)]);

end;

相关文章