TColor

← →
arous © (2003-08-30 18:57) [0]

Кто знает, как перевести TColor на такой цвет, который используется в HTML, ципа FFFFFF ???

← →
miek © (2003-08-30 19:15) [1]

Поменять местами R и B компоненты (например, KOL.COLOR2RGBQUAD), а затем - в шестнадцатеричный вид. Справа приписать #. Все.

← →
Camedia (2003-08-30 19:31) [2]

Специально для вас:

function ColorToHex(Color: TColor): String;
var
R, G, B: Byte;
begin
Color := ColorToRGB(Color);
R := GetRValue(Color);
G := GetGValue(Color);
B := GetBValue(Color);
ColorToHex := IntToHex(R,2) + IntToHex(G,2) + IntToHex(B,2);
end;

function HexToColor(Color: String): TColor;
var
R, G, B: Byte;
begin
R := StrToInt("$" + Copy(Color, 1, 2));
G := StrToInt("$" + Copy(Color, 3, 2));
B := StrToInt("$" + Copy(Color, 5, 2));
Result := RGB(r, g, b);
end;

ColorToHex возвращает значение без #.

← →
TButton © (2003-08-30 20:37) [3]

я знаю. но я вам ничего не скажу.

http://delphibase.endimus.com/?action=viewfunc&topic=mediacolors&id=10 127
http://delphibase.endimus.com/?action=viewfunc&topic=mediacolors&id=10 344

Пробел убрать надо.
Новая версия форума зачем-то рвёт ссылки..

TColor Найти похожие ветки