delphi 颜色转换函数: 从 Delphi 到 Html


本文整理自网络,侵删。

 颜色转换函数: 从 Delphi 到 Html
{由 Delphi 的颜色常数转换到 Html 颜色}
function HexColorToHtmlColor(c: Integer): string;
var
R,G,B: Byte;
begin
R := c and $FF;
G := (c shr 8) and $FF;
B := (c shr 16) and $FF;
Result := #35 + Format('%.2x%.2x%.2x',[R,G,B]);
end;
--------------------------------------------------------------------------------

{从十六进制字符串转换到 Html 颜色}
function HexColorToHtmlColor(s: string): string;
var
i: Integer;
R,G,B: Byte;
begin
i := StrToInt(s);
R := i and $FF;
G := (i shr 8) and $FF;
B := (i shr 16) and $FF;
Result := #35 + Format('%.2x%.2x%.2x',[R,G,B]);
end;

相关阅读 >>

Delphi windows 编程[6] - 学习窗体生成的过程六: 最终的代码!

Delphi 枚举类型和integer整型之间的互换

Delphi sccoloredid,星际争霸彩色 id 修改器 v0.2.0,支持 windows vista

Delphi 关闭rtti反射机制减少exe文件尺寸

Delphi idhttp中application/x-www-form-urlencoded字符说明

Delphi编写你的第一个com程序

Delphi 2009 之 tcategorypanelgroup[5]: headerstyle

Delphi获取其它进程窗口句柄的三种方法

Delphi程序在每个windows 会话中只执行一次

Delphi 顺序查找与二分查找

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...