DBgrid con checks como ?

[amadis]

Alguien probò esto de los bitmaps?

Parece simple y muy estetico pero no pude hacerlo funcionar.

Código Delphi [-]
 if Column.Field = campo then
  begin
    DBGrid1.Canvas.FillRect(Rect);
    if campo.value = 0 then //unchecked condition
      ImageList1.Draw(DBGrid1.Canvas,Rect.Left+10,Rect.Top+1,0)
    else  //checked condition
      ImageList1.Draw(DBGrid1.Canvas,Rect.Left+10,Rect.Top+1,1);
  end;