转换 TColor 到 HTML 颜色串

 
//转换 TColor 到 HTML 颜色串
 
 
function ColorToHtml(color:TColor):string;
var
  RgbColor : TColorRef;
begin
    RgbColor := ColorToRGB(color);
    Result:=Format('#%.2x%.2x%.2x',[GetRValue(RgbColor),GetGValue(RgbColor),GetBValue(RgbColor)]);
end;

 





posted @ 2013-06-29 12:28  XE2011  阅读(277)  评论(0)    收藏  举报