[sereja-korjik]

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

Код:

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 - работает. Может я не так сравниваю?

Заранее спасибо за идеи.

[einstein]

тколор это -7ффффффф..7ффффффф

[sereja-korjik]

Сообщение от einstein

тколор это -7ффффффф..7ффффффф

Это понятно, но мне не это нужно

[angvelem]

Сообщение от sereja-korjik

Может я не так сравниваю?

Ну что там содержится только тебе и известно, а нам только остаётся гадать (можем на кофейной гуще ).

[sereja-korjik]

......Остро.

[NumLock]

у тебя каждый элемент массива сравнивается с последним элементом ctbcolors, а не с текущим. это так и задумано? к тому же уверен что твой ctbcolors никогда не возвращает цвет как "system screen element color defined", как это делает TColorBox, к примеру?

COLOR_3DDKSHADOW Dark shadow for three-dimensional display elements.
COLOR_3DFACE,
COLOR_BTNFACE Face color for three-dimensional display elements.
COLOR_3DHILIGHT, COLOR_3DHIGHLIGHT, COLOR_BTNHILIGHT, COLOR_BTNHIGHLIGHT Highlight color for three-dimensional display elements (for edges facing the light source.)
COLOR_3DLIGHT Light color for three-dimensional display elements (for edges facing the light source.)
COLOR_3DSHADOW, COLOR_BTNSHADOW Shadow color for three-dimensional display elements (for edges facing away from the light source).
COLOR_ACTIVEBORDER Active window border.
COLOR_ACTIVECAPTION Active window caption.
COLOR_APPWORKSPACE Background color of multiple document interface (MDI) applications.
COLOR_BACKGROUND, COLOR_DESKTOP Desktop.
COLOR_BTNTEXT Text on push buttons.
COLOR_CAPTIONTEXT Text in caption, size box, and scroll bar arrow box.
COLOR_GRAYTEXT Grayed (disabled) text. This color is set to 0 if the current display driver does not support a solid gray color.
COLOR_HIGHLIGHT Item(s) selected in a control.
COLOR_HIGHLIGHTTEXT Text of item(s) selected in a control.
COLOR_INACTIVEBORDER Inactive window border.
COLOR_INACTIVECAPTION Inactive window caption.
COLOR_INACTIVECAPTIONTEXT Color of text in an inactive caption.
COLOR_INFOBK Background color for tooltip controls.
COLOR_INFOTEXT Text color for tooltip controls.
COLOR_MENU Menu background.
COLOR_MENUTEXT Text in menus.
COLOR_SCROLLBAR Scroll bar gray area.
COLOR_WINDOW Window background.
COLOR_WINDOWFRAME Window frame.
COLOR_WINDOWTEXT Text in windows.

это же не RGB цвета. их нужно через GetSysColor.

[sereja-korjik]

Последний и есть текущий, т.к пункты добавляются, а потом идет проверка.
Зачем мне ЭТИ цвета?

[kotiuma_drug]

это что delphi?????