本文整理自网络,侵删。
function GetHTMLColor(cl: TColor; IsBackColor: Boolean): string;var rgbColor: TColorRef;begin if IsBackColor then Result := 'bg' else Result := ''; rgbColor := ColorToRGB(cl); Result := Result + 'color="#' + Format('%.2x%.2x%.2x', [GetRValue(rgbColor), GetGValue(rgbColor), GetBValue(rgbColor)]) + '"';end;
相关阅读 >>
Delphi xe listbox 行高根据内容高度进行调速
Delphi 2009 之 tstringbuilder 类[7]: tostring
如何在Delphi中禁用关于“返回值...可能未定义”的警告?
更多相关阅读请进入《Delphi》频道 >>