Цвета в Excel

← →
Neket (2007-04-19 17:45) [0]

Подскажите как быть?
Есть такой код

var
ClYell:TColor = ($ccffff);
ClGren:TColor = ($00a000);
begin
......
XLApp.ActiveSheet.Cells.Item[i, K+7].Interior.Color := clYell;
XLApp.ActiveSheet.Cells.Item[i+1, K+7].Interior.Color := clGren;
.......
if XLApp.Cells[i,k].Interior.Color=clYell then showmessge("Hello World"); // Сдесь срабатывает
if XLApp.Cells[i,k].Interior.Color=clGren then showmessge("By By World"); // А Сдесь Пропускает
end;

Причем если работаею со стандартными цветами (тип CLRed или CLGreen) то все срабатывает.

← →
Neket (2007-04-20 08:09) [1]

Народ ну подскажите пожалуйста. Очень нада. Как с этим работать?

← →
ЮЮ © (2007-04-20 08:21) [2]

для начала проверь (сразу, без ...), действительно установился или нет цвет в ячейке:

XLApp.ActiveSheet.Cells.Item[i + 1, K + 7].Interior.Color := clGren;
showmessge(IntToStr(clGren) + " " + IntToStr(XLApp.ActiveSheet.Cells.Item[i + 1, K + 7].Interior.Color));

Неужели без showmessge нелязя? Поставь брэкпоинт в отладчике.

З.Ы. боюсь при следующей итерации i ты перезатираешь clGren и снова ставишь clYell;

← →
Neket (2007-04-20 08:40) [3]

> showmessge(IntToStr(clGren) + " " + IntToStr(XLApp.ActiveSheet.
> Cells.Item[i + 1, K + 7].Interior.Color));

Странно но вы правы... Интересно а с чем это связано. Кстати что странно, ячейка сама по себе закрашивается.
И если я ставлю так

XLApp.ActiveSheet.Cells.Item[i + 1, K + 7].Interior.Color := clGreen; showmessge(IntToStr(clGreen) + " " + IntToStr(XLApp.ActiveSheet.Cells.Item[i + 1, K + 7].Interior.Color)); // Т.е. задаю стандартый цвет.

то все совпадает.

Странно но вы правы...

В чем? У меня было два предположения.
1) clGren не устанавливается, устанавлиыается какой-то близкий к нему.
Возьми его в качестве clGren
2) clGren затирается по ходу делв другим цветом, хотя clGreen - нет.
При затирании "анализируется" цвет, причем "коряво", т.е. сравнивается с clGren.

← →
Neket (2007-04-20 09:07) [5]

Все вроде разобрался.
Пришлось после установки в ClGren запоминать XLApp.ActiveSheet.Cells.Item[i + 1, K + 7].Interior.Color отдельно в другую переменную, а потом уже сверяться именно с этой переменной.

Цвета в Excel Найти похожие ветки