Leer Valor Hexadecimal de un Color

[jjorell]

:cool: Hola! Necesito saber como guardar el valor Hexadecimal de un color y almacenarlo en una base de datos, pero luego poder mostrar ese valor y la muestra de él (en un Label, panel o lo que sea).

:D Yo habia pensado hacerlo utilizando el TColorDialog para seleccionar el color, pero no me devuelve el valor Hexadecimal sino que un entero (creo). Mi objetivo es poder conocer el RGB del color.

Espero puedan ayudarme, Gracias!

NOTA: Estoy trabajando con delphi 5 y SQL Server 2000.

[dec]

Hola,


function ColorToRGB
(color: TColor) : string;
begin
Result := Format
(
'#%.2x%.2x%.2x',
[GetRValue(color),
GetGValue(color),
GetBValue(color)]
);
end;


También pueden serte útiles (creo) las funciones "ColorToString" y "StringToColor". Échalas un vistazo a ver. Las tienes en la unidad "Graphics".

[jjorell]

:D Muchas Gracias! Me funcionó perfecto! Exactamente eso es lo que estaba buscando.