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 测试通过。

你可能感兴趣的:(VCL)