Delphi 如何将颜色值转换为HTML格式？

本文整理自网络，侵删。

 
function GetHTMLColor(cl: TColor; IsBackColor: Boolean): string;
var rgbColor: TColorRef;
begin
  if IsBackColor then
    Result := 'bg'
  else
    Result := '';
  rgbColor := ColorToRGB(cl);
  Result := Result + 'color="#' + Format('%.2x%.2x%.2x',
                                            [GetRValue(rgbColor),
                                             GetGValue(rgbColor),
                                             GetBValue(rgbColor)]) + '"';
end;

 

相关阅读 >>

Delphi idhttp访问百度

Delphi中获取客户区坐标

Delphi获取网卡mac地址多个方法

Delphi xe5 android 设置权限

Delphi adoconnection1 事务

Delphi idsmtp发送邮件

在Delphi xe3中如何crc验证函数？

Delphi 删除internet临时文件

Delphi 获取计算机从开机开始的已运行时间

Delphi 防局域网控制网速代码

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 如何将颜色值转换为HTML格式？