Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.05.02;
Скачать: CL | DM;

Вниз

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

 
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]

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



Страницы: 1 вся ветка

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

Наверх




Память: 0.47 MB
Время: 0.006 c
1-2565
vadim2
2002-04-19 11:45
2002.05.02
где посмотреть исходник функции Pos(Substr;S: string) ?


1-2578
Satirus
2002-04-18 23:19
2002.05.02
Создание множества


1-2512
Николай.
2002-04-18 06:49
2002.05.02
Создание exe-файла


14-2669
fnatali
2002-03-27 09:34
2002.05.02
Навеяно


14-2664
mio
2002-03-25 10:58
2002.05.02
Delphi&OOP