function ColorHtmlCode(color: TColor): string;
var
res:string;
begin
//Красный
res:= IntToHex(GetRValue(color),0);
while length(res)<>2 do res:=res+'0';
//Зелёный
res:=res+IntToHex(GetGValue(color),0);
while lengt(res)<>4 do res:=res+'0';
//Синий
res:=res+IntToHex(GetBValue(color),0);
while length(res)<>6 do res:=res+'0';
//Результат
ColorStr:='#'+res;
end;
Формирование HTML-кода цвета
Даю ёще вариант функции формирования HTML-кода цвета.
Его формат
#_HEX-код количества красного (2 знака)_HEX-код зелёного (2 знака)HEX-код синего (2 знака)
Его формат
#_HEX-код количества красного (2 знака)_HEX-код зелёного (2 знака)HEX-код синего (2 знака)
Код:
зачем столько вызовов IntToHex()???
;)
Код:
function ColorHtmlCode(color: TColor): string;
begin
asm
mov eax, [color]
bswap eax
shr eax, 8
mov color, eax
end;
Result := '#' + IntToHex(color, 6);
end;
begin
asm
mov eax, [color]
bswap eax
shr eax, 8
mov color, eax
end;
Result := '#' + IntToHex(color, 6);
end;
Да я сам пробовал. Чё-то не пашет, (вместо синего рисует красный).
ну да в дельфи и в билдере байты ставятся наоборот $BBGGRR поэтому я и меняю из местами (BB и RR), а Браузере все будет ок.