Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.12.30;
Скачать: 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 вся ветка

Текущий архив: 2003.12.30;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.018 c
1-99550
bushmen
2003-12-16 11:07
2003.12.30
Лицензия в Delphi7


1-99638
Kvorubin
2003-12-16 16:21
2003.12.30
Помогите Ламеру!!! с PopupMenu1


1-99640
Kelegorm
2003-12-16 14:59
2003.12.30
Отображение текста и формулы в одном месте. Срочно!


14-99736
Вадим
2003-12-08 03:07
2003.12.30
В очередной раз накрылся форум?


3-99475
Labert
2003-12-03 13:54
2003.12.30
ADO и TBlobField в Oracle