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;

 

相关阅读 >>

vclzip控件的使用

Delphi fmx手机app，如何下载网站图片而不卡界面

Delphi 随机程序名

Delphi xe7的android应用设定wifi的有效无效

Delphi 用wininet 单元实现 post提交数据

Delphi sqlite防止插入重复数据的方法

Delphi 实现如何枚举所有打开的ie选项卡

dll 的静态调用实例代码

Delphi 判断是否出现滚动条

Delphi 文件的操作：重命名、复制、移动、删除

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

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