Fórum Imagem no dbGrid #215877

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if column.Field=Table1.FieldByName(´pago´) then
  begin
  dbGrid1.Canvas.FillRect(Rect);
    ImageList1.Draw(dbGrid1.Canvas,Rect.Left+10, Rect.Top+1,0);
    if UpperCase(Table1.FieldByName(´pago´).AsString)=´SIM´ then
    ImageList1.Draw(dbGrid1.Canvas, Rect.Left+10, Rect.Top+1, 1)
    else
    ImageList1.Draw(dbGrid1.Canvas, Rect.Left+10, Rect.Top+1, 0);
  end;
end;