DBGrid изменение цвета ячейки

[S.T.U.D.E.N.T]

Добрый вечер, знаю что тем с таким заголовком очень много. Но у меня действительно интересная ситуация. Обращаюсь к вам только потому что сам ничего придумать не в состоянии.
Есть два DBGrida, оба хранят одинаковую коллекцию столбцов, но он расположены в разной последовательности. Также в таблицах хранятся данные которые нужно между собой сравнивать.
То чего я добился:
Скрываю столбцы первой страницы, затем берем первый столбец первой таблицы и ищем столбец с таким же названием во второй таблице. И сравниваю значения. Если они не совпадают, делаю текущий столбец первой таблицы видимым.
Но этого мало, мне взбрело в голову, что ячейки в первой таблице, которые содержат не совпадающие значения можно окрашивать в разные цвета. Но вот вызывать метод ColumnCellDrawing в цикле нельзя. Надеюсь, я все правильно сформулировал, и вы заинтересуетесь этим вопросом.

[S.T.U.D.E.N.T]

Ах да, забыл добавить, что пишу в RAD Studio

[Krok27]

В OnDrawColumnCell

if(((DBGrid*)Sender)->DataSource->DataSet->FieldByName("Name")->AsString() == "S.T.U.D.E.N.T" )
{
   ((DBGrid*)Sender)->Canvas->Brush->Color = clRed; //закрасим ячейку в красный цвет
if(State.Contains(gdSelected)) // выделенные ячейки закрашиваем как обычно
   {

		  ((DBGrid*)Sender)->Canvas->Brush->Color = clHighlight;
		  ((DBGrid*)Sender)->Canvas->Font->Color = clHighlightText;
   }

((DBGrid*)Sender)->Canvas->FillRect(Rect);

//включим прорисовку грида
((DBGrid*)Sender)->DefaultDrawColumnCell(Rect, DataCol, Column, State);

}

[S.T.U.D.E.N.T]

if(((DBGrid*)Sender)->DataSource->DataSet->FieldByName("Name")->AsString() == "S.T.U.D.E.N.T" )

Видите ли название столбца я нахожу по индексу который перебираю в цикле

for(int t=1;t<ADOQuery8->FieldCount;t++)
{
 //перебираю все столбцы второй таблицы
 for(int m=1;m<frmMain->ADOQuery2->FieldCount;m++)
 {
  //если названия двух столбцов совпадают
  if(DBGrid5->Columns->Items[t]->Title->Caption==frmMain->DBGrid1->Columns->Items[m]->Title->Caption)
  {
   //сравниваю их содержимое
   if(DBGrid5->Fields[t]->Text!=frmMain->DBGrid1->Fields[m]->Text)
   {

А вызывать прорисовку в цикле нельзя, потому что таблица начинает жутко мигать

[Krok27]

Сходу придумалось пока только это:
в DBGrid5DrawColumnCell

for(int i=0;i<frmMain->DBGrid1->DataSource->DataSet->FieldCount;++i)
	{
		if(Column->Title->Caption == frmMain->DBGrid1->Columns->Items[i]->Title->Caption)
			if(Column->Field->Text == frmMain->DBGrid1->Fields[i]->Text)
			{
				((TDBGrid*)Sender)->Canvas->Brush->Color = clRed;
				((TDBGrid*)Sender)->Canvas->Font->Color = clHighlightText;
				break;
			}
	}
	((TDBGrid*)Sender)->Canvas->FillRect(Rect);
	((TDBGrid*)Sender)->DefaultDrawColumnCell(Rect, DataCol, Column, State);

[S.T.U.D.E.N.T]

Cпасибо, очень помогли.

[Krok27]

Всегда пожалуйста.