Закрасить ячейку DBGrid по нажатию на кнопку

[dimok5]

Здравствуйте!
Как закрасить текущую ячейку DBGrid, на которой стоит курсор, (например, в красный цвет) по нажатию на Button1. Цвет при этом должен оставаться на этой ячейке даже после перезапуска проекта.

void __fastcall TForm1:: DBGrid1DrawColumnCell(TObject *Sender,
      const TRect &Rect, int DataCol, TColumn *Column,
      TGridDrawState State)
{
TDataSet *dataset = Column->Field->DataSet;
 
 
   if (State.Contains(gdFocused))
 
 
    {
        TDBGrid *dbg = (TDBGrid*)Sender;
                dbg->Canvas->Brush->Color = clRed;
                dbg->Canvas->FillRect(Rect);
                dbg->DefaultDrawColumnCell(Rect, DataCol, Column, State);
    }
 
    DBGrid1->DefaultDrawColumnCell(Rect, DataCol, Column, State);
}

Так окрашивает по событию DBGrid1DrawColumnCell, но только ту ячейку на которой стоит курсор, сбрасывая цвет на дефолт с предыдущей. А как сохранить цвет на ячейке?

[xxbesoxx]

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

А как сохранить цвет на ячейке?

Цвет при этом должен оставаться на этой ячейке даже после перезапуска проекта.

1) Делать в таблице дополнительное поля "MyColor" и это поля НЕ буду отображать DBGrid-е
2) Когда требуется что "сохранить цвет на ячейке при нажатие Button1" ! Напишу что при нажатие Button1 в полей "MyColor" сохранил любую число , на пример "1"
3) При открытое программа должен проверят ! если "MyColor" == "1" and .... тогда поставит "красный цвет"

[Аватар]

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

[xxbesoxx]

Сообщение от Аватар

информация хранится например в неком массиве,

Очень хороши вариант ! Если заранее известное (что пользователь будить хранить и что хочет закрасить)