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检测程序是否在优盘上运行

Delphi 采集功能代码getstr

Delphi中的各种文件类型介绍

Delphi中如何用一个按钮控制开与关两个状态

Delphi 游戏是如何检测到有od等调试工具的

Delphi memo 的当前行、当前列与当前字符

Delphi 判断文件是否是图像文件

Delphi中实现磁盘信息类(tdriveinfo)

embarcadero开源项目赞助

Delphi xe5 android程序常用的unit

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



打赏

取消

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

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

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

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

评论

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