Passar valor TColor para String, � poss�vel ???

Question

Ol� gostaria de saber como posso faze para passar um certo tipo TColor para String ???Segue exemplo abaixo apenas ilustrativo, s� para ter uma no��o melhor:[code:1:fae96f75b4]  procedure x(v_Color : T...

Nildo · Answer

Declare a unit Graphics e utilize a fun��o ColorToString, passando como parametro a cor que voc� deseja....

Emerson Nascimento · Answer

no Delphi 7, na unit Graphics, h� duas fun��es:

function StringToColor(const S: string): TColor;
e
function ColorToString(Color: TColor): string;

em outras vers�es do Delphi n�o sei se existe ou em qual unit se encontram.

Faelcavalcanti · Answer

Gostaria agora de converter o valor string passado pelo TColor para Hexadecimal, pois pretendor inserir este valor dentro de uma TAG HTML. :shock:...

Faelcavalcanti · Answer

O Problema � que o delphi passa os valores passados pelo TColor apresentam o caracter [$], sendo assim diferente para HTML.

Abaixo eis um exemplo apenas ilustrativo:

function f_ConverteHexadecimal(v_Color : String) : String;
begin
  // v_Color necessariamente, receberia por exemplo -> $00FFF8F0
  // mas o valor teria que ser implementado para hexadecimal como #ffffff
  Result := �< font  size=3 face="Verdana" color="� + v_Color + �">�;
end;

Outra coisa tamb�m, onde coloquei abaixo em HTML o tamanho da fonte � de outra refer�ncia totalmente diferente do delphi, por ele ser em Point(pt), algu�m sabe uma rotina que possa controlar isso :

< font  size=3 >

Juro que � s� isso. :wink:

Nildo · Answer

Bom, se o formato HTML for RGB ficaria assim:

function ColorToHtml( cor: TColor ): stirng;
var
   R,G,B: Byte;
begin
   R := GetRValue( Cor );
   G := GetRValue( Cor );
   B := GetRValue( Cor );

   Result := �#� + IntToHex( R, 2 ) + IntToHex( G, 2 ) + IntToHex( B, 2 );
end;

Se for RBG, � s� inverter a linha em que eu atribuo o Result.

Nildo · Answer

Ooooops, corrigindo:[code:1:8218c80d31]function ColorToHtml( cor: TColor ): stirng;var   R,G,B: Byte;begin   R := GetRValue( Cor );   G := GetGValue( Cor );   B := GetBValue( Cor );   Result := �#� + IntToHex( R, 2 ) + IntToHex( G, 2 ) + IntToHex( B, 2 );end; [/code:1:8218c80d31]...

Faelcavalcanti · Answer

Outra coisa tamb�m, onde coloquei abaixo em HTML o tamanho da fonte � de outra refer�ncia totalmente diferente do delphi, por ele ser em Point(pt), algu�m sabe uma rotina que possa controlar isso :
C�digo:

< font  size=3 > // sendo que este tamanho � em HTML

Algu�m sabe como passo um tipo em (Font.Size) que est� em pt, para HTML, acima ?????

Faelcavalcanti · Answer

Sei que existe algumas refer�ncia mas n�o consigo decodificar todas, por exemplo :
[list:3b7cc85864]
1 (8 pt)
2 (10 pt)
3 (12 pt)
4 (14 pt)
5 (18 pt)
6 (24 pt)
7 (36 pt)
e por a� vai ....
[/list:u:3b7cc85864]

Existem tamb�m valores negativos, mas gostaria de uma rotina que tratasse isso de imediato, estou pesquisando caso ache posto aqui, mas gostaria que me ajudassem.

Obrigado pela for�a [b:3b7cc85864]Nildo[/b:3b7cc85864]!

Nildo · Answer

[quote:760a10431e=�faelcavalcanti�]Outra coisa tamb�m, onde coloquei abaixo em HTML o tamanho da fonte � de outra refer�ncia totalmente diferente do delphi, por ele ser em Point(pt), algu�m sabe uma rotina que possa controlar isso : C�digo: [code:1:760a10431e]< font size=3 > // sendo que este tamanho � em HTML[/code:1:760a10431e]Algu�m sabe como passo um tipo em (Font.Size) que est� em pt, para HTML, acima ?????[/quote:760a10431e]Crio que n�o seja poss�vel. O que voc� pode fazer � o seguinte...[code:1:760a10431e]Texto[/code:1:760a10431e]assim o Browser j� interpreta como sendo para usar o texto entre o Span com, no caso, 8.0pt ou 12.0 pt, que seria igual ao formato utilizado pelo Font.size...

F�rum Passar valor TColor para String, � poss�vel ??? #255150