Convertendo valor Hex de cor para valor TColor em Delphi

Bem pessoal, hoje irei postar uma função em Delphi para converte o valor hexadecimal de uma cor para o valor color de TColor.

A função é a seguinte:

function HexToTColor(sColor : string) : TColor;
begin
   Result :=
     RGB(
       StrToInt(‘$’+Copy(sColor, 1, 2)),
       StrToInt(‘$’+Copy(sColor, 3, 2)),
       StrToInt(‘$’+Copy(sColor, 5, 2))
     ) ;
end;

Essa função recebe como parâmetro o valor hexa da cor como string e retorna o valor da cor para TColor.

Ex.:

edit.Color := clBlack;

usa-se

edit.Color := HexToColor(‘000000’);

Com isso podemos passar qualuqer valor hexa como parâmetro que irá converter para TColor, possibilitando o uso de várias cores que não estão como padrão do Delphi.

Espero ter ajudado.

Até a próxima.

3 respostas para Convertendo valor Hex de cor para valor TColor em Delphi

  1. Wanc disse:

    Existe outra alternativa🙂 , Coloque um botão e um edit num form e no clique do botão adicione a linha abaixo:

    Color := StrToInt(‘$’+EDIT1.Text);

  2. Parabéns, realmente cirúrgica sua dica, funcionou perfeitamente.

Deixe uma resposta

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s

%d blogueiros gostam disto: