Раскрасить строки DbGrid

Подскажите как выделить строки с одинаковым содиржимиым допустим есть следйющие строки

1
2
2
7
8
9
5
8

Возможно ли раскрасить одинаковые строки Dbgrid в соответствующие оттенки цветов. Вот нашел такой пример пытался переработать, перебирал с помощю цыклов значения но чего не получилось кроми зацикливания и бесконечыной раскраски.

Здесь мы будем использовать событие "OnDrawColumnCell". Следующий пример разукрашивает ячейки колонки "Status" когда значение НЕ равно "a". Если Вы хотите закрасить целую линию, то достаточно удалить условие "If..." (смотрите ниже) Delphi 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); const clPaleGreen = TColor($CCFFCC); clPaleRed = TColor($CCCCFF); begin   If Column.FieldName = 'Status' then //Удалите эту линию, если хотете закрасить целую линию   If Column.Field.Dataset.FieldbyName('Status').AsStrin g <> 'a' then If (gdFocused in State) //имеет ли ячейка фокус? then dbgrid1.canvas.brush.color := clBlack //имеет фокус else dbgrid1.canvas.brush.color := clPaleGreen; //не имеет фокуса   //Теперь давайте закрасим ячейку используя стандартный метод: dbgrid1.DefaultDrawColumnCell(rect,DataCol,Column, State) end;

0

1)Вот что наработал подскажите дальше, привожу полностью текст из двух постов а то видимо не понятно объяснил что хочу в первом посте, судя по ответам на другом форуме.
Подскажите как доработать програмуя сделал так
в результате запросов я получаю эти числа котрые надо выделить и присваеваю их переменной вариант.
тоесть если есть столбец с числами 1,2,2,1,5,7,12,4 то я получу переменную "а" типа вариант и в ней я так понимаю содержаться числа 2 и 1.
Как впихнуть уже известные значения ячейки которую надо красить в саму процедуру не знаю. Вторая процедура по клику кнопки создает этот вариант "а" .
1. У меня не получается преобразовать "а" в вариантный масив и загнать его в процедуру раскраски.
2. Расположить запрос внутри процедуры
TForm1.DBGrid1DrawColumnCell тоже не льзя ругаеться. Ghjwtlehe получение масива одинаковых чисел, надо повесить на кокое то событие связанное с изменением содержимого DBGRid, которое наступает раньше чем его раскраска. А потом загнать полученый масив a[i]-ых в процедуру DBGrid1DrawColumnCell для раскраски этих строк.

2)Сложность не в раскраски ячейки с номером "2", а сложность в том чтобы узнать что ячеек с номером "2" встречаеться больше чем 1 раз и тогда их раскрасить. Тоесть два столбца полученых в врезультате запроса Qeri1 отображаються в ДБГриде:
1 Квдрат 25*25
2 Диаметр Д16
2 Диаметр Д25 (В одной поззиции только один инструмент)
17 Прям 15*123
5 Круг 14

Во 2-ой позици стоит два разных инструмента этого не может быть. значит надо выделить эти строки красным. вот и проблема узнать строки с каким значением надо выделить.
Я их узнаю в результате проведения запросов, в итоге выполнения запроса через Qery2, я имею столбец одинаковых (повторяющихся) значений тоесть резултат запроса таблица в данном случае только одно число 2. Если повторяющихся чисел больше то соответственно столбец содержит эти повторяющиеся числа
2
23
14

Можно тупо вывести ссобщение в Label что мол в позициях 2, 23, 14 инструмент пересикаеться что не допустимо.
Либо попытаться загнать полученые числа в Form1.DBGrid1DrawColumnCell.

В этой процедуре я присвоил значение переменной "а" вариант значение поля с теми числами которые надо раскрасить.
Теперь я думаю переменную "a" вариант надо преобразовать в масив и какимто образом загнать в процедуру
procedure TForm1.DBGrid1DrawColumnCell
и в цикле перебрать эти значения и раскрасить DBGRID.

Вобщем проблема знаем что красить, но не знаем как занести эту информацию в процедуру раскраски, подсобите если кто знает как это сделать.

0