Fórum Como guardo uma cor (TColor) no formato string #247651

20/08/2004

0

Delphi

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.


Valdirdill

Valdirdill

Responder

Post mais votado

21/08/2004

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


Emerson Nascimento

Emerson Nascimento
Responder

Gostei + 1

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

Gostei + 0

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

Gostei + 0

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

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar