| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
TColor
arous © (2003-08-30 18:57:00)
Кто знает, как перевести TColor на такой цвет, который используется в HTML, ципа FFFFFF ???
Fenik (2003-08-30 21:01:00) [1]
Пробел убрать надо.
Новая версия форума зачем-то рвёт ссылки..
Fenik (2003-08-30 21:00:00) [2]http://delphibase.endimus.com/?action=viewfunc&topic=mediacolors&id=10127
http://delphibase.endimus.com/?action=viewfunc&topic=mediacolors&id=10344
TButton (2003-08-30 20:37:00) [3]
я знаю. но я вам ничего не скажу.
Camedia (2003-08-30 19:31:00) [4]
Специально для вас:
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 возвращает значение без #.
miek (2003-08-30 19:15:00) [5]
Поменять местами R и B компоненты (например, KOL.COLOR2RGBQUAD), а затем - в шестнадцатеричный вид. Справа приписать #. Все.
| |
