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将n个相同字符提取到左边，m个相同字符提取到右边

Delphi 读文件到十六进制的函数(Delphi 7 下可用)

Delphi 调用golang dll

Delphi源码简单的实现粘贴复制代码

Delphi 2009 新增单元 character[1]: toupper、tolower - 字符与字符串的大小写转换

Delphi定时器相关的简单例子

Delphi如何判断一个combobox是否处于下拉状态

Delphi firedac 下的 sqlite [4] - 创建数据库

Delphi datasnap 初步入门使用总结

Delphi 把单张图片保存到access数据库

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

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