Delphi里的TColor颜色怎么转为Html的颜色呢?

50 | 问答知识库用户 |浏览288次
收藏|2014/05/17 22:00
如题

满意回答

2014/05/21 21:16

function ColorTo16Str(AColor: TColor): string;
var
  R, G, B: string;
begin
  R := inttohex(GetRValue(AColor), 2);
  G := inttohex(GetGValue(AColor), 2);
  B := inttohex(GetBValue(AColor), 2);
  Result := '#' + R + G + B;
end;

热心网友

其他回答(0)
0人关注该问题
待解决问题



+1
 加载中...