Скачать: CL | DM;

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]

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

---

← →
Fenik ©   (2003-08-30 21:00) [4]

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

---

← →
Fenik ©   (2003-08-30 21:01) [5]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.014 c