RE:color html a richedit color
Te escribí una función que recibe un string con un color en hexadecimal en formato RRGGBB, y que devuelve el correspondiente valor TColor de Delphi:
function Html2Color(const color: string): TColor;
var
rgb: packed record
r, g, b, filler: byte;
end;
m: byte;
begin
PColor(@rgb)^ := StrToInt('$' + color);
m := rgb.r; rgb.r := rgb.b; rgb.b := m;
Result := PColor(@rgb)^;
end;
Observa que la función StrToInt es capaz de convertir una cadena con un número en hexadecimal a entero si el valor va precedido por un signo dólar ('$') para indicar que se trata de un valor hexadecimal. Al realizar la conversión de un valor '$(00)RRGGBB' a entero, por la arquitectura little-endian en memoria queda como BBGGRR00, cuando debería ser RRGGBB00, por lo que intercambiandos los bytes RR y BB nos queda el valor deseado.
Llamada de ejemplo:
Rhichedit1.Color := Html2Color('173A6A');
Ernesto De Spirito
http://www.latiumsoftware.com/es/index.php