当前位置: 首页 > 乱七八糟, 技术文档, 资源共享 > 正文
avatar

想把delphi的默认颜色转换成颜色代码,就找了这么个函数转换: 调用方法:

u=3356634712,2412317980&fm=23&gp=0
想把delphi的默认颜色转换成颜色代码,就找了这么个函数转换:

function ToHTML(t:TColor):string;
var sBuf:string;
 procedure swap(var c1,c2:char);
 var tmp:char;
 begin
   c1:=Char(Ord(c1) xor Ord(c2));
   c2:=Char(Ord(c1) xor Ord(c2));
   c1:=Char(Ord(c1) xor Ord(c2));
 end;
begin
 {转换颜色}
  sBuf:=IntToHex(ColorToRGB(t),6);
 {高低位交换}
  swap(sBuf[1],sBuf[5]);
  swap(sBuf[2],sBuf[6]);
  Result:='#'+sBuf;
end;

调用方法:

edit1.text:=ToHTML(clBtnFace);
本文固定链接: https://blog.yanhualou.com/jishu/498.html | 烟花楼博客
标签:

delphi 颜色转网页RGB函数:等您坐沙发呢!

发表评论

快捷键:Ctrl+Enter