Como guardo uma cor (TColor) no formato string

20/08/2004

15

Preciso gravar em um arquivo .ini a cor que determinado componente tem quando o programa é encerrado.
Como a varíavel cor do componente é do tipo TColor, não consigo jogá-la para o formato string para que o arquivo .ini aceite.
Como eu poderia fazer isso? Ou seja, eu precisaria transformar clBlue ou qualquer outra cor para uma palavra(string). Ou há outra maneira.
Obrigado.


Responder

Post mais votado

21/08/2004

No Delphi (pelo menos no 7) existe a função ColorToString() e StringToColor().


Responder

Mais Posts

20/08/2004

Tatuweb

Use as duas funções abaixo:

function TColorToHex (Color: TColor) : string;
begin
   Result := IntToHex (GetRValue (Color), 2) +
     IntToHex (GetGValue (Color), 2) +
     IntToHex (GetBValue (Color), 2);
end;

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



Responder

20/08/2004

Valdirdill

Obrigadão. Funcionou certinho.

Use as duas funções abaixo:
function TColorToHex (Color: TColor) : string;
begin
   Result := IntToHex (GetRValue (Color), 2) +
     IntToHex (GetGValue (Color), 2) +
     IntToHex (GetBValue (Color), 2);
end;

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



Responder

10/12/2020

Rogerio Bras

No Delphi (pelo menos no 7) existe a função ColorToString() e StringToColor().

Emerson Nascimento, testei aqui no Delphi Rio 10.3 e funcionou perfeitamente. Muito obrigado!
Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários. Para saber mais sobre o uso de cookies,
consulte nossa política de privacidade. Ao continuar navegando em nosso site, você concorda com a nossa política.

Aceitar