Форум: "Media";
Текущий архив: 2003.12.30;
Скачать: [xml.tar.bz2];
Вниз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 вся ветка
Форум: "Media";
Текущий архив: 2003.12.30;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c