颜色值TColor如何转换为16进制的RGB字符?

50 | 问答知识库用户 |浏览277次
收藏|2014/05/17 22:00
delphi里的TColor如何转换成HTML里的颜色字符?

满意回答

2014/05/21 21:21

var
  R, G, B: Byte;
  TempColor: TColor;
begin
  R := ADColor and $FF;
  G := (ADColor and $FF00) shr 8;
  B := (ADColor and $FF0000) shr 16;
  Result := '#' + inttohex(R, 2) + inttohex(G, 2) + inttohex(B, 2);
end;

热心网友

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



+1
 加载中...