выделение строк в ячейках которых повторяются значения в dbgrid

[silent_lab]

Помогите разобраться, уже попробовал все варианты найденные в интернете по раскрашиванию DBgrid.

В результате запроса выдается список данных, в которых дублируется, в одной ячейки записи

id_|num_|__SRNR____|_______title__________|
+++++++++++++++++++++++++++++++++++ +++
01| 23 | 2356000001 | препарат1 |
02| 34 | 2356000001 | препарат1 |
03| 66 | 2356000004 | препарат3 |
04| 67 | 2356000004 | препарат3 |
05| 32 | 2356000011 | препарат56 |
06| 34 | 2356000011 | препарат56 |
07| 46 | 2356000034 | препарат87 |
08| 49 | 2356000034 | препарат87 |
-------------------------------------------------

вот примерно так...
вот мне нужно каждую дубль строку выделить. в идеале 1 строка остается как положено, следующая строка если есть дубль в записи выделяется цветом(к примеру желтым); Дубли проверяются по полю SRNR

попробовал сделать вот так :

procedure TformColorGrid.DBGridDrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
Begin
	s:= DBGrid1.DataSource.DataSet.FieldByName('SRNR').AsString;
	// Красим нечетные строки
	IF numsrnr = s 
	Then TDBGrid(Sender).Canvas.Brush.Color:=RGB($CC,$CC,$99)
		else numsrnr := s; 

	// Восстанавливаем выделение текущей позиции курсора
	IF  gdSelected   IN State
	Then Begin
		TDBGrid(Sender).Canvas.Brush.Color:= clHighLight;
		TDBGrid(Sender).Canvas.Font.Color := clHighLightText;
	End;
	// Просим GRID перерисоваться самому
	TDBGrid(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);
End;

закрашивает все строки ,а первую колонку через раз((((((

[Аватар]

При прорисовке событие отрабатывает для каждой колонке грида по каждой записи. Информации о соседних записях нет. Эта информация должна быть в каком-то поле каждой записи

[silent_lab]

мне просто нужно все стоки с повторами выделить.
перемененная numsrnr является проверочной ,содержит новая строка с ячейкой совпадение или нет.
в примере переменная s присваиваю содержимое колонки SRNR новой строки,
проверю содержимое ячейки SRNR равно оно значению numsrnr, если нет, то строка без измения цвета и numsrnr присваиваю значение s
иначе поле содержит совпадение и строчку целиком нужно перекрасить.

вот примерно алгоритм , но что то не так работает(((

[ReportCube]

Не верный алгоритм, поскольку цвет строки не запоминаете. Когда грид просит отрисовать ячейку из столбца ACol из строки ARow, то именно здесь нужен цвет ячейки или шрифта. А у вас его нет...

[silent_lab]

А пример можно ?

[ReportCube]

А какой пример вы хотите? Либо цвет должен определяться по какому-то полю из запроса/таблицы, либо создавать отдельное хранилище, где для каждой строки будет храниться цвет. Других вариантов вроде бы и нет...

[silent_lab]

Честно сказать не пойму о чем речь идет. цвет всего один для дублированы записей, для остальных обычный.
Вопрос стоит именно как сверить повторяться ли записи, и если есть совпадение то строку окрасить в другой цвет.
Запрос уже выдает строки по порядку возрастания или убывания(это как настроить).
Мне же нужно при совпадении значения поля SRNR с предыдущей отрисованной уже строй закрасить ее, а если нет совпадения оставить без изменения.

[Аватар]

В момент отрисовки нет информации о предыдущей записи. Что бы ее взять нужно указатель записи датасета переместить, попробуйте переместите и все рухнет. Следствие - вся информация должна быть именно в одной записи или в каком-то левом источнике данных, к которому можно обратиться. Можно попытаться в запросе сформировать некий признак, но подозреваю, что будет куча сложностей. Самый простой и дубовый вариант - два идентичных датасета, один отображаемый, второй для анализа предыдущей записи при прорисовке.

[evg_m]

перед тем как что-то показывать для кажой записи из полученного набора данных необходимо определить является ли она дубликатом. Затем в процессе показа (OnDraw) надо воспользоваться этим знанием и раскрасить. Никаких предыдущих (последующих) строк во время раскраски не существует. Обращение к дугим записям означает переход к этой строке.
Если строки отсортированы можно было бы попробовать где-то сохранять код(текст) последней отрисованной и анализивать (сравнивать) с текущей.
Да вот беда никто не может знать с какой строки начнется рисоватние и в каком порядке оно будет идти.

Мне же нужно при совпадении значения поля SRNR с предыдущей отрисованной уже строй закрасить ее, а если нет совпадения оставить без изменения.

Во время рисования каждая строка должна знать является ли она дубликатом и БЕЗ обрашения к другим строкам.
Как этого добиться?

Либо цвет (читай является ли дубликатом) должен определяться по какому-то полю из запроса/таблицы, либо создавать отдельное хранилище, где для каждой строки будет храниться цвет. Других вариантов вроде бы и нет...

[ReportCube]

Реализация требуемого с TDBGrid для вас будет слишком сложной. Попробуйте поискать сторонний компонент, где это уже реализовано. Если записей будет немного, то я бы вообще отказался от TDBGrid и реализовал всё через обычный TDrawGrid с отображением внешней коллекции записей, например TCollectionItems или TObjectList с вложенными TStringList. Там можно было бы и хранить цвет строки.