HTML Color To Delphi TColor

HTML Color 采用十六进制表示颜色,其格式为RGB,而Tcolor的格式是GBR。如果把HTML颜色转为Tcolor,需要转换其格式。

比如: HTML Color: #123456

    转为Tcolor,则为:$563412, 把其转为Integer值,即为Tcolor值。


function TForm1.htmlColor2color( hColor : string ) : Integer;
var
  s, c : string;
begin
  s := hColor.Trim;
  if ( s.Chars[ 0 ] ).IsNumber then
    s := s.PadLeft( 6, '0' )
  else
    s := s.Substring( 1 ).PadLeft( 6, '0' );
  // html color :  rgb    tcolor : gbr
  Result := ('$' + s.Substring( 4, 2 ) + s.Substring( 2, 2 ) + s.Substring( 0, 2 )).ToInteger;
end;

以上在 Delphi Berlin 10.1 测试通过。

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值