Раскрасить DBGrid

[SilverFish]

В DBGrid есть колонка выводящая bool значения (true/false). Можно ли вместо этих значений иметь в колонке соответствующие картинки?
Например, для false красный шарик, для true зеленый. Или может быть проще просто закрашивать нужные ячейки в колонке красная-зеленая.
Как такое можно сделать?

[SilverFish]

Нашлось:

Код

void __fastcall TForm1Main::DBGrid1DrawColumnCell(TObject *Sender, const TRect &Rect,
             int DataCol, TColumn *Column, TGridDrawState State)
{
 if ((FDQuerySelect->FieldByName(L"aut")->AsBoolean == false) &&
                    (Column->FieldName == L"aut") )
       {
        DBGrid1->Canvas->Brush->Color=clRed;
     DBGrid1->Canvas->FillRect(Rect);
        }
       else
            {
                       if ((FDQuerySelect->FieldByName(L"aut")->AsBoolean == true) &&
                                  (Column->FieldName == L"aut") )
                                 {
                                         DBGrid1->Canvas->Brush->Color=clGreen;
                                   DBGrid1->Canvas->FillRect(Rect);
                                  }
 
               }
}
 

Источник: http://citforum.ru/programming/advice/advice04.shtml