Показать сообщение отдельно
  #1  
Старый 03.09.2011, 19:17
Аватар для sereja-korjik
sereja-korjik sereja-korjik вне форума
Прохожий
 
Регистрация: 31.08.2011
Адрес: Кемерово
Сообщения: 10
Версия Delphi: RAD
Репутация: 10
По умолчанию Сравнение двух цветов

Форумчане, доброго времени суток. Помогите советом. Дан некий код (цикл) в котором и происходит сравнение двух цветов. Один берется из массива, а другой берется просто из компонента.

Код:
for J := 0 to 541 do
if Theme.Color[J].Color = frmclient.ctbcolors.Categories.Items[frmclient.ctbcolors.Categories.Count - 1].Color then
frmclient.ctbcolors.Categories.Items[frmclient.ctbcolors.Categories.Count - 1].Caption := 'ok'.

Проблема в том, что условие не проходит, хотя должно. Заранее известно, что два значения там встречаются одинаковые.
Например, if ColorToHex(Theme.Color[J].Color) = $FFFFFF - работает. Может я не так сравниваю?

Заранее спасибо за идеи.
Ответить с цитированием