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 在datasnap中使用firedac

Delphi winapi: getforegroundwindow - 获取前台窗口的句柄

Delphi 10.3.x 截取字符串函数substring 和copy()常用字串符处理函数用法

Delphi 检查父进程

Delphi xe7实现手机上获取wifi信息的程序

Delphi登陆验证方法

Delphi中禁用和取消android应用睡眠

Delphi tlist性能注意事项

Delphi添加任务栏右键菜单

Delphi xe10.2 firedac 三种连接

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



打赏

取消

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

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

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

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

评论

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