本文整理自网络,侵删。
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 解决timage无法在窗体resize时改变canvas的大小
Delphi2010中使用pchar时e2010 incompatible types: 'char' and 'ansichar' 错误的处理
Delphi xe5实现android 安卓 左侧或者右侧菜单功能
更多相关阅读请进入《Delphi》频道 >>