Cor para Hexa em Delphi

Olá pessoal, irei postar como converter um TColor para Hexa.


A função é a seguinte:



Function ColorToHex(Cor : TColor) : String;


begin


   Result :=


   IntToHex(GetRValue(Cor),2) +{Valor Vermelho}


   IntToHex(GetGValue(Cor),2) + {Valor Verde}


   IntToHex(GetBValue(Cor),2){Valor Azul};


end;


Espero ter ajudado.


Próximo post será como capturar o valor Hexa do pixel onde o mouse está posicionado.

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: