/*
OnDrawCell, Canvas, DrawFocusRect example
The following code uses the bitmaps in an image list component to draw the contents of each cell in a draw grid.  It draws a focus rectangle around the cell that has focus.
*/ 
void __fastcall TForm1::DrawGrid1DrawCell(TObject *Sender, long Col, long Row, TRect &Rect, TGridDrawState State)
{
  long index = Row * DrawGrid1->ColCount + Col;
  DrawGrid1->Canvas->Brush->Color = clNormalBackground;
  DrawGrid1->Canvas->FillRect(Rect);
  ImageList1->Draw(DrawGrid1->Canvas,Rect.Left,Rect.Top,index);
  if (State.Contains(gdFocused))
    DrawGrid1->Canvas->DrawFocusRect(Rect);
} 
