Для примера зальем их красным цветом:

void __fastcall TForm1::DBGrid1DrawColumnCell(TObject *Sender,
      const TRect &Rect, int DataCol, TColumn *Column,
      TGridDrawState State)
{
    class THackDBGrid :public TDBGrid
    {
    public:
     __property  RowHeights;
    };

    TRect TitleRect;
    TitleRect.Top = 0;
    TitleRect.Bottom = ((THackDBGrid*)DBGrid1)->RowHeights[0];
    TitleRect.Left=Rect.Left;
    TitleRect.Right=Rect.Right;

    DBGrid1->Canvas->Brush->Color=clRed;
    DBGrid1->Canvas->FillRect(TitleRect);

    DBGrid1->Canvas->Brush->Color=clWhite;
    DBGrid1->DefaultDrawColumnCell(Rect,DataCol,Column,State);
}

Я так мои Гриды в XP перекрашиваю.

Andrej Kalinicenko

Предыдущий вопрос   |    |   Следующий вопрос

источник            by jenyok