Как преобразовать порядок цветовых компонентов?

← →
lipskiy (2002-04-20 20:19) [0]

В Дельфи порядок комнонетов BGR, а в HTML - RGB. Я генерю HTML-страничку программно, и мне надо вставить в тег BODY параметр bgcolor. Цвет мне известен, но он имеет обратный порядок компонентов. Написал процедуру, которая переставляет местами компоненты:

function InvertHexColor(Clr: string): string; begin Result:= Clr; if length(Clr)<>6 then exit; Result:= Clr[5] + Clr[6] + Clr[3] + Clr[4] + Clr[1] + Clr[2]; end;

И вызываю:
InvertHexColor(IntToHex(Some.Color));

Все работает, если задавать цвета нестандартные. Но если Some.Color имеет системный цвет, например clBtnFace, то преобразование происходит неверно.

Нет ли чего нибудь стандартного для этой операции, или м.б. подскажете, как это правильно сделать?

← →
lipskiy (2002-04-20 21:24) [1]

Всем спасибо.
Уже разобрался.

← →
alxx (2002-04-20 23:02) [2]

У меня была такая же проблема. Как?

Как преобразовать порядок цветовых компонентов? Найти похожие ветки